请教关于trim的用法

xiaohuayuan

初学lisp，下面的代码中为何大圆无法剪切？

1. (defun c:12()
   
2. (setvar "cmdecho" 0)                       ;;关闭命令行响应
   
3. (setq cen1 (getpoint "\n请指定中心点："))
   
4. (setq rr1 (getdist "\n请指定大圆半径："))
   
5. (setq rr2 (getdist "\n请指定小圆半径："))
   
6. (setq nn (getint "\n请指定阵列次数<10>："))
   
7. (if (null nn) (setq nn 10))
   
8. (setq os (getvar "osmode"))                 ;;保存捕捉设置
   
9. (setvar "osmode" 0)                        ;;关闭捕捉
   
10. (setq pj (/ (* 2 pi) nn))
    
11. (command "circle" cen1 rr1)
    
12. (setq en1 (entlast))
    
13. (setq ss (ssadd))
    
14. (setq i 0)
    
15. (repeat nn
    
16. (setq cen2 (polar cen1 (* i pj) rr1))
    
17. (command "circle" cen2 rr2)
    
18. (setq en2 (entlast))
    
19. (setq ss (ssadd en2 ss))
    
20. (setq jqd (polar cen2 (angle cen2 cen1) rr2))
    
21. (command "trim" en1 "" (list en2 jqd) "")
    
22. (setq i (+ i 1))
    
23. )
    
24. (setq i 0)
    
25. (repeat nn
    
26. (setq cen2 (polar cen1 (* i pj) rr1))
    
27. (command "trim" ss "" (list en1 cen2) "")
    
28. (setq en1 (entlast))
    
29. (setq i (+ i 1))
    
30. )
    
31. (command "circle" cen1 (/ rr1 2))
    
32. (setvar "osmode" os)                        ;;恢复捕捉设置
    
33. (princ)
    
34. )
    

(defun c:12()<br /> (setvar "cmdecho" 0)                       ;;关闭命令行响应<br /> (setq cen1 (getpoint "\n请指定中心点："))<br /> (setq rr1 (getdist "\n请指定大圆半径："))<br /> (setq rr2 (getdist "\n请指定小圆半径："))<br /> (setq nn (getint "\n请指定阵列次数<10>："))<br /> (if (null nn) (setq nn 10))<br /> (setq os (getvar "osmode"))                 ;;保存捕捉设置<br /> (setvar "osmode" 0)                        ;;关闭捕捉<br /> (setq pj (/ (* 2 pi) nn))<br /> (command "circle" cen1 rr1)<br /> (setq en1 (entlast))<br /> (setq ss (ssadd))<br /> (setq i 0)<br /> (repeat nn<br /> (setq cen2 (polar cen1 (* i pj) rr1))<br /> (command "circle" cen2 rr2)<br /> (setq en2 (entlast))<br /> (setq ss (ssadd en2 ss))<br /> (setq jqd (polar cen2 (angle cen2 cen1) rr2))<br /> (command "trim" en1 "" (list en2 jqd) "")<br /> (setq i (+ i 1))<br /> )<br /> (setq i 0)<br /> (repeat nn<br /> (setq cen2 (polar cen1 (* i pj) rr1))<br /> (command "trim" ss "" (list en1 cen2) "")<br /> (setq en1 (entlast))<br /> (setq i (+ i 1))<br /> )<br /> (command "circle" cen1 (/ rr1 2))<br /> (setvar "osmode" os)                        ;;恢复捕捉设置<br /> (princ)<br /> )<br />

xiaohuayuan

24-30行剪切大圆

革天明

不太清楚，同求

snddd2000

是不是如图这样的结果？

snddd2000

大圆剪切里的(entlast)得到的图元并不是想要的图元。

革天明

snddd2000 发表于 2012-4-26 19:20
大圆剪切里的(entlast)得到的图元并不是想要的图元。

如何得到大圆剪切后的图元名呢？图元名获取不到就不能继续了
http://bbs.mjtd.com/thread-93229-2-1.html  这是我的帖子，因为不容易获得TRIM后的图元名，我的程序不能得到想要的结果，能帮我看看吗？论坛里关于TRIM的很少，而且使用的都是以获得图元名之后的操作。

snddd2000

革天明 发表于 2012-4-27 13:29
如何得到大圆剪切后的图元名呢？图元名获取不到就不能继续了
http://bbs.mjtd.com/thread-93229-2-1.htm ...

2. (defun c:12 ()
   
3.   (setvar "cmdecho" 0)
   
4.   ;;关闭命令行响应
   
5.   (setq cen1 (getpoint "\n请指定中心点："))
   
6.   (setq rr1 (getdist "\n请指定大圆半径："))
   
7.   (setq rr2 (getdist "\n请指定小圆半径："))
   
8.   (setq nn (getint "\n请指定阵列次数<10>："))
   
9.   (if (null nn)
   
10.     (setq nn 10)
    
11.   )
    
12.   (setq os (getvar "osmode"))
    
13.   ;;保存捕捉设置
    
14.   (setvar "osmode" 0)
    
15.   ;;关闭捕捉
    
16.   (setq pj (/ (* 2 pi) nn))
    
17.   (command "circle" cen1 rr1)
    
18.   (setq en1 (entlast))
    
19.   (setq ss (ssadd))
    
20.   (setq i 0)
    
21.   (repeat nn
    
22.     (setq cen2 (polar cen1 (* i pj) rr1))
    
23.     (command "circle" cen2 rr2)
    
24.     (setq en2 (entlast))
    
25.     (setq ss (ssadd en2 ss))
    
26.     (setq jqd (polar cen2 (angle cen2 cen1) rr2))
    
27.     (command "trim" en1 "" (list en2 jqd) "")
    
28.     (setq i (+ i 1))
    
29.   )
    
30.   (setq i 0)
    
31.   (repeat nn
    
32.     (setq cen2 (polar cen1 (* i pj) rr1))
    
33.     (setq en1 (ssname (ssget "_C" cen2 cen2) 0))
    
34.     (command "trim" ss "" (list en1 cen2) "")
    
35. ;;;(setq en1 (entlast))
    
36.     (setq i (+ i 1))
    
37.   )
    
38.   (command "circle" cen1 (/ rr1 2))
    
39.   (setvar "osmode" os)
    
40.   ;;恢复捕捉设置
    
41.   (princ)
    
42. )
    

(defun c:12 ()<br />   (setvar "cmdecho" 0)<br />   ;;关闭命令行响应<br />   (setq cen1 (getpoint "\n请指定中心点："))<br />   (setq rr1 (getdist "\n请指定大圆半径："))<br />   (setq rr2 (getdist "\n请指定小圆半径："))<br />   (setq nn (getint "\n请指定阵列次数<10>："))<br />   (if (null nn)<br />     (setq nn 10)<br />   )<br />   (setq os (getvar "osmode"))<br />   ;;保存捕捉设置<br />   (setvar "osmode" 0)<br />   ;;关闭捕捉<br />   (setq pj (/ (* 2 pi) nn))<br />   (command "circle" cen1 rr1)<br />   (setq en1 (entlast))<br />   (setq ss (ssadd))<br />   (setq i 0)<br />   (repeat nn<br />     (setq cen2 (polar cen1 (* i pj) rr1))<br />     (command "circle" cen2 rr2)<br />     (setq en2 (entlast))<br />     (setq ss (ssadd en2 ss))<br />     (setq jqd (polar cen2 (angle cen2 cen1) rr2))<br />     (command "trim" en1 "" (list en2 jqd) "")<br />     (setq i (+ i 1))<br />   )<br />   (setq i 0)<br />   (repeat nn<br />     (setq cen2 (polar cen1 (* i pj) rr1))<br />     (setq en1 (ssname (ssget "_C" cen2 cen2) 0))<br />     (command "trim" ss "" (list en1 cen2) "")<br /> ;;;(setq en1 (entlast))<br />     (setq i (+ i 1))<br />   )<br />   (command "circle" cen1 (/ rr1 2))<br />   (setvar "osmode" os)<br />   ;;恢复捕捉设置<br />   (princ)<br /> )<br />

czcxxx

谢谢分享！！！！！！！！！！！！！！！！！！！！

start4444