[LISP程序]：求墙上插门的LISP源程序

coco25825

求墙上插门的LISP源程序，，类似与天正3的画门命令一样

ld80721

(DEFUN C:DOOR ()        (SETQ PT_BASE (GETPOINT "\nSelect door hinge point : ")
                                    PT_TMP1 (GETPOINT "\nSelect door second point : ")
                                    PT_SIDE (GETPOINT "\nSelect door open side : ")
                                  ANGE_1  (ANGLE PT_BASE PT_TMP1) ANGE_2 (/ PI 2)
                                    DIST_1  (DISTANCE PT_BASE PT_TMP1))
                        (SETQ M_OSM (GETVAR "OSMODE")) (SETVAR "OSMODE" 0)
                        (SETQ GOP_1 (SSGET PT_BASE) GOP_2 (SSGET PT_TMP1))
                        (SETQ ENT_1 (SSNAME GOP_1 0) ENT_2 (SSNAME GOP_2 0))
                        (IF (NOT (EQUAL ENT_1 ENT_2))
                                (PRINC "\n** Select Two object is different **") (PROGN
                                  (COMMAND "BREAK" PT_BASE "F" PT_BASE PT_TMP1)
                                  (SETQ PT_TMP2 (POLAR PT_BASE (+ ANGE_1 ANGE_2) 1000)
                                  PT_TMP3 (POLAR PT_BASE (- 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 PT_BASE ANGE_3 DIST_1)
                                              PT_TMP3 (POLAR PT_BASE ANGE_4 DIST_1))
                                            (COMMAND "PLINE" PT_BASE PT_TMP2 "A" "S" PT_TMP3 PT_TMP1 "")
                                  ))                            ;闽超PROGNのIF
                              (SETVAR "OSMODE" M_OSM) (PRINC))

coco25825

谢谢，命令很强，可是还有些疑虑，不能顺序插门，画施工图精度有问题啊？！
希望希望能有以下的步骤命令：
1，点取墙线
2.输入距离
3.插入门或窗
4.门洞尺寸
5.确定方向（最好是任意翻转）
烦请高手帮帮忙啊！！