I am trying to push a new project name out to an entire directory branch of drawings with object dbx. I have the following procedure, but I get an error message: ActiveX Server returned the error: unknown name: SetVariable
(defun PushProjectName(doc pname / Success)
(setq
doc (if (null doc)
(vla-get-activedocument (vlax-get-acad-object))
doc
)
)
(vla-setvariable doc "projectname" pname)
(if (= pname (vla-getvariable doc "projectname"))
(setq success T)
)
success
)
Any suggestions are appreciated.
Mike Weaver