;; tt(标注移动)
(defun c:tt1 ()
(xyp-CMDLA0)
(setq ss (ssget":s"))
(setq lst(xyp-ss2list ss)
lst1 (vl-remove-if
'(lambda (x) (not (xyp-etype x "LWPOLYLINE")))
lst
)
lst2 (vl-remove-if
'(lambda (x) (not (xyp-etype x "DIMENSION")))
lst
)
)
(if (= (length lst1) 1)
(progn
(setq s1 (car lst1))
(foreach s2 lst2
(setq p13 (xyp-DXF 13 s2))
(xyp-move s2 p13 (vlax-curve-getclosestpointto s1 p13))
)
)
)
(xyp-CMDLA1)
(C:tt1)
) wxa123wl 发表于 2014-7-8 00:34 static/image/common/back.gif
;; 需要e派工具箱(XCAD)的支持
;; tt(标注移动)
(defun c:tt1 ()
我不会呀！高不会你的那个呀！
页:
1
[2]