Visual Lisp代码片断：生成文本对象

;用法：(EntMakeText 点X 点Y 文本内容 文本高度 颜色 层名)
(defun EntMakeText (px py str tHeight styleName layerName / pt)
  (setq pt (list px py))
  (entmakeX
    (list '(0 . "TEXT")
      (cons 1 str)
      (cons 10 pt)
      (cons 7 styleName)
      (cons 8 layerName)
      (cons 40 tHeight)
    )
  )
)