快速更改打印样式表搜索路径
我的老板问我是否有办法快速更改绘图样式表搜索路径。我们从建筑师那里获得文件，有时它们包括他们的笔设置。Autocad仅允许您为打印样式路径一个文件夹，因此我们必须将文件放入文件夹中，或者更改我们愿意做的路径，但正在寻找一种更快的方法。我正在查看Autodesk网站，发现了我相信可以做到这一点的代码，但我只是不确定我还需要添加什么。有人可以帮我公共ACADPref作为AcadPreferences文件
集ACADPref = ThisDrawing.Application.Preferences.Files
ACADPref.PrinterStyleSheetPath = “X：\NewPlotStyles”
**** Hidden Message ***** 这样就可以了，你只需要把它封装在一个函数中，在每台机器上使用。你写那个需要帮助吗？ 您可以将其包装在acad启动区域中，或者选择性地调用它。以下是两个选项
Public Sub ResetPlotStyle()
Dim ACADPref As AcadPreferencesFiles
Set ACADPref = ThisDrawing.Application.Preferences.Files
ACADPref.PrinterStyleSheetPath = "X:\NewPlotStyles"
End Sub
或
CmdrDuh我让开关工作如下图所示，但我也想要一个按钮来切换回来。我不确定的部分是每个人都有自己的绘图样式在文档和设置用户名autodesk绘图样式中。如何定义每台计算机上不同的路径，即用户名？
Public Sub CustomPLotStyles（）
ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = “C：\Custom Plot Styles”
End Sub
这有点难，但还是可行的。你现在指的是哪条路？是在Doc和Settings里面吗？另外，如果是这样，你的登录名是什么。(我在寻找一个我认为我知道如何编码的答案，我只是想在给你之前确定一下，然后把事情搞砸) 我的路径是：
C：\Documents and Setting\danielk\Application Data\欧特克\AutoCAD 2006\R16.2\enu\Plot Styles
其他会因登录名而异 这适用于我的机器。话虽如此，在调试时，我崩溃了3次AUTOCAD，因为该文件夹不存在，它对此感到不安。话虽如此，请事先警告。无论如何，这是一个可以执行您想要的操作的模块
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
编辑以匹配您的路径，它应该适合您。至于把它放在按钮中，我讨厌CUI，但它可以完成。我会编写一个快速的LSP来调用并进行切换。 这就是我正在寻找的，您的机器也使用USERNAME环境变量，所以这很容易做到 上面的代码在您将其重置为2006后按照您的要求执行。（我从您的路径看到您的06）
IF检查您的路径是什么，并将其切换到另一个路径。我不能确定崩溃与文件夹有关，但是，它发生在我尝试检查功能的那一刻。我没有映射“X”驱动器，所以在第一个示例中，我认为这是它崩溃的原因。然后，由于它被写入注册表，每次我尝试打开AutoCAD时，它都会查找X驱动器，然后崩溃。为了解决这个问题，我刚刚编辑了我的注册表以重置到我的C驱动器，并且autocad立即打开。
至于不创建文件夹，如果您将文件夹放在每个人都有的“已知”映射驱动器上，它不会崩溃。此外，如果用户没有使用本地或其他文件夹，则不应运行代码。
页:
[1]
2