用VLISP确定一个实体所在的布局（空间）

marting · 发表于 2017-8-16 12:09:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

任何实体都拥有所有者（owner）。如果它是块引用的子实体，则块引用是所有者（owner）。如果它不是子实体，则纸空间或模型空间将是所有者（owner）。从所有者的对象ID中，我们可以获取对象，其Layout属性，最后得到Layout的name属性，以标识布局。

下面的Visual LISP示例显示如何获取此属性。

[C++] 纯文本查看 复制代码

(defun c:GetLayout ( / oApp oDoc obj lOwnerID
            ownerObj bIsLayout sLoName)
   (vl-load-com)
   (setq oApp    (vlax-get-acad-object)
           oDoc    (vla-get-activedocument oApp)
           obj    (vlax-ename->vla-object (car (entsel)))
           lOwnerID  (vla-get-ownerid obj)
           ownerObj  (vla-objectidtoobject oDoc lOwnerID)
           bIsLayout (vlax-get-property ownerObj "IsLayout")
   ) ;setq
 
   (if (= bIsLayout :vlax-true)
      (progn
         (setq sLoName (vla-get-name (vla-get-layout ownerObj)))
         (alert (strcat "Layout Name is " sLoName))
      ) ;progn
   ) ;if
   (princ)
)

fan_zh · 发表于 2017-8-22 09:19:18

学习了感谢楼主

st788796 · 发表于 2017-8-22 10:17:38

dxf code 67

evayleung · 发表于 2017-8-22 10:50:28

学习一下，谢谢分享

sicky111 · 发表于 2017-8-23 00:03:44

谢谢分享。

zjy2999 · 发表于 2017-8-23 08:13:27

学习！！！！！！！！！！！！！！！！！！！！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 用VLISP确定一个实体所在的布局（空间）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。