如何实现将多行文字居封闭区域中

nzl1116

注册 发表于 2013-5-26 11:57
可惜了，没有下载到，不知能否实现批量

今天刚好在家里，已经重新上传

注册

nzl1116 发表于 2013-5-26 12:24
今天刚好在家里，已经重新上传

收到，多谢哈！！！

bai2000

还是不能框选的，，，，，，，，，，

注册

bai2000 发表于 2013-5-26 17:06
还是不能框选的，，，，，，，，，，

是的，同样的问题啊

669423907

这有一个对象居中的，蛮好用的
;对象居中（zml84，2009-06-15）
(defun c:xa(/ X Y SIZE PT EN AREA STR TMP)
(while(setq SS (entsel "\n点取需要居中的对象:"))
(setq EN (car SS))
(command "undo" "be")
(setq EN_TMP (bpoly (cadr SS)))
(progn (setq TMP (BOX EN)
TMP (mapcar '+ (car TMP) (cadr TMP))
PT0 (mapcar '* TMP '(0.5 0.5 0.5)))
(setq TMP (BOX EN_TMP)
TMP (mapcar '+ (car TMP) (cadr TMP))
PT1 (mapcar '* TMP '(0.5 0.5 0.5)))
(command "_.move" EN "" "non" PT0 "non" PT1)
(entdel EN_TMP)))
(princ))
(defun BOX (E / LL UR)
(vla-getboundingbox (vlax-ename->vla-object E) 'LL 'UR)
(mapcar 'vlax-safearray->list (list LL UR)))

注册

669423907 发表于 2013-5-27 08:18
这有一个对象居中的，蛮好用的
;对象居中（zml84，2009-06-15）
(defun c:xa(/ X Y SIZE PT EN AREA STR  ...

8错，只是不是我想要的那个结果哈，谢谢

Ming131564

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)
)