布局复制到模型问题

south

;gaics发了一个布局复制到模型的程序，对于用模型出图的还是很方便；

;有没有大佬帮忙加个输入距离，从左到右排列的函数;如果能加上布局标签上的字同时写到图形左下方就更好

;-----------------------------------

1. (defun c:cs (/ ss layout)
   
2.   (setvar "cmdecho" 0)
   
3.   (command "undo" "be")
   
4.   (foreach layout (layoutlist)
   
5.     (setvar "ctab" layout)
   
6.     (setq ss (ssget "x"(list '(0 . "~viewport") (cons 410 layout))))
   
7.     (if ss (command "chspace" ss ""))
   
8.   )
   
9.   (command "model")
   
10.   (command "undo" "e")
    
11.   (princ)
    
12. )

(defun c:cs (/ ss layout)<br />   (setvar "cmdecho" 0)<br />   (command "undo" "be")<br />   (foreach layout (layoutlist)<br />     (setvar "ctab" layout)<br />     (setq ss (ssget "x"(list '(0 . "~viewport") (cons 410 layout))))<br />     (if ss (command "chspace" ss ""))<br />   )<br />   (command "model")<br />   (command "undo" "e")<br />   (princ)<br /> )

gaics

这个加不了距离吧？视口里的图形决定了在模型中的位置

e2002

都已经做好布局了，为什么还要 change space 这些布局中的对象到 model中去，然后再 model 中打印呢？
这不是自己折腾自己吗？直接publish批量出图不香？
而且很多情况下，把这些对象放到model中去的结果是混乱的，打印输出更不方便。

south

e2002 发表于 2023-9-15 10:43
都已经做好布局了，为什么还要 change space 这些布局中的对象到 model中去，然后再 model 中打印呢？
这 ...

没有做好布局，3d导出时就到了布局中；因为工作需要，全部放在模型中处理方便一些。打印也在模型中统一打印