【原创】删除当前工程图中所有悬空的尺寸

Allate

效果如下：

↓↓↓


删除工程图当前的悬空尺寸.zip (6.23 KB, 下载次数: 362, 售价: 5 金币)

2021-4-14 09:15 上传

点击文件名下载附件
售价: 5 金币  [记录]
下载积分: 金币 -1

Allate

yni621 发表于 2021-4-17 13:36

是不是这样？
修改重量单位.zip (5.07 KB, 下载次数: 227, 售价: 2 金币)

2021-4-19 10:45 上传

点击文件名下载附件
售价: 2 金币  [记录]
下载积分: 金币 -1

花落ヽ莫相离

谢谢分享，学习

807282505

好东西，努力学习学习！

wmx0910

   经典案例图书

刚好需要！！！

yni621

对于外来图纸，省去很多时间，相当不错。

yni621

   经典案例图书

版主，能不能设计个，一键修改质量属性为KG。

Allate

yni621 发表于 2021-4-16 17:17
版主，能不能设计个，一键修改质量属性为KG。

记得这个已经有人发过了，你搜一下吧。

yni621

Allate 发表于 2021-4-17 08:05
记得这个已经有人发过了，你搜一下吧。

网上的都找过了，一个是文件夹批量的，一个是指定路径的。最后一个是最近找的，是他自己录制的宏，我也只能用这个了，不能修改里面的内容，例如我想改为g做单位，这个做不到，都是录制的。

Allate

yni621 发表于 2021-4-17 08:56
网上的都找过了，一个是文件夹批量的，一个是指定路径的。最后一个是最近找的，是他自己录制的宏，我也只 ...

之前没弄过，你提供一下网址，我有空的时候帮你改一个

yni621

Allate 发表于 2021-4-17 10:07
之前没弄过，你提供一下网址，我有空的时候帮你改一个

1. 
   
2. 
   
3. '把同一文件路径下之零件原单位 "克" 全部更新为 "公斤"
   
4. '操作:
   
5. '1. 把测试零件存在 c:test 之下.(何处皆可就是键入要对应),
   
6. '2. 执行 宏 ,在提问窗体键入路径 c:test 按确认键就 ok
   
7. 
   
8. Dim swApp        As SldWorks.SldWorks
   
9. Dim swModel      As SldWorks.ModelDoc
   
10. Dim Part         As Object
    
11. Dim sFileName    As String
    
12. Dim nFileName    As String
    
13. Dim path         As String
    
14. Dim nPath        As String
    
15. Dim nErrors      As Long
    
16. Dim nWarnings    As Long
    
17. Dim boolstatus   As Boolean
    
18.    
    
19. Sub main()
    
20.   
    
21.     Set swApp = Application.SldWorks
    
22.       
    
23.     path = InputBox("Enter a folder path containing any Solidworks files (For example ''c:test  '' )", "Parts path location") '键输入路径
    
24.     sFileName = Dir(path & "*.sldprt") '?取出读档文件? *.sldasm or *.slddrw
    
25. Do Until sFileName = ""
    
26.   
    
27.     Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '开档  swDocASSEMBLY or swDocDRAWING
    
28.     Set Part = swApp.ActiveDoc
    
29.     boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom) '设置单位为"自定"
    
30.     boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms) '设置单位为“公斤”
    
31.     Part.ClearSelection2 True
    
32.     Set swModel = swApp.ActiveDoc
    
33.         swModel.Save '?存档
    
34.    swApp.CloseDoc swModel.GetTitle '开档
    
35.    Set swModel = Nothing
    
36.    sFileName = Dir '??取出读档名?
    
37.   
    
38. Loop
    
39. End Sub

复制代码

fan03488

很不错，顶一下！

yni621

Allate 发表于 2021-4-19 10:45
是不是这样？

是的，在零件图和工程图测试过都没问题。非常感谢！！

小豆芽疯回路转

感谢楼主分享，很不错！

337868333

加入QQ群
参与讨论和学习

或扫描二维码加入

刚好需要！！！

linshun

   经典案例图书

感谢分享！

wxf58888

加入QQ群
参与讨论和学习

或扫描二维码加入

收下了，谢谢

刘茂机械

   经典案例图书

感谢楼主分享，很不错！

fan03488

好东西，努力学习学习！

gufuyuan

感谢楼主分享！！！