简单画箭头

wzg356

;画箭头

(defun c:jt(/ p0 p1 oldw w)        
        (if(and(setq p0 (getpoint "\n指定箭头尖端"))
                (setq p1 (getpoint p0 "\n指定箭头另一端")))
                (progn
                        (setq oldw(getvar "plinewid"))
                        (setq w(distance p0 p1))                        
                        (command "pline"
                                "none" p0 "w" 0 w
                                "none" p1
                                "none" p1 "w" 0 0
                                "none" p0 "w" 0 (* w 0.5)
                                "none" p1
                                "a" pause ""                                
                        )
                        (setvar "plinewid" oldw)                        
                )
        )
)
; 画空心直箭头
(defun c:jt1(/ p0 p1 p2 ang w)
        (if(and(setq p0 (getpoint "\n指定起点->"))
                (setq p2 (getpoint p0 "\n指定终点->")))
                (progn                        
                        (setq w(/ (distance p0 p2)4) ang(angle p0 p2))
                        (setq p1(polar p0 ang (* 1.414 w)))
                        (command "pline"
                                "none" p0
                                "none" (polar p1 (- ang(* 0.5 pi)) w)
                                "none" (polar p1 (- ang(* 0.5 pi)) (* 0.5 w))
                                "none" (polar p2 (- ang(* 0.5 pi)) (* 0.5 w))
                                "none" (polar p2 (+ ang(* 0.5 pi)) (* 0.5 w))
                                "none" (polar p1 (+ ang(* 0.5 pi)) (* 0.5 w))
                                "none" (polar p1 (+ ang(* 0.5 pi)) w)
                                "c"        
                        )               
                )
        )
)

paulpipi

rtf挺好用的

伪书虫86

我都是直接图块解决，简单粗暴

自贡黄明儒

用 leader,

wzg356

自贡黄明儒 发表于 2022-5-4 16:08
用 leader,

很少用这些，昨天临时需要现炒现卖。
黄老师退休了？

自贡黄明儒

wzg356 发表于 2022-5-4 17:34
很少用这些，昨天临时需要现炒现卖。
黄老师退休了？

没呢，现在还不是在搬砖。