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

sunjun2009 · 发表于 2018-5-29 19:42:59

线条能改粗细就好了

ynhh · 发表于 2018-5-30 08:28:33

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

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

疯球 · 发表于 2018-9-8 20:46:50

谢谢楼主分享！！！！！

sunny_8848 · 发表于 2018-9-8 21:28:29

已收藏，谢谢

nu'xing'x'p · 发表于 2021-8-27 19:19:58

附件下载不了呢。

白色微風1991 · 发表于 2021-8-28 07:19:33

不錯喔!

蠻新鮮的程序,

收藏學習.

sunny_8848 · 发表于 2021-8-28 20:10:28

谢谢楼主分享，下载备用

小毛草 · 发表于 2021-8-29 13:46:03

修改了一下，箭头的样式更好看一点,需要的下载对式一下就知道了！
;;;;;;;;;;;;;;;;;;;;;;;;箭头工具
(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)
)

ZJKUSO · 发表于 2022-10-21 10:37:08

能不能将第二段直线改为细线？

白色微風1991 · 发表于 2022-10-21 19:49:55

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

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

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

点评