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