SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 孔中心线 [打印本页]

作者: lytk010 时间: 2024-8-24 17:32
标题: 孔中心线
选中的视图一键圆孔中心线，支持圆孔、槽孔、圆周环向孔

工程图一键圆孔中心线.zip

（7.77 KB, 下载次数: 183 售价: 10 金币 ）

作者: 沉默的人 时间: 2024-8-24 17:58
感谢楼主分享，很不错！

作者: budaoning111 时间: 2024-8-25 17:37
感觉表述有问题，不明白楼主想要做什么！

作者: 董东咚 时间: 2024-8-26 08:26
楼主辛苦了！

作者: jyzas001 时间: 2024-8-26 08:36
感谢楼主分享，很不错！

作者: yni621 时间: 2024-8-26 08:47
感谢楼主分享，很不错！

作者: wangxinjie123 时间: 2024-8-26 08:55
楼主辛苦了！

作者: yni621 时间: 2024-8-26 08:58
散了吧，一个录制的宏收个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
感谢分享 ...

作者: 葛特曼 时间: 2024-9-21 20:41
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

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

感谢避坑，楼主不厚道啊

作者: 葛特曼 时间: 2025-3-24 21:57
感谢楼主分享，很不错！

作者: 1215956038 时间: 2025-4-3 21:57
感谢楼主分享，很不错！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)