将布局名称作为前缀添加到

tive29 · 发表于 2022-7-5 16:43:04

是否有LISP将布局名称（第一个）添加到图形文件名（如前缀）？

图纸文件名为1楼平面图
第一个布局名称为A部分

因此，运行lisp图形文件名将成为A-1层平面图的一部分（用“-”分隔）

要画几百幅画。

Grrr · 发表于 2022-7-5 16:49:02

一种方法可能是：


(defun C:test ( / )
 (vla-SaveAs 
   (vla-get-ActiveDocument (vlax-get-acad-object)) 
   (strcat (car (layoutlist)) "-" (getvar 'dwgname))
 )
 (princ)
)(vl-load-com) (princ)

tive29 · 发表于 2022-7-5 16:53:34

你好，Grrr先生。首先我想说声谢谢。
它在文档文件夹中制作以布局名称作为前缀的文件副本。
这可以在不打开每个单独文件的情况下完成吗？因为我有将近几百个文件。谢谢

BIGAL · 发表于 2022-7-5 16:57:02

您需要以脚本的形式执行此操作，该脚本可以打开每个dwg并找到布局名称。

copy

; save the lisp as say layoutdwg.lsp
open dwg1 (load "layoutdwg") close
open dwg2 (load "layoutdwg") close

copy

; save the lisp as say layoutdwg.lsp
(vl-load-com)
(vla-SaveAs 
   (vla-get-ActiveDocument (vlax-get-acad-object)) 
   (strcat (car (layoutlist)) "-" (getvar 'dwgname))
)
(princ)

最后，有多种制作脚本文件的方法，请访问www.lee-mac。他有一个。