iCAx开思网

标题: sw图纸检查宏 [打印本页]

作者: de0830 时间: 2020-1-15 23:00
标题: 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

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

作者: xiabulai 时间: 2020-1-29 10:35
你的意图说的不太明确，你看看是你想要的吗。

作者: qxzch 时间: 2020-2-1 23:05
谢谢2楼分享！

作者: a4778006 时间: 2020-2-10 17:16

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

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

作者: alicen_mo 时间: 2020-2-17 10:15
谢谢分享。。

作者: de0830 时间: 2020-2-29 14:18
谢谢,是要要的

作者: hh4984 时间: 2020-2-29 15:47

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

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

作者: jyzas 时间: 2020-11-17 09:00

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

谢谢分享

作者: 风中de沙 时间: 2020-11-17 20:49
谢谢分享，学习啦学习啦！

作者: 1066236582 时间: 2021-4-14 13:54

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

感谢无私分享

作者: 1066236582 时间: 2021-4-16 16:39

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

感谢分享

欢迎光临 iCAx开思网 (https://www.icax.org/)