[编程申请]：帮忙修改画箭头命令

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.
还是各位有什么其他的好方法提供下。

zxq0220

这是直接用PLINE画的：
[php]
(defun C:jt2 ()
(setvar "CMDECHO" 0)
(setq p1 (getpoint "\n箭头的尖端位置 :")
       p2 (getpoint p1 "\n箭头的另一端 :"))
(setq w (getreal "箭头的宽度 <400> : ")
       w (if w w 400.0)
           dd 1000.0
       an (angle p1 p2)
       p2 (polar p1 an dd)
       p3 (polar p2 an dd))
(command "pline" p1 "w" "0" w p2 "w" "0" "0" p3 "")
(setvar "CMDECHO" 1)
)
[/php]
这是单画箭头的：
[php]
(defun C:jt2 ()
(setvar "CMDECHO" 0)
(setq p1 (getpoint "\n箭头的尖端位置 :")
       p2 (getpoint p1 "\n箭头的另一端 :"))
(setq w (getreal "箭头的宽度 <400> : ")
       w (if w w 400.0)
           dd 1000.0
       an (angle p1 p2)
       p2 (polar p1 an dd)
       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) "")
(setvar "CMDECHO" 1)
)
[/php]