[求助]：建议优化tch3.x的文字标注

VIVID

建议优化tch3.x的文字标注，解决tch3.x文字标注时汉字与数字分离的不便，哪位高手试一试？

zdarc

请查找我已前发的关于修改天正hztxt函数的帖子。

VIVID

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)
)