椭圆转SPLINE.lsp

admin

1. ;椭圆转SPLINE 明经 ZZXXQQ 2008.2.1
   
2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq oldos (getvar "OSMODE"))
   
5. (if (and (setq s1 (entsel "\nSelect a Ellipse 选择椭圆 :"))
   
6.           (setq ent (entget(car s1)))
   
7.           (= (cdr(assoc 0 ent)) "ELLIPSE")
   
8.   ) (progn
   
9.   (command ".undo" "BE")
   
10.   (command "divide" s1 16)
    
11.   (setq p1 (cdr(assoc 10 ent))
    
12.         p2 (cdr(assoc 11 ent))
    
13.         p2 (polar p1 (angle '(0 0) p2) (distance '(0 0) p2))
    
14.         p3 (polar p2 (+ (angle p1 p2) (/ pi -2)) 5))
    
15.   (setq ss (ssget "P"))
    
16.   (setq pt (cdr(assoc 10 (entget(ssname ss 0)))))
    
17.   (setq i 0)
    
18.   (setvar "OSMODE" 0)
    
19.   (command ".spline" pt)
    
20.   (repeat (1- (sslength ss))
    
21.    (setq pt (cdr(assoc 10 (entget(ssname ss (setq i (1+ i)))))))
    
22.    (command pt)
    
23.   )
    
24.   (command "c" p3)
    
25.   (setvar "OSMODE" oldos)
    
26.   (command ".erase" ss (car s1) "")
    
27.   (command ".undo" "E")
    
28. ))
    
29. (setvar "CMDECHO" 1)
    
30. (princ)
    
31. )

复制代码