maahee Posted June 19 Share Posted June 19 (edited) (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 Quote Link to comment Share on other sites More sharing options...
Steven P Posted June 19 Share Posted June 19 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") "") 1 1 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 20 Share Posted June 20 (edited) 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 1 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.