院长的代码就是厉害呀..学习了,我弯子绕大了...考虑还不周全.... xyp1964 发表于 2014-3-25 13:48 static/image/common/back.gif
(defun c:tt ( / dn el i lst-co lst-dn n s1 ss)
(setq i -1
lst-dn '(25 32 40 50 65 70 80 100 150)
lst-co '(7 4 150 5 32 32 1 6 2)
)
(if (setq ss (ssget "x" '((0 . "TCH_PIPE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq el (entget s1)
dn (fix (cdr (assoc 140 el)))
)
(if (setq n (member dn lst-dn))(entmod (append el (list (cons 62 (nth (- 9 (length n)) lst-co))))))
)
)
(princ)
)
院长的代码改了下...应该变成通用版了... q3_2006 发表于 2014-3-25 14:05 static/image/common/back.gif
(defun c:tt ( / dn el i lst-co lst-dn n s1 ss)
(setq i -1
lst-dn '(25 32 40 50 65 70 8 ...
;; (aaa lst-dn lst-co)
;; (aaa '(25 32 40 50 65 70 80 100 150) '(7 4 150 5 32 32 1 6 2))
(defun aaa (lst-dn lst-co / i ss s1 dn n)
(setq i -1)
(if (setq ss (ssget "x" '((0 . "TCH_PIPE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq dn (fix (xyp-DXF 140 s1)))
(if (setq n (member dn lst-dn))
(xyp-SubUpd s1 62 (nth (- 9 (length n)) lst-co))
)
)
)
(princ)
) 谢谢高手Q3热心相助~~ 也谢谢院长~。
页:
1
[2]