关于用LISP修剪命令框选删除不全的问题

世人皆醉

2. (defun c:yfl1(/ d1 d2 d3 d4 d5 d6 d7 d8  e1 e2 e3 e4 pt0 pt1 pt2 pt3 p1  );圆法兰
   
3.    (command "._undo" "_begin")
   
4.   (setvar "cmdecho" 0) ;关闭普通命令提示信息
   
5.   (setvar "osmode" 0)  ;关闭对象捕捉状态
   
6.   
   
7.   (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径
   
8.   (if (not d1) (setq d1 151))
   
9.   (setq d2(getreal "\n 中心距<191>:"))
   
10.   (if (not d2) (setq d2 191))
    
11.   (setq d6(getreal "\n 法兰宽度<40>:"))
    
12.   (if (not d6) (setq d6 40))
    
13.   (setq d3 (+ d1 (* 2 d6)))
    
14.   (setq d4(getreal "\n 开孔直径<10>:"))
    
15.   (if (not d4) (setq d4 10))
    
16.   (setq d5(getint "\n 开孔数量<8>:"))
    
17.   (if (not d5) (setq d5 8))
    
18.   (SETQ D8(/ (/ 360 D5) 2));分线角度
    
19.   (setq d7(/ d3 2))
    
20.   (SETQ pt0(getpoint "\n 插入点："))
    
21. ;上面为所需变量
    
22.   (command "circle" pt0 "d" d1)
    
23.   (setq e4(entlast))
    
24.   (command "circle" pt0 "d" d2)
    
25.   (setq e1(entlast))
    
26.   (command "circle" pt0 "d" d3);绘制三个圆
    
27.   (setq p1(list (car pt0) (+ (cadr pt0) d7)))   
    
28.   (setq pt1(list (car pt0) (+ (cadr pt0) (/ d2 2))))
    
29.   (command "circle" pt1 "d" d4)
    
30.   (setq e2(entlast))
    
31.   (command "_.ARRAY" e2 "" "P" pt0 d5  "" "")
    
32.   (command "erase" e1 "")
    
33.   (command "line" pt0 p1 "")
    
34.   (setq e3(entlast))
    
35.   (command "rotate" e3 "" pt0 d8)
    
36.   (setq pt2(list (+ (car pt0) 10) (+ (cadr pt0) 10)));TR点1
    
37.   (setq pt3(list (- (car pt0) 10) (- (cadr pt0) 10)));TR点2
    
38.   (if
    
39.     (> d1 251)
    
40.   (progn
    
41.   (if
    
42.     (<= d1 501)
    
43.   (progn
    
44.   (command "rotate" e3 "" pt0 "c" 120)
    
45.   (command "rotate" e3 "" pt0 "c" 240)
    
46.   )
    
47.   (progn
    
48.   (command "rotate" e3 "" pt0 "c" 90)
    
49.   (command "rotate" e3 "" pt0 "c" 180)
    
50.   (command "rotate" e3 "" pt0 "c" 270)
    
51.   (command "rotate" e3 "" pt0 "c" 360)))
    
52.   (command "trim" e4 "" "c" pt2 pt3 "")
    
53.   )
    
54.   (command "erase" e3 "" ))
    
55. 
    
56. 
    
57.   
    
58.    
    
59.   
    
60.     (setvar "osmode" 16383)  ;打开对象捕捉状态
    
61.   (princ) ;静默退出
    
62.   (command "._undo" "_end")
    
63.   )

(defun c:yfl1(/ d1 d2 d3 d4 d5 d6 d7 d8  e1 e2 e3 e4 pt0 pt1 pt2 pt3 p1  );圆法兰<br />    (command "._undo" "_begin")<br />   (setvar "cmdecho" 0) ;关闭普通命令提示信息<br />   (setvar "osmode" 0)  ;关闭对象捕捉状态<br />   <br />   (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径<br />   (if (not d1) (setq d1 151))<br />   (setq d2(getreal "\n 中心距<191>:"))<br />   (if (not d2) (setq d2 191))<br />   (setq d6(getreal "\n 法兰宽度<40>:"))<br />   (if (not d6) (setq d6 40))<br />   (setq d3 (+ d1 (* 2 d6)))<br />   (setq d4(getreal "\n 开孔直径<10>:"))<br />   (if (not d4) (setq d4 10))<br />   (setq d5(getint "\n 开孔数量<8>:"))<br />   (if (not d5) (setq d5 8))<br />   (SETQ D8(/ (/ 360 D5) 2));分线角度<br />   (setq d7(/ d3 2))<br />   (SETQ pt0(getpoint "\n 插入点："))<br /> ;上面为所需变量<br />   (command "circle" pt0 "d" d1)<br />   (setq e4(entlast))<br />   (command "circle" pt0 "d" d2)<br />   (setq e1(entlast))<br />   (command "circle" pt0 "d" d3);绘制三个圆<br />   (setq p1(list (car pt0) (+ (cadr pt0) d7)))   <br />   (setq pt1(list (car pt0) (+ (cadr pt0) (/ d2 2))))<br />   (command "circle" pt1 "d" d4)<br />   (setq e2(entlast))<br />   (command "_.ARRAY" e2 "" "P" pt0 d5  "" "")<br />   (command "erase" e1 "")<br />   (command "line" pt0 p1 "")<br />   (setq e3(entlast))<br />   (command "rotate" e3 "" pt0 d8)<br />   (setq pt2(list (+ (car pt0) 10) (+ (cadr pt0) 10)));TR点1<br />   (setq pt3(list (- (car pt0) 10) (- (cadr pt0) 10)));TR点2<br />   (if<br />     (> d1 251)<br />   (progn<br />   (if<br />     (<= d1 501)<br />   (progn<br />   (command "rotate" e3 "" pt0 "c" 120)<br />   (command "rotate" e3 "" pt0 "c" 240)<br />   )<br />   (progn<br />   (command "rotate" e3 "" pt0 "c" 90)<br />   (command "rotate" e3 "" pt0 "c" 180)<br />   (command "rotate" e3 "" pt0 "c" 270)<br />   (command "rotate" e3 "" pt0 "c" 360)))<br />   (command "trim" e4 "" "c" pt2 pt3 "")<br />   )<br />   (command "erase" e3 "" ))<br /> <br /> <br />   <br />     <br />   <br />     (setvar "osmode" 16383)  ;打开对象捕捉状态<br />   (princ) ;静默退出<br />   (command "._undo" "_end")<br />   )

大家帮我看看，使用修剪命令不能完全删除框选范围内的点，是咋回事呢

mituzhe

换个思路，不要用修剪命令，直接画好再旋转

2. (defun c:yfl1(/ ang d1 d2 d3 d4 e1 e4 e5 n pt0 pt1 pt2 pt3 r3 width);圆法兰
   
3.   (command "._undo" "_begin")
   
4.   (setvar "cmdecho" 0) ;关闭普通命令提示信息
   
5.   (setvar "osmode" 0)  ;关闭对象捕捉状态
   
6.   
   
7.   (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径
   
8.   (if (not d1) (setq d1 151.))
   
9.   (setq d2(getreal "\n 中心距<191>:"));圆孔中心距（直径）
   
10.   (if (not d2) (setq d2 191.))
    
11.   (setq width (getreal "\n 法兰宽度<40>:"))
    
12.   (if (not width) (setq width 40.))
    
13.   (setq d3 (+ d1 (* 2 width)));法兰外径
    
14.   (setq d4(getreal "\n 开孔直径<10>:"))
    
15.   (if (not d4) (setq d4 10))
    
16.   (setq n(getint "\n 开孔数量<8>:"))
    
17.   (if (not n) (setq n 8))
    
18.   (SETQ ang (/ (/ 360. n) 2.));分线角度
    
19.   (SETQ pt0 (getpoint "\n 插入点："))
    
20.   ;上面为所需变量
    
21.   (command "circle" pt0 "d" d1);画内径
    
22.   (setq e1 (entlast))
    
23.   (command "circle" pt0 "d" d3);画外径
    
24.   
    
25.   (setq pt1 (mapcar '+ pt0 (list 0 (/ d1 2.) 0)));从圆心寻找内径一点
    
26.   (setq pt2 (mapcar '+ pt0 (list 0 (/ d2 2.) 0)));从圆心寻找开孔圆一点
    
27.   (setq pt3 (mapcar '+ pt0 (list 0 (/ d3 2.) 0)));从圆心寻找外径一点
    
28.   
    
29.   (command "circle" pt2 "d" d4);画圆孔
    
30.   (setq e4(entlast))
    
31.   (command "_.ARRAY" e4 "" "P" pt0 n  "" "");阵列布置圆孔
    
32.   (command "line" pt1 pt3 "")
    
33.   (setq e5(entlast))
    
34.   (command "rotate" e5 "" pt0 ang)
    
35. 
    
36.   (if (> d1 251)
    
37.     (progn
    
38.       (if (<= d1 501)
    
39.         (progn
    
40.           (command "rotate" e5 "" pt0 "c" 120)
    
41.           (command "rotate" e5 "" pt0 "c" 240)
    
42.         )
    
43.         (progn
    
44.           (command "rotate" e5 "" pt0 "c" 90)
    
45.           (command "rotate" e5 "" pt0 "c" 180)
    
46.           (command "rotate" e5 "" pt0 "c" 270)
    
47.         )
    
48.       )
    
49.     )
    
50.     (command "erase" e5 "" )
    
51.   )
    
52.   (setvar "osmode" 16383)  ;打开对象捕捉状态
    
53.   (princ) ;静默退出
    
54.   (command "._undo" "_end")
    
55. )

(defun c:yfl1(/ ang d1 d2 d3 d4 e1 e4 e5 n pt0 pt1 pt2 pt3 r3 width);圆法兰<br />   (command "._undo" "_begin")<br />   (setvar "cmdecho" 0) ;关闭普通命令提示信息<br />   (setvar "osmode" 0)  ;关闭对象捕捉状态<br />   <br />   (setq d1(getreal "\n 法兰内径<151>:"));风管外径和法兰内径<br />   (if (not d1) (setq d1 151.))<br />   (setq d2(getreal "\n 中心距<191>:"));圆孔中心距（直径）<br />   (if (not d2) (setq d2 191.))<br />   (setq width (getreal "\n 法兰宽度<40>:"))<br />   (if (not width) (setq width 40.))<br />   (setq d3 (+ d1 (* 2 width)));法兰外径<br />   (setq d4(getreal "\n 开孔直径<10>:"))<br />   (if (not d4) (setq d4 10))<br />   (setq n(getint "\n 开孔数量<8>:"))<br />   (if (not n) (setq n 8))<br />   (SETQ ang (/ (/ 360. n) 2.));分线角度<br />   (SETQ pt0 (getpoint "\n 插入点："))<br />   ;上面为所需变量<br />   (command "circle" pt0 "d" d1);画内径<br />   (setq e1 (entlast))<br />   (command "circle" pt0 "d" d3);画外径<br />   <br />   (setq pt1 (mapcar '+ pt0 (list 0 (/ d1 2.) 0)));从圆心寻找内径一点<br />   (setq pt2 (mapcar '+ pt0 (list 0 (/ d2 2.) 0)));从圆心寻找开孔圆一点<br />   (setq pt3 (mapcar '+ pt0 (list 0 (/ d3 2.) 0)));从圆心寻找外径一点 <br />   <br />   (command "circle" pt2 "d" d4);画圆孔<br />   (setq e4(entlast))<br />   (command "_.ARRAY" e4 "" "P" pt0 n  "" "");阵列布置圆孔<br />   (command "line" pt1 pt3 "")<br />   (setq e5(entlast))<br />   (command "rotate" e5 "" pt0 ang)<br /> <br />   (if (> d1 251)<br />     (progn<br />       (if (<= d1 501)<br />         (progn<br />           (command "rotate" e5 "" pt0 "c" 120)<br />           (command "rotate" e5 "" pt0 "c" 240)<br />         )<br />         (progn<br />           (command "rotate" e5 "" pt0 "c" 90)<br />           (command "rotate" e5 "" pt0 "c" 180)<br />           (command "rotate" e5 "" pt0 "c" 270)<br />         )<br />       )<br />     )<br />     (command "erase" e5 "" )<br />   )<br />   (setvar "osmode" 16383)  ;打开对象捕捉状态<br />   (princ) ;静默退出<br />   (command "._undo" "_end")<br /> )

xyp1964

1. (defun c:tt ()
   
2.   "圆法兰"
   
3.   (setvar "osmode" 0)
   
4.   (setq d1 (Ureal 7 "" "法兰内径" d1)) ;151
   
5.   (setq d2 (Ureal 7 "" "中心距" d2)) ;191
   
6.   (setq d6 (Ureal 7 "" "法兰宽度" d6)) ;40
   
7.   (setq d4 (Ureal 7 "" "孔直径" d4)) ;10
   
8.   (setq d5 (Uint 1 "" "开孔数量" d5)) ;8
   
9.   (setq d3 (+ d1 (* 2 d6)))
   
10.   (setq d8 (/ 360 d5 2.)) ;分线角度
    
11.   (setq d7 (/ d3 2.))
    
12.   (setq pt0 (getpoint "\n插入点: "))
    
13.   (command "circle" pt0 "d" d1)
    
14.   (setq e4 (entlast))
    
15.   (command "circle" pt0 "d" d2)
    
16.   (setq e1 (entlast))
    
17.   (command "circle" pt0 "d" d3) ;绘制三个圆
    
18.   (setq        p1  (polar pt0 (* pi 0.5) d7)
    
19.         pt1 (polar pt0 (* pi 0.5) (/ d2 2.))
    
20.   )
    
21.   (command "circle" pt1 "d" d4)
    
22.   (setq e2 (entlast))
    
23.   (command "_.ARRAY" e2 "" "P" pt0 d5 "" "")
    
24.   (command "erase" e1 "")
    
25.   (command "line" (polar pt0 (* pi 0.5) (/ d1 2.)) p1 "")
    
26.   (setq e3 (entlast))
    
27.   (command "rotate" e3 "" pt0 d8)
    
28.   (if (> d1 251)
    
29.     (if        (<= d1 501)
    
30.       (progn
    
31.         (command "rotate" e3 "" pt0 "c" 120)
    
32.         (command "rotate" e3 "" pt0 "c" 240)
    
33.       )
    
34.       (progn
    
35.         (command "rotate" e3 "" pt0 "c" 90)
    
36.         (command "rotate" e3 "" pt0 "c" 180)
    
37.         (command "rotate" e3 "" pt0 "c" 270)
    
38.         (command "rotate" e3 "" pt0 "c" 360)
    
39.       )
    
40.     )
    
41.     (command "erase" e3 "")
    
42.   )
    
43.   (princ)
    
44. )

(defun c:tt ()<br />   "圆法兰"<br />   (setvar "osmode" 0)<br />   (setq d1 (Ureal 7 "" "法兰内径" d1)) ;151<br />   (setq d2 (Ureal 7 "" "中心距" d2)) ;191<br />   (setq d6 (Ureal 7 "" "法兰宽度" d6)) ;40<br />   (setq d4 (Ureal 7 "" "孔直径" d4)) ;10<br />   (setq d5 (Uint 1 "" "开孔数量" d5)) ;8<br />   (setq d3 (+ d1 (* 2 d6)))<br />   (setq d8 (/ 360 d5 2.)) ;分线角度<br />   (setq d7 (/ d3 2.))<br />   (setq pt0 (getpoint "\n插入点: "))<br />   (command "circle" pt0 "d" d1)<br />   (setq e4 (entlast))<br />   (command "circle" pt0 "d" d2)<br />   (setq e1 (entlast))<br />   (command "circle" pt0 "d" d3) ;绘制三个圆<br />   (setq        p1  (polar pt0 (* pi 0.5) d7)<br />         pt1 (polar pt0 (* pi 0.5) (/ d2 2.))<br />   )<br />   (command "circle" pt1 "d" d4)<br />   (setq e2 (entlast))<br />   (command "_.ARRAY" e2 "" "P" pt0 d5 "" "")<br />   (command "erase" e1 "")<br />   (command "line" (polar pt0 (* pi 0.5) (/ d1 2.)) p1 "")<br />   (setq e3 (entlast))<br />   (command "rotate" e3 "" pt0 d8)<br />   (if (> d1 251)<br />     (if        (<= d1 501)<br />       (progn<br />         (command "rotate" e3 "" pt0 "c" 120)<br />         (command "rotate" e3 "" pt0 "c" 240)<br />       )<br />       (progn<br />         (command "rotate" e3 "" pt0 "c" 90)<br />         (command "rotate" e3 "" pt0 "c" 180)<br />         (command "rotate" e3 "" pt0 "c" 270)<br />         (command "rotate" e3 "" pt0 "c" 360)<br />       )<br />     )<br />     (command "erase" e3 "")<br />   )<br />   (princ)<br /> )

世人皆醉

xyp1964 发表于 2022-9-2 13:38

大佬你这是啥命令，没有UREAL这个函数啊，而且我只想知道我修剪那部分错误出现在哪里，不是重新编写一个程序啊，而且你这个程序运行失败

mituzhe

我这里看运行没有问题啊

mituzhe

世人皆醉 发表于 2022-9-2 14:23
大佬你这是啥命令，没有UREAL这个函数啊，而且我只想知道我修剪那部分错误出现在哪里，不是重新编写一个 ...

你得用院长的库（XCAD）才能运行

世人皆醉

mituzhe 发表于 2022-9-2 17:11
你得用院长的库（XCAD）才能运行

你把内径放到350，中心390，再看看

世人皆醉

mituzhe 发表于 2022-9-2 17:11
你得用院长的库（XCAD）才能运行

XCAD是啥啊，不太了解唉

mituzhe

世人皆醉 发表于 2022-9-3 14:11
XCAD是啥啊，不太了解唉

就是楼上回复你的大佬的工具箱，看他签名。其实他已经回答了你的问题。只是用了他自己的库，你不安装他的库运行不了

mituzhe