如何选择快内圆进行修剪？

chenjieq1990

一条直线，多段线或者直线，在中点插入一个圆形的块，块里面有多个图元，现在插完了需要用块里面的最外的圆修剪这个直线，虽然我的块做了遮挡，但是还是想修剪了，现在我插入块了之后，不知道如何获得块里面的图元名，很是头疼，看了论坛里面的帖子，好像是用tblobjname和entnext，但是有点不懂，希望有人指点一二，或者有什么更方便的方法，用vlisp。

2. (defun C:gp(/)
   

(defun C:gp(/)<br />

chenjieq1990

1. (defun C:gp(/)
   
2.   (vl-load-com)
   
3. (setq cm (getvar "cmdecho"))
   
4. (setq os (getvar "osmode"))
   
5. (setvar "cmdecho" 0)
   
6. (setvar "osmode" 0)
   
7. 
   
8. 
   
9. 
   
10.   (setq ss (car (cdr (ssgetfirst))))
    
11.   (while (= ss nil) (setq ss (ssget '((-4 . "<or")(0 . "LINE") (0 . "LWPOLYLINE")(-4 . "or>")))))
    
12.   
    
13. 
    
14.   (setq plst nil)
    
15. (setq n 0)
    
16. 
    
17. (repeat(sslength ss)
    
18. (setq ent(ssname ss n))
    
19.   (setq ent(entget ent))
    
20.   (if(= (cdr (assoc 0 ent)) "LWPOLYLINE")
    
21.     (progn
    
22. 
    
23.     (foreach n ent
    
24.       (if(= (car n) 10)
    
25.         (setq plst(cons (cdr n) plst)))
    
26.       )
    
27.     (setq p1(car plst)
    
28.           p1(list (car p1) (cadr p1))
    
29.           p2(cadr plst)
    
30.           p2(list (car p2) (cadr p2))
    
31.           
    
32.     )
    
33.     )
    
34.     )
    
35.   
    
36.       
    
37. (if(= (cdr (assoc 0 ent)) "LINE")
    
38. 
    
39. (setq p1(cdr (assoc 10 ent))
    
40.       p1(list (car p1) (cadr p1))
    
41.       p2(cdr (assoc 11 ent))
    
42.       p2(list (car p2) (cadr p2)))
    
43.   )
    
44.   (setq p0(mapcar '(lambda(x y) (/ (+ x y) 2) ) p1 p2))
    
45. 
    
46. 
    
47.   ;|(setq r(getreal"输入半径<0.2>:"))
    
48.   (if(= r nil)(setq r 0.2))
    
49.   (vl-cmdf "circle" p0 r "")     
    
50.   (setq yp(entlast))
    
51.   (vl-cmdf "trim" yp "" (list (ssname ss n) p0) "")|;
    
52. 
    
53. 
    
54. 
    
55.   (entmake (list (cons 0 "INSERT")
    
56.                           (cons 10 p0)
    
57.                           (cons 2 "溢流口")
    
58.                           )
    
59.                     )
    
60.   (setq ylk(entlast))
    
61.   (setq ylkvlx(vlax-ename->vla-object ylk))
    
62.   (setq ylk1(entget ylk))
    
63. 
    
64. (setq n(+ 1 n))
    
65. );end repeat
    
66. 
    
67.   
    
68. (prin1)
    
69. (setvar "cmdecho" cm)
    
70. (setvar "osmode" os)
    
71. )

(defun C:gp(/)<br />   (vl-load-com)<br /> (setq cm (getvar "cmdecho"))<br /> (setq os (getvar "osmode"))<br /> (setvar "cmdecho" 0)<br /> (setvar "osmode" 0)<br /> <br /> <br /> <br />   (setq ss (car (cdr (ssgetfirst))))<br />   (while (= ss nil) (setq ss (ssget '((-4 . "<or")(0 . "LINE") (0 . "LWPOLYLINE")(-4 . "or>")))))<br />   <br /> <br />   (setq plst nil)<br /> (setq n 0)<br /> <br /> (repeat(sslength ss)<br /> (setq ent(ssname ss n))<br />   (setq ent(entget ent))<br />   (if(= (cdr (assoc 0 ent)) "LWPOLYLINE")<br />     (progn<br /> <br />     (foreach n ent<br />       (if(= (car n) 10)<br />         (setq plst(cons (cdr n) plst)))<br />       )<br />     (setq p1(car plst)<br />           p1(list (car p1) (cadr p1))<br />           p2(cadr plst)<br />           p2(list (car p2) (cadr p2))<br />           <br />     )<br />     )<br />     )<br />   <br />       <br /> (if(= (cdr (assoc 0 ent)) "LINE")<br /> <br /> (setq p1(cdr (assoc 10 ent))<br />       p1(list (car p1) (cadr p1))<br />       p2(cdr (assoc 11 ent))<br />       p2(list (car p2) (cadr p2)))<br />   )<br />   (setq p0(mapcar '(lambda(x y) (/ (+ x y) 2) ) p1 p2))<br /> <br /> <br />   ;|(setq r(getreal"输入半径<0.2>:"))<br />   (if(= r nil)(setq r 0.2))<br />   (vl-cmdf "circle" p0 r "")     <br />   (setq yp(entlast))<br />   (vl-cmdf "trim" yp "" (list (ssname ss n) p0) "")|;<br /> <br /> <br /> <br />   (entmake (list (cons 0 "INSERT")<br />                           (cons 10 p0)<br />                           (cons 2 "溢流口")<br />                           )<br />                     )<br />   (setq ylk(entlast))<br />   (setq ylkvlx(vlax-ename->vla-object ylk))<br />   (setq ylk1(entget ylk))<br /> <br /> (setq n(+ 1 n))<br /> );end repeat<br /> <br />   <br /> (prin1)<br /> (setvar "cmdecho" cm)<br /> (setvar "osmode" os)<br /> )

fan_zh

nentsel试试

LIULISHENG

学习了