获得实体的LAYOUT

Lispboy

1. (defun c:GetLayout ( / oApp oDoc obj lOwnerID
   
2.             ownerObj bIsLayout sLoName)
   
3.    (vl-load-com)
   
4.    (setq oApp    (vlax-get-acad-object)
   
5.            oDoc    (vla-get-activedocument oApp)
   
6.            obj    (vlax-ename->vla-object (car (entsel)))
   
7.            lOwnerID  (vla-get-ownerid obj)
   
8.            ownerObj  (vla-objectidtoobject oDoc lOwnerID)
   
9.            bIsLayout (vlax-get-property ownerObj "IsLayout")
   
10.    ) ;setq
    
11. 
    
12.    (if (= bIsLayout :vlax-true)
    
13.       (progn
    
14.          (setq sLoName (vla-get-name (vla-get-layout ownerObj)))
    
15.          (alert (strcat "Layout Name is " sLoName))
    
16.       ) ;progn
    
17.    ) ;if
    
18.    (princ)
    
19. )
    

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

xvjiex

感谢楼主分享获得实体的LAYOUT！