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

只看该作者 · 发表于 2012-5-16 19:52:21

一時看不懂.....可能會一直理解不來

只看该作者 · 发表于 2012-5-16 20:34:37

很神奇

只看该作者 · 发表于 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

复制代码

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

除了不明朗及比較複雜的嵌合宏外，還有以下2個方式給各位研究：
CountSketchDrivenPattern.swp=每次設變後都需要手動執行的宏
FeatureCountSketchDrivenPattern.swp=每一個檔案只需執行一次的宏特徵

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

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

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

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

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

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

【CountSketchDrivenPattern】===好用！

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

【FeatureCountSketchDrivenPattern】===超方便！

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

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

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

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

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

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