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

批量块在mult中替换

根据标题：在某处存在类似的东西吗？
我们收到了数吨的图纸，上面印有“认证为建造”的标志和日期。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)
 
脚本打开dwg1（加载“'codeabove.lsp”）qsave close

FELIXJM 发表于 2022-7-6 09:09:56

Mdbdesign，使用下面的Autolisp在目录中创建包含DWG的脚本。修改出现的两行”；
 
（DEFUN C:MODDWG（）；（SETQ DIRETORIO“D:\\PERFIS2000\\FERMAX\\GOLD”）；

fixo 发表于 2022-7-6 09:22:20

你好
抓取从上面的代码中很快收集到的这个lisp
http://dl.dropbox.com/u/18024145/BATCH_FELIX_And_Co.LSP

mdbdesign 发表于 2022-7-6 09:39:17

谢谢大家，我会在周末试试。忙于完成年终项目。
回来再次感谢你。
页: [1]
查看完整版本: 批量块在mult中替换