请大佬，高手们修改下这个快速公差宏

sunsu168 · 发表于 2023-6-21 16:02:58

收集了一个公差标注宏，请大佬们出手更改下，更改为就是那种点一下公差代号，就可以标注的，比如H7,G6,K6等常用的。
压缩包里有一个H7 宏，可供参考。

宏在附件。

公差标注宏V2.zip (28.25 KB, 下载次数: 69)

补充的内容 (2023-6-25 09:28):
原来公差标注宏V2 加密了，无法看源代码。其实主要原理看那个 H7的代码，可否增加点按窗体，再增加其他几个常用公差代号

Allate · 发表于 2023-6-27 08:12:52

你自己更改吧，难度也不大。
另外，对于这种明显使用我的宏，却改成自己的名字的人，表示鄙视。

沉默的人 · 发表于 2023-6-21 17:58:05

好东西，努力学习学习！

jugege · 发表于 2023-6-21 20:10:49

公称尺寸那么多，先得做数据库，不是那么容易。先关注，期待高手！

夕梦恋 · 发表于 2023-6-21 20:19:00

经典案例图书

感谢楼主分享，很不错！

zhenyx1012 · 发表于 2023-6-21 20:51:46

关键是加密了，代码都看不了怎么改呢?

fan03488 · 发表于 2023-6-22 09:37:22

经典案例图书

孔标注代号类公差是会随尺寸变动的,和公差带相关联的.这个问了很多人都做不出来,不知道是不愿意做还是真的做不出来

单纯尺寸类公差倒没有什么问题

懒懒的高贵 · 发表于 2023-6-22 11:29:24

很不错，顶一下！

changfeng1229 · 发表于 2023-6-23 09:31:31

fan03488 发表于 2023-6-22 09:37
孔标注代号类公差是会随尺寸变动的,和公差带相关联的.这个问了很多人都做不出来,不知道是不愿意做还是真的 ...

可以弄的啊，调用系统自带的，就可以跟着变化了

fan03488 · 发表于 2023-6-24 06:58:29

changfeng1229 发表于 2023-6-23 09:31
可以弄的啊，调用系统自带的，就可以跟着变化了

用孔标注标出来的销钉孔一直都弄不出来,不知道是否有高手能做出来.

sunsu168 · 发表于 2023-6-25 08:34:54

zhenyx1012 发表于 2023-6-21 20:51
关键是加密了，代码都看不了怎么改呢?

刚看了下，公差标注宏V2 确实加密了。

其实主要原理看那个 H7的代码

sunsu168 · 发表于 2023-6-25 08:37:34

changfeng1229 发表于 2023-6-23 09:31
可以弄的啊，调用系统自带的，就可以跟着变化了

刚看了下，公差标注宏V2 确实加密了。其实主要原理看那个 H7的代码，可否增加点按窗体，再增加几个公差

samsun288 · 发表于 2023-6-25 09:59:30

没图，不知道是什么！

wuxiwuyan · 发表于 2023-6-25 13:25:29

把加密去掉，帮你看看

sunsu168 · 发表于 2023-6-25 14:37:58

加入QQ群
参与讨论和学习

或扫描二维码加入

wuxiwuyan 发表于 2023-6-25 13:25
把加密去掉，帮你看看

网上下载的宏，不知道密码

sunsu168 · 发表于 2023-6-25 14:39:35

经典案例图书

wuxiwuyan 发表于 2023-6-25 13:25
把加密去掉，帮你看看

网上下载的，不知道米马.... 你看看包里那个H7的宏

邓新星123456 · 发表于 2023-6-25 16:12:16

加入QQ群
参与讨论和学习

或扫描二维码加入

有没有大师能够做出来

changfeng1229 · 发表于 2023-6-25 17:35:35

经典案例图书

Private Sub H7_Click()

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

boolstatus = Part.EditDimensionProperties2(8, 0, 0, "", "", True, 9, 2, True, 12, 12, "<MOD-DIAM>", "", True, "", "", True)
boolstatus = Part.EditDimensionProperties2(8, 0, 0, "", "", True, 9, 2, True, 12, 12, "<MOD-DIAM>", "", True, "", "", True)
boolstatus = Part.EditDimensionProperties2(8, 0, 0, "", "", True, 9, 2, True, 12, 12, "<MOD-DIAM>", "", True, "", "", True)
boolstatus = Part.EditDimensionProperties2(8, 0.000012, 0, "H7", "", True, 9, 2, True, 12, 12, "<MOD-DIAM>", "", True, "", "", True)

changfeng1229 · 发表于 2023-6-25 17:37:40

sunsu168 发表于 2023-6-25 08:37
刚看了下，公差标注宏V2 确实加密了。其实主要原理看那个 H7的代码，可否增加点 ...

已经贴出代码了

夕梦恋 · 发表于 2023-6-25 19:34:35

感谢楼主分享，很不错！

zhenyx1012 · 发表于 2023-6-25 20:03:03

H8的代码，其他的孔公差将H8改一下就可以了。轴公差将H8删除改为空参数，后面的一个空参数改一下，如f7

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 myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.EditDimensionProperties2(8, 0, 0, "H8", "", False, 0, 2, True, 12, 12, "", "", True, "", "", True)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingLeadingZero, swUserPreferenceOption_e.swDetailingDimension, swDetailingLeadingZero_e.swLeadingZero_Show) '消除尾零
Part.ClearSelection2 True

复制代码

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

请大佬，高手们修改下这个快速公差宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

请大佬，高手们 修改下这个快速公差宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献

请大佬，高手们修改下这个快速公差宏