另存为班轮号

SunnyTurtle · 发表于 2022-7-6 09:37:22

你好
我正在创建许多完全相同的新图形，只是它们有不同的外部参照。
我想创建一个保存为501的图形。图纸至703。图纸
我有一个外部参照，叫做第x_页第1页。图纸至x_第202页。图纸
我已经创建了501。dwg中已有1个块和1个外部参照。
我希望所有DWG都具有此块和外部参照，但具有另一个不同的外部参照
我已经手工做了很多次这样的事情，我一直认为一定有一种方法可以实现自动化，我经常制作纸条来帮助我。但是saveas函数是一个需要改变的部分，我认为lisp可以做到这一点，但我甚至不确定从哪里开始。

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

如果脚本中的目录名或dwg名中有空格，则可以在脚本中执行保存操作（setq newdnwgo“C:/dir1/job/his/dwgnamex”）

保存！新DWGNO

SunnyTurtle · 发表于 2022-7-6 10:02:10

听起来是个好主意。即使我没有得到我需要的确切文件名，我也可以运行lupas rename来获得确切的文件名

这就是我得到的，它仍然需要一个循环和脚本中的所有命令。
此外，我仍然在寻找一个删除“Lisp程序”。

copy

(defun a ()
(setq ofl "L:/30011010/CAD/DWG/03_RD_Roads/300011013-DRD-050")
(setq cout 1)
(setq cout (+ cout 1))
(setq nfn (list ofl cout))
 need something here to remove "
 (command "saveas" nfn)
 ) ;then repeat

pBe · 发表于 2022-7-6 10:14:39

您的问题：

这种模式：
图纸501。带有外部参照的dwg第1页x_页。图纸？
图纸502。带有外部参照的dwg第2页x_页。图纸？

外部参照文件（第x\u页1.dwg至x\u页202.dwg）是否存在？

我建议改用Wblock
在使用指定的新名称对整个图形进行wblock之前，可以更改外部参照路径

在调用Wblock之前

copy

 (vla-put-path CurXref  [i]PathofNextXref[/i])

pathfnextxref=（strcat XrefPath“page x_page”（itoa cnt）“.dwg”）

然后

copy

 (vl-cmdf "-wblock" NewName "*")

（setq ofl“L:\\30011010\\CAD\\DWG\\03\U RD\U Roads\\300011013-DRD-050\”）

新名称=（strcat ofl“Drawing_50”（itoa cnt））

从理论上讲，这应该行得通

SunnyTurtle · 发表于 2022-7-6 10:18:47

为了回答您的问题，外部参照已经存在。
我不确定Xblock，因为我需要在标题栏中列出外部参照，而其他人会做这部分。

但是谢谢你的建议，我会在周末调查的，也许我会玩xbox哈哈

pBe · 发表于 2022-7-6 10:34:41

现在这让事情变得更容易了

带“*”的Wblock（非Xblock btw）将精确复制图形（包括视口、布局和外部参照）

修改标题栏以包括附着的外部参照将很容易。（尤其是在使用字段时）

无论如何。。。

我也是。。。

SunnyTurtle · 发表于 2022-7-6 10:44:36

您好pBe感谢所有的帮助，我现在已经做了这个手动，不再有机会玩文件，因为我有移动办公室。

有没有关于如何使用Wblock的教程，因为我想让你了解更多。

还可以将白块覆盖为外部参照。

[编程交流] 另存为班轮号

发表回复

精选推荐