[讨论]：获得打开的DWG文件的路径和名字

newer

我知道可以用系统变量dwgname,dwgprefix得到当前打开的文件的路径和名字，我在学VL，用VL有不用系统变量得到这些的方法吗？
请晓东、老菜、LL-J、QLIN等高手帮助

YueFeng

用LISP可以不用系统变量来得到，还可以得到吗？真是没听过。真想见识下。

Qlin

试试这个小函数，不知是否符合你的命题：

2. 
   
3. (defun c:dwgv (/ *acad* *docs* nam path)   
   
4.   (vl-load-com)
   
5.   
   
6.   (setq *acad* (vlax-get-acad-object)
   
7.         *docs* (vlax-get-property *acad* 'ActiveDocument)
   
8.         nam (vlax-get-property *docs* 'Name)
   
9.         path (vlax-get-property *docs* 'Path)
   
10.   )
    
11.   
    
12.   (princ "\n当前文件名：")(princ nam)
    
13.   (princ "\n当前文件路径：")(princ path)
    
14.   
    
15.   (mapcar 'vlax-release-object (list *acad* *docs*))
    
16.   (princ)
    
17. ); defun
    

<br /> (defun c:dwgv (/ *acad* *docs* nam path)   <br />   (vl-load-com)<br />   <br />   (setq *acad* (vlax-get-acad-object) <br />         *docs* (vlax-get-property *acad* 'ActiveDocument)<br />         nam (vlax-get-property *docs* 'Name)<br />         path (vlax-get-property *docs* 'Path)<br />   )<br />   <br />   (princ "\n当前文件名：")(princ nam)<br />   (princ "\n当前文件路径：")(princ path)<br />   <br />   (mapcar 'vlax-release-object (list *acad* *docs*))<br />   (princ)<br /> ); defun<br />

XDSoft

2. 
   
3. [FONT=courier new]
   
4. 
   
5. (setq acadApp (vlax-get-acad-object)
   
6.         acadDocs (vla-get-documents acadApp)
   
7.         activeDoc (vla-get-activeDocument acadApp)
   
8.         activeDocName (vla-get-name activeDoc)
   
9.          activeDocPath  (vla-get-path activeDoc)
   
10. )
    
11. 
    
12. [/FONT]

<br /> [FONT=courier new]<br /> <br /> (setq acadApp (vlax-get-acad-object)<br />         acadDocs (vla-get-documents acadApp)<br />         activeDoc (vla-get-activeDocument acadApp)<br />         activeDocName (vla-get-name activeDoc)<br />          activeDocPath  (vla-get-path activeDoc)<br /> )<br /> <br /> [/FONT]

上面的 activeDocPath  activeDocName 分别是当前文档的路径和文件名

newer

谢谢QLIN,晓东。又学到东西了。