[日积月累]：Reverse Spline

eachy

1 Splinedit -> E

2

2. 
   
3. (defun c:tt (/ e el pt10 pt11 p10 eel v12 v13)
   
4.   (while (and (setq e (car (entsel "\nPick Spline:")))
   
5.               (setq el (entget e))
   
6.               (= (cdr (assoc 0 el)) "SPLINE")
   
7.          )
   
8.     (setq pt10 (vl-remove-if-not '(lambda (x) (= (car x) 10)) el)
   
9.           pt11 (vl-remove-if-not '(lambda (x) (= (car x) 11)) el)
   
10.           p40  (vl-remove-if-not '(lambda (x) (= (car x) 40)) el)
    
11.           eel  (reverse (member (assoc 44 el) (reverse el)))
    
12.           v12  (cdr (assoc 12 el))
    
13.           v13  (cdr (assoc 13 el))
    
14.     )
    
15.     (if        (assoc 12 el)
    
16.       (setq eel (append eel (list (cons 12 (mapcar '- v12)))))
    
17.     )
    
18.     (if        (assoc 13 eel)
    
19.       (setq eel (append eel (list (cons 13 (mapcar '- v13)))))
    
20.     )
    
21.     (entmod
    
22.       (append eel (reverse p40) (reverse pt10) (reverse pt11))
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

<br /> (defun c:tt (/ e el pt10 pt11 p10 eel v12 v13)<br />   (while (and (setq e (car (entsel "\nPick Spline:")))<br />               (setq el (entget e))<br />               (= (cdr (assoc 0 el)) "SPLINE")<br />          )<br />     (setq pt10 (vl-remove-if-not '(lambda (x) (= (car x) 10)) el)<br />           pt11 (vl-remove-if-not '(lambda (x) (= (car x) 11)) el)<br />           p40  (vl-remove-if-not '(lambda (x) (= (car x) 40)) el)<br />           eel  (reverse (member (assoc 44 el) (reverse el)))<br />           v12  (cdr (assoc 12 el))<br />           v13  (cdr (assoc 13 el))<br />     )<br />     (if        (assoc 12 el)<br />       (setq eel (append eel (list (cons 12 (mapcar '- v12)))))<br />     )<br />     (if        (assoc 13 eel)<br />       (setq eel (append eel (list (cons 13 (mapcar '- v13)))))<br />     )<br />     (entmod<br />       (append eel (reverse p40) (reverse pt10) (reverse pt11))<br />     )<br />   )<br />   (princ)<br /> )

WHGF

有什么特点先简单介绍一下! 好吗?