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

JT 画单线箭头小工具

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

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


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

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:17

加油，挺好的

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

谢谢大佬分享，拿走了:handshake

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

;---画箭头
(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:56

谢谢大佬分享，{:1_1:}

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

很实用的呢。不错。

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

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

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

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

ycpyxl 发表于 2024-9-30 13:06:22

这个命令hjt，能改成其他么
页: [1] 2
查看完整版本: JT 画单线箭头小工具