天正建筑画好的门窗,建筑专业转来的图上总是有编号,下面小程序隐去编号: (setq nameedit (ssget "_x" (list bnameob)));bnameob为图块名称子码 (setq nameobjs (vla-get-ActiveSelectionSet (vla-get-activedocument (vlax-get-acad-object)) ) ) (vlax-for x nameobjs (setq blkatt (vla-GetAttributes x)) (setq var1 (vlax-variant-value blkatt)) (setq var2 (vlax-safearray->list var1)) (foreach y var2 (vla-put-visible y :vlax-false))) 对于有的门窗,会出现“错误: ActiveX 服务器返回错误: 无效索引”,经检查,是(setq var2..时出错,但如果在ssget时不用"_x",用手选就不会出错,请问有什么办法达到全选? |