社区 › AutoLISP/Visual LISP 编程技术 › 一个文件多个布局批量转换到模型

culiang10086 发表于 2021-8-28 23:57:18

一个文件多个布局批量转换到模型

一个文件中有多个布局，如何批量转换到模型，用ET工具chspace都是每个布局选一下，速度太慢，有没有批量的办法？布局中有图框，每个图框内只有一个视口，如果把能图框内标注等批量转入到模型空间更好

gaics 发表于 2021-8-29 10:45:13

本帖最后由 gaics 于 2021-8-29 10:56 编辑

(defun c:cs (/ ss LAYOUT)
(setvar "cmdecho" 0)
(command "undo" "be")
(foreach LAYOUT (layoutlist)
    (setvar "CTAB" LAYOUT)
    (setq ss (ssget "X"(list '(0 . "~VIEWPORT") (cons 410 LAYOUT))))
    (if ss (command "chspace" ss ""))
)
(command "model")
(command "undo" "e")
(princ)
)

适合一个布局只有一个视口的情况。

culiang10086 发表于 2021-8-29 18:07:57

gaics 发表于 2021-8-29 10:45
(defun c:cs (/ ss LAYOUT)
(setvar "cmdecho" 0)
(command "undo" "be")


非常感谢

夙清 发表于 2022-8-3 17:28:05

gaics 发表于 2021-8-29 10:45
(defun c:cs (/ ss LAYOUT)
(setvar "cmdecho" 0)
(command "undo" "be")


请问一下这些代码要怎么用？刚进论坛，有很多不懂。

查看完整版本: 一个文件多个布局批量转换到模型