谁能看懂这段代码？

q3_2006

xyp1964 发表于 2014-3-25 13:48

院长的代码就是厉害呀..学习了,我弯子绕大了...考虑还不周全....

q3_2006

xyp1964 发表于 2014-3-25 13:48

(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)
)
院长的代码改了下...应该变成通用版了...

xyp1964

q3_2006 发表于 2014-3-25 14:05
(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 ...

2. ;; (aaa lst-dn lst-co)
   
3. ;; (aaa '(25 32 40 50 65 70 80 100 150) '(7 4 150 5 32 32 1 6 2))
   
4. (defun aaa (lst-dn lst-co / i ss s1 dn n)
   
5.   (setq i -1)
   
6.   (if (setq ss (ssget "x" '((0 . "TCH_PIPE"))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq dn (fix (xyp-DXF 140 s1)))
   
9.       (if (setq n (member dn lst-dn))
   
10.         (xyp-SubUpd s1 62 (nth (- 9 (length n)) lst-co))
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

;; (aaa lst-dn lst-co)<br /> ;; (aaa '(25 32 40 50 65 70 80 100 150) '(7 4 150 5 32 32 1 6 2))<br /> (defun aaa (lst-dn lst-co / i ss s1 dn n)<br />   (setq i -1)<br />   (if (setq ss (ssget "x" '((0 . "TCH_PIPE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq dn (fix (xyp-DXF 140 s1)))<br />       (if (setq n (member dn lst-dn))<br />         (xyp-SubUpd s1 62 (nth (- 9 (length n)) lst-co))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xskfq

谢谢高手Q3热心相助~~ 也谢谢院长~。