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

謝謝樓上的分享，參考下，很感激
页: 1 2 [3] 4
查看完整版本: [原创] 绘制箭头程序（直箭头，弯箭头，大弯箭头）