SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 宏-工程图选取所有悬空尺寸 [打印本页]

作者: illidanz 时间: 2020-8-29 16:47
标题: 宏-工程图选取所有悬空尺寸
此宏可以选择工程图内所有的悬空尺寸。避免一个个选中。

选择悬空尺寸.zip (6.37 KB, 下载次数: 391)

作者: freeok 时间: 2020-8-30 08:35
感谢分享好工具~~

作者: ha-spring 时间: 2020-8-31 15:54
看好用没有，谢谢楼主分享

作者: shy0829 时间: 2020-8-31 16:00
试用了一下，真的很牛，对于有些修改较大的模型，工程图尺寸很多悬空，一次选择，省时省力

作者: nqk1949 时间: 2020-9-2 14:35
第一次看到還要錢的？solidworks网，必须顶一下
solidworks网，必须顶一下
solidworks网，必须顶一下

作者: keke2004a 时间: 2020-9-10 22:09
谢谢楼主分享solidworks网，必须顶一下
solidworks网，必须顶一下
solidworks网，必须顶一下
solidworks网，必须顶一下
solidworks网，必须顶一下

作者: zhang12827628 时间: 2020-10-9 21:39
感谢分享

作者: wy197697 时间: 2020-10-18 14:55
感谢分享！

作者: cubelei 时间: 2020-12-25 10:04
不错，可以一下全部选中

作者: xjshijun 时间: 2021-2-4 10:40
额，想看看，下不了，没金币solidworks网，必须顶一下

作者: jyzas001 时间: 2021-4-7 22:22
谢谢分享

作者: 花落ヽ莫相离 时间: 2021-4-8 08:04
谢谢分享

作者: huazhengjun 时间: 2021-5-29 09:49
很不错，顶一下！

作者: qqfly332211 时间: 2021-8-6 12:15

很不错，顶一下！

作者: qqfly332211 时间: 2021-8-18 13:34
感谢楼主分享，很不错！

作者: 不能动两年后 时间: 2021-8-31 18:48
多谢楼主分享

作者: d354460 时间: 2021-9-3 15:26
活到老学到老！

作者: qqfly332211 时间: 2021-9-25 12:19
感谢楼主分享，很不错！

作者: yuhouyeluo 时间: 2021-10-11 08:28
感谢分享感谢分享好工具~~

作者: 刘茂机械 时间: 2021-10-11 11:48
SW机械工程师网，找到组织了！

作者: linkral 时间: 2021-11-19 15:32
真的很牛，对于有些修改较大的模型，工程图尺寸很多悬空，一次选择，省时省力

作者: jines5 时间: 2021-11-30 11:09
感谢楼主分享

作者: zzg7572837 时间: 2021-12-24 14:20
很不错，找到组织了！
牛皮得很

作者: xiaofly888 时间: 2021-12-25 11:02
感谢楼主分享，很不错！

作者: taiyi000 时间: 2021-12-29 13:39
感谢楼主分享，很不错！

作者: crazydeyy 时间: 2022-1-9 14:25
红红火火恍恍惚惚或或或或或或或或或

作者: MJATM01 时间: 2022-1-12 16:00
SW机械工程师网，找到组织了！

作者: z159504 时间: 2022-1-12 19:31
SolidWorks机械工程师网，顶一下。

作者: l060304 时间: 2022-4-15 15:56
2016SW，点了没反应

作者: PPTVX33 时间: 2022-4-28 08:22

哇哦，这个真的很棒呢

作者: hhh001 时间: 2022-5-9 14:37
谢谢分享，使用看一下

作者: SW初学00 时间: 2022-5-10 08:02
很不错，顶一下！

作者: sunshine0099 时间: 2022-5-13 13:44

感谢分享感谢分享好工具

作者: -Duxep 时间: 2022-5-13 15:00

感谢分享感谢分享好工具

作者: bmwzwd 时间: 2022-5-21 17:02
请问：“更改的尺寸”，如何选择？

作者: 刘茂机械 时间: 2022-5-21 20:52
SW机械工程师网，找到组织了！

作者: zzzzzdong 时间: 2022-5-22 13:56
楼主太有才了，膜拜中……

作者: 风的味道 时间: 2022-5-29 21:20
感谢分享好工具

作者: DFFDSGG114485 时间: 2022-6-13 22:15
SW机械工程师网，找到组织了！

作者: DFFDSGG114485 时间: 2022-6-27 21:01
SW机械工程师网，找到组织了！

作者: 954833266 时间: 2022-6-29 13:56
楼主辛苦了！

作者: rialdfnu 时间: 2022-7-22 16:27
感谢楼主分享，很不错！

作者: 黄火山 时间: 2022-7-22 16:41
感谢楼主分享，很不错！

作者: qikunshan 时间: 2022-7-23 10:01
应该加一个删除命令，一般悬空的都删除了，另外把中心线的悬念也加上就完美了。

作者: chengli1989 时间: 2022-7-27 13:42

刘茂机械发表于 2021-10-11 11:48
SW机械工程师网，找到组织了！

很棒的分享

作者: 184651474 时间: 2022-7-27 13:53
SW机械工程师网，找到组织了！

作者: 音乐K 时间: 2022-8-16 09:41
感谢楼主分享，很不错！，能一次全选

作者: 懒懒的高贵 时间: 2022-8-16 10:27
很不错，顶一下！

作者: hsyamw 时间: 2022-10-28 15:43
感谢楼主分享，很不错！

作者: dragon045 时间: 2022-11-15 07:38
感谢楼主分享，很不错！

作者: wjbg2019 时间: 2023-3-9 09:22
感谢楼主分享，很不错！

作者: 18977048828 时间: 2023-3-14 19:17
SW机械工程师网，找到组织了！

作者: 月下漫步 时间: 2023-3-15 07:47
活到老学到老！

作者: qq5921 时间: 2023-3-19 16:14
下载过来试试谢谢了

作者: yinxifeng 时间: 2023-11-22 12:31
好东西，努力学习学习！

作者: smallghost 时间: 2023-11-22 12:57
楼主辛苦了！

作者: smallghost 时间: 2023-11-22 13:13
感谢楼主分享，很不错！

作者: 鸣沙山 时间: 2024-2-25 13:20
很不错，谢谢分享！

作者: mrzhonghb 时间: 2024-2-25 21:22
楼主很专业，写得很好！

作者: 海上的兵 时间: 2024-3-1 09:55
楼主太有才了，膜拜中……

作者: sunny_8848 时间: 2024-3-1 11:21
多谢楼主分享，下载备用

作者: shihua010 时间: 2024-3-5 11:15
很不错，顶一下！

作者: a305367 时间: 2024-3-10 21:39
SolidWorks机械工程师网，顶一下。

作者: taolai89 时间: 2024-5-2 20:59
楼主能共享一下模型吗？我真的很喜欢

作者: 剑雷侠 时间: 2024-5-18 14:45
好东西，努力学习学习！

作者: liangzhenja 时间: 2024-5-23 18:53
Dim swApp          As SldWorks.SldWorks
Dim swModel       As ModelDoc2
Dim swDraw       As DrawingDoc
Dim swSheet       As Sheet
Dim swView       As View
Dim boolstatus    As Boolean
Dim swAnn          As Annotation
Dim swDispDim    As DisplayDimension
Dim vSheetNames    As Variant
Sub main()
Set swApp = Application.SldWorks
If swApp.GetDocumentCount = 0 Then Exit Sub
Set swModel = swApp.ActiveDoc
If swModel.GetType <> SwConst.swDocumentTypes_e.swDocDRAWING Then Exit Sub
Set swDraw = swModel
swModel.ClearSelection2 (True)
vSheetNames = swDraw.GetSheetNames
For i = 0 To UBound(vSheetNames)
      swDraw.ActivateSheet vSheetNames(i)
      Set swSheet = swDraw.Sheet(vSheetNames(i))
      Set swView = swDraw.GetFirstView
      Do While Not swView Is Nothing
         Set swAnn = swView.GetFirstAnnotation3
         Do While Not swAnn Is Nothing
            If swAnn.IsDangling Then
                  swAnn.Select (True)
            End If
            Set swAnn = swAnn.GetNext3
         Loop
         Set swView = swView.GetNextView
      Loop
Next i

End Sub
能否再增加删除语句

作者: 空中舞步 时间: 2024-7-3 17:14
非常不错，求楼主分享！

作者: anmu2022 时间: 2024-9-2 22:21
感谢大方向

作者: 13650987636 时间: 2024-9-3 07:37
感谢楼主分享，很不错！

作者: 钟神秀 时间: 2024-9-7 15:06

看好用没有，谢谢楼主分享

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)