快速更改打印样式表搜索路径
我的老板问我是否有办法快速更改绘图样式表的搜索路径。我们从架构师那里获得文件，有时他们会包括他们的笔设置。Autocad只允许您为打印样式设置一个文件夹的路径，因此我们必须将文件放入文件夹中，或者更改我们愿意执行但正在寻找更快方法的路径。我在Autodesk网站上找到了这段代码，我相信它可以做到这一点，但我&35;039；我只是不知道还有什么需要补充的。谁能帮我把ACADPref作为acadreferencesfiles公开吗。PrinterStyleSheetPath="；十： \NewPlotStyles"；这样就可以了，你只需要把它包装成一个函数，在每台机器上使用 ；你需要帮忙写吗？ 您可以将其包装在acad启动区域，或者有选择地调用它 ；以下是两个选项[代码0或 CmdrDuh我得到了如下所示的开关工作，但我还想要一个按钮切换回。第一部分'；我不确定每个人在文档和设置中都有自己的打印样式。当路径在每台计算机（即用户名）上不同时，我如何定义路径
公共子CustomPLotStyles（）
ThisDrawing.Application.Preferences.Files。PrinterStyleSheetPath="；C： \自定义打印样式“
结束Sub 这有点难，但仍然可行 ；你现在指的是哪条路 ；是否在文档和设置中 ；此外，如果是这样，您的登录名是什么。（我正在寻找一个答案，我想我知道如何编码，我只是想在给你答案并把事情搞砸之前确定一下） 我的路径是：
C:\Documents and Settings\danielk\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Plot Styles，其他路径因登录名而异 这在我的机器上工作 ；也就是说，在调试时，我崩溃了AUTOCAD 3次，因为文件夹没有'；它不存在，对此感到不安 ；话虽如此，但要预先警告 ；无论如何，这里有一个模块，它可以实现您想要的功能Public Sub CustomPLotStyles()
Dim strUser As String, path As String
strUser = UCase(Environ("USERNAME"))
path = "C:\Documents and Settings\" & strUser & "\Application Data\Autodesk\AutoCAD 2007\R17.0\enu\Plot Styles"
If ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "C:\Custom Plot Styles" Then
ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = path
Else
ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "C:\Custom Plot Styles"
End If
End Sub 编辑以匹配您的路径，它应该适合您 ；至于把它放在一个按钮，我讨厌崔，但它可以做到 ；我会写一个快速LSP来呼叫并切换。 这就是我想要的，你的机器也使用USERNAME环境变量，所以这很容易做到 因此，你上面发布的代码应该可以工作，否则你会想出其他方法。我看到if和else在那里，我想知道那里发生了什么。你说你的autocad崩溃了3次，我'；我想知道你是否把文件夹放在这里，这样它就不会#039；t？最好不要创建文件夹yes but I'；我更关心的是碰撞位。
页:
[1]
2