孔中心线

lytk010 · 发表于 2024-8-24 17:32:21

经典图书

选中的视图一键圆孔中心线，支持圆孔、槽孔、圆周环向孔

wangxinjie123 · 发表于 2024-8-26 08:55:45

楼主辛苦了！

沉默的人 · 发表于 2024-8-24 17:58:46

经典图书

感谢楼主分享，很不错！

budaoning111 · 发表于 2024-8-25 17:37:18

感觉表述有问题，不明白楼主想要做什么！

董东咚 · 发表于 2024-8-26 08:26:47

经典案例图书

楼主辛苦了！

jyzas001 · 发表于 2024-8-26 08:36:32

感谢楼主分享，很不错！

yni621 · 发表于 2024-8-26 08:47:49

经典案例图书

感谢楼主分享，很不错！

yni621 · 发表于 2024-8-26 08:58:08

散了吧，一个录制的宏收个10金币，要判断没判断，就和系统自带的中心符号线的命令一样，浪费我金币，还以为是自研的。

稍微加点东西我都不说，主要是不厚道，我才发代码出来。

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim swActiveView As Object
Set swActiveView = Part.ActiveDrawingView
boolstatus = swActiveView.AutoInsertCenterMarks(5, 11, False, True, True, 0.0025, True, True, 0)
Part.ClearSelection2 True
End Sub

anmu2022 · 发表于 2024-8-27 20:23:45

感谢分享 ...

葛特曼 · 发表于 2024-9-21 20:41:08

经典图书

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim swActiveView As Object
Set swActiveView = Part.ActiveDrawingView
boolstatus = swActiveView.AutoInsertCenterMarks(5, 11, False, True, True, 0.0025, True, True, 0)
Part.ClearSelection2 True
End Sub

极2012 · 发表于 2025-3-24 17:11:49

yni621 发表于 2024-8-26 08:58
散了吧，一个录制的宏收个10金币，要判断没判断，就和系统自带的中心符号线的命令一样，浪费我金币，还以为 ...

感谢避坑，楼主不厚道啊

葛特曼 · 发表于 2025-3-24 21:57:05

感谢楼主分享，很不错！

1215956038 · 发表于 2025-4-3 21:57:33

感谢楼主分享，很不错！

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

孔中心线

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献