求LISP程序！！！

yybu

有哪位大侠能编一个满足如下要求的纯LISP程序，要求如下：


有若干个圆和若干条直线，圆和一条或多条直线相交，要求程序能自动将所有圆内的直线剪切掉。

德哥

能办到！


现只提供思路，因为觉得没有多大的实际用途。


构造选择集：直接选取元和直线；或者选取园然后搜索与园相交的直线添加到选择集中                 循环用BREAK命令：具体操作方法是以直线选择集循环，分别求出交点，然后BREAK-〉F把中间的断开就搞定。


反正用trim挺难做到的，这样复杂一点能办到就是

andyding

用expresstools中的etrim命令可达到此目的.

花锦绣

如果大圆中有小圆，先截断经小圆中的直线，再截断大圆中的直线，会不会有线段留在大圆和小圆之间，需要进一步判断。

ZZXXQQ

2. (DEFUN C:ERASEC (/ SS SL SN PC R N)
3.   (SETVAR "CMDECHO" 0)
4.   (SETQ OLDOS (GETVAR "OSMODE"))
5.   (SETVAR "OSMODE" 0)
6. (DEFUN C:ERASEC (/ SS SL SN PC R N)
7.   (SETVAR "CMDECHO" 0)
8.   (SETQ OLDOS (GETVAR "OSMODE"))
9.   (SETVAR "OSMODE" 0)
10.   (PRINC "\nPlease  Select Circle(s) 请选择圆 :")
11.   (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
12.    (SETQ SL (SSLENGTH SS) I 0)
13.    (REPEAT SL
14.      (SETQ SN (SSNAME SS I) I (1+ I)
15.                  PC (CDR (ASSOC 10 (ENTGET SN)))
16.                  R   (* (CDR (ASSOC 40 (ENTGET SN))) 0.99)
17.                  N 0
18.      )
19.      (COMMAND "ZOOM" "C" PC (* 3 R))
20.      (COMMAND "TRIM" SN "" "F")
21.      (REPEAT 180
22.        (COMMAND (POLAR PC (/ (* 2 N PI) 180) R))
23.        (setq N (1+ N))
24.      )
25.      (COMMAND "" "")
26.      (SETQ N 0)
27.      (COMMAND "ERASE" "WP")
28.      (REPEAT 180
29.        (COMMAND (POLAR PC (/ (* 2 N PI) 180) R))
30.        (setq N (1+ N))
31.      )
32.      (COMMAND "" "" "ZOOM" "P")
33.    )
34.   ))
35.   (SETVAR "OSMODE" OLDOS)
36.   (SETVAR "CMDECHO" 1)
37.   (PRINC)
38. )(princ "\nType ERASEC to start.")
39. (princ)

(DEFUN C:ERASEC (/ SS SL SN PC R N)   (SETVAR "CMDECHO" 0)   (SETQ OLDOS (GETVAR "OSMODE"))   (SETVAR "OSMODE" 0) (DEFUN C:ERASEC (/ SS SL SN PC R N)   (SETVAR "CMDECHO" 0)   (SETQ OLDOS (GETVAR "OSMODE"))   (SETVAR "OSMODE" 0)   (PRINC "\nPlease  Select Circle(s) 请选择圆 :")   (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN    (SETQ SL (SSLENGTH SS) I 0)    (REPEAT SL      (SETQ SN (SSNAME SS I) I (1+ I)                  PC (CDR (ASSOC 10 (ENTGET SN)))                  R   (* (CDR (ASSOC 40 (ENTGET SN))) 0.99)                  N 0      )      (COMMAND "ZOOM" "C" PC (* 3 R))      (COMMAND "TRIM" SN "" "F")      (REPEAT 180        (COMMAND (POLAR PC (/ (* 2 N PI) 180) R))        (setq N (1+ N))      )      (COMMAND "" "")      (SETQ N 0)      (COMMAND "ERASE" "WP")      (REPEAT 180        (COMMAND (POLAR PC (/ (* 2 N PI) 180) R))        (setq N (1+ N))      )      (COMMAND "" "" "ZOOM" "P")    )   ))   (SETVAR "OSMODE" OLDOS)   (SETVAR "CMDECHO" 1)   (PRINC) )(princ "\nType ERASEC to start.") (princ)