一个命令

Gu_xl

回复 1078815748 的帖子

稍微改了一下：

1. (defun C:jt(/ oldmode enda p1 p2 dd w)
   
2.   (prompt "\n绘制箭头")
   
3.   (setvar "cmdecho" 0)
   
4.   (setq oldmode (getvar "osmode"))
   
5.   (setvar "osmode" 0)  ;关闭扑捉
   
6.   
   
7.   (initget "A B C  ")
   
8.   (setq enda (getkword "\n[直箭头A/弯箭头B/大弯箭头<C>] <A>")
   
9.         enda (if enda enda "A"))
   
10.          
    
11.   (while (setq p1 (getpoint "\n箭头的尖端位置:"))
    
12.         (setq p2 (getpoint p1 "\n箭头的另一端:")
    
13.               dd (distance p1 p2))
    
14.   (prompt (rtos dd 2 4))
    
15.   (setq w (* dd 1.2)
    
16.         an (angle p1 p2)
    
17.         )
    
18.   
    
19.   (if (= enda "A")
    
20.   (progn
    
21.   (command "pline" p1 "w" 0 w p2 "w" (* w 0.4) (* w 0.4) (polar p2 an (getdist p2)) "")
    
22.    )
    
23.    )
    
24.    (if (= enda "B")
    
25.    (command "pline" p1 "w" "0" w p2 "w" (* w 0.4) (* w 0.4) "a" pause "")
    
26.    )
    
27.    (if (= enda "C")
    
28.    (command "pline" p1 "w" "0" w p2 "w" (* w 0.4) (* w 1.2) "a" pause "")
    
29.     )
    
30.     (if (= p1 nil) (exit))
    
31.     )
    
32.   (setvar "osmode" oldmode)
    
33.   (prin1)
    
34. )
    

(defun C:jt(/ oldmode enda p1 p2 dd w)<br />   (prompt "\n绘制箭头")<br />   (setvar "cmdecho" 0)<br />   (setq oldmode (getvar "osmode"))<br />   (setvar "osmode" 0)  ;关闭扑捉<br />   <br />   (initget "A B C  ")<br />   (setq enda (getkword "\n[直箭头A/弯箭头B/大弯箭头<C>] <A>")<br />         enda (if enda enda "A"))<br />          <br />   (while (setq p1 (getpoint "\n箭头的尖端位置:"))<br />         (setq p2 (getpoint p1 "\n箭头的另一端:")<br />               dd (distance p1 p2))<br />   (prompt (rtos dd 2 4))<br />   (setq w (* dd 1.2)<br />         an (angle p1 p2)<br />         )<br />   <br />   (if (= enda "A")<br />   (progn<br />   (command "pline" p1 "w" 0 w p2 "w" (* w 0.4) (* w 0.4) (polar p2 an (getdist p2)) "")<br />    )<br />    )<br />    (if (= enda "B")<br />    (command "pline" p1 "w" "0" w p2 "w" (* w 0.4) (* w 0.4) "a" pause "")<br />    )<br />    (if (= enda "C")<br />    (command "pline" p1 "w" "0" w p2 "w" (* w 0.4) (* w 1.2) "a" pause "")<br />     )<br />     (if (= p1 nil) (exit))<br />     )<br />   (setvar "osmode" oldmode)<br />   (prin1)<br /> )<br />