找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 1674|回复: 0
打印 上一主题 下一主题

[求助] 怎么获取零件的外形尺寸写入配置

[复制链接]
跳转到指定楼层
1
发表于 2019-8-30 11:23:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
以下的是获取的装配体外形尺寸写入配置
但是我现在需要的是零件的
  1. Dim swApp                   As SldWorks.SldWorks
  2. Dim swModel                 As SldWorks.ModelDoc2
  3. Dim vBox                    As Variant
  4. Dim X_max                   As Double
  5. Dim X_min                   As Double
  6. Dim Y_max                   As Double
  7. Dim Y_min                   As Double
  8. Dim Z_max                   As Double
  9. Dim Z_min                   As Double
  10. Dim chang                   As Double
  11. Dim kuan                    As Double
  12. Dim gao                     As Double
  13. Sub main()

  14.     Set swApp = Application.SldWorks
  15.     Set swModel = swApp.ActiveDoc
  16.     vBox = swModel.GetBox()  '获取装配体的边界框swBoundingBoxIncludeRefPlanes
  17.    
  18.     X_max = vBox(3)                                      '获取边界框6个点的坐标
  19.     X_min = vBox(0)
  20.     Y_max = vBox(4)
  21.     Y_min = vBox(1)
  22.     Z_max = vBox(5)
  23.     Z_min = vBox(2)
  24.    
  25.     chang = X_max * 1000 - X_min * 1000            '获取长宽高
  26.     kuan = Y_max * 1000 - Y_min * 1000
  27.     gao = Z_max * 1000 - Z_min * 1000
  28.    
  29.     blnretval = swModel.DeleteCustomInfo2("", "外形尺寸")  '把数据导入属性栏
  30.     blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, Format(chang, "0.0") & "*" & Format(kuan, "0.0") & "*" & Format(gao, "0.0"))
  31.    
  32. End Sub
复制代码


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-5 20:30 , Processed in 0.023418 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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