[寻找]：提取标题栏信息

麻花钻

谁有提取dwg图纸标题栏信息的程序或控件啊？

lsjjm

提取标题栏信息请参考:

(defun test (ent / lst)
  (vl-load-com)
  (if (safearray-value
        (setq lst (vlax-variant-value
                    (vla-getattributes (vlax-ename->vla-object ent))
                  )
        )
      )
    (mapcar '(lambda (x) (list (vla-get-tagstring x)
                               (vla-get-textstring x)
                               (vlax-vla-object->ename x)
                         )
             )
             (vlax-safearray->list lst)
    )
  )
)

另: 你说的 "控件"  在这是什么意思?