CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

SetProjectFilePath 方法（ActiveX）

2024-5-31 20:43| 发布者: admin| 查看: 337| 评论: 0|原作者: admin|来自: AutoCAD

设置AutoCAD在其中查找外部参考文件的目录。

支持的平台：仅限 Windows

签名

VBA：

object.SetProjectFilePath ProjectName, ProjectFilePath

对象

类型：PreferencesFiles

此方法应用到的对象。

项目名称

访问：仅输入

类型：字符串

项目的名称。此名称也由 PROJECTNAME 系统变量控制。

项目文件路径

访问：仅输入

类型：字符串

AutoCAD 在其中查找外部参考文件的目录。

返回值（RetVal）

无返回值。

言论

没有其他评论。

例子

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

可视化 LISP：

(vl-load-com)
(defun c:Example_SetProjectFilePath()
    ;; This example finds the current project file information, changes
    ;; that information, and finally resets the information back to the
    ;; original values.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq preferences (vla-get-Preferences acadObj))

    ;; Get the current project file information
    (setq currProjName (vlax-variant-value (vla-GetVariable doc "PROJECTNAME")))
    (if (/= currProjName "")
        (setq currProjPath (vla-GetProjectFilePath (vla-get-Files preferences) currProjName))
        (setq currProjPath "")
    )
    (if (= currProjPath "")
        (alert "There is no current project file or path. ")
        (progn
	           (alert (strcat "The current project file path is: " currProjPath))

            ;; Set new project file information.
            ;; Change drive/path as necessary to match your system
            (setq newProjPath "C:/AutoCAD/")

            (vla-SetProjectFilePath (vla-get-Files preferences) currProjName newProjPath)
            (alert (strcat "The new project file path is: " newProjPath))

            ;; Reset the project file information
            (vla-SetProjectFilePath (vla-get-Files preferences) currProjName currProjPath)
            (alert (strcat "The project file path has been reset to: " currProjPath))
        )
    )
)