删除悬空尺寸哪位大佬可否帮忙升级一下

sunsu168 · 发表于 2024-11-7 11:30:01

经典图书

以下删除悬空尺寸宏是论坛里下载的（感谢作者），哪位大佬可否帮忙升级一下。大部分情况运行都没问题，但是有时候，工程图里阵列的失效连接线还是无法清除干净，而且无法框选只能一个个点选

Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swSelMgr As SldWorks.SelectionMgr
Dim swView As SldWorks.View
Dim swAnn As SldWorks.Annotation
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swSelMgr = swDraw.SelectionManager
Set swView = swDraw.GetFirstView '取得第一个视图
While Not swView Is Nothing
swDraw.ClearSelection2 True '消除选择
Set swAnn = swView.GetFirstAnnotation3
While Not swAnn Is Nothing
If swAnn.IsDangling Then swAnn.Select (True)
Set swAnn = swAnn.GetNext3
Wend
If swSelMgr.GetSelectedObjectCount2(0) Then swDraw.EditDelete
Set swView = swView.GetNextView '获取下一视图
Wend
End Sub

复制代码

机制082 · 发表于 2024-11-7 17:29:08

sunsu168 发表于 2024-11-7 16:49
还是不行，我上传了零件 sw2020版的。

我用的你三维重新生成了一个圆形中心符号线，只用被压缩的特征生成的，这种情况下如果悬空是可以成功删除的。目前你原图这种情况我没有找到方法可以成功删除，所以在没有找到方法前建议在用中心符号线时尽量只选阵列的特征，不要选中心部位。

另外我看到你图纸的一些常用技术要求都放在图框外面了，你可以建一个字典库存放。

机制082 · 发表于 2024-11-7 15:22:33

经典图书

在你提供的代码基础上增加了删除悬空圆形中心符号线和其他符号线的代码，我简单测试下OK的。

删除悬空尺寸及符号线.rar (6.95 KB, 下载次数: 105, 售价: 40 金币)

834556677 · 发表于 2024-11-7 13:59:50

试试这个，不知道哪里下载来的

liyuyin007 · 发表于 2024-11-7 15:13:52

经典案例图书

感谢楼主分享，很不错！

gfzms2590 · 发表于 2024-11-7 16:04:22

SW机械工程师网，找到组织了！

氕氘氚 · 发表于 2024-11-7 16:16:15

经典案例图书

机制082 发表于 2024-11-7 15:22
在你提供的代码基础上增加了删除悬空圆形中心符号线和其他符号线的代码，我简单测试下OK的。

感谢大佬，刚刚测试了下是可以用的

sunsu168 · 发表于 2024-11-7 16:48:08

机制082 发表于 2024-11-7 15:22
在你提供的代码基础上增加了删除悬空圆形中心符号线和其他符号线的代码，我简单测试下OK的。

上面两个帖子的宏都试了，试了还是不行，不知哪出问题了。（我是压缩了上面的孔）

198#.84 伺服连接法兰.rar (519.03 KB, 下载次数: 57, 售价: 50 金币) 这个是sw2020的文档

sunsu168 · 发表于 2024-11-7 16:49:47

834556677 发表于 2024-11-7 13:59
试试这个，不知道哪里下载来的

还是不行，我上传了零件 sw2020版的。

机制082 · 发表于 2024-11-7 16:57:42

经典图书

sunsu168 发表于 2024-11-7 16:49
还是不行，我上传了零件 sw2020版的。

只有生成圆形中心符号线的特征全部删除或被抑制后才能成功选中悬空的圆形中心符号线。你的这个工程图不满足条件。

sazbwz · 发表于 2024-11-7 17:27:44

下载164518dwwiixtoh4ow8zo8看看

sunsu168 · 发表于 2024-11-8 08:13:15

机制082 发表于 2024-11-7 17:29
我用的你三维重新生成了一个圆形中心符号线，只用被压缩的特征生成的，这种情况下如果悬空是可以成功删除 ...

1. 明白了，不勾选基体中心符号线。

2.技术要求库也做了，就是打开拖进来会卡，速度慢一点。后来就直接放在图框外了，随时拖进来反而快

懒懒的高贵 · 发表于 2024-11-8 08:30:22

很不错，顶一下！

13650987636 · 发表于 2024-11-8 09:10:10

SW机械工程师网，找到组织了！

董东咚 · 发表于 2024-11-8 16:03:12

加入QQ群
参与讨论和学习

或扫描二维码加入

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

mlx0211 · 发表于 2024-11-14 13:07:42

经典案例图书

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

风雨阳光 · 发表于 2024-12-23 16:09:53

加入QQ群
参与讨论和学习

或扫描二维码加入

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

guo_li · 发表于 2024-12-23 17:09:37

经典案例图书

感谢楼主分享，很不错！

sunny_8848 · 发表于 2024-12-23 17:32:08

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

peng7s · 发表于 2025-1-15 16:03:15

机制082 发表于 2024-11-7 15:22
在你提供的代码基础上增加了删除悬空圆形中心符号线和其他符号线的代码，我简单测试下OK的。

这个录屏的是什么软件

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

删除悬空尺寸哪位大佬可否帮忙升级一下

本帖被以下淘专辑推荐:

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

删除悬空尺寸 哪位大佬可否帮忙升级一下

本帖被以下淘专辑推荐:

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

删除悬空尺寸哪位大佬可否帮忙升级一下