分享一个刚刚写好的机械制图的A-A剖切符源码

fedd

有大神能在两个箭头下面分别加上内容为A向的文字吗？水平有限，见笑见笑了
(defun c:AA(/ m z z1 z2 z3 z4 k d h a old1)

(setq old1 (getvar "blipmode"))
(setvar "blipmode" 0)
(setvar "osmode" 16383)
(setq m(getpoint "请选取中点："))
(setq z(getpoint m  "请选取左侧点："))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setvar "clayer" "2细线层")
(setq d(distance z m))

(setq a(angle z m))
(setq k(+ 10 (/ d 50)))
(setq h(+ 3 (/ d 25)))

(setq z1(polar z (- a pi) k))
(setq z2(polar z1 (- a pi) k))
(setq z3(polar z2 (- a (* pi 0.5)) k))
(setq z4(polar z3 (- a (* pi 0.5)) h))

(COMMAND "PLINE" z1 "W" 0 0 z2 z3 "")
(COMMAND "PLINE" z3 "W" (/ h 2) 0 z4 "")

(setq y1(polar m a (+ k d)))
(setq y2(polar y1  a k))
(setq y3(polar y2 (- a (* pi 0.5)) k))
(setq y4(polar y3 (- a (* pi 0.5)) h))

(COMMAND "PLINE" y1 "W" 0 0 y2 y3 "")
(COMMAND "PLINE" y3 "W" (/ h 2) 0 y4 "")

(setvar "blipmode" old1)
(setvar "osmode" 255)
(princ)
)

无名之辈

赞一个!

yuyehuan

好东西，定