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

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

Sub setGtol()
Dim swApp As Object


Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = _
Application.SldWorks


Set Part = swApp.ActiveDoc


Dim myGtol As Object
Dim myAnno As Object
Set myGtol = Part.InsertGtol()
If Not myGtol Is Nothing Then
   
   myGtol.SetFrameSymbols2 1, XWLX, False, "", False, "", "", "", ""
   If TextBox5.Text = "" Then
   myGtol.SetFrameValues 1, TextBox3.Text, "", TextBox4.Text, "", ""
   Else
   myGtol.SetFrameValues 1, TextBox3.Text, "", TextBox4.Text & "-" & TextBox5.Text, "", ""
   End If
   myGtol.SetFrameSymbols2 2, "", False, "", False, "", "", "", ""
   myGtol.SetFrameValues 2, "", "", "", "", ""
   myGtol.SetPTZHeight "", False
   myGtol.SetCompositeFrame True
   'myGtol.SetBelowFrame ""
   myGtol.SetBetweenTwoPoints False, "", ""
   Set myAnno = myGtol.GetAnnotation()

End If
Part.WindowRedraw
End Sub


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
去看看扫盲贴,你会恍然大悟的

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

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

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

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

SW机械工程师网,找到组织了!

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

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

支持楼主,辛苦辛苦
页: 1 [2] 3
查看完整版本: 【更新】粗糙度基准形位公差插入宏