本帖最后由 作者 于 2008-5-21 22:31:18 编辑 <br /><br /> <p>闲着无聊，也玩玩</p><p>;;;|求物体中心<br/>(defun pt1-pt2-mid (e / minpoint maxpoint)<br/>(vla-getboundingbox e 'minpoint 'maxpoint)<br/>(setq pt(mapcar '* '(0.5 0.5)<br/> (mapcar '+ (vlax-safearray->list minpoint)(vlax-safearray->list maxpoint))<br/> )) <br/> )<br/>;;;|文字居中程序，SNSJ<br/>(defun c:cs (/ mid obj mid1 dob)<br/>(vl-cmdf "undo" "BE")<br/>(if(ssget '((0 . "TEXT")))<br/> (progn<br/>(vlax-for obj(vla-get-activeselectionset(vla-get-activedocument (vlax-get-acad-object)))<br/> (if(/=(setq ob(bpoly(setq mid(pt1-pt2-mid obj))))nil)<br/> (progn<br/> (setq mid1(pt1-pt2-mid(setq dob(vlax-ename->vla-object ob))))<br/> (vla-delete dob)<br/> (vla-move obj(vlax-3D-point mid)(vlax-3D-point mid1))<br/> )))<br/> )(princ "\n&&&&&&&&&&|请选择单行文本|&&&&&&&&&&&&&&")<br/> )<br/> (vl-cmdf "undo" "E")(princ)<br/> )</p><p></p>
sailorcwx发表于2008-5-21 15:49:00static/image/common/back.gif那你用一个command把你的程序包起来嘛
<p></p><p>请问怎样执行,谢谢</p><p>谢谢"绝情一剑"朋友，您的程序非常合用</p><p>谢谢<strong><font face="Verdana" color="#61b713">caoyin朋友\<em><font color="#000000">sailorcwx朋友</font></em></font></strong></p><p><strong><em><font face="Verdana">正是有了你们这样的热心朋友,我在这里得到很大的收获</font></em></strong></p>
看看本论坛下《一个非常好用的AutoCAD工具集》中的表格文字对齐函数，命令:aySheetAlign
绝情一剑 发表于 2008-5-21 22:30 static/image/common/back.gif
本帖最后由 作者 于 2008-5-21 22:31:18 编辑闲着无聊，也玩玩;;;|求物体中心(defun pt1-pt2-mid (e / m ...
能否实现多行文字表格居中？
很实用，用起来和贱人工具箱5.8里那个一样
注册 发表于 2013-6-12 09:45
能否实现多行文字表格居中？
运行了只支持单行文字~
单行文字才能选中~
zhangrunze 发表于 2024-4-15 11:01
运行了只支持单行文字~
单行文字才能选中~
源码里把(ssget '((0 . "TEXT")))==改成==》》(ssget '((0 . "TEXT,Mtext")))就能用。
学习学习，各位大佬的程序