sw图纸检查宏

'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


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

你的意图说的不太明确，你看看是你想要的吗。

谢谢2楼分享！

xiabulai 发表于 2020-1-29 10:35
你的意图说的不太明确，你看看是你想要的吗。

可以自动把悬空的尺寸全部自动删除吗？而不是点一下，选中一个悬空尺寸！

谢谢分享。。

谢谢,是要要的

xiabulai 发表于 2020-1-29 10:35
你的意图说的不太明确，你看看是你想要的吗。

谢谢分享，学习学习！！！！！！！！！

xiabulai 发表于 2020-1-29 10:35
你的意图说的不太明确，你看看是你想要的吗。

谢谢分享

谢谢分享，学习啦学习啦！

xiabulai 发表于 2020-1-29 10:35
你的意图说的不太明确，你看看是你想要的吗。

感谢无私分享