[LISP程序]：画出的图是何样

szx025

(Vmon)
; Draws a single swing, single action door.
(Defun C:Sssa ()
  (Setvar "Cmdecho" 0)
  (Initget 7)
  (Setq A (Getdist "\nEnter width of door: "))
  (Initget 1)
  (Setq P1 (Osnap (Getpoint "\nEnter hinge point of door: ") "Nea"))
  (Setvar "Lastpoint" P1)
  (Initget 1)
  (Setq P2 (Osnap (Getpoint "\nTouch point on opposite side of wall: ") "Per"))
  (Initget 1)
  (Setq P3 (Osnap (Getpoint
    "\nShow side of hinge you wish to place door: ") "Nea"))
  (Setq A1 (Angle P1 P3))
  (Setq P3 (Polar P1 A1 A))
  (Setq A2 (Angle P1 P2))
  (Setq P4 (Polar P3 A2 (Distance P1 P2)))
  (Setq P5 (Polar P1 (+ Pi A2) A))
  (Command "Break" P1 P3 "Break" P2 P4)
  (Command "Line" P1 P2 "" "Line" P3 P4 "" "Line" P1 P5 "")
  (Command "Arc" P3 "E" P5 "D" (Polar P3 (+ Pi A2) A))
  
  (Princ)
)
从网络下载的程序,那位大侠能指点一下,在CAD中如何用该命令?,画出的图是何样

zhynt

[php]
(Defun C:Sssa ()
  (Setvar "Cmdecho" 0)
  (Initget 7)
  (Setq A (Getdist "\n输入门的宽度: "))
  (Initget 1)
  (Setq P1 (Osnap (Getpoint "\n指定门的插入点: ") "Nea"));在插入点附近点一下（捕捉最近点）
  (Setvar "Lastpoint" P1)
  (Initget 1)
  (Setq
    P2 (Osnap (Getpoint "\n在墙宽度方向指定一点: ");在对面墙附近点一下（捕捉垂直点）
              "Per"
       )
  )
  (Initget 1)
  (Setq        P3 (Osnap (Getpoint
                    "\n指示门开启方向: ");在门开启方向点一下，（捕捉最近点）
                  "Nea"
           )
  )
  (Setq A1 (Angle P1 P3))
  (Setq P3 (Polar P1 A1 A))
  (Setq A2 (Angle P1 P2))
  (Setq P4 (Polar P3 A2 (Distance P1 P2)))
  (Setq P5 (Polar P1 (+ Pi A2) A))
  (Command "Break" P1 P3 "Break" P2 P4)
  (Command "Line" P1 P2 "" "Line" P3 P4 "" "Line" P1 P5 "")
  (Command "Arc" P3 "E" P5 "D" (Polar P3 (+ Pi A2) A))

  (Princ)
)
[/php]

这是一个自动断墙画门的程序，之前先关闭捕捉（F3）
如图：

szx025

非常感谢2楼楼主的指导,
如下想法能否在此程序基础上实现:
1,先作一条辅助线通过1,2点.
2,在打开捕捉的情况下定位1,2,3点,
3,然后剪切掉门之间的墙线.完成画门
另:满足上述条件的双开门如何实现.
盼高手指点!