如何锁定图形和
我对autocad lisp也是新手，请耐心等待。这是我的问题。我有一张机械图纸，电气部门正在对其进行外部参照。我的文件太大了，当他们打开文件时需要整整一分钟，他们总是抱怨（我想你已经知道你是否在机械方面）。因此，我们决定只锁定他们需要查看的设备，并将其保存在我的mechanical图纸所在的同一目录中，然后将其保存为Mech-Elec.dwg。每次我合上画的时候都很痛苦。
（定义c:ewblock（/）
（命令“clayer”“M-Floor”）
（命令“-layer”“freeze”“~*|*”“”）
（命令“-LAYER”“THAW”“M-Floor”“”）
（命令“-LAYER”“THAW”“M-Ceiling”“”）
（命令“-LAYER”“THAW”“M-Wall”“”）
（命令“-LAYER”“THAW”“M-ROOF”“”）
（命令“-LAYER”“THAW”“M-Tags”“”）
（命令“-LAYER”“THAW”“M-constator”“”）
（命令“-LAYER”“THAW”“M-Panel”“”）
（命令“-LAYER”“THAW”“M-Ex-Floor”“”）
（命令“-LAYER”“THAW”“M-Ex-Ceiling”“”）
（命令“-LAYER”“THAW”“M-EX-Wall”“”）
（命令“-LAYER”“THAW”“M-EX-ROOF”“”）
（命令“-LAYER”“THAW”“M-EX-constator”“”）
（命令“-LAYER”“THAW”“M-EX-Panel”“”）
（命令“-WBLOCK”）
--这就是我被困的地方。我想自动将其保存为Mech-Elec.dwg，并将其保存在与工作图形相同的文件夹中，并使用0,0作为基点。
请需要帮助。。。。 只需观察命令行并将答案放入程序中，即可检索当前目录等，并将dwg名称添加为lisp变量
还可以在filedia=0时运行它
我认为如果您回答没有路径的dwg名称，它会将其保存到当前目录中 wblock中的“-”已经抑制了对话框。
输出文件始终保存在我打开的最后一个文件夹中，而不是工作图形目录中。如果打开工作图形，请在“卫浴”文件夹中打开卫浴图形。然后运行代码，它会将其保存在管道目录下。我的文件在文件服务器上到处都是。 您可以通过以下方式获取文件名：
（SETQ DWG（GETVAR“DWGNAME”））
（SETQ PRE（GETVAR“DWGPREFIX”））
你可以通过SSGET电话得到你想要的
（setq-stuff（ssget））
然后你需要WBLOCK
希望这有帮助 谢谢格兰特。现在知道了。
页:
[1]