很棒的分享 作者: 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