【更新】粗糙度基准形位公差插入宏

shinvis · 发表于 2025-4-11 13:59:44

经典图书

昨晚简化内容，有些个地方没注意到。
把SUB setGlot sub替换掉

[/size]
[size=12px]Sub setGtol()[/size]
[size=12px]Dim swApp As Object[/size]
[size=12px]
[/size]
[size=12px]Dim Part As Object[/size]
[size=12px]Dim boolstatus As Boolean[/size]
[size=12px]Dim longstatus As Long, longwarnings As Long[/size]
[size=12px]Set swApp = _[/size]
[size=12px]Application.SldWorks[/size]
[size=12px]
[/size]
[size=12px]Set Part = swApp.ActiveDoc[/size]
[size=12px]
[/size]
[size=12px]Dim myGtol As Object[/size]
[size=12px]Dim myAnno As Object[/size]
[size=12px]Set myGtol = Part.InsertGtol()[/size]
[size=12px]If Not myGtol Is Nothing Then[/size]
[size=12px] [/size]
[size=12px] myGtol.SetFrameSymbols2 1, XWLX, False, "", False, "", "", "", ""[/size]
[size=12px] If TextBox5.Text = "" Then[/size]
[size=12px] myGtol.SetFrameValues 1, TextBox3.Text, "", TextBox4.Text, "", ""[/size]
[size=12px] Else[/size]
[size=12px] myGtol.SetFrameValues 1, TextBox3.Text, "", TextBox4.Text & "-" & TextBox5.Text, "", ""[/size]
[size=12px] End If[/size]
[size=12px] myGtol.SetFrameSymbols2 2, "", False, "", False, "", "", "", ""[/size]
[size=12px] myGtol.SetFrameValues 2, "", "", "", "", ""[/size]
[size=12px] myGtol.SetPTZHeight "", False[/size]
[size=12px] myGtol.SetCompositeFrame True[/size]
[size=12px] 'myGtol.SetBelowFrame ""[/size]
[size=12px] myGtol.SetBetweenTwoPoints False, "", ""[/size]
[size=12px] Set myAnno = myGtol.GetAnnotation()[/size]
[size=12px] [/size]
[size=12px]End If[/size]
[size=12px]Part.WindowRedraw[/size]
[size=12px]End Sub[/size]
[size=12px]

复制代码

shinvis · 发表于 2025-4-11 14:12:28

why2024 发表于 2025-4-11 11:51
楼主指导指导，直接运行宏无反应，只能编译宏，运行MAIN,才行。运行CCD也不行？

不是没有反应，如果在工程图下，请看工程图最左下角。我不喜欢弹窗，小小的宏都是自己编写或集合优化，自己知道哪里有问题

why2024 · 发表于 2025-4-11 16:55:44

经典图书

Kerwin1314 发表于 2025-4-11 13:19
去看看扫盲贴，你会恍然大悟的

受教了，之前很多通过快捷宏运行可以直接运行宏，看来还得添加宏按钮

Alex_Wang · 发表于 2025-4-11 19:19:21

一直想要类似这样的宏，一直搞不定，感谢大神分享，很喜欢，很感谢！！！

葛特曼 · 发表于 2025-4-11 19:23:53

经典案例图书

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

Alex_Wang · 发表于 2025-4-11 19:29:56

你好大神，如果加一个功能：满足选择多条边线赋值粗糙度的就更完美了！大神可以构思一下代码。

葛特曼 · 发表于 2025-4-11 19:37:02

经典案例图书

shinvis 发表于 2025-4-10 22:48
自保留项目

这个能写入固定配置里面吗？期待你的作品

shinvis · 发表于 2025-4-11 20:54:43

Alex_Wang 发表于 2025-4-11 19:29
你好大神，如果加一个功能：满足选择多条边线赋值粗糙度的就更完美了！大神可以构思一下代码。

这个很容易的，思路就是：要点一下开始，然后监控鼠标，点一下记录一下X Y Z 的位置，以数组保存下来。确定了再写入就行了。
但这个可以说不实用。
一般基准达到4个就算很多了。我做的工作零件都很简单，不会有多面找基准再加工。所以这个自行处理。
一个萝卜一个坑更好一点，多线操作容易出现问题

shinvis · 发表于 2025-4-11 21:07:28

葛特曼发表于 2025-4-11 19:37
这个能写入固定配置里面吗？期待你的作品

自保留，已实现外形尺寸自动判断是不是圆写入自定义属性中。
源码应该不会那么快公布。
等做成 EXE 后会分享给大家使用。
这个功能太过单一，关于属性的还有一系列要做，比如输出BOM到EXCEL 那个宏需要这个插进去，以及排序的需要在那些大佬基础上修改，一系列下来，用宏来编写已经不够用了。

1215956038 · 发表于 2025-4-11 21:42:20

经典图书

感谢楼主分享，很不错！

liyuyin007 · 发表于 2025-4-12 09:29:48

顶一下，坐等高手！

qxzch · 发表于 2025-4-12 09:43:30

感谢楼主分享，很不错！

why2024 · 发表于 2025-4-12 10:16:03

感谢楼主分享，很不错！

RGYYT2025 · 发表于 2025-4-12 16:50:02

感谢楼主分享，很不错！谢谢

txl1984 · 发表于 2025-4-12 17:05:10

加入QQ群
参与讨论和学习

或扫描二维码加入

不错啊，很需要啊，高手啊

liyuyin007 · 发表于 2025-4-12 19:44:28

经典案例图书

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

葛特曼 · 发表于 2025-4-13 14:37:18

加入QQ群
参与讨论和学习

或扫描二维码加入

shinvis 发表于 2025-4-10 22:48
自保留项目

群主分享下啊

qxb2008 · 发表于 2025-4-15 11:09:49

经典案例图书

感谢楼主分享，很不错！

葛特曼 · 发表于 2025-4-15 20:26:20

shinvis 发表于 2025-4-10 22:48
自保留项目

感谢楼主分享

fy0516 · 发表于 2025-4-16 16:59:35

支持楼主，辛苦辛苦

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

【更新】粗糙度基准形位公差插入宏

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献