求修剪圆内直线和多段线！

443971181

模板上有大小不一样的圆

xiaxiang

2. ;; ctrim.lsp  v1.1
   
3. ;; Modified By Xiaxiang
   
4. 
   
5. (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent ss1 num
   
6.                    ctrim_err x f_pts svd_os svd_cmd svd_err)
   
7. 
   
8. (defun ctrim_err (s)
   
9.   (if(/= s "Function cancelled")
   
10.   (princ(strcat "\n\n" s))     )
    
11.   (setvar "cmdecho" svd_cmd)
    
12.   (setvar "osmode" svd_os)
    
13.   (setq *error* svd_err)
    
14. )
    
15. 
    
16. (defun circ_pts (enm)
    
17.   (setq lst    (entget enm)
    
18.         ang    (* pi 2)
    
19.         inc    (/ ang 64)
    
20.         tmp    '()
    
21.         seg    65
    
22.   )
    
23.   (repeat seg
    
24.    (setq pt (polar(cdr(assoc 10 lst))ang
    
25.             (-(cdr(assoc 40 lst))0.01))
    
26.         ang (+ inc ang)
    
27.    )
    
28.    (setq tmp(cons pt tmp))
    
29.   )
    
30.   tmp
    
31. )
    
32. 
    
33. ;;add ssget function
    
34. (setq num 0)
    
35. (prompt "\nSelect circles: ")
    
36. (setq ss1 (ssget '((0 . "CIRCLE"))))
    
37. (setq ;ent     (car(entsel "\nSelect circle: ")) ;;entsel
    
38.        svd_err *error*
    
39.        *error* ctrim_err
    
40.        svd_os  (getvar "osmode")
    
41.        svd_cmd (getvar "cmdecho")
    
42. )
    
43. (setvar "cmdecho" 0)
    
44. (setvar "osmode" 0)
    
45. (repeat (sslength ss1)
    
46. (setq ent(ssname ss1 num))
    
47. (setq num(1+ num))
    
48. (if(and ent
    
49.      (=(cdr(assoc 0(entget ent)))"CIRCLE")
    
50.     )
    
51.   (progn
    
52.    (setq f_pts(circ_pts ent))
    
53.    (command "trim" ent "" "f")   ;run twice in case the same
    
54.    (foreach x f_pts(command x))  ;object intersects circle twice
    
55.    (command "" "")
    
56.    (command "trim" ent "" "f")
    
57.    (foreach x f_pts(command x))
    
58.    (command "" "")
    
59.    (if(setq x(ssget "wp" f_pts))
    
60.     (command "erase" x "")
    
61.    )
    
62.   )
    
63. )
    
64. )
    
65. (setvar "cmdecho" svd_cmd)
    
66. (setvar "osmode" svd_os)
    
67. (setq *error* svd_err)
    
68. (princ)
    
69. )

;; ctrim.lsp  v1.1<br /> ;; Modified By Xiaxiang<br /> <br /> (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent ss1 num<br />                    ctrim_err x f_pts svd_os svd_cmd svd_err) <br /> <br /> (defun ctrim_err (s) <br />   (if(/= s "Function cancelled") <br />   (princ(strcat "\n\n" s))     ) <br />   (setvar "cmdecho" svd_cmd) <br />   (setvar "osmode" svd_os) <br />   (setq *error* svd_err) <br /> ) <br /> <br /> (defun circ_pts (enm) <br />   (setq lst    (entget enm) <br />         ang    (* pi 2) <br />         inc    (/ ang 64) <br />         tmp    '() <br />         seg    65 <br />   ) <br />   (repeat seg <br />    (setq pt (polar(cdr(assoc 10 lst))ang <br />             (-(cdr(assoc 40 lst))0.01)) <br />         ang (+ inc ang) <br />    ) <br />    (setq tmp(cons pt tmp)) <br />   ) <br />   tmp <br /> ) <br /> <br /> ;;add ssget function<br /> (setq num 0)<br /> (prompt "\nSelect circles: ")<br /> (setq ss1 (ssget '((0 . "CIRCLE"))))<br /> (setq ;ent     (car(entsel "\nSelect circle: ")) ;;entsel<br />        svd_err *error* <br />        *error* ctrim_err <br />        svd_os  (getvar "osmode") <br />        svd_cmd (getvar "cmdecho") <br /> ) <br /> (setvar "cmdecho" 0) <br /> (setvar "osmode" 0) <br /> (repeat (sslength ss1)<br /> (setq ent(ssname ss1 num))<br /> (setq num(1+ num))<br /> (if(and ent <br />      (=(cdr(assoc 0(entget ent)))"CIRCLE") <br />     ) <br />   (progn <br />    (setq f_pts(circ_pts ent)) <br />    (command "trim" ent "" "f")   ;run twice in case the same <br />    (foreach x f_pts(command x))  ;object intersects circle twice <br />    (command "" "") <br />    (command "trim" ent "" "f") <br />    (foreach x f_pts(command x)) <br />    (command "" "") <br />    (if(setq x(ssget "wp" f_pts)) <br />     (command "erase" x "") <br />    ) <br />   ) <br /> )<br /> ) <br /> (setvar "cmdecho" svd_cmd) <br /> (setvar "osmode" svd_os) <br /> (setq *error* svd_err) <br /> (princ) <br /> )

xiaxiang

2. (defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent
   
3.                    ctrim_err x f_pts svd_os svd_cmd svd_err)
   
4. 
   
5. 
   
6. (defun ctrim_err (s)
   
7.   (if(/= s "Function cancelled")
   
8.   (princ(strcat "\n\n" s))     )
   
9.   (setvar "cmdecho" svd_cmd)
   
10.   (setvar "osmode" svd_os)
    
11.   (setq *error* svd_err)
    
12. )
    
13. 
    
14. 
    
15. (defun circ_pts (enm)
    
16.   (setq lst    (entget enm)
    
17.         ang    (* pi 2)
    
18.         inc    (/ ang 64)
    
19.         tmp    '()
    
20.         seg    65
    
21.   )
    
22.   (repeat seg
    
23.    (setq pt (polar(cdr(assoc 10 lst))ang
    
24.             (-(cdr(assoc 40 lst))0.01))
    
25.         ang (+ inc ang)
    
26.    )
    
27.    (setq tmp(cons pt tmp))
    
28.   )
    
29.   tmp
    
30. )
    
31. 
    
32. 
    
33. (setq ent     (car(entsel "\nSelect circle: "))
    
34.        svd_err *error*
    
35.        *error* ctrim_err
    
36.        svd_os  (getvar "osmode")
    
37.        svd_cmd (getvar "cmdecho")
    
38. )
    
39. (setvar "cmdecho" 0)
    
40. (setvar "osmode" 0)
    
41. (if(and ent
    
42.      (=(cdr(assoc 0(entget ent)))"CIRCLE")
    
43.     )
    
44.   (progn
    
45.    (setq f_pts(circ_pts ent))
    
46.    (command "trim" ent "" "f")   ;run twice in case the same
    
47.    (foreach x f_pts(command x))  ;object intersects circle twice
    
48.    (command "" "")
    
49.    (command "trim" ent "" "f")
    
50.    (foreach x f_pts(command x))
    
51.    (command "" "")
    
52.    (if(setq x(ssget "wp" f_pts))
    
53.     (command "erase" x "")
    
54.    )
    
55.   )
    
56. )
    
57. (setvar "cmdecho" svd_cmd)
    
58. (setvar "osmode" svd_os)
    
59. (setq *error* svd_err)
    
60. (princ)
    
61. )
    
62. 
    

(defun c:ctrim ( / circ_pts lst ang inc tmp seg pt ent <br />                    ctrim_err x f_pts svd_os svd_cmd svd_err) <br /> <br /> <br /> (defun ctrim_err (s) <br />   (if(/= s "Function cancelled") <br />   (princ(strcat "\n\n" s))     ) <br />   (setvar "cmdecho" svd_cmd) <br />   (setvar "osmode" svd_os) <br />   (setq *error* svd_err) <br /> ) <br /> <br /> <br /> (defun circ_pts (enm) <br />   (setq lst    (entget enm) <br />         ang    (* pi 2) <br />         inc    (/ ang 64) <br />         tmp    '() <br />         seg    65 <br />   ) <br />   (repeat seg <br />    (setq pt (polar(cdr(assoc 10 lst))ang <br />             (-(cdr(assoc 40 lst))0.01)) <br />         ang (+ inc ang) <br />    ) <br />    (setq tmp(cons pt tmp)) <br />   ) <br />   tmp <br /> ) <br /> <br /> <br /> (setq ent     (car(entsel "\nSelect circle: ")) <br />        svd_err *error* <br />        *error* ctrim_err <br />        svd_os  (getvar "osmode") <br />        svd_cmd (getvar "cmdecho") <br /> ) <br /> (setvar "cmdecho" 0) <br /> (setvar "osmode" 0) <br /> (if(and ent <br />      (=(cdr(assoc 0(entget ent)))"CIRCLE") <br />     ) <br />   (progn <br />    (setq f_pts(circ_pts ent)) <br />    (command "trim" ent "" "f")   ;run twice in case the same <br />    (foreach x f_pts(command x))  ;object intersects circle twice <br />    (command "" "") <br />    (command "trim" ent "" "f") <br />    (foreach x f_pts(command x)) <br />    (command "" "") <br />    (if(setq x(ssget "wp" f_pts)) <br />     (command "erase" x "") <br />    ) <br />   ) <br /> ) <br /> (setvar "cmdecho" svd_cmd) <br /> (setvar "osmode" svd_os) <br /> (setq *error* svd_err) <br /> (princ) <br /> ) <br /> <br />

yxh1202

xiaxiang 发表于 2011-11-16 16:41

你好前辈，用了你的方法很实用。非常感谢。但是现实中节点编号都在圆圈里面，能不能只修剪园内的线段，文字保留。非常期待您的指点

443971181

xiaxiang 发表于 2011-11-16 15:47

您好，能不能改成框选呀，就是框选后，把框选中所有圆内的东东全剪了，谢谢！

443971181

xiaxiang 发表于 2011-11-16 16:41

谢谢您，效果很好

443971181

443971181 发表于 2011-11-16 16:47
谢谢您，效果很好

非常感谢！怎么给您加分呢？

珞珞的新装

有没有c#版的？

三毛--吃鱼精

不错，效果很好。

menger_8

路过，学习了

yjr111

xiaxiang 发表于 2011-11-16 16:41

修剪多段线出了点故障，请完善一下