求批量移动标注的lsp

wxa123wl

;; 需要e派工具箱(XCAD)的支持
;; 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

wxa123wl 发表于 2014-7-8 00:34
;; 需要e派工具箱(XCAD)的支持
;; tt(标注移动)
(defun c:tt1 ()

我不会呀！高不会你的那个呀！