Object in which space in ActiveX method !

[rajat_bapi_mallick]

Hi !

How do I know that an object is laying on "model space" or "paper space" in ActiveX method ?

Thanks,

Rajat
INDIA

[CADmium]

try for example this code:

(defun GETOWNERSPACE (OBJ / OBJLAYOUT NAME OWNER)
  (if(and(setq OBJ(cond 
                    ((=(type OBJ) 'VLA-OBJECT) OBJ)                       
                    ((=(type OBJ) 'Ename)(vlax-ename->vla-object OBJ))
                  )
         )
         (not(vl-catch-all-error-p
               (setq OWNER(vl-catch-all-apply
                            'vlax-invoke-method
                             (list
                               (vla-get-ActiveDocument(vlax-get-acad-object))
                               'ObjectIdToObject
                               (vla-get-ownerid OBJ)
                             )
                          )
               )
             )
         )     
         (setq NAME(vla-get-name OWNER))
     )
     (if(not(vl-catch-all-error-p
               (setq OBJLAYOUT(vl-catch-all-apply
                                'vla-get-layout
                                 (list OWNER)
                              )
               )
            )
        )    
       (list NAME  "= LAYOUT" (vla-get-name OBJLAYOUT))  
       (list NAME  "BLOCK")
     )
  )
)

call : (GETOWNERSPACE (car(entsel)))

you can also modify the returns..

[fixo]

Hi !

How do I know that an object is laying on "model space" or "paper space" in ActiveX method ?

Thanks,

Rajat
INDIA

Hi Rajat

Or give this a try:

(defun demo-tab-test	(obj / adoc check obj)
  (vl-load-com)
  (or adoc
      (setq adoc (vla-get-activedocument
		   (vlax-get-acad-object)
		 )
      )
  )
  (and obj
       (not (vl-catch-all-error-p
	      (setq check
		     (vl-catch-all-apply
		       (function (lambda ()
				   (vla-get-taborder
				     (vla-get-layout
				       (vla-objectIdtoobject
					 adoc
					 (vla-get-ownerID obj)
				       )
				     )
				   )
				 )
		       )
		     )
	      )
	    )
       )
  )
  (if (zerop check)
    (alert "Model")
    (alert "Paper")
  )
)

; CaLL :
(demo-tab-test  (vlax-ename->vla-object
      (car (entsel
	"\n >> Select object \n"))))