自訂屬性-宏-方程式的配合應用圖解範本

https://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1250784&extra=page%3D2
前言: 這是在三維網主題"宏提取文件名字符为何不成功"(如上)的6#悶大分享的提議,引起興趣練習的心得提供分享,
          所以看本主題,建議先去了解一下,因是"練習的心得"有些還不是很清楚,有錯就請糾正,陳述不清就請指導!
          因文字不好說明,就用圖加文字了,希望對有興趣者有幫助!
一. 編寫宏(原創者:悶大)  草圖1須修改為草圖2

二. 自定屬性

   二.一. 屬性表的宏

三. 方程式

四. 工程圖隱藏尺寸

五. 注解的函數

    五.一. 如何進入編輯註解的視窗

六. 操作說明


附原檔[2012版]
零件
工程圖





该贴已经同步到 ryouss的微博

給梁兄一個大大的讚啊！悶大的原帖應該在這裡：草圖驅動陣列數量的標註

阿丹不懂宏，悶大的宏我只會拿來用(還做成了模板使用呢！)，不知其中道理。
謝謝梁兄逐句逐行的解說，並詳述了使用方式。{:soso_e181:}

頂一個 ~~努力看懂中

gt.adan 发表于 2013-12-15 21:31
給梁兄一個大大的讚啊！悶大的原帖應該在這裡：草圖驅動陣列數量的標註

阿丹不懂宏，悶大的宏我只會拿來 ...

謝謝提供資料,一樣的我也有許多盲點須研究,這只是練習心得並非教程!

解读的真好啊，我们都是会拿来用，不懂道理

感謝梁大分享心得，只怪悶人當日隨手編寫沒想清楚，讓代碼的指定性太高（必須知道草圖的名稱）。
不妨改用以下代碼，無論有多少個草圖陣列的特徵，都會自動搜尋，再自動以該特徵的名稱建立自定義屬性。

1. 1
   
2. Dim FeatObj As Object
   
3. Set FeatObj = Part.FirstFeature
   
4. Dim FeatObjname As String
   
5. Dim pparents() As Object
   
6. Dim pparentscount, i As Integer
   
7. Dim swpParentFeat As Object
   
8. Dim found As Object
   
9. Dim PointsCount As Double
   
10. While Not (FeatObj.GetNextFeature Is Nothing)
    
11. Set FeatObj = FeatObj.GetNextFeature
    
12. FeatObjname = FeatObj.GetTypeName
    
13. If FeatObjname = "SketchPattern" Then
    
14. pparents = FeatObj.GetParents
    
15. pparentscount = UBound(pparents)
    
16. For i = 0 To pparentscount
    
17. Set swpParentFeat = pparents(i)
    
18. If swpParentFeat.GetTypeName = "ProfileFeature" Then Set found = swpParentFeat.GetSpecificFeature2
    
19. Next i
    
20. PointsCount = found.GetSpecificFeature2.GetUserPointsCount
    
21. Part.DeleteCustomInfo2 "", FeatObj.Name
    
22. Part.AddCustomInfo3 "", FeatObj.Name, 30, PointsCount + 1
    
23. End If
    
24. Wend

复制代码

Francis 发表于 2013-12-16 01:40
感謝梁大分享心得，只怪悶人當日隨手編寫沒想清楚，讓代碼的指定性太高（必須知道草圖的名稱）。
不妨改用 ...

非常感謝提供原始碼,這是想踏入sw api 及 vba宏 的寶貴資料,
另請教屬性表的宏,目前是複製進去的,正規是要如何操作,
難倒要在後台(如用vb)寫個編程應用程式輸入嗎?

ryouss 发表于 2013-12-16 08:20
非常感謝提供原始碼,這是想踏入sw api 及 vba宏 的寶貴資料,
另請教屬性表的宏,目前是複製進去的,正規是 ...

頂起來，這點阿丹也想知道~~{:soso_e179:}

gt.adan 发表于 2013-12-16 08:39
頂起來，這點阿丹也想知道~~

頂起來，這點悶人也想知道~~

Francis 发表于 2013-12-16 16:34
頂起來，這點悶人也想知道~~

真是對不住悶大了，阿丹忘了回覆這篇…
請問悶大說的是不是您提到的以下內容？

1. 一般宏（屬於半自動，須手動執行宏）
2. 宏特徵6 {! H0 Y6 @/ q) F
3. 利用窗體或類模塊，常駐VB代碼在Solidworks程序中，當發生特定“事件”執行宏

還是您曾經發表過的帖子：執行VB代碼的途徑
1. 自带VB编辑器開啟和執行SWP檔案。
2. 工具列或功能表直接執行SWP檔案。
3. 自定義SWP檔案到一個工具列的按鈕。
4. 自定義SWP檔案到一個快速鍵。
5. 自定義SWP檔案到功能表項次。
6. 在其他程序以RunMacro2呼叫並執行指定的SWP檔案。
7. 啟動SolidWorks同時執行指定的SWP檔案。
8. 巨集特徵，重算零件或組合件時自動執行指定的SWP檔案。
9. 附加SWP檔案到Design Binder，按右鍵執行。
10. 代碼嵌合到『摘要，自訂屬性』，再以數學關係式執行嵌合的代碼。（無需SWP檔案）