球面分布凸點-宏的應用

ryouss · 发表于 2019-6-15 16:04:36

经典图书

https://www.swbbsc.com/forum.php? ... 0&page=1#pid2784494
另參考如上

剑在手人在抖 · 发表于 2019-6-18 20:27:02

ryouss 发表于 2019-6-18 20:03
試試凸點旋轉改為拉除看看!

圆球没方向，凸点改为凹坑肯定是没问题的。
但拉伸切除是有方向的，所以不成功。
试过用异形孔来打孔，但点必须要和球体曲面切平面才行。

ryouss · 发表于 2019-6-16 11:04:31

经典图书

剑在手人在抖发表于 2019-6-15 21:38
期待RYOUSS版大分享代码。

附原文件 sw2012 及 swp

ball-point.rar (147.96 KB, 下载次数: 228)

操作說明:1.在3D草圖執行 main宏.

2.另有興趣者幫忙測試,看是否有其他問題!

' ******************************************************************************
'
' macro recorded on 06/13/19 by scliang
' 球面作佈滿凸點
'
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim skPoint As Object
Dim d1 As Object
Dim d2 As Object
Part.SketchManager.AddToDB True
Set d1 = Part.Parameter("D1@草圖1") '球體直徑
Set d2 = Part.Parameter("D1@3D草圖1") '凸點直徑
d1.SystemValue = InputBox("鍵入球體直徑 [單位:米]", "鍵入參數", 0.06)
d2.SystemValue = InputBox("鍵入凸點直徑 [單位:米]", "鍵入參數", 0.006)
'~~~ 點作圖 ~~~
pi = Atn(1) * 4
S = d1.SystemValue * pi / 2 '球體半圓弧長
N1 = IIf(Int(S / d2.SystemValue) / 2 = Int(S / d2.SystemValue / 2), Int(S / d2.SystemValue) - 1, Int(S / d2.SystemValue)) '球體半圓等分個數,需是奇數
A1 = pi / N1 '球體半圓等分弧度
Debug.Print d1.SystemValue
For i = 1 To N1 - 1
Yi = d1.SystemValue / 2 * Cos(A1 * i) '點的Y座標
Ri = d1.SystemValue / 2 * Sin(A1 * i) '剖切圓半徑
N2 = Int(Ri * 2 * pi / d2.SystemValue) '剖切圓等分個數
A2 = 2 * pi / N2
For j = 0 To N2 - 1
Xj = Ri * Cos(A2 * j)
Zj = Ri * Sin(A2 * j)
Set skPoint = Part.SketchManager.CreatePoint(Xj, Yi, Zj)
Next j
Next i
boolstatus = Part.EditRebuild3()
Part.SketchManager.AddToDB False
End Sub

复制代码

剑在手人在抖 · 发表于 2019-6-15 21:38:09

期待RYOUSS版大分享代码。

剑在手人在抖 · 发表于 2019-6-16 12:40:48

经典案例图书

感谢ryouss版大分享！用2018测试成功，凸点是按纬度分布排列的。

ryouss · 发表于 2019-6-16 14:06:57

剑在手人在抖发表于 2019-6-16 12:40
感谢ryouss版大分享！用2018测试成功，凸点是按纬度分布排列的。

謝謝版大測試!

hnkzzy · 发表于 2019-6-16 14:09:35

经典案例图书

谢谢分享！

wisely0430 · 发表于 2019-6-17 10:28:33

感謝Ryouss版主分享資源,小弟學習受用囉!!!~太棒了^^b

滴小小 · 发表于 2019-6-17 16:51:20

梁兄真是太厲害了~~~

ryouss · 发表于 2019-6-17 17:00:11

经典图书

滴小小发表于 2019-6-17 16:51
梁兄真是太厲害了~~~

向版主問安!

本主題是"剑在手人在抖"版大提供思路!

剑在手人在抖 · 发表于 2019-6-17 18:33:17

在2016中也测试成功。

ryouss · 发表于 2019-6-17 19:33:13

剑在手人在抖发表于 2019-6-17 18:33
在2016中也测试成功。

謝謝測試,
我是在2012做的.

ryouss · 发表于 2019-6-17 19:34:31

剑在手人在抖发表于 2019-6-17 18:33
在2016中也测试成功。

謝謝測試,

我是在2012做的.

剑在手人在抖 · 发表于 2019-6-17 20:10:49

相信ryouss版大的大作应该是在一个球体上分布同直径凸点最多的的方法了。
请教版大，如何统计凸点的数量呢？

ryouss · 发表于 2019-6-17 23:59:20

加入QQ群
参与讨论和学习

或扫描二维码加入

剑在手人在抖发表于 2019-6-17 20:10
相信ryouss版大的大作应该是在一个球体上分布同直径凸点最多的的方法了。
请教版大，如何统计凸点的数量呢 ...

這簡單,修改宏就能算出.

ryouss · 发表于 2019-6-18 10:11:25

经典案例图书

剑在手人在抖发表于 2019-6-17 20:10
相信ryouss版大的大作应该是在一个球体上分布同直径凸点最多的的方法了。
请教版大，如何统计凸点的数量呢 ...

如下參考

剑在手人在抖 · 发表于 2019-6-18 19:26:38

加入QQ群
参与讨论和学习

或扫描二维码加入

ryouss 发表于 2019-6-18 10:11
如下參考

多谢版大教程！
另请教一个问题：能否把这个宏由凸点转化为打孔呢？

ryouss · 发表于 2019-6-18 20:03:03

经典案例图书

剑在手人在抖发表于 2019-6-18 19:26
多谢版大教程！
另请教一个问题：能否把这个宏由凸点转化为打孔呢？

試了好像不行,拉除或是轉除,軸線不能依球心做輻射.

ryouss · 发表于 2019-6-18 20:39:18

剑在手人在抖发表于 2019-6-18 20:27
圆球没方向，凸点改为凹坑肯定是没问题的。
但拉伸切除是有方向的，所以不成功。
试过用异形孔来打孔， ...

謝謝分享

sll1990 · 发表于 2019-7-9 10:01:28

活到老学到老！

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

球面分布凸點-宏的應用

评分

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献