catia中vba控件初始化：CATIA二次开发VBA

catia中vba控件初始化：CATIA二次开发VBAEvPara = Split(PropStr "->") Case "Create" Set parameters1 = Oproduct.UserRefProperties Dim EvPara() As String Ev As Integer GetInfo(5) As String Select Case OpIndex

不喜欢文字三千行，代码二十字，简单上：

Public Function ProductProperties(ByVal Oproduct As Product ByVal PropStr As String OpIndex As String) As String

On Error Resume Next

Dim parameters1 As Parameters

Set parameters1 = Oproduct.UserRefProperties

Dim EvPara() As String Ev As Integer GetInfo(5) As String

Select Case OpIndex

Case "Create"

EvPara = Split(PropStr "->")

parameters1.CreateString "单位名称" EvPara(0)

parameters1.CreateString "图纸名称" EvPara(1)

parameters1.CreateString "图纸编号" EvPara(2)

parameters1.CreateString "材料名称" EvPara(3)

parameters1.CreateString "设计" EvPara(4)

parameters1.CreateString "Standard" EvPara(5)

ProductProperties = "Created"

Case "Read"

If parameters1.Count = 0 Then ProductProperties Oproduct "单位->图名->编号->材料->设计->No" "Create"

GetInfo(0) = parameters1.Item("单位名称").ValueAsString

GetInfo(1) = parameters1.Item("图纸名称").ValueAsString

GetInfo(2) = parameters1.Item("图纸编号").ValueAsString

GetInfo(3) = parameters1.Item("材料名称").ValueAsString

GetInfo(4) = parameters1.Item("设计").ValueAsString

GetInfo(5) = parameters1.Item("Standard").ValueAsString

ProductProperties = Join(GetInfo "->")

Case "Modify"

If parameters1.Count = 0 Then ProductProperties Oproduct "单位->图名->编号->材料->设计->No" "Create"

EvPara = Split(PropStr "->")

parameters1.Item("单位名称").ValuateFromString EvPara(0)

parameters1.Item("图纸名称").ValuateFromString EvPara(1)

parameters1.Item("图纸编号").ValuateFromString EvPara(2)

parameters1.Item("材料名称").ValuateFromString EvPara(3)

parameters1.Item("设计").ValuateFromString EvPara(4)

parameters1.Item("Standard").ValuateFromString EvPara(5)

ProductProperties = "Modified"

End Select

End Function

以上是完整示例，自己调整、稍作修改后即可用在工作中了，爽的话就赞就关注，我自己的作品示例：