绘简单箭头

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

谢谢分享，支持

账号		自动登录	找回密码
密码			注册

绘简单箭头

本帖子中包含更多资源

相关帖子