;;By LUCAS
(defun C:KDX (/ BLOCKS NAME)
(setq BLOCKS (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
)
(vlax-for BLK BLOCKS
(if (not (wcmatch (setq NAME (strcase (vla-get-name BLK)))
"*'**,*|*,GTJH,DUANT,ACFGW,HHK"
)
)
(vla-put-name BLK NAME)
)
)
(princ)
)
(defun C:KDX (/ BLOCKS NAME)
(setq BLOCKS (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
)
(vlax-for BLK BLOCKS
(if (not (wcmatch (setq NAME (strcase (vla-get-name BLK)))
"*'**,*|*,GTJH,DUANT,ACFGW,HHK"
)
)
(vla-put-name BLK NAME)
)
)
(princ)
)