skg123 发表于 2015-9-28 16:58:04

绘简单箭头

修改人家的 ，小小工具，经常用。
(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 发表于 2022-11-15 15:44:15

感谢大佬分享~

ji3499222 发表于 2015-10-3 15:07:01

好的插件真不少

烟盒迷唇 发表于 2018-5-11 10:29:59

这个不错，我喜欢

happy336 发表于 2019-10-15 12:01:16

谢谢分享，支持

gwar 发表于 2024-12-6 15:07:15

感谢大佬分享
页: [1]
查看完整版本: 绘简单箭头