在240厚墙上画门的程序

szx025

编了一个在240厚墙上画门的程序：
(DEFUN C:DOOR1 (/ P1 P2 pt1 pt2 pt3 pt4 ) (SETQ P1 (GETPOINT "\nSelect door hinge point : ")
P2 (GETPOINT P1 "\nSelect door second point : ")
DIST_1 (getdist "\n门宽:")
PT_SIDE (GETPOINT "\nSelect door open side : ")
ANGE_1 (ANGLE P1 P2) ANGE_2 (/ PI 2)
P2 (polar P1 ANGE_1 DIST_1))
(SETvar "OSMODE" 0)
(setq pt1 (polar P1 (+ ANGE_1 (* 0.5 pi)) 120))
(setq pt2 (polar P1 (+ ANGE_1 (* 1.5 pi)) 120))
(setq pt3 (polar P2 (+ ANGE_1 (* 0.5 pi)) 120))
(setq pt4 (polar P2 (+ ANGE_1 (* 1.5 pi)) 120))
(COMMAND "BREAK" pt1 "F" pt1 pt3)
(COMMAND "BREAK" pt2 "F" pt2 pt4)
(command "line" pt1 pt2 "")
(command "line" pt3 pt4 "")
(SETQ PT_TMP2 (POLAR P1 (+ ANGE_1 ANGE_2) 1000)
PT_TMP3 (POLAR P1 (- ANGE_1 ANGE_2) 1000))
(IF (< (DISTANCE PT_SIDE PT_TMP2) (DISTANCE PT_SIDE PT_TMP3))
(SETQ ANGE_3 (+ ANGE_1 ANGE_2) ANGE_4 (+ ANGE_1 (/ PI 4)))
(SETQ ANGE_3 (- ANGE_1 ANGE_2) ANGE_4 (- ANGE_1 (/ PI 4))))
(SETQ PT_TMP2 (POLAR P1 ANGE_3 DIST_1)
PT_TMP3 (POLAR P1 ANGE_4 DIST_1))
(COMMAND "PLINE" P1 PT_TMP2 "A" "S" PT_TMP3 P2 "")
) ;关闭PROGN及IF
;(setvar "osmode" 32)
(princ)
有一点小问题，请高手指点
如作一条辅助（方便定位门位置）穿过PT1，P1 ，PT2，程序执行后打断的不是PT1~PT3，而是PTI~PT2。（如没有辅助线，程序能正常执行）

再见熊猫衣服

好用，楼主还在吗