快速更改打印样式表搜索路径

Eloquintet · 发表于 2007-1-29 12:12:18

我的老板问我是否有办法快速更改绘图样式表的搜索路径。我们从架构师那里获得文件，有时他们会包括他们的笔设置。Autocad只允许您为打印样式设置一个文件夹的路径，因此我们必须将文件放入文件夹中，或者更改我们愿意执行但正在寻找更快方法的路径。我在Autodesk网站上找到了这段代码，我相信它可以做到这一点，但我&35;039；我只是不知道还有什么需要补充的。谁能帮我把ACADPref作为acadreferencesfiles公开吗。PrinterStyleSheetPath=&quot；十： \NewPlotStyles&quot；

Eloquintet · 发表于 2007-1-29 12:25:58

这样就可以了，你只需要把它包装成一个函数，在每台机器上使用&nbsp；你需要帮忙写吗？

Eloquintet · 发表于 2007-1-29 12:30:56

您可以将其包装在acad启动区域，或者有选择地调用它&nbsp；以下是两个选项[代码0或

Eloquintet · 发表于 2007-1-29 12:32:06

CmdrDuh我得到了如下所示的开关工作，但我还想要一个按钮切换回。第一部分&#039；我不确定每个人在文档和设置中都有自己的打印样式。当路径在每台计算机（即用户名）上不同时，我如何定义路径
公共子CustomPLotStyles（）
ThisDrawing.Application.Preferences.Files。PrinterStyleSheetPath=&quot；C： \自定义打印样式“
结束Sub

Eloquintet · 发表于 2007-1-29 12:39:58

这有点难，但仍然可行&nbsp；你现在指的是哪条路&nbsp；是否在文档和设置中&nbsp；此外，如果是这样，您的登录名是什么。（我正在寻找一个答案，我想我知道如何编码，我只是想在给你答案并把事情搞砸之前确定一下）

Eloquintet · 发表于 2007-1-29 12:46:04

我的路径是：
C:\Documents and Settings\danielk\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Plot Styles，其他路径因登录名而异

Eloquintet · 发表于 2007-1-29 12:50:30

这在我的机器上工作&nbsp；也就是说，在调试时，我崩溃了AUTOCAD 3次，因为文件夹没有&#039；它不存在，对此感到不安&nbsp；话虽如此，但要预先警告&nbsp；无论如何，这里有一个模块，它可以实现您想要的功能

copy

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