乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 213|回复: 12

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

[复制链接]

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

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

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:25:58 | 显示全部楼层
这样就可以了,你只需要把它包装成一个函数,在每台机器上使用 你需要帮忙写吗?
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:30:56 | 显示全部楼层
您可以将其包装在acad启动区域,或者有选择地调用它 以下是两个选项[代码0或
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:32:06 | 显示全部楼层
CmdrDuh我得到了如下所示的开关工作,但我还想要一个按钮切换回。第一部分'我不确定每个人在文档和设置中都有自己的打印样式。当路径在每台计算机(即用户名)上不同时,我如何定义路径
公共子CustomPLotStyles()
ThisDrawing.Application.Preferences.Files。PrinterStyleSheetPath="C: \自定义打印样式“
结束Sub
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:39:58 | 显示全部楼层
这有点难,但仍然可行 你现在指的是哪条路 是否在文档和设置中 此外,如果是这样,您的登录名是什么。(我正在寻找一个答案,我想我知道如何编码,我只是想在给你答案并把事情搞砸之前确定一下)
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:46:04 | 显示全部楼层
我的路径是:
C:\Documents and Settings\danielk\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Plot Styles,其他路径因登录名而异
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:50:30 | 显示全部楼层
这在我的机器上工作 也就是说,在调试时,我崩溃了AUTOCAD 3次,因为文件夹没有'它不存在,对此感到不安 话虽如此,但要预先警告 无论如何,这里有一个模块,它可以实现您想要的功能
  1. Public Sub CustomPLotStyles()
  2.       Dim strUser As String, path As String
  3.       strUser = UCase(Environ("USERNAME"))
  4.       path = "C:\Documents and Settings" & strUser & "\Application Data\Autodesk\AutoCAD 2007\R17.0\enu\Plot Styles"
  5.       If ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "C:\Custom Plot Styles" Then
  6.             ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = path
  7.       Else
  8.             ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "C:\Custom Plot Styles"
  9.       End If
  10. End Sub
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:52:10 | 显示全部楼层
编辑以匹配您的路径,它应该适合您 至于把它放在一个按钮,我讨厌崔,但它可以做到 我会写一个快速LSP来呼叫并切换。
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 12:53:31 | 显示全部楼层
这就是我想要的,你的机器也使用USERNAME环境变量,所以这很容易做到
回复

使用道具 举报

48

主题

277

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
481
发表于 2007-1-29 13:01:04 | 显示全部楼层
因此,你上面发布的代码应该可以工作,否则你会想出其他方法。我看到if和else在那里,我想知道那里发生了什么。你说你的autocad崩溃了3次,我'我想知道你是否把文件夹放在这里,这样它就不会#039;t?最好不要创建文件夹yes but I'我更关心的是碰撞位。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 10:05 , Processed in 2.003598 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表