[求助]文字表格居中

绝情一剑

闲着无聊，也玩玩

;;;|求物体中心
(defun pt1-pt2-mid (e / minpoint maxpoint)
(vla-getboundingbox e 'minpoint 'maxpoint)
(setq pt(mapcar '* '(0.5 0.5)
    (mapcar '+ (vlax-safearray->list minpoint)(vlax-safearray->list maxpoint))
   )) 
  )
;;;|文字居中程序，SNSJ
(defun c:cs (/ mid obj mid1 dob)
(vl-cmdf "undo" "BE")
(if(ssget '((0 . "TEXT")))
  (progn
(vlax-for obj(vla-get-activeselectionset(vla-get-activedocument (vlax-get-acad-object)))
  (if(/=(setq ob(bpoly(setq mid(pt1-pt2-mid obj))))nil)
    (progn
    (setq mid1(pt1-pt2-mid(setq dob(vlax-ename->vla-object ob))))
    (vla-delete dob)
    (vla-move obj(vlax-3D-point mid)(vlax-3D-point mid1))
    )))
   )(princ "\n&&&&&&&&&&|请选择单行文本|&&&&&&&&&&&&&&")
  )
  (vl-cmdf "undo" "E")(princ)
  )

xd-xdcad

sailorcwx发表于2008-5-21 15:49:00那你用一个command把你的程序包起来嘛

请问怎样执行,谢谢

谢谢"绝情一剑"朋友，您的程序非常合用

谢谢caoyin朋友\sailorcwx朋友

正是有了你们这样的热心朋友,我在这里得到很大的收获

ayunger

看看本论坛下《一个非常好用的AutoCAD工具集》中的表格文字对齐函数，命令:aySheetAlign

注册

绝情一剑 发表于 2008-5-21 22:30
本帖最后由 作者 于 2008-5-21 22:31:18 编辑  闲着无聊，也玩玩;;;|求物体中心(defun pt1-pt2-mid (e / m ...

能否实现多行文字表格居中？

huxu823

很实用，用起来和贱人工具箱5.8里那个一样

zhangrunze

注册 发表于 2013-6-12 09:45
能否实现多行文字表格居中？

运行了只支持单行文字~
单行文字才能选中~