帮我将lisp修改为批量删掉圆内实体

jcmtxgt

也是在明经找到的这个代码，请高手帮帮忙吧：我在图档里先新建一个图层并置为当前，在这个层我画圆，而这些圆与其它的实体相交（圆内会是直线，圆弧，或者多义线）。我只要输入命令选中其中一个圆，与这圆相同图层的圆，都会将圆内实体删掉。这是我找到的代码，一次只能点选一个执行一次圆内删掉，请帮帮忙，不胜感激
(defun c:trc(/ oldcmdcho oldosmode enobj kk endata);;;hy_trim_in
(setq oldcmdcho (getvar"cmdecho"))
(setvar"cmdecho"0)
(setq oldosmode (getvar"osmode"))
(setvar"osmode"0)
(command"ucs""w")
(COMMAND"REGEN")
(setq enobj (car (entsel"\n选圆:")))
(initget"1 2")
(setq kk (getkword"\n剪除内部物体<1>,剪除外部物体<2>:<1?>"))
(if (= kk nil) (setq kk"1"))
(setq endata (entget enobj))
(cond
;;;;;如果enobj为一个圆;;;;;;;
((= (cdr (assoc 0 endata))"CIRCLE")
(hy_trim_in_circle))
(t (progn (alert"\n你选的物体不是圆!重新确认")(exit))))
;end cond
(setvar"cmdecho"oldcmdcho)
(setvar"osmode"oldosmode)
(prin1)
)
;;;;;;;;;;剪除圆内或外部的物体;;;;;;;;;;
(defun hy_trim_in_circle(/ centerpoint radius point_list be_angle jk viu_point item)
(setq centerpoint (cdr(assoc 10 endata)))
(setq radius (cdr(assoc 40 endata)))
(if (= kk"1") (setq jk (- radius 0.01)) (setq jk (+ radius 0.01)))
(setq point_list'());;;以0.5度为一阶,半径缩小0.05圆上所有点
;(setq be_angle 0);起始角度为0
(setq i 0);;计数器归0
(repeat 720
(setq viu_point (polar centerpoint
(/ (* 0.5 i pi) 180)
jk);end polar
)
(setq point_list (cons viu_point point_list))
(setq i (1+ i))
);end repeat
(command"undo""be")
(if (= kk"1")
(progn
(command"trim"enobj"""f")
(foreach item point_list (command item))
(command""""))
)
(if (/= kk"1") (progn (setq i 0)
(repeat (length point_list)
(command"trim"enobj"""f"(nth i point_list) (nth (1+ i) point_list)"""")
(setq i (1+ i))
)
)
)
(command"undo""e"))

Andyhon

您未附调试用图纸(*.dwg)
先提供初步用的 ....

2. 
   
3. (defun c:trc (/ oldcmdcho oldosmode enobj kk endata)
   
4.   ;; hy_trim_in
   
5.   (setq oldcmdcho (getvar "cmdecho"))
   
6.   (setvar "cmdecho" 0)
   
7.   (setq oldosmode (getvar "osmode"))
   
8.   (setvar "osmode" 0)
   
9.   (command "ucs" "w")
   
10.   (COMMAND "REGEN")
    
11.   (princ "\n选圆: ")
    
12.   (setq enobj (ssname (ssget ":S" '((0 . "Circle"))) 0))
    
13.   ;|
    
14.   (initget "1 2")
    
15.   (setq kk (getkword "\n剪除内部物体<1>,剪除外部物体<2>:<1?>"))
    
16.   (if (= kk nil)
    
17.     (setq kk "1")
    
18.   )
    
19.   (setq endata (entget enobj))
    
20.   (cond
    
21.     ;; 如果enobj为一个圆;;;;;;;
    
22.     ((= (cdr (assoc 0 endata)) "CIRCLE")
    
23.   |;   
    
24.    (setq endata (entget enobj)
    
25.           ssCir (ssget "X" (list (assoc 0 endata) (assoc 8 endata)))
    
26.            idx  0
    
27.    )
    
28.    (while (setq enobj (ssname ssCir idx))
    
29.      (setq idx (1+ idx))         
    
30.      (hy_trim_in_circle)
    
31.    )  
    
32.   ;|   
    
33.    
    
34.     (t (progn (alert "\n你选的物体不是圆!重新确认") (exit)))
    
35.   );end cond
    
36.   
    
37.   |;
    
38.   
    
39.   (setvar "cmdecho" oldcmdcho)
    
40.   (setvar "osmode" oldosmode)
    
41.   (prin1)
    
42. )
    
43. ;;;;;;;;;;剪除圆内或外部的物体;;;;;;;;;;
    
44. (defun hy_trim_in_circle (/ centerpoint radius point_list be_angle jk viu_point item)
    
45.   (setq endata(entget enobj))
    
46.   (setq centerpoint (cdr (assoc 10 endata)))
    
47.   (setq radius (cdr (assoc 40 endata)))
    
48.   (setq jk (- radius 0.01))
    
49.   (setq point_list '())
    
50.   ;; 以0.5度为一阶,半径缩小0.05圆上所有点
    
51.   ;;(setq be_angle 0);起始角度为0
    
52.   (setq i 0)
    
53.   ;;计数器归0
    
54.   (repeat 720
    
55.     (setq viu_point (polar centerpoint
    
56.                            (/ (* 0.5 i pi) 180)
    
57.                            jk
    
58.                     )                        ;end polar
    
59.     )
    
60.     (setq point_list (cons viu_point point_list))
    
61.     (setq i (1+ i))
    
62.   )                                        ;end repeat
    
63.   (command "undo" "be")
    
64.       (command "trim" enobj "" "f")
    
65.       (foreach item point_list (command item))
    
66.       (command "" "")
    
67.   (command "undo" "e")
    
68. )
    

<br /> (defun c:trc (/ oldcmdcho oldosmode enobj kk endata)<br />   ;; hy_trim_in<br />   (setq oldcmdcho (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq oldosmode (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (command "ucs" "w")<br />   (COMMAND "REGEN")<br />   (princ "\n选圆: ")<br />   (setq enobj (ssname (ssget ":S" '((0 . "Circle"))) 0))<br />   ;|<br />   (initget "1 2")<br />   (setq kk (getkword "\n剪除内部物体<1>,剪除外部物体<2>:<1?>"))<br />   (if (= kk nil)<br />     (setq kk "1")<br />   )<br />   (setq endata (entget enobj))<br />   (cond<br />     ;; 如果enobj为一个圆;;;;;;;<br />     ((= (cdr (assoc 0 endata)) "CIRCLE")<br />   |;   <br />    (setq endata (entget enobj)<br />           ssCir (ssget "X" (list (assoc 0 endata) (assoc 8 endata)))<br />            idx  0<br />    )<br />    (while (setq enobj (ssname ssCir idx))<br />      (setq idx (1+ idx))          <br />      (hy_trim_in_circle)<br />    )  <br />   ;|   <br />     <br />     (t (progn (alert "\n你选的物体不是圆!重新确认") (exit)))<br />   );end cond<br />   <br />   |;<br />   <br />   (setvar "cmdecho" oldcmdcho)<br />   (setvar "osmode" oldosmode)<br />   (prin1)<br /> )<br /> ;;;;;;;;;;剪除圆内或外部的物体;;;;;;;;;;<br /> (defun hy_trim_in_circle (/ centerpoint radius point_list be_angle jk viu_point item)<br />   (setq endata(entget enobj))<br />   (setq centerpoint (cdr (assoc 10 endata)))<br />   (setq radius (cdr (assoc 40 endata)))<br />   (setq jk (- radius 0.01))<br />   (setq point_list '())<br />   ;; 以0.5度为一阶,半径缩小0.05圆上所有点<br />   ;;(setq be_angle 0);起始角度为0<br />   (setq i 0)<br />   ;;计数器归0<br />   (repeat 720<br />     (setq viu_point (polar centerpoint<br />                            (/ (* 0.5 i pi) 180)<br />                            jk<br />                     )                        ;end polar<br />     )<br />     (setq point_list (cons viu_point point_list))<br />     (setq i (1+ i))<br />   )                                        ;end repeat<br />   (command "undo" "be")<br />       (command "trim" enobj "" "f")<br />       (foreach item point_list (command item))<br />       (command "" "")<br />   (command "undo" "e")<br /> )<br />

jcmtxgt

先谢谢高手的回得，可是运行不了。提示error: bad ssget mode string
附上原程序示意图，感觉对直线还可以，对圆弧，和圆内剪就会出错。只有线剪的方法才对

jcmtxgt

感觉用这个程序执行起来也好慢。高手能不能给我新编一个，只需点先其中一个圆，其它相同层的圆都会执行圆内删掉。先谢了

Andyhon

能否附上如您所贴的调试用 Dwg 文件
原程序有其实务上考量,用的是 720 个点位模拟圆
若只依您的贴图,在算法上是多耗费了不少的运算....
最好是能附上您实际应用情况时的调试用 Dwg 文件
有利于定制量身的效率优化

jcmtxgt

我想到了其它的解决办法，谢谢高手的帮忙

jcmtxgt

我想到了其它的解决办法，谢谢高手的帮忙