(defun UPDFN1 ()
(setq newtext1 custvalue1)
(setq ss (ssget "_X" '((0 . "INSERT"))))
(setq i -1)
(if ss
(while (setq ent (ssname ss (setq i (1+ i))))
(if (and (setq obj (vlax-ename->vla-object ent))
(= (vla-get-objectname obj) "AcDbBlockReference")
(= (vla-get-hasattributes obj) :vlax-true)
)
(progn
(setq attributes (vlax-invoke obj 'getattributes))
(foreach att attributes
(if (or (= "CUSTOMERNAME" (vla-get-tagstring att))
(= "TOPCUSTNAME" (vla-get-tagstring att))
)
(progn
(vla-put-textstring att CustValue1)
(vla-update att)
)
)
)
)
)
)
)
__________________
See location...
|