My First Thought is to get the allowed values of all dynamic properties on a block
Syntax
Code:
(DynamicPropertyAllowedValues (car (entsel "\nSelect Block: ")) "*")
Code:
(defun DynamicPropertyAllowedValues (objBlock strWCName / lstAllowedValues lstReturn strProperty strWCName)
(if (= (type objBlock) 'ENAME)
(setq objBlock (vlax-ename->vla-object objBlock))
)
(foreach objProperty (vlax-invoke objBlock "getdynamicblockproperties")
(if (wcmatch (setq strProperty (vla-get-propertyname objProperty)) strWCName)
(if (setq lstAllowedValues (vlax-get objProperty "AllowedValues"))
(setq lstReturn (cons (cons strProperty lstAllowedValues) lstReturn))
)
)
)
lstReturn
)