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

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

复制代码

只看该作者 · 发表于 2012-4-8 16:06:15

顶闷大！

只看该作者 · 发表于 2012-4-8 16:37:34

{:soso_e113:}{:soso_e179:}

只看该作者 · 发表于 2012-4-8 17:09:49

闷大总是有文章{:soso_e179:}

只看该作者 · 发表于 2012-4-8 18:29:54

呃，看起来好强大的样子

只看该作者 · 发表于 2012-4-9 01:21:31

强悍啊，求教材。

只看该作者 · 发表于 2012-4-9 09:40:42

本帖最后由 judyyai 于 2013-12-15 21:33 编辑

這方法真的很奇特～
但我不會...只好好默默看其他人討論～
自己也會努力研究...

只看该作者 · 发表于 2012-4-9 09:56:42

悶大總有新鮮事兒~~~頂頂頂頂頂！

只看该作者 · 发表于 2012-4-9 11:19:25

2011版本源文件，歡迎討論。

只看该作者 · 发表于 2012-4-9 11:21:23

gt.adan 发表于 2012-4-9 09:56
悶大總有新鮮事兒~~~頂頂頂頂頂！

蛋爺，這樣標注由來已久並不新鮮，只是大多數人不關注而已。

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