[原创] 绘制箭头程序（直箭头，弯箭头，大弯箭头）

zhaozwf

加载之后，直接在命令行输入jt，就可以了。呵呵

小毛草

修改了一下，箭头的样式更好看一点,需要的下载对式一下就知道了！
;;;;;;;;;;;;;;;;;;;;;;;;箭头工具
(defun C:jt()
  (prompt "\n绘制箭头")
  (setvar "cmdecho" 0)
  (setq oldmode (getvar "osmode"))
  (setvar "osmode" 0)  ;关闭扑捉
  
  (initget "A B C")
  (setq enda (getkword "\n直箭头A/弯箭头B/大弯箭头<C> <A>")
        enda (if enda enda "A"))
         
  (while (setq p1 (getpoint "\n箭头的尖端位置:"))
        (setq p2 (getpoint p1 "\n箭头的另一端:")
              dd (distance p1 p2))
  (prompt (rtos dd 2 4))
  (setq w (* dd 1.0)
        an (angle p1 p2)
        p3 (polar p2 (+ an (* pi 0.5)) (/ w 4.0))
        p4 (polar p2 (+ an (* pi 1.5)) (/ w 4.0)))
  
  (if (= enda "A")
  (progn
  (command "solid" p1 p3 p1 p4 ""
           "pline" p2 "w" (* w 0.2) (* w 0.2) (polar p2 an (getdist p2)) "")
   )
   )
   (if (= enda "B")
   (progn
  (command "solid" p1 p3 p1 p4 ""
           "pline" p2 "w" "0" w p2 "w" (* w 0.2) (* w 0.2) "a" pause "")
   )
   )
   (if (= enda "C")
   (progn
  (command "solid" p1 p3 p1 p4 ""
           "pline" p2 "w" "0" w p2 "w" (* w 0.2) (* w 0.6) "a" pause "")
   )
   )
    (if (= p1 nil) (exit))
    )
  (setvar "osmode" oldmode)
  (prin1)
)

ynhh

zhaozwf 发表于 2008-11-7 15:14
修改了“参数类型错误: point: nil”这个错误，欢迎使用。呵呵

太好了
再来个类似QQ截图中的箭头
后面的直线或弯线
也带变大或变小的
支持你

白色微風1991

謝謝樓上的分享，參考下，很感激

znchssy

虽然工作中用不上，但觉得很新颖，还得谢谢楼主！

zhaozwf

修改了“

参数类型错误: point: nil”这个错误，欢迎使用。呵呵

yoyoho

不錯喔!

蠻新鮮的程序,

收藏學習.

cxs259

已收藏，谢谢

aeo000000

看看cad2008自带的，在工具选项板里面的箭头

yxyfy

不错，谢谢