如何实现将多行文字居封闭区域中
如何实现将多行文字居封闭区域中，论坛收索了一遍，除了惊鸿一瞥院长的大作能实现，其余的好像都只能对单行文字实现居中呢？ nzl1116 发表于 2013-5-26 12:24 static/image/common/back.gif今天刚好在家里，已经重新上传
收到，多谢哈！！！ 669423907 发表于 2013-5-27 08:18
这有一个对象居中的，蛮好用的
;对象居中（zml84，2009-06-15）
(defun c:xa(/ X Y SIZE PT EN AREA STR...
这个更好用
;对象居中：by zml84 2009-06-15 此基础上修改：by 忘霄
(defun C:EC (/ box en_tmp ent i pt0 pt1 ss tmp)
(setvar "CMDECHO" 0)
(vl-load-com)
(princ "\n选择需要居中的对象：")
(if (setq ss (ssget))
(progn
(defun box (e / ll ur)
(vla-getboundingbox (vlax-ename->vla-object e) 'll 'ur)
(mapcar 'vlax-safearray->list (list ll ur))
)
(setq i -1)
(command "undo" "be")
(while (setq ent (ssname ss (setq i (1+ i))))
(setq tmp (box ent))
(setq tmp (mapcar '+ (car tmp) (cadr tmp)))
(setq pt0 (mapcar '* tmp '(0.5 0.5 0.5)))
(entdel ent)
(setq en_tmp (bpoly pt0))
(entdel ent)
(setq tmp (box en_tmp))
(setq tmp (mapcar '+ (car tmp) (cadr tmp)))
(setq pt1 (mapcar '* tmp '(0.5 0.5 0.5)))
(command "move" ent "" "non" pt0 "non" pt1)
(entdel en_tmp)
)
(command "undo" "e")
)
(princ "\n没有选择对象！")
)
(princ)
) 自己来支持一下，呵呵 注册 发表于 2013-5-14 07:42 static/image/common/back.gif
自己来支持一下，呵呵
楼主是想发程序还是想要程序？ nzl1116 发表于 2013-5-14 08:18 static/image/common/back.gif
楼主是想发程序还是想要程序？
后者，呵呵~~~ 注册 发表于 2013-5-14 08:19 static/image/common/back.gif
后者，呵呵~~~
你不是搜索过，有程序可以实现的吗？ nzl1116 发表于 2013-5-14 08:21 static/image/common/back.gif
你不是搜索过，有程序可以实现的吗？
没有~~~~~~~ 由文字得到表格范围的四角坐标pl，再由表格范围pl得到表格内文字textss，剩下的就是文字textss排序移动！ Gu_xl 发表于 2013-5-14 09:58 static/image/common/back.gif
由文字得到表格范围的四角坐标pl，再由表格范围pl得到表格内文字textss，剩下的就是文字textss排序移动！
谢谢G版，只是有点复杂对我这个菜鸟，有成品吗，谢谢 注册 发表于 2013-5-14 11:45 static/image/common/back.gif
谢谢G版，只是有点复杂对我这个菜鸟，有成品吗，谢谢
http://bbs.mjtd.com/thread-96107-1-1.html 多谢g版！！！