[求助]：帮忙修改画箭头lsp

yinzhun22

(defun C:jt2()
  (setq p1 (getpoint "箭头的尖端位置:") p2 (getpoint p1 "箭头的另一端:") dd (distance p1 p2))
  (prompt (rtos dd 2 4))
  (setq w (getreal "箭头的宽度:  ") an (angle p1 p2) p3 (polar p2 (+ an (* pi 0.5)) (/ w 2.0)) p4 (polar p2 (+ an (* pi 1.5)) (/ w 2.0)))
  (command "solid" p1 p3 p1 p4 """pline" p2 "w" "0" "0" (polar p2 an dd) "")
)
上网下载一个用PL线画箭头的程序，想做以下修改请高手帮忙
就是每次运行命令就默认箭头的长度为1000，箭未宽度400.
还是各位有什么其他的好方法提供下。

gysjy

2. 
   
3.   [FONT=courier new]
   
4. (defun c:jt2 (/ p1 p2 ang p3)
   
5.   (setvar "orthomode" 0)
   
6.   (setvar "plinewid" 0)
   
7.   (setq p1 (getpoint "箭头起点:"))     
   
8.   (setq p2 (getpoint "箭头终点:" p1)
   
9.         ang (angle p2 p1)
   
10.         p3 (polar p2 ang 1000)
    
11.   )
    
12.   (command "pline" p1 p2 "w" "0" "400" p3 "")
    
13.   (princ)
    
14. )
    
15. 
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:jt2 (/ p1 p2 ang p3)<br />   (setvar "orthomode" 0)<br />   (setvar "plinewid" 0)<br />   (setq p1 (getpoint "箭头起点:"))     <br />   (setq p2 (getpoint "箭头终点:" p1)<br />         ang (angle p2 p1)<br />         p3 (polar p2 ang 1000)<br />   )<br />   (command "pline" p1 p2 "w" "0" "400" p3 "")<br />   (princ)<br /> )<br /> <br />   [/FONT]<br />

sladerchen

好东西，我的tsd不能用箭头，这回有办法了

xyp1964

画箭头

rsp2001

学习了