批量块在mult中替换

mdbdesign · 发表于 2022-7-6 08:33:50

根据标题：在某处存在类似的东西吗？
我们收到了数吨的图纸，上面印有“认证为建造”的标志和日期。pdf。
现在，客户要求此邮票（块）为红色（黑色）。我们可以手动完成，但时间是一个不利于我们的因素。块没有任何属性。有什么建议吗？非常感谢。

BIGAL · 发表于 2022-7-6 09:03:33

简单的方法就是使用脚本

打开dwg1立即执行与手动qsave关闭相同的步骤
打开dwg2立即执行与手动qsave关闭相同的步骤
把步骤写在记事本上

这里可能有一个批处理编辑器检查李mac。他可能有一个好的区块编辑器
这可能是你想要的


(vl-load-com) 
 (setq adoc (vla-get-activedocument (vlax-get-acad-object))) 
 (vla-startundomark adoc) 
 (vlax-for block (vla-get-blocks adoc) 
   (if   (not (wcmatch (strcase (vla-get-name block) t) "*_space*")) ; change *_space* to name of your block 
     (vlax-for   ent block 
  (vla-put-color ent 0) ; red is color 1 
  (vla-put-linetype ent "Bylayer") ; remove this line
  (vla-put-lineweight ent aclnwtbyblock) ; remove this line
  ) ;_ end of vlax-for 
     ) ;_ end of if 
   ) ;_ end of vlax-for 
 (vla-regen adoc acactiveviewport) 
 (vla-endundomark adoc) 
 (princ)