要在AutoCAD中使用getvar函数自动显示文件路径和文件名，您可以按照以下步骤进行解决：

1. 首先，将以下代玛插入到AutoCAD VBA编辑器中的模块中：

```vba

Sub DisplayFilePathAndFileName()

Dim strFilePath As String

Dim strFileName As String

' 获取当前文件的路径和名称

strFilePath = ThisDrawing.GetVariable("DWGNAME")

strFileName = ThisDrawing.GetVariable("DWGPATH")

' 在命令行窗口中显示路径和名称

ThisDrawing.Utility.Prompt vbLf & "文件路径：" & strFilePath

ThisDrawing.Utility.Prompt vbLf & "文件名称：" & strFileName

End Sub

```

2. 然后，您可以在AutoCAD中打解一个绘图文件，然后执行该命令。

3. 执行命令后，在命令行窗口中，您将看到以指定格式显示的当前文件的路径和名称。

请注意，该代玛使用了AutoCAD VBA的Prompt函数来显示路径和名称。您可以根据需要修改该代玛以适应您的要求，例如，将显示文本更改为HTML标记。

以下是将显示文本更改为HTML标记的示例代玛：

```vba

Sub DisplayFilePathAndFileName()

Dim strFilePath As String

Dim strFileName As String

' 获取当前文件的路径和名称

strFilePath = ThisDrawing.GetVariable("DWGNAME")

strFileName = ThisDrawing.GetVariable("DWGPATH")

' 构造HTML格式的路径和名称

Dim strHTML As String

strHTML = "

"

strHTML = strHTML & "

文件路径：

" & strFilePath & "
"

strHTML = strHTML & "

文件名称：

" & strFileName & "
"

strHTML = strHTML & "

"

' 在命令行窗口中显示HTML格式的路径和名称

ThisDrawing.Utility.Prompt strHTML

End Sub

```

在此示例中，我们使用了HTML的p标签和h3标签来包裹路径和名称。您可以根据需要添加其他HTML标记或样式来美化显示的文本。

希望这可以帮助到您！

转载请注明来源本文地址：https://m.tuituisoft/shinei/88370.html