Line variable

[maahee]

(command "line" p1 "@12<90" "")
 
To

(setq rm (getdist "\nEnter room height or [undo]: ")) 
(setq bm rm) 
  
(command "line" p1 "@bm<90" "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq rm (getdist "\nEnter room height or [undo]: "))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (= wp "Partially")
         (setq wf 0)
         (setq wf (- rm ws 0.10 wh))
       )

  (setq p13 (polar p1  (+ (angle p1 p2) (* pi 0.5))(- ws 0.10)))
  (setq p14 (polar p13 (+ (angle p1 p2) (* pi 0.5)) 0.10))
  (setq p15 (polar p14 (+ (angle p1 p2) (* pi 0.5)) wh))
  (setq p16 (polar p15 (+ (angle p1 p2) (* pi 0.5)) 0.10))
  (setq t16 (polar p16 (+ (angle p1 p2) (* pi 0.5)) wf)) ;;;;;;;;;;;;;do not run (if (= wp "Partially")

 

1.  In this statement "@12<90" . I want to set 12 number variable,,, also

2.  if wrong room height enter then run undo function by user (one step back or more)

3.   (setq t16 (polar p16 (+ (angle p1 p2) (* pi 0.5)) wf))   ;;;;;;;;;;;;; do not run (if (= wp "Partially")

Edited June 19 by maahee

[Steven P]

If it is in quotes, " " it is seen as a string, you'll want to create the string with something like:

 

(command "line" p1 (strcat "@" (rtos bm) "<90") "")

 

[BIGAL]

Two other ways 

 

(command "LINE" p1 (mapcar '+ p1 (list 0.0 BM 0.0)))  ; (list x y 0.0)

(command "LINE" p1 (polar p1 (/ pi 2.) bm))

 

Edited June 20 by BIGAL