Ctrl+Page Up

neekcotrack · 发表于 2022-7-6 17:12:40

Is there a way to have lisp do a Control Page Up?

I what to do a lisp that prints all my tabs sept for the model tab.

The only way I know how to move from tab to tab is control page up/down.

Thanks for everything.

Lee Mac · 发表于 2022-7-6 17:35:44

I'm not sure if this would work but:

If there is maybe an Active X method of retrieving a list of all the layout tabs in the drawing, then running a print LISP using the "foreach" function on the list.?

ASMI · 发表于 2022-7-6 18:10:27

There is special function:

copy

Command: (layoutlist)("Layout1" "Layout2")

Lee Mac · 发表于 2022-7-6 18:14:39

Yay, thanks ASMI,

Then do something like this maybe:

copy

(defun c:layplot ()(setvar "cmdecho" 0)(setq laylist (layoutlist))(foreach lay laylist(command "-plot""Y"lay[b][color=Red]etc etc etc[/color][/b]) ; end plot) ; end foreach(setvar "cmdecho" 1)(princ)) ; end function

[编程交流] Ctrl+Page Up

发表回复

精选推荐