材料属性

开搜AI为您找到8个科技领域问答内容，共有302名用户找到解决方法，更多关于科技领域问题，使用开搜直达结果

浏览量：302

父标签：

子标签：

Dim swApp As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object Dim swmodel As ModelDoc2 Dim swmodelComps As Variant Dim swmodelComp As SldWorks.Component2 Dim swAsm As SldWorks.AssemblyDoc Dim a As Integer Dim b As String Dim m As String Dim e As String Dim k As String Dim t As String Dim c As String Dim j As Integer Dim n As String Dim d As Integer Dim strmat As String Dim tempvalue As String Sub main() 'link solidworks Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager swApp.ActiveDoc.ActiveView.FrameState = 1 Set swmodel = swApp.ActiveDoc Set swAsm = swmodel swmodelComps = swAsm.GetComponents(True) c = getasmchild(swmodelComps) End Sub Sub main() Private Function getasmchild(swmodelComps As Variant) Dim swmodelComp As SldWorks.Component2 Dim swmodel As ModelDoc2 Dim swAsm As SldWorks.AssemblyDoc For i = 0 To UBound(swmodelComps) Set swmodelComp = swmodelComps(i) Set swmodel = swmodelComp.GetModelDoc2 If swmodel.GetType = 1 Then MsgBox (swmodel.GetTitle) ElseIf swmodel.GetType = 2 Then swAsm = swmodel getasmchild (swAsm.GetComponents(True)) End If Next End Function '设定变量 c = swApp.ActiveDoc.GetTitle() '零件名 strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34) blnretval = Part.DeleteCustomInfo2("", "代号") blnretval = Part.DeleteCustomInfo2("", "名称") a = InStr(c, "_") - 1 If a > 0 Then k = Left(c, a) t = Left(LTrim(e), 3) If t = "GBT" Then e = "GB/T" + Mid(k, 4) Else e = k End If b = Mid(c, a + 2) t = Right(c, 7) If t = ".SLDPRT" Or t = ".SLDASM" Then j = Len(b) - 7 Else j = Len(b) End If m = Left(b, j) d = InStr(m, "_") - 1 If d > 0 Then n = Left(m, d) Else n = m End If End If blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '增加自定义代号 blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, n) '增加自定义名称 blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ") End Sub

看起来你提供的代码是一段用于SolidWorks的VBA宏，用于处理SolidWorks文档中的一些自动化任务。这段代码包含了几个子程序和函数，用于遍历装配体中的组件，获取它们的标题，并根据特定的规则修改和添加自定义属性。不过，你的代码中存在一些问题和错误，我将为你指出并提供一些建议：你定义了两个main子程序，这会导致编译错误。你应该只保

1月前

由于汽车机油滤清器外壳的尺寸较小且结构较为简单，为了提高求解准确率，采用最大尺寸为2 mm的自适应壳单元的四边形网格对尺寸直径为200mm的板料进行网格划分。凸模、凹模和压边圈采用最大尺寸为5 mm的网格进行网格划分。拉深凸、凹模和压边圈均可看作是刚体，在成形过程中忽略凸、凹模的形变，因此只使用模具工作表面，便可在有限元软件里进行仿真分析。成形坯料是变形体，使用的材料是DC04，拟选用直径为200mm的圆形坯料。图3-1是在有限元软件里经网格划分后的一次拉深凸、凹模和压边圈

根据您提供的信息，您正在讨论汽车制造过程中的拉深成形仿真分析。在这种情况下，使用有限元分析软件对汽车零件的成形过程进行模拟是一种常见的工程实践。以下是对您描述情况的简要概述：网格划分：在进行有限元分析时，对板料进行网格划分是关键步骤之一。您提到使用最大尺寸为2mm的自适应壳单元的四边形网格对直径为200mm的板料进行网格划分，这有助于提高求

2月前

ASP30是什么材料

ASP30是一种含钴的粉末高速钢材料，以其高耐磨性、良好的韧性和耐热性而广泛应用于切削加工领域。材料特性化学成分**：含有较高比例的碳、铬、钼、钨、钒、钴等元素。性能特点**：具有高硬度、良好的热处理尺寸稳定性、优异的韧性和红硬性。热处理**：淬火温度范围1100-1180℃，回火温度560-580℃×3次，硬度可达H

1月前

钛金是什么金

钛金是一种以钛为主要组分的仿金材料，也可以称为纯钛或钛金板。它的质地坚硬，重量较轻，可以抵制侵蚀。钛金具有未来的特质，质地坚韧、耐腐蚀、银亮、不会变黑、对任何人不过敏。钛金主要用于工程和航空产业，也可以用于高端和豪华的产品，如手表、珠宝、电子产品等。^ 此外，钛金也可以通过电镀的技术使其表面获得金属层，呈现出金黄色的效果。这种材质还可以通过不同的处理工艺，

2月前

420J2纵向弹性模量

420J2是一种马氏体不锈钢，其弹性模量是衡量材料抵抗弹性变形能力的重要参数。虽然在提供的参考资料中没有直接给出420J2的纵向弹性模量的具体数值，但我们可以从一些相关信息中推测其特性。首先，弹性模量是材料在受力时抵抗形变的能力，它与材料的化学成分、微观组织、温度等因素有关。 420J2不锈钢的强度和硬度高于420J2（3Cr13），但韧性和耐蚀性略低。

2月前

fc300是什么材料

FC300是一种日本标准的灰铸铁材料。^ ^ ^。它对应于中国的HT300材料。^ 以下是关于FC300的一些详细信息： FC300的机械性能要求抗拉强度σb≥300MPa，硬度HBW≤262。^ FC300的主要化学成分包括铁、碳、硅、锰等，其中碳的质量分数为2.9-3.1%。^ FC300的硬度要求为HBW 220-260范围。^

1月前

金属焊接技术真的能保障足够的强度和韧度吗？

金属焊接技术确实能够保障足够的强度和韧度。在焊接过程中，选择合适的焊接方法、焊接材料、焊接工艺参数等因素都对接头的强度有重要影响。例如，不同的焊接类型根据焊接项目的特点（如厚度、材料类型、所需强度和表面光洁度、成本等）进行选择，以确保焊接接头的质量。同时，选择合适的焊接材料和优化焊接设计也是提高焊接强度的关键。此外，通过深入理解检测原理、选择合适的检测方

4周前

玻璃硬度是多少

玻璃的硬度通常是6左右。具体来说，玻璃作为一种广泛应用于多个领域的材料，其硬度等级最新标准可以达到6.5度。^^按照莫氏硬度表来计算，玻璃的硬度为6.5，硬度越高，其耐磨性也越好。^^此外，玻璃的莫氏硬度一般在6左右，对玻璃硬度的测定最为普遍的方法是显微硬度法。^^也有资料表明玻璃的硬度为6\~7，这是因为在制作玻璃的主要原料是石英。^^另外，对于钢

3周前