Check for a layerstate name

[Allen Johnson]

How can you check to see if a layerstate name exists?

 

[Jeff Mishler]

This is one way:

(defun chk_4_laystate (name / DICTS FOUND LAYS STATES)
(setq lays (vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object))))
(if (vla-get-HasExtensionDictionary lays)
(progn
(setq dicts (vla-getextensiondictionary lays))
(vlax-for x dicts
(if (= (vla-get-name x) "ACAD_LAYERSTATES")
(setq states x)
)
)
(if states
(progn
(vlax-for x states
(if (= (vla-get-name x) name)
(setq found t)
)
)
)
)
)
);if
(if found
(princ (strcat "Layerstate " name " exists in drawing.")) (princ (strcat "Layerstate " name " not found.")) ) (princ)
)

HTH,
Jeff

 

[Allen Johnson]

thanks.

 

[Jason Piercey]

Here is another way (limited testing)

; Jason Piercey . January 12th, 2004
; function to determine if a layerstate exists
; Arguments:
; [document] - vla-object, document object
; [layerstate] - string, layerstate name
; return: xrecord object if successful
; example:
; (layerstate-p (vla-get-activedocument (vlax-get-acad-object)) "test") (defun layerstate-p (document layerstate / res) (if (vl-catch-all-error-p (setq res (vl-catch-all-apply '(lambda (vla-item (vla-item (vla-getextensiondictionary (vla-get-layers document)) "Acad_Layerstates" ) layerstate ) ) ) ) ) (vl-catch-all-error-message res) res )
)