请教，在程序里面添加修剪功能。
以下是原程序，想添加自动修剪两线内的线。(defun C:t1 (/ p1 p2 qd a)
(setvar "cmdecho" 0)
(command "LAYER" "m" "$$QLine" "C" 4 "" "")
(initget 1)
(setq p1 (getpoint "\n点取第一点: "))
(initget 1)
(setq p2 (getpoint p1 "\n点取第二点: "))
(setq qd (getdist "\n宽 m<4>: ")
qd (if qd qd 4)
)
(setvar "plinewid" 0)
(command "PLINE"
(polar p1 (+ (setq a (angle p1 p2)) (* 0.75 pi)) 3)
P1
P2
(polar p2 (+ a (* 0.25 pi)) 3)
""
"Move"
(entlast)
""
p1
(polar p1 (+ a (* 0.5 pi)) qd)
"MIRROR"
(entlast)
""
p1
p2
"n"
)
(setvar "plinewid" 0)
(setvar "clayer" "0")
(princ)
)
页:
[1]