三月三 发表于 2009-9-26 13:01:00

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

<p>代码如下：</p><p>(defun c:ttt (/ ss n en ed textva tb)<br/>(setq ss (ssget '((0 . "TEXT"))))<br/>(setq n 0)<br/>(while (&gt; (sslength ss) n)<br/>(setq en (ssname ss n))<br/>(setq ed (entget en))<br/>(setq textva (assoc 1 ed))<br/>(setq tb (textbox (list textva)))<br/>(command "_.ucs" "Object" en)<br/>(command "_.RECTANG" (car tb) (cadr tb))<br/>(setq n (1+ n))<br/>)<br/>(princ)<br/>) 用 TEXTBOX 函数</p><p>在选定一个文本后，加的方框不符合文字的宽度。这问题怎么解决，请大虾指教。帮忙修正代码。</p><p>小弟在此先谢过了。&nbsp;</p><p></p><p></p>

啵浪鼓 发表于 2009-9-26 13:22:00

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

phoenixdjq 发表于 2009-9-26 14:45:00

<p>express tools 中已经有了</p>

三月三 发表于 2009-9-26 15:15:00

<p>多谢两位大虾的指导，</p><p>我试试EXPRESS TOOL吧，这个省事。</p>

ljttjl 发表于 2009-9-26 15:48:00

本帖最后由 作者 于 2009-9-28 20:28:37 编辑 <br /><br /> <p><strong>文字加框程序</strong></p><p>使用方法：打开要加框的文字图形，在命令行用appload命令加载wzjk.vlx程序，然后在命令行输入 wzjk&nbsp; 回车，按提示框选文字即可。</p><p></p><p>文字加框程序演示：</p><p></p>

三月三 发表于 2009-9-26 18:38:00

phoenixdjq发表于2009-9-26 14:45:00static/image/common/back.gifexpress tools 中已经有了

<p>哈哈，找到这个命令了。多谢这位兄弟的提醒。</p><p>AutoCAD 2004及以上版本的快捷工具(Express Tools)中提供了命令TCIRCLE</p>
页: [1]
查看完整版本: [原创]CAD中给文本加方框