请教，在程序里面添加修剪功能。

lxdz443

以下是原程序，想添加自动修剪两线内的线。

(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)
)