Topic: digging in the paper space

[DEVITG]

By this

File_name is "F:\\lisp\\xxxx\\room 004.dwg"
 

   

Code: [Select]

   (setq odbx (vlax-get-or-create-object
(strcat "ObjectDBX.AxDbDocument."
(substr (getvar "ACADVER") 1 2))))

   
    (vla-open odbx file_name)

(setq model (vla-get-modelspace odbx))

    (setq each-at (vla-item model 2))

I can get  an object , and by

         

Code: [Select]

(vlax-for each-at  model 
I can loop to each object to work on it , as to check for text and do a search
 

How can I do the same with objects at each Paper space layouts ??

[CAB]

Try this:

Code: [Select]

(vlax-map-collection
  (vla-get-PaperSpace
    (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  'vlax-dump-object
)

[gile]

Salud,

You can iterate through the layouts collection.
Each layout is almost  constituted by two objects : a plot configuration (layout object) and a block which countains the graphical objects (viewports...)

The following example print all graphical objects for each layout of the document

Code: [Select]

(vlax-for layout (vla-get-Layouts odbx)
  (and (/= (setq name (vla-get-Name layout)) "Model")
       (princ (vla-get-Name layout))
       (vlax-for obj (vla-get-Block layout)
(print (vla-get-ObjectName obj))
       )
       (terpri)
  )
)

[DEVITG]

Gile , I got it , thanks for it .