求助，获取当前布局名称

jun470

2. (defun c:qq ()
   
3.    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
4.    (setq layouts (vla-get-layouts doc))
   
5.    (setq count (vla-get-count layouts))
   
6. (repeat count
   
7.      (princ "\n")
   
8.      (princ (vla-get-name (vla-item layouts (1- count))))
   
9.      (setq count (1- count))
   
10.    )
    
11.   (princ)
    
12. )

(defun c:qq ()<br />    (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />    (setq layouts (vla-get-layouts doc))<br />    (setq count (vla-get-count layouts))<br /> (repeat count<br />      (princ "\n")<br />      (princ (vla-get-name (vla-item layouts (1- count))))<br />      (setq count (1- count))<br />    )<br />   (princ)<br /> )

大佬们，小弟有个问题，搜索了没找到答案，蛮提问一下。

想要获取当前布局名称。有看到这个命令layout，尝试没成。
上面这个程序，是别的帖子的，可以列出所以布局名，没法知道当前的布局位置。

望大佬解答！

jun470

2. (defun c:q ()
   
3. (vl-load-com);初始化ActiveX环境
   
4. (setq app (vlax-get-acad-object);_应用程序,返回VLA对象
   
5.          doc (vla-get-activedocument app);_当前文档,返回VLA对象
   
6.          layout (vla-get-activelayout doc);_当前布局,返回VLA对象
   
7. )
   
8. (princ (vla-get-name  layout));返回当前布局名称
   
9.     (princ)
   
10. )

(defun c:q ()<br /> (vl-load-com);初始化ActiveX环境<br /> (setq app (vlax-get-acad-object);_应用程序,返回VLA对象<br />          doc (vla-get-activedocument app);_当前文档,返回VLA对象<br />          layout (vla-get-activelayout doc);_当前布局,返回VLA对象<br /> )<br /> (princ (vla-get-name  layout));返回当前布局名称<br />     (princ)<br /> )

可以了

qazxswk

(getvar "CTAB")  

bonny

(vla-get-Name (vla-get-ActiveLayout (vla-get-ActiveDocument(vlax-get-acad-object))))
or
(getvar "CTAB")

llsheng_73

1. (vlax-get-property(vlax-get-property(vlax-get-acad-object)'activedocument)'activelayout)

(vlax-get-property(vlax-get-property(vlax-get-acad-object)'activedocument)'activelayout)