iCAx开思工具箱

标题: 请教一个关于装配的问题 [打印本页]

作者: wangqin0204    时间: 2006-8-17 11:06
标题: 请教一个关于装配的问题
我想在装配中加入新零件
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    时间: 2006-8-18 08:49
怎么没人解答阿
作者: stoneld    时间: 2006-9-23 18:09
应该是d:\\ceshi.prt
\字符要转义




欢迎光临 iCAx开思工具箱 (https://t.icax.org/) Powered by Discuz! X3.3