SetProjectFilePath Example |
Using Programming Languages other than VBA
Sub Example_SetProjectFilePath() ' This example finds the current project file information, changes ' that information, and finally resets the information back to the ' original values. Dim preferences As AcadPreferences Set preferences = ThisDrawing.Application.preferences ' Get the current project file information Dim currProjPath As String Dim currProjName As Variant currProjName = ThisDrawing.GetVariable("PROJECTNAME") If currProjName <> "" Then currProjPath = preferences.GetProjectFilePath(currProjName) End If If currProjPath = "" Then MsgBox "There is no current project file or path. ", , "SetProjectFilePath Example" Else MsgBox "The current project file path is: " & currProjPath, , "SetProjectFilePath Example" ' Set new project file information. ' Change drive/path as necessary to match your system Dim newProjPath As String newProjPath = "C:/AutoCAD/" preferences.SetProjectFilePath currProjName, newProjPath MsgBox "The new project file path is: " & newProjPath, , "GetProjectFilePath Example" ' Reset the project file information preferences.SetProjectFilePath currProjName, currProjPath MsgBox "The project file path has been reset to: " & currProjPath, , "GetProjectFilePath Example" End If End Sub
Comments? |
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator at webmaster@entercad.forsenergy.ru to inform them of the time this error occurred, and the actions you performed just before this error.
More information about this error may be available in the server error log.
Additionally, a 500 Internal Server Error error was encountered while trying to use an ErrorDocument to handle the request.