请教一个关于装配的问题

wangqin0204

我想在装配中加入新零件
Imports System.Runtime.InteropServices
Imports NXOpen
Imports NXOpen.Features
Imports NXOpen.Preferences
Imports NXOpen.UF

Module EX_Modl

    Dim theSession As Session
    Dim theUfSession As UFSession

    Public Sub Main()
        theSession = Session.GetSession()
        theUfSession = UFSession.GetUFSession()
　　　　Dim part1dir As String = "d:\ceshi.prt"
        Dim aspart As NXOpen.Tag= theUfSession.Part.AskPartTag(part1dir)
        Dim insname1 As String = "a"
        Dim refname1 As String = ""
        Dim origin(3) As Double
        Dim cys_matrix() As Double = {1, 0, 0, 0, 0, 1}
        Dim ptag1 As NXOpen.Tag
        Dim errorstatus1 As NXOpen.UF.UFPart.LoadStatus
        theUfSession.Assem.AddPartToAssembly(aspart, part1dir, refname1, insname1, origin, cys_matrix, 0, ptag1, errorstatus1)
        theUfSession.Part.Save()
                　end sub
End Module
为什么总提示tag有错误！！？？
我是新手，谢谢各位指教

wangqin0204

stoneld