JT 画单线箭头小工具

sammy · 发表于 2023-9-4 15:55

一个非常简单的小插件，论坛里有很多类似的代码。画单线箭头，由起点为0，终点为一定宽度的多段线构成。
新手级代码，调用command命令。
就不贴图了，大家自行取用吧。

【还请大家不吝点下赞赏，帮我加几个免费的币，谢谢！】

sammy · 发表于 2023-9-7 10:00

aws 发表于 2023-9-7 08:54
;---画箭头
(defun c:hjt (/ pt1 pt2 pt3 len oplw)
(setvar "CMDECHO" 0)

(defun c:hjt (/ pt1 pt2 pt3 len oplw)
(setvar "cmdecho" 0)
(setq oplw (getvar "plinewid"))
(setq pt1 (getpoint "箭头起点: "))
(setq pt2 (getpoint pt1 "箭头大小: "))
(setq len (distance pt1 pt2))
(vl-cmdf "pline" pt1 "w" 0 (* 0.3 len) pt2)
(vl-cmdf "w" 0 0 )
(vl-cmdf pause "")
(setvar "plinewid" oplw)
(setvar "cmdecho" 1)
(princ)
)

稍微修改下这段代码的参数，尾端改为直线，形状改为细箭头

paulpipi · 发表于 2023-9-5 08:39

加油，挺好的

mashanjie · 发表于 2023-9-7 00:21

谢谢大佬分享，拿走了

aws · 发表于 2023-9-7 08:54

;---画箭头
(defun c:hjt (/ pt1 pt2 pt3 len oplw)
(setvar "CMDECHO" 0)
(setq oplw (getvar "plinewid"))
(setq pt1 (getpoint "箭头起点: "))
(setq pt2 (getpoint pt1 "箭头大小: "))
(setq len (distance pt1 pt2))
(vl-cmdf "pline" pt1 "w" 0 (* 1.8 len) pt2)
(vl-cmdf "w" (* 0.4 len) (* 1.3 len) "a")
(vl-cmdf pause "")
(setvar "plinewid" oplw)
(setvar "CMDECHO" 1)
(princ)
)
网上看到的程序，画出来也很不错的，附上

戏男 · 发表于 2023-10-4 16:09

谢谢大佬分享，

yz_bs_jj · 发表于 2023-10-11 06:17

很实用的呢。不错。

呼呼se · 发表于 2024-3-16 17:03

能不能宽度设为默认，需要时候在更改

yefei812678 · 发表于 2024-3-22 07:55

感谢分享感谢分享感谢分享

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

JT 画单线箭头小工具

本帖子中包含更多资源

评分