找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?在线3D打印服务,一键上传,自动报价 
查看: 47265|回复: 163

[分享] 【答坛友】宏,更改绘图标准

  [复制链接]
发表于 2015-1-23 08:17:47 | 显示全部楼层 |阅读模式
问题来源:https://www.icax.org/thread-955249-1-1.html

条件:1、SOLIDWORKS零件、工程图或装配体环境
           2、首先在SW选项中,另存为绘图标准文件,将绘图标准文件(*.sldstd类型)放至本宏同一目录!
2011与2013版测试通过,如有提示错误,请调试宏,在工具/引用中,重新添加引用。

密码如下:
游客,如果您要查看本帖隐藏内容请回复

代码如下:
  1. ' ******************************************************************************
  2. '宏名:更改绘图标准
  3. '作者: qiminger  QQ:261744899
  4. '条件:1、SolidWorks零件、工程图或装配体环境
  5. '      2、首先在SW选项中,另存为绘图标准文件,将绘图标准文件(*.sldstd类型)放至本宏同一目录!
  6. ' ******************************************************************************
  7. Dim swApp As Object
  8. Dim Part As Object
  9.     Dim 本宏目录 As String
  10.     Dim 标准文件 As String
  11.     Dim 标准文件全名 As String
  12. Sub main()
  13. Set swApp = Application.SldWorks
  14. Set Part = swApp.ActiveDoc
  15.     本宏目录 = swApp.GetCurrentMacroPathName '获得本宏文件路径+文件名
  16.     本宏目录 = Left(本宏目录, InStrRev(本宏目录, ""))  '提出路径
  17.     标准文件 = Dir(本宏目录 & "*.sldstd") '搜寻标准文件
  18.     标准文件全名 = 本宏目录 & 标准文件
  19.     If 标准文件 = "" Then
  20.         MsgBox "没有绘图标准文件,请把绘图标准文件(*.sldstd类型)放至本宏同一目录!"
  21.         Exit Sub
  22.     End If
  23.         If 标准文件 <> "" Then Part.Extension.LoadDraftingStandard 标准文件全名
  24. Part.ForceRebuild3 False
  25. Part.ViewZoomtofit2
  26. Part.Save2 Silent
  27. End Sub
复制代码





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-23 10:46:37 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-23 11:23:36 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-23 11:43:16 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-23 11:56:45 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-23 12:22:27 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-24 08:20:10 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-26 13:02:28 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-1-29 10:39:49 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2015-1-29 13:42:11 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

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

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-3-28 23:57 , Processed in 0.029882 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表