0 Members and 1 Guest are viewing this topic.
(defun thermo (/ rotpt en ed) (command "explode" "l" "") (setq tstat (entlast)) (setq rotpt (cdr (assoc 10 (entget tstat)))) (command "rotate" "l" "" rotpt "0") (setq en (entlast)) (while (setq en (entnext en)) (setq ed (entget en)) (if (equal (cdr (assoc 0 (entget en))) "ATTRIB") (progn (setq ed ; rotate attribute to 0 (subst (cons 50 0) (assoc 50 ed) ed ) ) (entmod ed) (entupd en) ) ) ;(setvar "cmdecho" 0) (setvar "Expert" 3) (command "linetype" "Load" "SML-DASH" "acad.lin" "") (setvar "Expert" 0) (command "layer" "m" "M-CONT-WIRE" "l" "SML-DASH" "M-CONT-WIRE" "c" 7 "M-CONT-WIRE" "LW" 0.35 "M-CONT-WIRE" "" ) (setvar "autosnap" 13) (setvar "osmode" 191) ;(setvar "cmdecho" 1) (command "spline") ;pause pause ) )
(command "SPLINE") (WHILE (WCMATCH (GETVAR "CMDNAMES") "*SPLINE*") (COMMAND pause))
; Thermostat brought into smartinsert routine .......;=======================================================================================(defun tstatrot (/ rotpt en ed); *error* save_sys_vars restore_sys_vars (command "explode" "l" "") (setq tstat (entlast)) (setq rotpt (cdr (assoc 10 (entget tstat)))) (command "rotate" "l" "" rotpt "0") (setq en (entlast)) (while (setq en (entnext en)) (setq ed (entget en)) (if (equal (cdr (assoc 0 (entget en))) "ATTRIB") (progn (setq ed ; rotate attribute to 0 (subst (cons 50 0) (assoc 50 ed) ed ) ) (entmod ed) (entupd en) ) ) ;(command "cmdecho" 0) ;(lrs "M-CONT-WIRE") ;(command "cmdecho" 1) (setvar "cmdecho" 0) (setvar "Expert" 3) (command "linetype" "Load" "SML-DASH" "kta.lin" "") (setvar "Expert" 0) (command "layer" "m" "M-CONT-WIRE" "l" "SML-DASH" "M-CONT-WIRE" "c" 7 "M-CONT-WIRE" "LW" 0.35 "M-CONT-WIRE" "" ) (setvar "autosnap" 13) (setvar "osmode" 191) (setvar "cmdecho" 1) ;(command "spline") ;(IF (WCMATCH (GETVAR "CMDNAMES") "*SPLINE*") (COMMAND pause) ) (command "spline") (WHILE (WCMATCH (GETVAR "CMDNAMES") "*SPLINE*") (COMMAND pause) ) (*error* "") ; restore variables (command "osmode" usersnaps); -----------------------Return User Osmode Settings (command "clayer" userlayer); -----------------------Return User Layer Settings (princ "\n Thermostat Osnaps & Layer Returned. (tstatrot)..") (princ) ) (princ "\nSmart Insert Loaded!")
(defun tstatrot (/ rotpt en ed); *error* save_sys_vars restore_sys_vars (command "explode" "l" ) (setq tstat (entlast)) (setq rotpt (cdr (assoc 10 (entget tstat)))) (command "rotate" "l" "" rotpt "0") (setq en (entlast)) (while (setq en (entnext en)) (setq ed (entget en)) (if (equal (cdr (assoc 0 (entget en))) "ATTRIB") (progn (setq ed ; rotate attribute to 0 (subst (cons 50 0) (assoc 50 ed) ed ) ) (entmod ed) (entupd en) ) ) (command "cmdecho" 0) (lrs "M-CONT-WIRE") (command "cmdecho" 1) (setvar "autosnap" 13) (setvar "osmode" 191) ) (setvar "osmode" 191) (setvar "autosnap" 13) (command "spline") (WHILE (WCMATCH (GETVAR "CMDNAMES") "*SPLINE*") (COMMAND pause) ) (*error* "") ; restore variables (command "osmode" usersnaps); -----------------------Return User Osmode Settings (command "clayer" userlayer); -----------------------Return User Layer Settings (princ "\n Thermostat Osnaps & Layer Returned. (tstatrot)..") (princ) )