宏-工程图选取所有悬空尺寸

mrzhonghb

楼主很专业，写得很好！

海上的兵

楼主太有才了，膜拜中……

sunny_8848

多谢楼主分享，下载备用

shihua010

很不错，顶一下！

a305367

   经典案例图书

SolidWorks机械工程师网，顶一下。

taolai89

楼主能共享一下模型吗？我真的很喜欢

剑雷侠

   经典案例图书

好东西，努力学习学习！

liangzhenja

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
能否再增加删除语句