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

以下是我使用的内容：
(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，更正了上述代码。谢谢
页: 1 [2]
查看完整版本: 方法