(defun C:SCHCB1M
( / ATD ATR COSM LTS SC
)
;;;;; Collect OSMODE settings
;;;;; Set OSMODE to INTERSECTION & NEAREST only
;;;;; Collect current LTscale value and create Values for SC
;;;;; Insert BLOCK ;;;
(command "insert" "Sch Breaker" PAUSE SC SC PAUSE
"") (command "change" "l" "" "p" "la" "SCHEM" "")
;;;;; Return OSMODE to original values
;;;;; change visibility state
(defun CHGDYNPROP
(Ename propname newval
/ lo obj v vval sal tot i
) ;; Changes a given variable in your block
;; Passed: Ename, Property Name, New value for Property
;;
Ename
v (vla-getdynamicblockproperties obj)
sal
(vlax
-safearray
->list vval
) i 0)
)
)
)
)
(CHGDYNPROP
(entlast) "Visibility1" "Circuit Breaker Single Phase") ;Circuit Breaker Single Phase is the visibility state name )