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

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.gif8 a0 B( _% K/ V% i
请问楼主，你这种宏做法，到底在SW2013及之后的SW版本上还能用吗？

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

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

ryouss 发表于 2013-12-15 21:02 static/image/common/back.gif
( z# m# w3 c4 O手上無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
: s, N: V4 q+ O6 E请问楼主，你这种宏做法，到底在SW2013及之后的SW版本上还能用吗？

在SW2014上可以用

捕获.PNG

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

hongwei_1987jp 发表于 2013-12-16 08:46 static/image/common/back.gif
1 X! O# r" S3 ]$ F+ \在SW2014上可以用

謝謝 h大的回應

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

ryouss 发表于 2013-12-16 09:03 static/image/common/back.gif
8 a i( ^0 m! q B謝謝 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# g L) r& V* F8 P7 R
请问，能否做到下图的属性？

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

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

ryouss 发表于 2013-12-16 13:49 static/image/common/back.gif7 Y6 H) v; f) \$ c; n+ k
看圖說明,不清楚再討論

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

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

要求达到的效果

捕获.PNG

消失了添加定义

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

hongwei_1987jp 发表于 2013-12-16 14:24 static/image/common/back.gif
/ V. N9 }& ]6 `谢谢说明
) x/ s6 j- b* u, `可能没有明白我说的意思

如附圖嗎

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.gif5 u- _+ x3 ~0 T( q. n, v: K
对，是这个意思5 ^- h) l6 m m. C2 t6 n8 ~

. Y( \3 ^- X- I8 C通过其他办法解决了，不如你的好，你的宏分享下可以不

作參考
'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