[原创]CAD中给文本加方框

三月三

代码如下：

(defun c:ttt (/ ss n en ed textva tb)
(setq ss (ssget '((0 . "TEXT"))))
(setq n 0)
(while (> (sslength ss) n)
(setq en (ssname ss n))
(setq ed (entget en))
(setq textva (assoc 1 ed))
(setq tb (textbox (list textva)))
(command "_.ucs" "Object" en)
(command "_.RECTANG" (car tb) (cadr tb))
(setq n (1+ n))
)
(princ)
) 用 TEXTBOX 函数

在选定一个文本后，加的方框不符合文字的宽度。这问题怎么解决，请大虾指教。帮忙修正代码。

小弟在此先谢过了。 

啵浪鼓

此問題是由于當前文字寬度與所選文字寬度系數比不一致所造成﹐程序里先要得到文字樣式

phoenixdjq

express tools 中已经有了

三月三

多谢两位大虾的指导，

我试试EXPRESS TOOL吧，这个省事。

ljttjl

文字加框程序

使用方法：打开要加框的文字图形，在命令行用appload命令加载wzjk.vlx程序，然后在命令行输入 wzjk  回车，按提示框选文字即可。

文字加框程序演示：

三月三

phoenixdjq发表于2009-9-26 14:45:00express tools 中已经有了

哈哈，找到这个命令了。多谢这位兄弟的提醒。

AutoCAD 2004及以上版本的快捷工具(Express Tools)中提供了命令TCIRCLE