草圖驅動排列，數量的標注

只看该作者 · 发表于 2012-4-8 15:10:50

這樣的標注，雖是不太實際的一回事，還是拿出來討論一下，望得到高人的高見，悶人可從中學習。

只看该作者 · 发表于 2013-12-17 15:06:28

只怪悶人當日隨手編寫沒想清楚，通用性不高，代碼中的局限了草圖的名稱。
以下代碼，無論有多少個草圖陣列的特徵，都會自動搜尋，再自動以該特徵的名稱建立自定義屬性。
證明實驗成功者，技術+1。

1
Dim FeatObj As Object
Set FeatObj = Part.FirstFeature
Dim FeatObjname As String
Dim pparents() As Object
Dim pparentscount, i As Integer
Dim swpParentFeat As Object
Dim found As Object
Dim PointsCount As Double
While Not (FeatObj.GetNextFeature Is Nothing)
Set FeatObj = FeatObj.GetNextFeature
FeatObjname = FeatObj.GetTypeName
If FeatObjname = "SketchPattern" Then
pparents = FeatObj.GetParents
pparentscount = UBound(pparents)
For i = 0 To pparentscount
Set swpParentFeat = pparents(i)
If swpParentFeat.GetTypeName = "ProfileFeature" Then Set found = swpParentFeat.GetSpecificFeature2
Next i
PointsCount = found.GetSpecificFeature2.GetUserPointsCount
Part.DeleteCustomInfo2 "", FeatObj.Name
Part.AddCustomInfo3 "", FeatObj.Name, 30, PointsCount + 1
End If
Wend

复制代码

只看该作者 · 发表于 2015-6-17 08:13:43

本帖最后由楠柠檬、于 2015-6-17 08:30 编辑

谢谢闷大提供的实用宏！非常好用！两个都很好用~！
忘了说了，这是2014sp5的测试结果~~~

只看该作者 · 发表于 2014-5-10 19:09:15

這方法真的很奇特

只看该作者 · 发表于 2014-1-23 15:30:52

{:soso_e179:}

只看该作者 · 发表于 2014-1-23 00:54:06

jxhaha 发表于 2012-4-11 03:57
顶闷兄！
但俺估计:闷兄的这个开发，就适应草图中相同几何形态的实体必须用“阵列”，如果是“镜像”+“镜 ...

一直記掛著哈兄這一席話，一年多過去了，終於初步實現出來，望哈兄有空回來看看。
https://www.icax.org/forum.php?m ... 870&fromuid=128

只看该作者 · 发表于 2013-12-17 20:57:38

全部用了一次，都很好用！謝謝悶大的分享！

只看该作者 · 发表于 2013-12-17 20:52:05

【FeatureCountSketchDrivenPattern】===超方便！

只看该作者 · 发表于 2013-12-17 20:42:46

本帖最后由 gt.adan 于 2013-12-17 20:52 编辑

【CountSketchDrivenPattern】===好用！

只看该作者 · 发表于 2013-12-17 16:24:07

謝謝悶大加分，再補一個2010 sp5.0的成功測試結果。

只看该作者 · 发表于 2013-12-17 16:05:17

報告悶大，測試成功！測試版本：2012 sp4.0
謝謝悶大的改良宏！{:soso_e179:}

[讨论] 草圖驅動排列，數量的標注