如何使trim能多次选择？

chenjieq1990

接上面的帖子http://bbs.mjtd.com/thread-175494-1-1.html，已经做了修改，其中w1是修剪，w2是延伸。。。

1. (defun C:w1(/ cm os wt_text0 wt_text wt_textdata wt_box wt_txpz1 wt_txpz3 wt_1 wt_2)
   
2.     (vl-load-com)
   
3. ; (defun r2d (r) (/ (* r 180.0) pi));弧度转角度
   
4.   (setq cm (getvar "cmdecho"))
   
5.   (setq os (getvar "osmode"))
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "osmode" 0)
   
8.   (defun *error* (msg) ;错误处理
   
9.     (vl-cmdf "" "")
   
10.     (vl-cmdf "ucs" "")
    
11.       (vl-cmdf "erase" wt_1 wt_2)
    
12. 
    
13.     (redraw wt_text 4)
    
14. 
    
15.     (setvar "cmdecho" cm)
    
16.     (setvar "osmode" os)
    
17. 
    
18.    (princ msg)
    
19.   )
    
20.   (setq wt_text0(entsel"\n选择文本:"))
    
21.   ;(setq h(cdr (assoc 0 (entget(car wt_text0)))))
    
22.   (while(or (= wt_text0 nil) (/= (cdr (assoc 0 (entget(car wt_text0)))) "TEXT") )
    
23.     (setq wt_text0(entsel"\n选择文本:"))
    
24.     )
    
25.     (setq wt_text(car wt_text0))
    
26. (setq wt_textdata(entget wt_text))
    
27.   ;or (wt_text0 null)  
    
28.   (redraw wt_text 3)
    
29.   (vl-cmdf "ucs" "e" wt_text)
    
30.   (setq wt_box(textbox wt_textdata))
    
31.   (setq wt_txpz1(car wt_box)
    
32.   wt_txpz3(cadr wt_box)
    
33.   )
    
34. ; (setq wt_attext(vlax-ename->vla-object wt_text))
    
35. ; (setq wt_ro(r2d (vla-get-rotation  wt_attext)))
    
36.   (vl-cmdf "xline" "v" wt_txpz1 "")
    
37.   (setq wt_1(entlast))
    
38.   ;(redraw wt_1 2)
    
39.   (vl-cmdf "xline" "v" wt_txpz3 "")
    
40.   (setq wt_2(entlast))
    
41.   ;(redraw wt_2 2)
    
42.   (redraw wt_text 4)
    
43.   (vl-cmdf "trim" wt_1 wt_2 "" )
    
44.   (vl-cmdf pause "")
    
45.   ;(prompt "\n请选择择修剪位置:")
    
46.   ;(setq wt_line0(entsel"\n修剪对象:"))
    
47. 
    
48.   ;(setq wt_line(car wt_line0))
    
49.   ;(setq wt_linedata(entget wt_line))
    
50.   ;(setq wt_n 0)
    
51.   ;(repeat (sslength wt_lines) () (setq wt_n(1+ wt_n)))
    
52.   ;(setq ent(ssname ss n))
    
53.     (vl-cmdf "trim" wt_1 wt_2 "" )
    
54.   (vl-cmdf pause "")
    
55.   (vl-cmdf "erase" wt_1 wt_2)
    
56.   (vl-cmdf "erase" "" "")
    
57.   (vl-cmdf "ucs" "")
    
58.   (setvar "cmdecho" cm)
    
59.   (setvar "osmode" os)
    
60.   (prin1)
    
61. )
    
62. (defun C:w2(/ cm os wt_text0 wt_text wt_textdata wt_box wt_txpz1 wt_txpz3 wt_1 wt_2)
    
63.   (vl-load-com)
    
64.   (setq cm (getvar "cmdecho"))
    
65.   (setq os (getvar "osmode"))
    
66.   (setvar "cmdecho" 0)
    
67.   (setvar "osmode" 0)
    
68. 
    
69.   (defun *error* (msg) ;错误处理
    
70.    (vl-cmdf "" "")
    
71.    (vl-cmdf "ucs" "")
    
72.    (redraw wt_text 4)
    
73.       (vl-cmdf "erase" wt_1 wt_2)
    
74.     (setvar "cmdecho" cm)
    
75.     (setvar "osmode" os)
    
76.    (princ msg)
    
77.   );
    
78. 
    
79.   (setq wt_text0(entsel"\n选择文本:"))
    
80.   (while(or (= wt_text0 nil) (/= (cdr (assoc 0 (entget(car wt_text0)))) "TEXT") )
    
81.     (setq wt_text0(entsel"\n选择文本:"))
    
82.     )
    
83.   (setq wt_text(car wt_text0))
    
84.   (setq wt_textdata(entget wt_text))
    
85.   (redraw wt_text 3)
    
86.   (vl-cmdf "ucs" "e" wt_text)
    
87.   (setq wt_box(textbox wt_textdata))
    
88.   (setq wt_txpz1(car wt_box)
    
89.   wt_txpz3(cadr wt_box)
    
90.   )
    
91.   (vl-cmdf "xline" "v" wt_txpz1 "")
    
92.   (setq wt_1(entlast))
    
93.   ;(redraw wt_1 2)
    
94.   (vl-cmdf "xline" "v" wt_txpz3 "")
    
95.   (setq wt_2(entlast))
    
96.   (vl-cmdf "extend" wt_1 wt_2 "" )
    
97.   (vl-cmdf pause "")
    
98.     ;(vl-cmdf pause "")
    
99.     (vl-cmdf "extend" wt_1 wt_2 "" )
    
100.   (vl-cmdf pause "")
     
101.   
     
102.   (vl-cmdf "erase" wt_1 wt_2)
     
103.   (vl-cmdf "erase" "" "")
     
104.   (vl-cmdf "ucs" "")
     
105. 
     
106.   (redraw wt_text 4)
     
107.   (setvar "cmdecho" cm)
     
108.   (setvar "osmode" os)
     
109.   (prin1)
     
110.   )

(defun C:w1(/ cm os wt_text0 wt_text wt_textdata wt_box wt_txpz1 wt_txpz3 wt_1 wt_2)<br />     (vl-load-com)<br /> ; (defun r2d (r) (/ (* r 180.0) pi));弧度转角度<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (defun *error* (msg) ;错误处理<br />     (vl-cmdf "" "")<br />     (vl-cmdf "ucs" "")<br />       (vl-cmdf "erase" wt_1 wt_2)<br /> <br />     (redraw wt_text 4)<br /> <br />     (setvar "cmdecho" cm)<br />     (setvar "osmode" os)<br /> <br />    (princ msg)<br />   )<br />   (setq wt_text0(entsel"\n选择文本:"))<br />   ;(setq h(cdr (assoc 0 (entget(car wt_text0)))))<br />   (while(or (= wt_text0 nil) (/= (cdr (assoc 0 (entget(car wt_text0)))) "TEXT") )<br />     (setq wt_text0(entsel"\n选择文本:"))<br />     )<br />     (setq wt_text(car wt_text0))<br /> (setq wt_textdata(entget wt_text))<br />   ;or (wt_text0 null)  <br />   (redraw wt_text 3)<br />   (vl-cmdf "ucs" "e" wt_text)<br />   (setq wt_box(textbox wt_textdata))<br />   (setq wt_txpz1(car wt_box)<br />   wt_txpz3(cadr wt_box)<br />   )<br /> ; (setq wt_attext(vlax-ename->vla-object wt_text))<br /> ; (setq wt_ro(r2d (vla-get-rotation  wt_attext)))<br />   (vl-cmdf "xline" "v" wt_txpz1 "")<br />   (setq wt_1(entlast))<br />   ;(redraw wt_1 2)<br />   (vl-cmdf "xline" "v" wt_txpz3 "")<br />   (setq wt_2(entlast))<br />   ;(redraw wt_2 2)<br />   (redraw wt_text 4)<br />   (vl-cmdf "trim" wt_1 wt_2 "" )<br />   (vl-cmdf pause "")<br />   ;(prompt "\n请选择择修剪位置:")<br />   ;(setq wt_line0(entsel"\n修剪对象:"))<br /> <br />   ;(setq wt_line(car wt_line0))<br />   ;(setq wt_linedata(entget wt_line)) <br />   ;(setq wt_n 0)<br />   ;(repeat (sslength wt_lines) () (setq wt_n(1+ wt_n)))<br />   ;(setq ent(ssname ss n))<br />     (vl-cmdf "trim" wt_1 wt_2 "" )<br />   (vl-cmdf pause "")<br />   (vl-cmdf "erase" wt_1 wt_2)<br />   (vl-cmdf "erase" "" "")<br />   (vl-cmdf "ucs" "")<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (prin1)<br /> )<br /> (defun C:w2(/ cm os wt_text0 wt_text wt_textdata wt_box wt_txpz1 wt_txpz3 wt_1 wt_2)<br />   (vl-load-com)<br />   (setq cm (getvar "cmdecho"))<br />   (setq os (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br /> <br />   (defun *error* (msg) ;错误处理<br />    (vl-cmdf "" "")<br />    (vl-cmdf "ucs" "")<br />    (redraw wt_text 4)<br />       (vl-cmdf "erase" wt_1 wt_2)<br />     (setvar "cmdecho" cm)<br />     (setvar "osmode" os)<br />    (princ msg)<br />   );<br /> <br />   (setq wt_text0(entsel"\n选择文本:"))<br />   (while(or (= wt_text0 nil) (/= (cdr (assoc 0 (entget(car wt_text0)))) "TEXT") )<br />     (setq wt_text0(entsel"\n选择文本:"))<br />     )<br />   (setq wt_text(car wt_text0))<br />   (setq wt_textdata(entget wt_text))<br />   (redraw wt_text 3)<br />   (vl-cmdf "ucs" "e" wt_text)<br />   (setq wt_box(textbox wt_textdata))<br />   (setq wt_txpz1(car wt_box)<br />   wt_txpz3(cadr wt_box)<br />   )<br />   (vl-cmdf "xline" "v" wt_txpz1 "")<br />   (setq wt_1(entlast))<br />   ;(redraw wt_1 2)<br />   (vl-cmdf "xline" "v" wt_txpz3 "")<br />   (setq wt_2(entlast))<br />   (vl-cmdf "extend" wt_1 wt_2 "" )<br />   (vl-cmdf pause "")<br />     ;(vl-cmdf pause "")<br />     (vl-cmdf "extend" wt_1 wt_2 "" )<br />   (vl-cmdf pause "")<br />   <br />   (vl-cmdf "erase" wt_1 wt_2)<br />   (vl-cmdf "erase" "" "")<br />   (vl-cmdf "ucs" "")<br /> <br />   (redraw wt_text 4)<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   (prin1)<br />   )

chenjieq1990

其中w1是修剪，w2是延伸。。。
现在使用了两次pause，有点傻，总感觉能够多次修剪和延伸。。。。是不是使用while和getpoint可以实现多次修剪？？？？希望有人能指点一二。。。

ysq101

新手？？？？？？？？？？？？？？

chenjieq1990

ysq101 发表于 2017-10-18 20:42
新手？？？？？？？？？？？？？？

啥意思？不太懂哎？