方法

BIGAL · 发表于 2022-7-5 17:55:51

我相信李的另一个例子。

; I believe from Lee-mac.
(setq doc (vla-get-ActiveDocument
             (vlax-get-Acad-Object))
       spc (if
             (zerop
               (vla-get-activespace doc))
             (if (= (vla-get-mspace doc) :vlax-true)
               (vla-get-modelspace doc)
               (vla-get-paperspace doc))
             (vla-get-modelspace doc)))

Lee Mac · 发表于 2022-7-5 18:00:27

这是另一种（旧的）方式：ActiveSpace

Grrr · 发表于 2022-7-5 18:04:46

以下是我使用的内容：

copy

(setq 
acDoc (vla-get-ActiveDocument (vlax-get-acad-object))
AcSpc (vlax-get acDoc (if (= acModelSpace (vla-get-ActiveSpace acDoc)) 'ModelSpace (if (= (vla-get-mSpace acDoc) :vlax-true) 'ModelSpace 'PaperSpace)))
)

Lee Mac · 发表于 2022-7-5 18:08:14

这永远不会返回T:acmodelspace是activespace属性的枚举，您已经将activedocument vla对象分配给符号acDoc。

Grrr · 发表于 2022-7-5 18:15:56

Woops，更正了上述代码。谢谢

[编程交流] 方法

发表回复

精选推荐