There was a question in the AutoCAD Architecture discussion group.
“How can i get dwgname of open drawing in this drawing in property set per vbscript code?”
Here is how it can be done. I use ACA 2009 but it should work with older versions too. Formula Property Definition below:
On Error Resume Next
Set app = GetObject(, "AutoCAD.Application")
RESULT=app.ActiveDocument.Name
If the full path and name needs to be use just change ActiveDocument.Name to ActiveDocument.FullName.
Is there any way to get it to report the correct file name through an xref? I need to have a schedule in a different file display the name of the drawing that the duct/pipe/whatever lives in. Is there a way to use VB to call a Windows variable like %FILE% or %USERNAME% ?
ReplyDeleteThis might work:
ReplyDeleteDim objWSH
Dim objUserVariables
Dim objSystemVariables
Set objWSH = CreateObject("WScript.Shell")
Set objUserVariables = objWSH.Environment("USER")
RESULT=objUserVariables("USERNAME")