get block attribute textstring without opening drawing

cyxzime

hi. how do you get the textstring of an attribute in  drawing without opening. i have this code so far....



(defun objectdbxdoc()
  (vlax-get-or-create-object
    (strcat "ObjectDBX.AxDbDocument."
            (substr (getvar "acadver") 1 2)
    )
  )
)

(defun c:cl()

  (setq pat (getfiled "Select filename to get path" "P:\\" "" 4))
  (setq pat (vl-filename-directory pat))
  (setq fils (vl-directory-files pat "*.dwg"))
  (foreach fil fils
    (setq odoc (objectdbxdoc))
    (vla-open odoc (strcat pat "\\" fil) :vlax-true)
    (if (setq blks (vla-get-blocks odoc))
      (progn
        (vlax-for i blks
          (if (= (vlax-get-property i 'name) "REVNO")
            (progn

;|
              (setq atts (vlax-invoke-method i 'getattributes)) ;THIS CODE DOESNT WORK SINCE THERE IS NO GETATTRIBUTES METHOD OF THE BLOCK.
              (setq atts (vlax-safearray->list (vlax-variant-value atts)))
              (setq val (cdr (assoc 1 (nth atts 0))))
              (alert val)
|;

            )
          )
        )
      ) ;progn
    ) ;if setq lays
    (vlax-release-object odoc)
  ) ;foreach fil
  (princ)
)

Thanks for all the help!

cyxzime

顶一下，急需帮助！

mandala

原来楼主会说中文啊。