[LISP程序]：园内画月牙

yyy8888

2. (prompt"\n园内画月牙")
   
3. (setq nn "t") (while (= nn "t")
   
4. ;(setq pa(osnap (getpoint "\n 选择园 <NEA> :") "nea"))
   
5. (setq pa (entsel "\n 选择园 <NEA> :"))
   
6. (if (= pa nil) (setq nn "f") (progn
   
7. (setq zz(ssget pa))
   
8. 
   
9. (setq Pcen(cdr (assoc '10 (setq ent(entget (ssname zz 0))))))
   
10. (setq R(cdr (assoc '40 ent)))
    
11. ;(setq R (distance PA Pcen))
    
12.    (setq rr(- R (* k 2)))
    
13.     (command "arc" (polar Pcen (dtr 45) rr)
    
14.                    (polar Pcen (dtr 135) rr)
    
15.                    (polar Pcen (dtr 225) rr))
    
16.     (command "arc" (polar Pcen (dtr 45) rr)
    
17.                    (polar Pcen (dtr 135) (* R 0.75))
    
18.                    (polar Pcen (dtr 225) rr))))
    
19. )))
    
20. (princ)

(prompt"\n园内画月牙")<br /> (setq nn "t") (while (= nn "t")<br /> ;(setq pa(osnap (getpoint "\n 选择园 <NEA> :") "nea"))<br /> (setq pa (entsel "\n 选择园 <NEA> :"))<br /> (if (= pa nil) (setq nn "f") (progn<br /> (setq zz(ssget pa))<br /> <br /> (setq Pcen(cdr (assoc '10 (setq ent(entget (ssname zz 0))))))<br /> (setq R(cdr (assoc '40 ent)))<br /> ;(setq R (distance PA Pcen))<br />    (setq rr(- R (* k 2)))<br />     (command "arc" (polar Pcen (dtr 45) rr)<br />                    (polar Pcen (dtr 135) rr)<br />                    (polar Pcen (dtr 225) rr))<br />     (command "arc" (polar Pcen (dtr 45) rr)<br />                    (polar Pcen (dtr 135) (* R 0.75))<br />                    (polar Pcen (dtr 225) rr))))<br /> )))<br /> (princ)