Topic: Update fields in all layouts

[scottcd]

I have the following code:

Code: [Select]

(defun c:nuf ()
  (vl-load-com)
  (vlax-for layout (vla-get-Layouts
     (vla-get-activedocument (vlax-get-acad-object))
   )
    (if (= (vla-get-ModelType layout) :vlax-false)
(command "updatefield" all "")
      )
    )
  )
  (princ)
)
but not working - how can I get the fields on each layout to be updated ?

Thanks in advance

Scott

[Tharwat]

This code worked for me .... 

Code: [Select]

(defun c:TesT (/ spc ss)
  (setq spc (getvar 'ctab))
  (foreach x (layoutlist)
    (setvar 'ctab x)
    (if (setq ss (ssget "_x" (list '(0 . "MTEXT")(cons 410 x))))
      (command "_.updatefield" ss "")
    )
  )
  (setvar 'ctab spc)
  (princ)
)


[scottcd]

 

Thank you thats great