（XD::DOC:GetDWGName）获得当前DWG的文件名

Lispboy

1. (defun XD::DOC:GetDWGName ()
   
2.   (vla-get-fullname (vla-get-ActiveDocument (vlax-get-acad-object)))
   
3. )
   

(defun XD::DOC:GetDWGName ()<br />   (vla-get-fullname (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br />

st788796

1. (strcat (getvar "dwgprefix") (getvar "dwgname"))

复制代码

newer

st788796 发表于 2017-7-27 08:10

楼主的函数和你这个作用不一样

XD::DOC:GetDWGName 如果打开一张新图，而没确定存盘的时候，返回的是 ""


而

1. [/size]
   
2. [size=12px]命令: (strcat (getvar "dwgprefix") (getvar "dwgname"))[/size]
   
3. [size=12px]"C:\\Users\\ArcGIS\\Documents\\Drawing2.dwg"[/size]
   
4. 
   
5. [size=12px]

复制代码

会有默认的返回值。


这样就区分不了当前DWG是否是已经存盘了。


下面是测试：


打开一张新图后：


命令: (strcat (getvar "dwgprefix") (getvar "dwgname"))
"C:\\Users\\ArcGIS\\Documents\\Drawing2.dwg"


命令: (vla-get-fullname (vla-get-ActiveDocument (vlax-get-acad-object)))
""


存盘后：


命令: saveas


命令: (strcat (getvar "dwgprefix") (getvar "dwgname"))
"N:\\FileRecv\\Drawing2.dwg"


命令: (vla-get-fullname (vla-get-ActiveDocument (vlax-get-acad-object)))
"N:\\FileRecv\\Drawing2.dwg"