Lisp或脚本-过程打开

ILoveMadoka · 发表于 2022-7-6 09:01:16

多个图形上的Lisp或脚本程序？

不管怎样，我都不知道从哪里开始。
（不知道是在这里还是在脚本论坛上发布。）

--

读者文摘版：如何在目录中的所有图形上运行lisp例程？

--

我有几百张图纸，我想打开每张图纸
转到“模型”选项卡并进行最大化，然后转到每个选项卡并执行相同的操作
运行一个lisp例程，更新模型空间和每个选项卡的特定打印机和打印配置（打印范围）。

我不知道如何对一个满是图纸的文件夹执行此操作，也不知道lisp是否
或者脚本更好，怎么做？
我看了ScriptPro，但它没有安装在XP64上。

我也在看李的编剧，但我不知道如何从一个标签到另一个标签的脚本。可能有一个标签，可能有30个，它们可以被称为任何东西。。

一个比另一个好吗？
有没有人写了一些他们愿意分享的东西？
如何在多个图形上运行（脚本/lisp）？

或。。

我可以强制发布命令打印范围吗？

请告知。。。

谢谢

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

编写LISP程序以在图形上执行所有必要的操作。

使用脚本打开/（加载和）运行LISP/保存/关闭目录中的每个图形。

对于每个选项卡上的操作，类似于：

copy


(foreach layout (layoutlist)
 (setvar 'CTAB layout)
...
)

ILoveMadoka · 发表于 2022-7-6 09:21:25

如何用脚本打开图形？

那么这是否与您的脚本程序结合使用？

>>使用脚本打开/（加载和）运行LISP/保存/关闭目录中的每个图形。

Lee Mac · 发表于 2022-7-6 09:25:02

也许这会有所帮助：

http://lee-mac.com/scriptwriting.html

欢迎您使用我的ScriptWriter程序或ScriptPro（某处有64位版本），甚至手动编写脚本。

ILoveMadoka · 发表于 2022-7-6 09:37:23

哦。。。。

我必须创造这个。。。。

_.打开“C:\My Folder\Drawing1.dwg”
_.打开“C:\My Folder\Drawing2.dwg”
_.打开“C:\My Folder\Drawing3.dwg”
那将是一个很长的剧本！

谢谢

Lee Mac · 发表于 2022-7-6 09:42:36

这就是脚本编写程序的用武之地

alanjt · 发表于 2022-7-6 09:50:47

http://labs.blogs.com/its_alive_in_the_lab/2010/10/adn-plugin-of-the-month-scriptpro-for-autocad-now-available.html
http://cadig.com/products/autocad-script-pro.php
http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=4091678&linkID=9240618

BlackBox · 发表于 2022-7-6 09:55:52

为这个建议干杯，伙计们！

刚刚将ScriptPro添加到我的工具箱中。

BIGAL · 发表于 2022-7-6 10:05:14

我使用老式的start cmd DIR*。dwg>目录列表。scr/b，然后word来制作脚本当你知道如何或使用excell复制和粘贴列来制作脚本时，它会非常快

_.打开“C:\My Folder\Drawing1.dwg”（加载“lisp1”）（加载“lisp2”）关闭Y等

这里还有缩放所有选项卡

copy

; goes through all layout tabs and zooms all

copy


[font=monospace]; By Alan H june 2011[/font]
[font=monospace](vl-load-com)[/font]
[font=monospace](command "_.pspace")[/font]
[font=monospace](setq curtab (getvar "Ctab"))[/font]
[font=monospace](setq this_dwg (vlax-get-acad-object))[/font]
[font=monospace](foreach d (layoutlist)[/font]
[font=monospace]     (setvar "CTAB" d)[/font]
[font=monospace]     (vla-ZoomExtents this_dwg)[/font]
[font=monospace])[/font]
[font=monospace](setvar "ctab" curtab)[/font]
[font=monospace](princ)[/font]

[编程交流] Lisp或脚本-过程打开

发表回复

精选推荐