点选实体，获取所在的LAYOUT

marting · 发表于 2017-12-24 23:36:31

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

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

×

[JavaScript] 纯文本查看 复制代码

(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)
)

sicky111 · 发表于 2017-12-25 00:05:42

沙发。支持楼主。

VBAVBAA · 发表于 2017-12-25 00:13:44

二名来也，支持

liunian0524 · 发表于 2017-12-25 08:09:35

感谢楼主分享

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

[每日一码] 点选实体，获取所在的LAYOUT

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

评分