如何获取所有viewp的列表

chulse · 发表于 2022-7-6 11:56:33

请原谅这里的lisp新手，但是我如何调用给定布局中所有视口的列表？类似于（foreach lay（布局列表）？

它可以嵌套在（foreach lay（layoutlist））这样的函数中吗？

简单地说，我想通过向现有lisp添加一些代码来锁定所有视口，在每个布局中设置一些其他变量。

谢谢

ReMark · 发表于 2022-7-6 12:01:31

使用Jason在本讨论中提交的lisp例程（VPlock_unlock.lsp）锁定和解锁视口。

http://discussion.autodesk.com/forums/thread.jspa?threadID=468710

Lee Mac · 发表于 2022-7-6 12:06:03

嗯，有：

copy


(vports)

这将根据视口的标识号提供视口列表，但这将锁定所有视口：

copy


(defun c:lkall (/ i ss ent)
 (vl-load-com)
 (if (setq i -1 ss (ssget "_X" '((0 . "VIEWPORT"))))
   (while (setq ent (ssname ss (setq i (1+ i))))
     (vla-put-displaylocked (vlax-ename->vla-object ent) :vlax-true)))
 (princ))

李

chulse · 发表于 2022-7-6 12:08:17

这行得通吗？

copy

(foreach vp (vports)
(vla-put-displaylocked (vlax-ename->vla-object vp) :vlax-true)
)

在更大的背景下（其余部分确实有效，但速度较慢）：

copy

(defun c:psfix ( / lay ct vp)
(vl-load-com)
(setq ct (getvar "ctab"))
(foreach lay (layoutlist)
(command "_LAYOUT" "_Set" lay "PSLTSCALE" 1)
(command "_layout" "_Set" lay "_mspace" "ANNOALLVISIBLE" 1 "_pspace")
)
(foreach vp (vports)
(vla-put-displaylocked (vlax-ename->vla-object vp) :vlax-true)
)
(setvar "msltscale" 1)
(setvar "ltscale" 1)
(setvar "ctab" ct)
);defun

Lee Mac · 发表于 2022-7-6 12:09:44

不，因为（vports）返回一个视口标识号列表-我文章第二部分中的代码将锁定所有视口

Lee Mac · 发表于 2022-7-6 12:13:16

试试这个。。

快速修改代码：

copy


(defun c:psfix ( / ct lay i ss ent)
 (vl-load-com)
 
 (setq ct (getvar "ctab"))
 
 (foreach lay (layoutlist)
   (mapcar 'setvar '("CTAB" "PSLTSCALE") (list lay 1))
   (vl-cmdf "_.mspace")
   (setvar "ANNOALLVISIBLE" 1)
   (vl-cmdf "_.pspace"))
 (if (setq i -1 ss (ssget "_X" '((0 . "VIEWPORT"))))
   (while (setq ent (ssname ss (setq i (1+ i))))
     (vl-catch-all-apply 'vla-put-displaylocked
       (list (vlax-ename->vla-object ent) :vlax-true))))
 (mapcar 'setvar '("MSLTSCALE" "LTSCALE" "CTAB") (list 1 1 ct))
 (princ))

chulse · 发表于 2022-7-6 12:15:48

很好，谢谢。
我试着坚持我所熟悉的（一点点）。。。

我希望你的版本也会更快。

chulse · 发表于 2022-7-6 12:18:55

也许我很笨，但你能评论一下，帮助我理解你在做什么吗？我对所有这些方法都不熟悉？

谢谢李

chulse · 发表于 2022-7-6 12:22:39

很好的发现。谢谢Mark

Lee Mac · 发表于 2022-7-6 12:27:43

这不是问题，Cary-我更希望您理解我的代码在做什么，而不是仅仅接受它。

如果你还对什么事感到困惑，尽管问。

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:psfix [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] ct lay i ss ent[b][color=RED])[/color][/b] [i][color=#990099];; Initiate Defun and localise Vars[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099];; Load Visual LISP Console[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ct [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"ctab"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; Store Current Layout[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] lay [b][color=RED]([/color][/b][b][color=BLUE]layoutlist[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; For Every Layout in the Drawing[/color][/i]
   
   [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"CTAB"[/color][/b] [b][color=#ff00ff]"PSLTSCALE"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] lay [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [i][color=#990099];; Apply the function 'setvar' to each argument in each list.[/color][/i]
     [i][color=#990099];; Setvar needs two arguments, sys var and value, so mapcar needs[/color][/i]
     [i][color=#990099];; two lists.[/color][/i]
     [i][color=#990099];; This is equivalent to putting (setvar "CTAB" lay) (setvar "PSLTSCALE" 1)[/color][/i]
   
   [b][color=RED]([/color][/b][b][color=BLUE]vl-cmdf[/color][/b] [b][color=#ff00ff]"_.mspace"[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099];; Equivalent to (command "_.mspace")[/color][/i]
   
   [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"ANNOALLVISIBLE"[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; Set Sys Var ANNOALLVISIBLE to 1[/color][/i]
   
   [b][color=RED]([/color][/b][b][color=BLUE]vl-cmdf[/color][/b] [b][color=#ff00ff]"_.pspace"[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099];; Equivalent to (command "_.pspace")[/color][/i]
 [b][color=RED])[/color][/b]  [i][color=#990099]; end foreach[/color][/i]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=#009900]-1[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"VIEWPORT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [i][color=#990099];; If there are Viewports in the Database[/color][/i]
   
   [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] i[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [i][color=#990099];; While we can get an entity name in the Selection Set[/color][/i]
     
     [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b] [i][color=#990099];; Apply the following function and catch any errors[/color][/i]
       [i][color=#990099];; This is like using 'apply' except the program will not crash if[/color][/i]
       [i][color=#990099];; there is an error executing the function.[/color][/i]
       [b][color=DARKRED]'[/color][/b][b][color=BLUE]vla-put-displaylocked[/color][/b]  [i][color=#990099];; Property of the Viewport to determine if it is locked.[/color][/i]
       [i][color=#990099];; List of arguments that belong to 'vla-put-displaylocked'[/color][/i]
       [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] ent[b][color=RED])[/color][/b] [i][color=#990099];; convert the ename to a VLA-object[/color][/i]
         [b][color=Blue]:vlax-true[/color][color=RED])[/color][/b] [i][color=#990099];; Boolean True - hence the Viewport will be locked[/color][/i]
       
       [b][color=RED])[/color][/b] [i][color=#990099]; end vl-catch-all-apply[/color][/i]
     
     [b][color=RED])[/color][/b] [i][color=#990099]; end While[/color][/i]
   
   [b][color=RED])[/color][/b] [i][color=#990099]; end IF[/color][/i]
 [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"MSLTSCALE"[/color][/b] [b][color=#ff00ff]"LTSCALE"[/color][/b] [b][color=#ff00ff]"CTAB"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=#009900]1[/color][/b] [b][color=#009900]1[/color][/b] ct[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [i][color=#990099];; Same logic as above - read about 'mapcar' to learn more.[/color][/i]
 
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; Exit Quietly - i.e. suppress last return[/color][/i]
[b][color=RED])[/color][/b] [i][color=#990099];; End Defun[/color][/i]

李

PS>也许还可以在Visual LISP编辑器帮助文件中查找一些您不熟悉的函数——（命令行中的VLIDE）。

[编程交流] 如何获取所有viewp的列表

发表回复

精选推荐