; WINGWL.LSP   [Article Figure 3]   (c)1990, Barry Bowen

; **********************************************************
; WINGWL
; Copyright (c) Barry R. Bowen 1990
; ----------------------------------------------------------
; Variables:
; ANG  = Angle between the offset begin point and end point
; PT1  = Offset begin point
; PT2  = Wall line begin point
; PT3  = Point for offset of wall thickness
; PT4  = Point for wall length
; PT5  = Point for wall thickness from PT4
; WLTK = Current wall thickness [Global]
; ----------------------------------------------------------

(defun C:WINGWL (/ ANG PT1 PT2 PT3 PT4 PT5)                 ; 1
  (WSTART)                                                  ; 2
  (command "osnap" "endp")                                  ; 3
  (setq PT1 (getpoint "\nOffset From (Endp): "))            ; 4
  (setvar "osmode" 0)                                       ; 5
  (setq PT2 (getpoint PT1 "\nDistance/Angle: ")             ; 6
        ANG (angle PT1 PT2)                                 ; 7
        PT3 (polar PT2 ANG WLTK)                            ; 8
  )                                                         ; 9
  (command "break" PT2 PT3)                                 ;10
  (setq PT4 (getpoint PT2 "\nLength and Angle of Wall: ")   ;11
        PT5 (polar PT4 ANG WLTK))                           ;12
  (command "line" PT2 PT4 PT5 PT3 "")                       ;13
  (V1R)                                                     ;14
  (RL)                                                      ;15
  (V4)                                                      ;16
)                                                           ;17