另存为班轮号
你好我正在创建许多完全相同的新图形，只是它们有不同的外部参照。
我想创建一个保存为501的图形。图纸至703。图纸
我有一个外部参照，叫做第x_页第1页。图纸至x_第202页。图纸
我已经创建了501。dwg中已有1个块和1个外部参照。
我希望所有DWG都具有此块和外部参照，但具有另一个不同的外部参照
我已经手工做了很多次这样的事情，我一直认为一定有一种方法可以实现自动化，我经常制作纸条来帮助我。但是saveas函数是一个需要改变的部分，我认为lisp可以做到这一点，但我甚至不确定从哪里开始。 如果脚本中的目录名或dwg名中有空格，则可以在脚本中执行保存操作（setq newdnwgo“C:/dir1/job/his/dwgnamex”）
保存！新DWGNO 听起来是个好主意。即使我没有得到我需要的确切文件名，我也可以运行lupas rename来获得确切的文件名
这就是我得到的，它仍然需要一个循环和脚本中的所有命令。
此外，我仍然在寻找一个删除“Lisp程序”。
(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
您的问题：
这种模式：
图纸501。带有外部参照的dwg第1页x_页。图纸？
图纸502。带有外部参照的dwg第2页x_页。图纸？
外部参照文件（第x\u页1.dwg至x\u页202.dwg）是否存在？
我建议改用Wblock
在使用指定的新名称对整个图形进行wblock之前，可以更改外部参照路径
在调用Wblock之前
(vla-put-path CurXrefPathofNextXref)
pathfnextxref=（strcat XrefPath“page x_page”（itoa cnt）“.dwg”）
然后
(vl-cmdf "-wblock" NewName "*")
（setq ofl“L:\\30011010\\CAD\\DWG\\03\U RD\U Roads\\300011013-DRD-050\”）
新名称=（strcat ofl“Drawing_50”（itoa cnt））
从理论上讲，这应该行得通 为了回答您的问题，外部参照已经存在。
我不确定Xblock，因为我需要在标题栏中列出外部参照，而其他人会做这部分。
但是谢谢你的建议，我会在周末调查的，也许我会玩xbox哈哈
现在这让事情变得更容易了
带“*”的Wblock（非Xblock btw）将精确复制图形（包括视口、布局和外部参照）
修改标题栏以包括附着的外部参照将很容易。（尤其是在使用字段时）
无论如何。。。
我也是。。。 您好pBe感谢所有的帮助，我现在已经做了这个手动，不再有机会玩文件，因为我有移动办公室。
有没有关于如何使用Wblock的教程，因为我想让你了解更多。
还可以将白块覆盖为外部参照。
页:
[1]