[LISP函数]：给大家一个tch3.x的文字标注函数，替换天正同名函数后，可使中英文连接。

zdarc

给大家一个tch3.x的文字标注函数，替换天正同名函数后，可使天正字体中英文连接。
;;文本标注函数
(defun hz_txt (p0 hzh r txt / a dis)
  (_@ld "getword")
  (if (< hzh 15)
    (setq hzh (* 100 hzh (sldna "normal")))
  )
  (setvar "textsize" (* (sldna "normal") 500))
  (setq a (tblsearch "style" "hz"))
  (if (= a nil)
    (command "style" "hz" "romand-g,hztxt" "0" "0.75" "0" "" "" "")
    (setvar "textstyle" "hz")
  )
  (command "layer" "m" (parea "公共文字") "c" "4" "" "")
  (command "text" p0 hzh r txt)
  (redraw)
  (setq dis (car(cadr(textbox (entget (entlast))))))
  (polar p0 r dis)
)

CCarch

——————————————————
晓东CAD空间，天正论坛快速查阅：

话题分类：
『C类』：天正开发技术与技巧
——————————————————