(defun c:selvisst
(/ selvis ss
)
(defun selvis
(/ ent i props ss your_visibility
) ; <--- Returns the selection set with the desired visibility states
(defun getvisstates
(ss
/ unique LM:getvisibilitystatesnames i blk lst
)
)
;; Get Visibility States Names - Lee Mac
;; Returns the names of the Visibility States of a Dynamic Block (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; Returns: [str] Names of Visibility States, else nil
(defun LM:getvisibilitystatesnames
(blk
/ vis
) (vla-get-effectivename blk)
)
)
;(= :vlax-true (vla-get-isdynamicblock blk)) to account for NUS dynamic blocks
)
)
)
"ACAD_ENHANCEDBLOCK"
)
)
)
)
;(cdr (assoc 301 (entget vis)))
)
)
(if (= (vla
-get
-isdynamicblock
(vlax
-ename
->vla-object blk
)) :vlax-true) )
)
)
)
(defun AT:ListSelect
(title label height width multi lst
/ fn fo d item f
) ;; List Select Dialog (Temp DCL list box selection, based on provided list)
;; title - list box title
;; label - label for list box
;; height - height of box
;; width - width of box
;; multi - selection method ["true": multiple, "false": single]
;; lst - list of strings to place in list box
;; Alan J. Thompson, 09.23.08 / 05.17.10 (rewrite)
(strcat ": list_box { label = \"" label
"\";" "key = \"lst\";") (strcat "multiple_select = " multi
"; } spacer; ok_cancel; }") )
)
;;;(setq item (set_tile "lst" "0"))
)
)
your_visibility
(AT:ListSelect "CHOOSE VISIBILITY STATES YOU WANT TO HIGHLIGHT" "VISIBILITY STATES" 40 30 "true" (getvisstates ss))
)
)
(eq (vla
-get
-IsDynamicBlock
)
)
:vlax-false
)
"VISIBILITY*"
)
)
'GetDynamicBlockProperties
)
)
)
your_visibility
)
)
)
)
props
)
)
)
)
)
ss
)
)
)
)
)