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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

好品数字
好品数字
查看: 4070|回复: 18

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

  [复制链接]

93

主题

289

帖子

199

金币

堂主

Rank: 4

积分
511
发表于 2013-12-15 20:43:21 | 显示全部楼层 |阅读模式
前言: 這是在机械工程师论坛主題"SolidWorks机械工程师论坛"(如上)的6#工程师分享的提議,引起興趣練習的心得提供分享,
所以看本主題,建議先去了解一下,因是"練習的心得"有些還不是很清楚,有錯就請糾正,陳述不清就請指導!
因文字不好說明,就用圖加文字了,希望對有興趣者有幫助!
一. 編寫(原創者:工程师) 草圖1須修改為草圖2
204023b3e4gx604ss0x4v7.jpg
二. 自定屬性
204023b3e4gx604ss0x4v7.jpg
二.一. 屬性表的
204023b3e4gx604ss0x4v7.jpg
三. 方程式
204023b3e4gx604ss0x4v7.jpg
四. 工程圖隱藏尺寸
204023b3e4gx604ss0x4v7.jpg
五. 注解的函數
204023b3e4gx604ss0x4v7.jpg
五.一. 如何進入編輯註解的視窗
204023b3e4gx604ss0x4v7.jpg
六. 操作說明
204023b3e4gx604ss0x4v7.jpg
204023b3e4gx604ss0x4v7.jpg
附原檔[2012版]
PART1 .zip (76.81 KB, 下载次数: 14)
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,使用IE和Edge浏览器,浏览个别网页以及下载文件时,会误报“***不安全”,此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载,另外,本网站不含任何不安全的文件,已联系微软公司解决,纯属IE和Edge浏览器误报)
回复

使用道具 举报

11

主题

242

帖子

48

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
313
QQ
发表于 2013-12-15 20:49:08 | 显示全部楼层
給梁兄一個大大的讚啊!工程师的原帖應該在這裡:SolidWorks机械工程师论坛
大侠不懂,工程师的我只會拿來用(還做成了模板使用呢!),不知其中道理。
謝謝梁兄逐句逐行的解說,並詳述了使用方式。
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,使用IE和Edge浏览器,浏览个别网页以及下载文件时,会误报“***不安全”,此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载,另外,本网站不含任何不安全的文件,已联系微软公司解决,纯属IE和Edge浏览器误报)
回复 支持 反对

使用道具 举报

17

主题

240

帖子

47

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
297
QQ
发表于 2013-12-15 20:54:10 | 显示全部楼层
頂一個 ~~努力看懂中
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

9

主题

218

帖子

28

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
257
QQ
发表于 2013-12-15 20:54:12 | 显示全部楼层
謝謝提供資料,一樣的我也有許多盲點須研究,這只是練習心得並非教程!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

10

主题

243

帖子

25

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
281
QQ
发表于 2013-12-15 20:54:32 | 显示全部楼层

   经典案例图书
解读的真好啊,我们都是会拿来用,不懂道理
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

10

主题

271

帖子

26

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
299
发表于 2013-12-15 20:56:55 | 显示全部楼层
感謝梁大分享心得,只怪悶人當日隨手編寫沒想清楚,讓代碼的指定性太高(必須知道草圖的名稱)。
不妨改用以下代碼,無論有多少個草圖陣列的特徵,都會自動搜尋,再自動以該特徵的名稱建立自定義屬性。
    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

复制代码
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

14

主题

233

帖子

46

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
294
QQ
发表于 2013-12-15 20:58:19 | 显示全部楼层

   经典案例图书
非常感謝提供原始碼,這是想踏入sw api 及 vba 的寶貴資料,
另請教屬性表的,目前是複製進去的,正規是要如何操作,
難倒要在後台(如用vb)寫個編程應用程式輸入嗎?
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

244

帖子

19

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
287
QQ
发表于 2013-12-15 21:00:05 | 显示全部楼层
頂起來,這點大侠也想知道~~
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

10

主题

231

帖子

21

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
261
QQ
发表于 2013-12-15 21:01:29 | 显示全部楼层
頂起來,這點悶人也想知道~~
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

251

帖子

13

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
276
QQ
发表于 2013-12-15 21:01:50 | 显示全部楼层
真是對不住工程师了,大侠忘了回覆這篇…
請問工程师說的是不是您提到的以下內容?
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檔案)
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

14

主题

209

帖子

44

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
277
QQ
发表于 2013-12-15 21:03:13 | 显示全部楼层
感謝蛋大提供過往的悶話,悶人整理一下如下:
執行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迎補充。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

11

主题

203

帖子

24

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
238
QQ
发表于 2013-12-15 21:04:13 | 显示全部楼层
謝謝工程师及大侠版主的回應,
可以稍微介紹一下,何謂 "特徵"
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

10

主题

217

帖子

20

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
250
QQ
发表于 2013-12-15 21:05:27 | 显示全部楼层
梁大可參考以下鏈接:
SolidWorks机械工程师论坛
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

11

主题

203

帖子

25

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
241
QQ
发表于 2013-12-15 21:08:21 | 显示全部楼层
謝謝指導,有爬文過了初步了解在特徵樹產生""的標記,就叫"特徵"是吧!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

221

帖子

5

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
244
QQ
发表于 2013-12-15 21:10:06 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

截圖自幫助
004724pmq159akr3ry3a5d.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

11

主题

195

帖子

32

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
245
QQ
发表于 2013-12-15 21:11:31 | 显示全部楼层

   经典案例图书
謝謝答覆,已找出來會進一步瞭解,因英文程度很差,進入api 幫助是原文摸索的很累人.
順便請教一下,有中譯本的書嗎?,曾經到書店但沒找到.
084707cqd8jw8o6sqldwpw.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

3035

帖子

46

金币

传奇

Rank: 8Rank: 8

积分
7280

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2019-11-25 17:44:25 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

194

帖子

572

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1809

最佳新人活跃会员热心会员宣传达人灌水之王

发表于 2019-12-31 16:07:25 | 显示全部楼层

   经典案例图书
頂一個 ~~努力看懂中
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

12

主题

83

帖子

457

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1679

最佳新人活跃会员热心会员宣传达人

发表于 2023-3-9 22:40:32 | 显示全部楼层
回复收藏,以后会用到
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-4-18 22:31 , Processed in 0.304624 second(s), 41 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件: admin@swbbsc.com

快速回复 返回顶部 返回列表