布局选项卡选择

magic_man1 · 发表于 2022-7-6 10:23:55

看来我是。lsp是文盲，但嘿，我在努力学习。

希望你能帮助我。我在找一块。lsp代码，允许我一次一个地在布局选项卡之间切换。需要注意的是，我需要它像键盘笔划一样工作：Ctrl+Page Up或Ctrl+Page Down，它只需一次跳上/跳下一个布局，而不需要知道布局名称。

额外提示：该功能从第一个布局选项卡开始，一直到最后一个布局选项卡（例如，20个布局选项卡）

有人知道这是否可能吗？

我将为每个“当前”布局执行其他任务，因为它们处于活动状态，所以我想象在为每个布局注入代码后，我只需重复一段代码。再一次试着教自己怎么做。

提前感谢您的帮助。

BIGAL · 发表于 2022-7-6 10:44:52

布局选项卡是一个表，因此您可以获得它们的列表，我很确定您可以更改一个变量来设置当前选项卡值。

“CTAB”是的，有效。

来自帮助
查找符号表中的下一项
（tblnext表格名称[回放]）
当反复使用tblnext时，它通常每次返回指定表中的下一个条目。tblsearch函数可以设置要检索的下一个条目。如果rewind参数存在且不为零，则将重绕符号表并检索其中的第一个条目。
论据
表名标识符号表的字符串。有效的表名值为“LAYER”、“LTYPE”、“VIEW”、“STYLE”、“BLOCK”、“UCS”、“APPID”、“DIMSTYLE”和“VPORT”。参数不区分大小写。

在这里搜索布局表应该有一些代码可用

alanjt · 发表于 2022-7-6 10:48:08

单步执行（vla get layouts（vla get activedocument（vlax get acad object））并列出所有布局，根据vla get taborder排序。
从那里，您可以轻松地单步浏览布局列表，然后跳转到下一个或上一个。

只需使用（setvar'ctab）设置当前布局选项卡。

我觉得这很有趣。这里有一点灵感：

它不会在视频中显示，但如果你经过最后一个，它会跳到第一个，反之亦然。

Lee Mac · 发表于 2022-7-6 11:06:15

查看（布局列表）

alanjt · 发表于 2022-7-6 11:23:44

但它并没有按正确的顺序返回它们。

Lee Mac · 发表于 2022-7-6 11:25:01

是的，没错

copy


(defun Test1 nil
 (
   (lambda ( LayoutCollection )
     (vl-sort (cons "Model" (layoutlist))
      '(lambda ( layout1 layout2 )
         (< (vla-get-TabOrder (vla-item LayoutCollection layout1))
            (vla-get-TabOrder (vla-item LayoutCollection layout2))
         )
       )
     )
   )
   (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
 )
)
(defun Test2 nil
 (
   (lambda ( LayoutCollection / l )
     (mapcar 'vla-get-Name
       (vl-sort (vlax-for Layout LayoutCollection (setq l (cons Layout l)))
        '(lambda ( layout1 layout2 )
           (< (vla-get-TabOrder layout1)
              (vla-get-TabOrder layout2)
           )
         )
       )
     )
   )
   (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
 )
)

copy


Elapsed milliseconds / relative speed for 4096 iteration(s):
   (TEST2).....1966 / 1.16 <fastest>
   (TEST1).....2277 / 1.00 <slowest>

[编程交流] 布局选项卡选择

发表回复

精选推荐