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

culiang10086

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

gaics

(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

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

非常感谢

夙清

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

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