VB.net for UG

Public Sub Main()
        Dim attrTitle() As String = {"fistAttr", "secondlyAttr"}
        Dim attrValue() As String = {"11111111", "22222222"}
        Dim attrNumber As Integer = 2 '属性个数
        Dim userPart As Part
        Dim flag As Char = "w" '定义为写入属性

        'FistProgram()
        userPart = CreatePart()
        ReadWritePartAttr(attrTitle, attrValue, attrNumber, userPart, flag)
    End Sub

Public Function CreatePart() As Part
        '第二讲
        '通过第一讲，我们对VB。NET 有一个初步的了解 ，接下来我们做什么呢，
        '当然是新建一个部件文件。
        Dim fistPart As Part
        Dim partName As String = "firstPart" '部件名称
        Dim partUnits As NXOpen.Part.Units = Part.Units.Millimeters '部件单位（公制还是英制）

        fistPart = theSession.Parts.NewDisplay(partName, partUnits)

        MsgBox("成功创建部件", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "信息")

        CreatePart = fistPart
    End Function

Public Function ReadWritePartAttr(ByVal attrTitle() As String, ByVal attrValue() As String, _
                                        ByVal attrNumber As Integer, ByVal userPart As Part, _
                                        ByVal flag As Char) As Char
        '第三讲
        '和部件属性的读写
        Dim i As Integer
        If ("r" = flag) Then
            For i = 0 To attrNumber - 1
                attrValue(i) = userPart.GetStringAttribute(attrTitle(i)) '读取属性
            Next
            ReadWritePartAttr = "r"
        Else
            For i = 0 To attrNumber - 1
                userPart.SetAttribute(attrTitle(i), attrValue(i)) '写入或修改属性
            Next
            ReadWritePartAttr = "w"
        End If
    End Function

今天做一个中心点四方块

下面是图示

[ 本帖最后由 chenwenwei 于 2006-10-28 00:36 编辑 ]

顶顶，这个对偶来说深了点，但对有的人还是很有用。

下面是源代码和初步成品   

像偶这样不懂的菜鸟不知以后是学VB好呢，还是学C++好

顶

顶