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

mrzhonghb · 发表于 2024-2-25 21:22:52

经典图书

楼主很专业，写得很好！

海上的兵 · 发表于 2024-3-1 09:55:52

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

sunny_8848 · 发表于 2024-3-1 11:21:03

经典图书

多谢楼主分享，下载备用

shihua010 · 发表于 2024-3-5 11:15:01

很不错，顶一下！

a305367 · 发表于 2024-3-10 21:39:08

经典案例图书

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

taolai89 · 发表于 2024-5-2 20:59:41

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

剑雷侠 · 发表于 2024-5-18 14:45:44

经典案例图书

好东西，努力学习学习！

liangzhenja · 发表于 2024-5-23 18:53:05

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

空中舞步 · 发表于 2024-7-3 17:14:19

非常不错，求楼主分享！

anmu2022 · 发表于 2024-9-2 22:21:31

经典图书

感谢大方向

13650987636 · 发表于 2024-9-3 07:37:21

感谢楼主分享，很不错！

钟神秀 · 发表于 2024-9-7 15:06:38

看好用没有，谢谢楼主分享

haoer6238 · 发表于前天 13:27

很不错，顶一下！

leitiankong · 发表于前天 19:06

学习学习

dickych · 发表于昨天 10:14

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢楼主分享

		自动登录	找回密码
密码			立即注册

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

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献