+发表新主题
zhuangquan1 发布于2023-3-5 15:31 275 次浏览 33 位用户参与讨论
跳转到指定楼层
50125310 发表于 2023-3-27 15:24:26
woxin111 发表于 2023-3-25 20:23
file:///C:/Users/luoheng/Desktop/test.png

老中医大佬,这个实际尺寸跟用代码引用的尺寸差太多了哇 ......

  • Dim doc As PartDocument = ThisDoc.Document '零件PartDocument, 部件AssemblyDocument。
  • oCompDef = doc.ComponentDefinition
  • Dim oparams As Parameters = oCompDef.Parameters
  • Dim oparam As Parameter

  • Dim oPt1 As Point, oPt2 As Point
  • oPt1 = oCompDef.RangeBox.MaxPoint
  • oPt2 = oCompDef.RangeBox.MinPoint
  • Dim X As Double, Y As Double, Z As Double
  • X = Abs(oPt1.X - oPt2.X)
  • Y = Abs(oPt1.Y - oPt2.Y)
  • Z = Abs(oPt1.Z - oPt2.Z)

  • For Each oparam In oparams
  •                 If oparam.Name = "长" Then exists = True
  •             If oparam.Name = "宽" Then exists1 = True
  •                 If oparam.Name = "高" Then exists2 = True
  •         Next oparam
  • If exists Then
  •                          oparams.Item("长").Value = Round(X,1) '参阅Round函数
  •                 Else
  •                         oparams.UserParameters.AddByValue("长",Round(X,1) , "mm")
  •                 End If
  • If exists1 Then
  •                          oparams.Item("宽").Value = Round(Y,1)
  •                 Else
  •                         oparams.UserParameters.AddByValue("宽", Round(Y,1)  , "mm")
  •                 End If
  • If exists2 Then
  •                          oparams.Item("高").Value =Round(Z,1)
  •                 Else
  •                         oparams.UserParameters.AddByValue("高", Round(Z,1) , "mm")                End If  

复制代码
回复

使用道具 举报

taojzh 发表于 2023-3-28 20:29:41
50125310 发表于 2023-3-27 15:24Dim doc As PartDocument = ThisDoc.Document '零件PartDocument, 部件AssemblyDocument。oCompDe ......

大佬,这个测量原理是什么?很偶然的发现有BUG,就画了几个简单的模型测试了一下,发现还真有一些问题:1.对于斜置的圆柱体测出来的不知道是什么尺寸?(斜置的长方体就是正常理解的最大外形)2.下图中一款底板上放了两个圆柱体,两个圆柱体的位置不同(均未超出底板范围),测出来的居然也不一样。按理说圆柱体的位置只要不超出底板范围,结果应该都是一样的啊。

本帖子中包含更多资源

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

x
回复

使用道具 举报

自在天涯 发表于 2023-3-29 10:43:12
50125310 发表于 2023-3-27 15:24Dim doc As PartDocument = ThisDoc.Document '零件PartDocument, 部件AssemblyDocument。oCompDe ......

老中医的代码非常好用,我这里借花献佛,录了个提取长宽高并调用的流程图

本帖子中包含更多资源

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

x
回复

使用道具 举报

zrqly 发表于 2023-3-31 01:34:02
taojzh 发表于 2023-3-28 20:29
大佬,这个测量原理是什么?很偶然的发现有BUG,就画了几个简单的模型测试了一下,发现还真有一些问题:
1 ......
XYZ三个坐标方向的最大尺寸
回复

使用道具 举报

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

本版积分规则

QQ| Archiver|手机版|小黑屋| 碧波制图网 Published by Stonespider

Copyright © 2021-2023 Kangli Wu   All Rights Reserved.

Powered by Discuz! X3.5( 苏ICP备18011607号-1 )

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