SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 自訂屬性-宏-方程式的配合應用圖解範本 [打印本页]

---

作者: mstester2011    时间: 2013-12-15 20:43
标题: 自訂屬性-宏-方程式的配合應用圖解範本
前言: 這是在机械工程师论坛主題"SolidWorks机械工程师论坛"(如上)的6#工程师分享的提議,引起興趣練習的心得提供分享,
所以看本主題,建議先去了解一下,因是"練習的心得"有些還不是很清楚,有錯就請糾正,陳述不清就請指導!
因文字不好說明,就用圖加文字了,希望對有興趣者有幫助!
一. 編寫宏(原創者:工程师) 草圖1須修改為草圖2

二. 自定屬性

二.一. 屬性表的宏

三. 方程式

四. 工程圖隱藏尺寸

五. 注解的函數

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

六. 操作說明


附原檔[2012版]
PART1 .zip (76.81 KB, 下载次数: 14)

2015-4-13 18:04 上传

点击文件名下载附件
下载积分: 金币 -1

零件
PART1 (2).zip (19.77 KB, 下载次数: 19)

2015-4-13 18:04 上传

点击文件名下载附件
下载积分: 金币 -1

工程圖

---

作者: nut    时间: 2013-12-15 20:49
給梁兄一個大大的讚啊！工程师的原帖應該在這裡：SolidWorks机械工程师论坛
大侠不懂宏，工程师的宏我只會拿來用(還做成了模板使用呢！)，不知其中道理。
謝謝梁兄逐句逐行的解說，並詳述了使用方式。

---

作者: jackhuang    时间: 2013-12-15 20:54
頂一個 ~~努力看懂中

---

作者: wanglei2343    时间: 2013-12-15 20:54
謝謝提供資料,一樣的我也有許多盲點須研究,這只是練習心得並非教程!

---

作者: l1618    时间: 2013-12-15 20:54
解读的真好啊，我们都是会拿来用，不懂道理

---

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

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 = &quotrofileFeature" 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

复制代码

---

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

---

作者: 青与青    时间: 2013-12-15 21:00
頂起來，這點大侠也想知道~~

---

作者: honghong252    时间: 2013-12-15 21:01
頂起來，這點悶人也想知道~~

---

作者: 烽(_少    时间: 2013-12-15 21:01
真是對不住工程师了，大侠忘了回覆這篇…
請問工程师說的是不是您提到的以下內容？
1. 一般宏（屬於半自動，須手動執行宏）
2. 宏特徵6 {! H0 Y6 @/ q) F
3. 利用窗體或類模塊，常駐VB代碼在Solidworks程序中，當發生特定“事件”執行宏
還是您曾經發表過的帖子：SolidWorks机械工程师论坛
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檔案）

---

作者: 新沐弹冠    时间: 2013-12-15 21:03
感謝蛋大提供過往的悶話，悶人整理一下如下：
執行VB代碼的途徑可分為 A-手動 和 B-非手動
A-手動：
A-1. 自带VB编辑器執行SWP檔案。
A-2. 工具列或功能表直接執行SWP檔案。
A-3. 自定義SWP檔案到一個工具列的按鈕、快速鍵 或 功能表項次。
A-4. 附加SWP檔案到Design Binder，按右鍵執行。
A-5. 在VB6編輯器軟體中，翻譯成執行檔案 EXE 或 DLL。（無需SWP檔案但要另外購買軟體）
A-6. 在檔案總管拖動SWP檔案到SolidWorks的標題欄，就會立即執行SWP檔案內的代碼。
B-非手動
B-1. RunMacro2呼叫並執行指定的SWP檔案。
B-2. 在其他軟件（如 Excel 或 CorelDRAW）中的VBA呼叫SolidWorks的VB代碼。（無需SWP檔案）
B-3. 啟動SolidWorks附加/m參數，就可以同時執行指定的SWP檔案。
B-4. 宏特徵，只要執行一次，指向就會寄居在特徵樹，重算零件或組合件時自動執行指定的SWP檔案。
B-5. 代碼嵌合到『摘要，自訂屬性』，再以數學關係式執行嵌合的代碼。（坊間流傳之法，官方從沒發報過，從“自訂屬性”不容許多行輸入可見一斑）
除了A-4, B-4, B-5 以外，都可以利用窗體或類模塊（尤其配合B-3效果最佳），常駐VB代碼在Solidworks程序中，當發生特定“事件”執行宏。
以上只是悶人的溡姡瑲g迎補充。

---

作者: 那智武流    时间: 2013-12-15 21:04
謝謝工程师及大侠版主的回應,
可以稍微介紹一下,何謂 "宏特徵"

---

作者: lanzy    时间: 2013-12-15 21:05
梁大可參考以下鏈接：
SolidWorks机械工程师论坛

---

作者: daibing    时间: 2013-12-15 21:08
謝謝指導,有爬文過了初步了解在特徵樹產生"宏"的標記,就叫"宏特徵"是吧!

---

作者: ttwjh    时间: 2013-12-15 21:10
截圖自幫助

---

作者: mahui    时间: 2013-12-15 21:11
謝謝答覆,已找出來會進一步瞭解,因英文程度很差,進入api 幫助是原文摸索的很累人.
順便請教一下,有中譯本的書嗎?,曾經到書店但沒找到.

---

作者: salary123456    时间: 2019-11-25 17:44
SW机械工程师网，找到组织了！

---

作者: luremakeruser    时间: 2019-12-31 16:07
頂一個 ~~努力看懂中

---

作者: 墨壬生    时间: 2023-3-9 22:40
回复收藏，以后会用到

---

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)

Powered by Discuz! X3.2