求大神来帮忙把这个宏修改一下，谢谢！！！

deihc851209 · 发表于 2023-12-7 17:41:55

经典图书

此宏是一个获取装配体最大外形尺寸的宏，但是属性值是写在自定义的，我想把属性值写在配置特定里面，原宏是在论坛里下载的一位网友的，
这是原贴：https://www.swbbsc.com/threadcon-310644.html
附上源代码：
Dim swApp                As SldWorks.SldWorks
Dim swModel                As SldWorks.ModelDoc2
Dim vBox                   As Variant
Dim X_max                As Double
Dim X_min                As Double
Dim Y_max                As Double
Dim Y_min                As Double
Dim Z_max                As Double
Dim Z_min                As Double
Dim chang                As Double
Dim kuan                   As Double
Dim gao                   As Double
Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
vBox = swModel.GetBox(swBoundingBoxIncludeRefPlanes)  '获取装配体的边界框

X_max = vBox(3)                                     '获取边界框6个点的坐标
X_min = vBox(0)
Y_max = vBox(4)
Y_min = vBox(1)
Z_max = vBox(5)
Z_min = vBox(2)

chang = X_max * 1000 - X_min * 1000          '获取长宽高
kuan = Y_max * 1000 - Y_min * 1000
gao = Z_max * 1000 - Z_min * 1000

blnretval = swModel.DeleteCustomInfo2("", "外形尺寸")  '把数据导入属性栏
blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, Format(chang, "0") & "x" & Format(kuan, "0") & "x" & Format(gao, "0"))

End Sub

lhl-RT · 发表于 2023-12-7 18:38:46

Dim params As Variant
params = swModel.GetConfigurationNames
Dim vName As Variant
Dim Name As String
Dim thisConfig As Configuration

swModel.DeleteCustomInfo2 "", "外形尺寸" '删除自定义中"外形尺寸"属性

For Each vName In params
      Name = vName
      Set thisConfig = swModel.GetConfigurationByName(Name)

      swModel.DeleteCustomInfo2 thisConfig.Name, "外形尺寸" '删除配置中"外形尺寸"属性
      swModel.AddCustomInfo3 thisConfig.Name, "外形尺寸", swCustomInfoText, _
         Format(chang, "0") & "x" & Format(kuan, "0") & "x" & Format(gao, "0") '将外形尺寸"属性添加到配置

Next vName

deihc851209 · 发表于 2023-12-8 10:16:49

经典图书

lhl-RT 发表于 2023-12-7 18:38
Dim params As Variant
params = swModel.GetConfigurationNames
Dim vName As Variant

大侠请问一下这是啥意思呢

lhl-RT · 发表于 2023-12-8 10:32:08

获取当前文档中所有的配置名
我这只是对程序后半段的修改，并不是完整的程序！！！

deihc851209 · 发表于 2024-1-4 14:07:54

经典案例图书

还是没搞定

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

求大神来帮忙把这个宏修改一下，谢谢！！！

最佳新人

活跃会员

热心会员

宣传达人

灌水之王