激活视口

pmxcad · 发表于 2022-7-5 15:16:36

你好

我找到了一个Lee Mac lisp来激活视口。
但我想用另一种方式选择，这可能吗？


(defun c:vpon ( / d s )
   (vl-load-com)
   (if (setq s (ssget "_+.:S:E:L" '((0 . "VIEWPORT"))))
       (progn
           (setq d (vla-get-activedocument (vlax-get-acad-object)))
           (vla-put-mspace d :vlax-true)
           (vla-put-activeviewport d (vlax-ename->vla-object (ssname s 0)))
       )
   )
   (princ)
)

而不是
想要使用这个，

copy

Jef! · 发表于 2022-7-5 15:22:48

好的，我现在明白了。所以我从来没有“控制”哪个视口被激活，我只是更改了ActiveSpace属性，碰巧只有一个视口。非常感谢您抽出时间来阐明！

文件中的错误信息确实无助于。。。你看到你在链接页面上引用的那句话了吗？“除非视口处于活动状态，否则无法执行编辑或视图更改。要使视口处于活动状态，请使用文档对象的ActiveViewport属性”（！）。
如果我理解正确，这应该是“除非视口处于活动状态，否则无法执行任何编辑或视图更改。要使视口处于活动状态，请在文档对象上使用ActivePViewport属性”。。。正当

Roy_043 · 发表于 2022-7-5 15:29:51

否。该页面是关于视口对象的，该对象与“VPORT”实体相同。
视口对象=视口图元。
PViewport对象=视口图元。

Jef! · 发表于 2022-7-5 15:33:48

Roy_043 · 发表于 2022-7-5 15:39:03

I don't think that limiting the selection to the current tab is redundant. At least there is an error in BricsCAD if the (ssname s 0) object is on a different layout.

Jef! · 发表于 2022-7-5 15:46:01

You are quite right, I had it upside down. (cons 410 (getvar 'ctab)) is required, that is the use of vla-put-activepviewport which doesn't seems to yield any advantages over vla-put-activeviewport. (My bad. Is it friday yet?)
So the question would be, if the ssget only grab the viewports on the curent tab only, why would you say that vla-put-activepviewport (with 2 P's) should be used rather than vla-put-activeviewport?

Roy_043 · 发表于 2022-7-5 15:49:41

This seems to be a (rare) situation where BricsCAD Lisp is not compatible. The ActiveViewport property is always a "VPORT" in BricsCAD. And for the task at hand ("VIEWPORT") you have to use the ActivePViewport property.

EDIT:
I have sent Bricsys a Support Request regarding this compatibility issue. According to their answer BricCAD is in fact compatible with AutoCAD 2013-2018. So the original c:vpon function should fail with these AutoCAD versions as well.

The answer to Jef!'s question: Why use vla-put-activepviewport (with 2 P's)? Would then be: To make the code version independent.

tombu · 发表于 2022-7-5 15:51:58

With Jimmy Bergmark's https://jtbworld.com/autocad-vp-outline-lsp when in modelspace of a viewport it defaults to the active viewport using vla-get-activepviewport. In paperspace it prompts you to select a viewport.

Not sure where you're going with this routine, but his example may help.

Lee Mac · 发表于 2022-7-5 16:01:13

I can confirm that activepviewport is required - the code should be amended accordingly.

Jef! · 发表于 2022-7-5 16:05:35

While the viewport activate with both, I get the "; error: ActiveX Server returned an error: Le type ne correspond pas" error message only with vla-put-activeviewport. I had to play with the 2015 Active-x reference guide examples to get a better understanding. I'm not sure how/why the vport gets activated despite the error message when I try with vla-put-activeviewport. There are still things that are not clear in my mind...

vla-put-activeviewport obj propval
definition: Specifies the active viewport for the drawing.
obj: document
propval Type: Viewport
Viewport definition: A bounded area that displays some portion of a drawing's model space.

vla-put-activeviewport obj propval
definition: Specifies the active paper space viewport for the drawing.
obj: document
propval Type: PViewport
PViewport definition: Rectangular objects created in paper space that display views.

By reading the PViewport definition that makes me understand that the Viewport definition (A bounded area that displays some portion of a drawing's) is *not* a paperspace object. Ok. The confuzing part was/is that when I browse database entities for a given paperspace tab that contain a viewport, there are 2 (0 . "VIEWPORT") objects. The paperSpace itself (69 . 1) and the viewport (69 . 2). If I browse entities when in modelspace, I see the "VIEWPORT" objects from the last activated paperspace. If I split the model in multiple viewports and browse the "View Ports table", I see the (0 . "VPORT") objects. If I understood correctly, a PViewport active-x object is a (0 . "VIEWPORT"), and a Viewport active-x object is a (0 . "VPORT")?

[编程交流] 激活视口

发表回复

精选推荐