社区 › Auto Lisp › 导出布局而不打开

danielk 发表于 2022-7-5 22:38:27

导出布局而不打开

你好
正在查找lisp以分别将每个布局导出到dwg图形，而不打开每个文件。我正在处理3D，布局包含VIEWBASE投影。
现在我使用命令EXPORTLAYOUT，但它需要太多的时间，因为我必须打开每个图形。。
 
谢谢

Snownut 发表于 2022-7-5 22:49:48

搜索没有结果？

danielk 发表于 2022-7-5 22:51:30

不幸的是没有

Snownut 发表于 2022-7-5 23:00:22

为了明确起见，您希望从选定数量的原始图形中的每个图纸空间布局创建单个图形。
图1有12个布局
2有8个布局
创建的新图形总数=20

Snownut 发表于 2022-7-5 23:04:03

我不确定您是否可以在不打开图形的情况下执行此操作，但您可以使用批处理文件来自动打开图形，然后启动lisp来执行exportlayout功能。

BIGAL 发表于 2022-7-5 23:12:46

或者编写一个脚本，当前布局可以通过（setvar“Ctab”“layoutname”）轻松设置
 

Open dwg1
(setvar "Ctab" "layoutname1") exportlayout .......
(setvar "Ctab" "layoutname2") exportlayout .......
(setvar "Ctab" "layoutname3") exportlayout .......
close N

版本2

open dwg1 (load "exportlayouts") close N
open dwg2 (load "exportlayouts") close N
open dwg3 (load "exportlayouts") close N

 

; not tested exportlayouts.lsp
(defun AH:layoutout ( / doc plotab lay layoutname)
(vl-load-com)
(setvar "filedia" 0)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
(setq plotab (vla-get-name lay) plotabs)) ; the plotab needs a directory to beadded for export
(setvar "ctab" plotab)
(setq layoutname (strcat (getvar "dwgprefix") (getvar "dwgname") "-" plotab))
(command "exportlayout" layoutname)
)
(princ)
)
(AH:layoutout)

danielk 发表于 2022-7-5 23:14:58

 
lisp不为我工作。。
我已经有了一个lisp的出口布局在开放的绘图，但我要找的东西，它在一个完整的文件夹为任何布局存在批量。
;;;   export all Layouts   
(prompt "\n Written by: Amir Hossein Sattarian ")
(prompt "(+98)9126049289 ahsattarian2@gmail.com ")
(prompt "\n Type : LXA ")
(defun c:lxa ()
(setq layouts (layoutlist))
(setq layouts (acad_strlsort layouts))
(setq ad (getvar "dwgprefix"))
(setq layfol (strcat ad "Layouts"))
(vl-mkdir layfol)
(setq f (strcat layfol "\\lxa.scr"))
(setq ff (open f "w"))
(write-line "model" ff)
(foreach layout layouts
   (write-line "layout set" ff)
   (write-line layout ff)
   (setq adname (strcat (chr 34) layfol "\\" layout (chr 34)))
   (write-line "exportlayout" ff)
   (write-line adname ff)
)
(write-line "model" ff)
(close ff)
(command "script" f)
)

ReMark 发表于 2022-7-5 23:20:55

你不可能总是得到你想要的，但有时你可以靠得足够近。看这个。。。。
 
http://cadtips.cadalyst.com/file-creation/export-multiple-layouts-dwg-files

Snownut 发表于 2022-7-5 23:28:59

因此，您已经完成了lisp部分，现在您需要创建一个批处理文件，以便在windows中打开（抱歉，我认为您无法避免）每个dwg文件并初始化lisp。（不难做到）这应该是全自动的，不过可能需要一些时间。（您需要安装Autocad或Bricscad。）这应该使所有人都能在无人值守的情况下运行，这样所需的时间就不那么成问题了。
 
问题是，一旦关闭图形，任何加载的lisp都将被卸载，并且不会传递到新打开的图形，并且不能在CAD外部运行lisp或脚本。

BIGAL 发表于 2022-7-5 23:37:00

如果你知道如何在几分钟内从零开始制作脚本文件，有一些脚本生成器，请查看Lee Mac。com他有一个它会要求目录，获得dwg名称等，并建立一个脚本。是的，去吃午饭吧，你会惊讶地发现，在没有用户交互的情况下，你可以如此快速地浏览DWG。
 
对此不确定，但在后台处理时启动第二个autocad会话。
 
将您的LXA放入自动加载的lsp ACADDOC。lsp等，那么您只需要（LXA）每次调用它，而不是加载。

查看完整版本: 导出布局而不打开