取得当前CAD文件名的lisp程序

;取得当前CAD文件名

(defun c:g-dwgname ()

  (vl-load-com)

  (setq document (vla-get-activedocument (vlax-get-acad-object)))

  (setq dwgFullName (vlax-get-property document "FullName"))

  ;(setq dwgFullName (vla-get-fullname document))两条语名句作用一样

  (setq dwgPath (vlax-get-property document "Path"))

  (setq dwgFileName (vlax-get-property document "Name"))

  (print dwgFullName)

  (print dwgPath)

  (print dwgFileName)

  (princ)  

)