将图层标准添加到多维

otil · 发表于 2022-7-6 12:24:05

对我把它贴在Lisp程序的地方

defun c:DoLayers（/MkLay LtLoad cm）
（vl load com）
（setq-cm（getvar-CMDECHO”））
（setvar“CMDECHO”0）
（vl cmdf“-purge”“\u LA”“*”“\u N”）
（setq*doc*（vla get ActiveDocument（vlax get acad object）））
（定义MkLay（Nme Col lTyp lWgt Plt/lay）
（setq lay（vla add（vla get layers*doc*）Nme））

（和Col（vla put Color lay Col））
（和lTyp（lTload lTyp）（vla put线型lay lTyp））
（和lWgt（vla put线宽铺设（eval（读取（strcat“acLnWt”lWgt）））
（和（非Plt）（vla put PLOTABLE lay:vlax false）））
（defun lTload（lTyp）
（或（tblsearch“LTYPE”lTyp）
（vla负载（vla get Linetypes*doc*）lTyp“acad.lin”））t）

（mapcar’MkLay）

“（CEN”“DIMS”“HAT”“HID”“LOGO”“OBJ”“PAPER”“PHAN”“TITLE”“TXT”）；名称[str]
'( 6 1 3 4 176 2 5 6 176 7 ) ; 颜色[int]
'（“CENTER”nil nil“HIDDEN”nil nil“PHANTOM”“PHANTOM”nil nil）；线型[str]
'（“018”“018”“018”“015”“009”“040”nil“018”nil nil）；线宽[str]0.18=“018”
'（T T T nil T T T））；可绘图（T或nil）

（setvar“CMDECHO”cm）
（普林斯）

Lee Mac · 发表于 2022-7-6 12:26:44

在我看来，你错过了第一个括号。。。

otil · 发表于 2022-7-6 12:32:06

嗨，李，我们非常感谢你的善意回应，
感谢上帝，图层现在可以工作了，但如果有一个选项可以在批处理图形中工作，那就太好了。无论如何非常感谢你，不要累了来帮我！！

Lee Mac · 发表于 2022-7-6 12:33:40

没问题

你可以用脚本来调用它-

类似于：

copy


open "C:/Users/Lee Mac/Documents/Drawing1.dwg" (c:DoLayers) save close
open ...

DVDM · 发表于 2022-7-6 12:37:32

Otil，研究一个称为多批次的程序：http://www.multi-batch.com/

使autocad文件的批处理变得简单。

otil · 发表于 2022-7-6 12:40:14

我试图这样做，但错误似乎是无效的文件名

Lee Mac · 发表于 2022-7-6 12:43:29

我更新了上面的帖子，我认为我使用双反斜杠是错误的。

otil · 发表于 2022-7-6 12:45:07

打开“C:/Users/Lee Mac/My Documents/SC-27-A3J-0-00211-0002.dwg”（C:DoLayers）保存关闭
打开

我再次尝试测试这个scr到一个图形（见上面的脚本）错误消息：
“找不到指定的图形文件。
请验证文件名是否存在“

那剧本有什么问题。
P

Lee Mac · 发表于 2022-7-6 12:49:02

好吧，看看你正在使用的文件路径，你告诉我：wink：

tarnoki · 发表于 2022-7-6 12:54:03

我通过创建一个包含所有所需图层的模板dwg文件来解决这个问题。然后，我打开/关闭我想要作为图层状态最终查看的图层，并将其导出到文件中。然后，我运行多批处理软件，调用ootb的“插入层状态”例程。效果很好。该例程插入了最初不在我的文件中的图层，并在每个图形中打开/关闭它们。

[编程交流] 将图层标准添加到多维

发表回复

精选推荐