sw图纸检查宏

de0830

'Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swPart As SldWorks.ModelDoc2
Dim swView As IView
Dim swViewd As IAnnotation
Dim swAnnotation As SldWorks.Annotation
Dim swDisplayDimension As SldWorks.DisplayDimension
Sub main()
    Set swApp = Application.SldWorks
    Set swPart = swApp.ActiveDoc
    Set swAnnotation = swPart.GetFirstAnnotation2
    Set swView = swPart.GetFirstView '激活图纸页中模型的配置
    Set swViewd = swView
    vv = swView.GetDimensionDisplayString2()
    vvv = swViewd.IsDangling()
End Sub


各位大哥麻烦说说如何用宏程序检查上图工程图的悬空尺寸；谢谢

xiabulai

qxzch

a4778006

alicen_mo

de0830

hh4984

jyzas

风中de沙

1066236582