Code:(defun c:gt (/ lastEnt ss) (setq pt1 (getdist "\nSpecify length of room")) (setq pt2 (getdist "\nSpecify height of room")) (setq pt3 (getpoint "\nSpecify lower middlepoint of room")) (command "-insert" "1" "x" (- (* pt1 3) 300) "y" "300" pt3 "0") (command "move" "l" "" "d" "0,50,0");<not sure whats this for (defun round (num prec) (* prec (if (minusp num) (fix (- (/ num prec) 0.5)) (fix (+ (/ num prec) 0.5)) ) ) ) (setq lastEnt (entlast) ss (ssadd)) (command "._explode" "L" "") (command "_-array" "P" "" "rectangular" (round (/ pt2 600) 1) "1" "600") (while (setq lastEnt (entnext lastEnt)) (ssadd lastEnt ss)) (sssetfirst nil ss) ;Grip select the set (princ) )
Bookmarks