【答坛友】宏，更改绘图标准

qiminger

问题来源：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

复制代码

gt.adan

vincent3166

vincent3166

gt.adan

vincent3166

wyj123

地雷工程师

天真无邪

qiminger