绘简单箭头

skg123

修改人家的 ，小小工具，经常用。
(defun c:JT()
   (setq p0(getpoint "\n请指定箭尖：")
         p1(getpoint p0 "\n请指定箭尾："))
      (setq oldosmode (getvar "osmode"))
     (setvar "osmode" 0)
   (setq
         len (* 0.5 (distance p1 p0))
         ang (angle p0 p1)
         ang1 (+ ANG (* 0.5 PI))
         ang2 (- ANG (* 0.5 PI))
         P11 (polar p0 ang (* 0.8 len));夹角大小调整此处0.2的值
         P12 (polar p11 ang1 (* 0.25 len));夹角大小调整此处0.2的值
         P13 (polar p11 ang2 (* 0.25 len));夹角大小调整此处0.2的值
   )
(command "Pline" p12 p0 P13 p0 p1 "");箭头的宽度是直线部分的3倍
   (setvar "osmode" oldosmode)
(PRINC)
)

magicheno

感谢大佬分享~

ji3499222

好的插件真不少

烟盒迷唇

这个不错，我喜欢

happy336

谢谢分享，支持