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

ryouss · 发表于 2013-12-15 20:19:57

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 ryouss 于 2013-12-15 21:13 编辑

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

二. 自定屬性

二.一. 屬性表的宏
2_1屬性表_宏.gif

三. 方程式

四. 工程圖隱藏尺寸
4_隱藏尺寸.png

五. 注解的函數

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

六. 操作說明

附原檔 [2012版]

PART1.zip (76.81 KB, 下载次数: 25)

NC@jiang@nan · 发表于 2013-12-15 20:59:07

请问楼主，你这种宏做法，到底在SW2013及之后的SW版本上还能用吗？

ryouss · 发表于 2013-12-15 21:02:11

本帖最后由 ryouss 于 2013-12-15 21:04 编辑

NC@jiang@nan 发表于 2013-12-15 20:59 static/image/common/back.gif$ R9 z; J b- F [9 d8 B# j
请问楼主，你这种宏做法，到底在SW2013及之后的SW版本上还能用吗？

手上無2013版可試
就請自行動手試試再告知大家了!

NC@jiang@nan · 发表于 2013-12-15 21:05:34

ryouss 发表于 2013-12-15 21:02 static/image/common/back.gif8 N3 V3 `5 Q; r7 N, @& W3 X/ C
手上無2013版可試

我昨天听说2013版的后就不能用这种宏操作方法了。
公司买了正版的SW，正要升级到SW2014了。目前在用SW2010，想研究下这个东西，可是想想，马上要升级到2014，如果这种方法失效了的话研究就没多少意义了

hongwei_1987jp · 发表于 2013-12-16 08:46:02

本帖最后由 hongwei_1987jp 于 2013-12-16 08:49 编辑

NC@jiang@nan 发表于 2013-12-15 20:59 static/image/common/back.gif
$ e. @+ h! d- p6 A$ p' y$ x& W8 l; k请问楼主，你这种宏做法，到底在SW2013及之后的SW版本上还能用吗？

在SW2014上可以用

捕获.PNG

ryouss · 发表于 2013-12-16 09:03:36

hongwei_1987jp 发表于 2013-12-16 08:46 static/image/common/back.gif- a) c5 N: c: ]- c4 ?1 c% k
在SW2014上可以用

謝謝 h大的回應

hongwei_1987jp · 发表于 2013-12-16 09:46:49

ryouss 发表于 2013-12-16 09:03 static/image/common/back.gif; r: W% m1 _0 e/ p% r& ^
謝謝 h大的回應

请问，能否做到下图的属性？

捕获.PNG

ryouss · 发表于 2013-12-16 13:49:30

本帖最后由 ryouss 于 2013-12-16 15:51 编辑

hongwei_1987jp 发表于 2013-12-16 09:46 static/image/common/back.gif
# |$ j+ Z8 `9 Z/ N" c+ }请问，能否做到下图的属性？

用附上的原檔要更改為其中零件時,操作如下:
看圖說明,不清楚再討論
1_宏更名.jpg

hongwei_1987jp · 发表于 2013-12-16 14:24:28

ryouss 发表于 2013-12-16 13:49 static/image/common/back.gif
8 x5 L: c' |9 N' ?8 r$ V看圖說明,不清楚再討論

谢谢说明
可能没有明白我说的意思

我的意思是，宏里面有计算点数的数量，要是在点数那个自定义栏里加上孔大小尺寸定义后，有数值显示。
关闭自定义操作，点更新后，那一栏还是只有点的数量，自己添加的尺寸大小消失了

要求达到的效果

捕获.PNG

消失了添加定义

ryouss · 发表于 2013-12-16 15:37:09

hongwei_1987jp 发表于 2013-12-16 14:24 static/image/common/back.gif7 \ R W. y; s/ ^ }0 Y% c% E1 i9 {
谢谢说明
1 H" k& S0 Y4 u1 P$ o" ]可能没有明白我说的意思

如附圖嗎

hongwei_1987jp · 发表于 2013-12-16 17:23:59

本帖最后由 hongwei_1987jp 于 2013-12-16 22:46 编辑

对，是这个意思

通过其他办法解决了，不如你的好，你的宏分享下可以不

捕获2.PNG

ryouss · 发表于 2013-12-16 20:35:23

本帖最后由 ryouss 于 2013-12-17 10:07 编辑

hongwei_1987jp 发表于 2013-12-16 17:23 static/image/common/back.gif
6 q$ {& r0 [5 u, F9 e) e$ [对，是这个意思
1 ]& z* w! D& J" p6 R- l. `: _
' u9 [7 A) H& n: Q通过其他办法解决了，不如你的好，你的宏分享下可以不

作參考
'2012 sp4 手動操作正常,
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
1
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim found As Object
Dim PointsCount As Long
Dim myDimension_1 As Object
Dim myDimension_2 As Object
Dim myDimension_3 As Object
Set myDimension_1 = Part.Parameter("D1@草圖2") '總長
Set myDimension_2 = Part.Parameter("D2@草圖2") '三角邊長
Set myDimension_3 = Part.Parameter("D3@草圖2") '短邊長
Set SelMgr = Part.SelectionManager '設定選取物件的變數名稱
boolstatus = Part.Extension.SelectByID2("草圖2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0) '在草圖2選取全部的"物件"
Set found = SelMgr.GetSelectedObject(1)
PointsCount = found.GetSpecificFeature2.GetUserPointsCount '取得"點"的個數
Part.DeleteCustomInfo2 "", found.Name
Part.AddCustomInfo3 "", found.Name, 30, PointsCount + 1 & "x" & myDimension_1.SystemValue * 1000 & "x" & myDimension_2.SystemValue * 1000 & "x" & myDimension_3.SystemValue * 1000 '"點"的個數及尺寸規格傳回屬性表
Part.ClearSelection2 True '跳出選取狀態
End Sub

Macro3-1.zip (6.64 KB, 下载次数: 9)

飞扬5518 · 发表于 2013-12-16 21:29:42

谢谢分享，收藏中

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

4

浏览过的版块