0 Members and 1 Guest are viewing this topic.
(defun add () (setq grp (ssadd (entlast) grp)) )(defun vav_label (/ pt1 pt2 grp) (init) (setq pt1 (getpoint "\nPick a point ON the VAV..") pt2 (getpoint "\nSelect a location for the text:" pt1) ) (command "layer" "m" "SM-Equipment Details" "c" "1" "" "lw" ".35" "" "" ) (command ".pline" pt1 "w" 0 10 pt2 "") (setq grp (ssget "L")) (command ".circle" pt2 22) (add) (command "layer" "m" "SM-Equipment" "c" "1" "" "lw" ".80" "" "") (command "circle" pt2 25) (add) (setvar "osmode" 1) (command "trim" "L" "" pt2 "") (command "layer" "m" "SM-Equipment Text" "c" "1" "" "lw" ".35" "" "" ) (command "insert" "VAV TAG" pt2 "1" "1" "0")<===has 3 atributes which need input (command pause pause pause) (add) (command "-group" "c" "*" "" grp "") (reset) (princ) )
(command "insert" "VAV TAG" pt2 "1" "1" "0" pause pause pause )<===has 3 atributes which need input
(command "insert" "VAV TAG" pt2 "1" "1" "0")(while (> (getvar "CMDACTIVE") 0) (command pause))
(command "insert" "VAV TAG" pt2 "1" "1" "0")(while (= (logand (getvar "CMDACTIVE") 8) 1) (command pause) )
(setvar "attdia" 1) (setvar "attreq" 1) (initdia) (command "-insert" "My Block" pt2 "1" "1" "0" pause )
(setvar "attdia" 1) (setvar "attreq" 1) (initdia) (command "-insert" "My Block" pt2 "1" "1" "0" )