做座把图内所有的块名都改为大写

把图内所有的块名都改为大写

;;By LUCAS

(defun C:KDX (/ BLOCKS NAME)

(setqBLO验收专家组认为该项目完成了规定的主要任务和指标CKS (vla-get-blocks

(vla-get-activedocument (vlax-get-acad-配置高压胶管object))

汽车行业的变色涂料利用收入将到达5.95亿美元)

)

(vlax-for BLKBLOCKS

(if(not (wcmatch常见的外墙保温材料检测装备有：保温材料电子万能实验机、保温材料切割装置、外墙保温材料现场拉拔测试仪等 (setq NAME (strcase (vla-get-name BLK)))

"*'**,*|*,GTJH,DUANT,ACFGW,HHK"

)

)

(vla-put-name BLK NAME)

)

)

(princ)

)