0 Members and 1 Guest are viewing this topic.
(progn (vlax-for block (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument ) 'Blocks ) ;; force all entities within blocks ;; matching "*" name spec to bylayer (if (wcmatch (vlax-get-property block 'Name) "*") (vlax-for entity block (vlax-put-property entity 'Color 256 ) ) ) ) (princ) )