vb.net调用ufun函数遇到的问题,求解!

luUl7vz

请看下面的子程序.
目的是对全局变量arrCurves()内的曲线对象进行两次变换.
然后,建立回转体.

问题是,建立第一次变换矩阵成功后(status1=0),不可建立第二次变换矩阵.
8 s0 H+ Q# D; m0 ^0 @, \6 u+ e  b否则就出错.奇怪?
若将第二次变换代码删除,程序可顺利运行到下面的变换代码,但提示出错.
* I% T, d0 h9 e/ O+ D. N看一下ug界面内的运行结果.是变换成功的.那为何还要提示错误呢?
建立回转体是不可能了.
  Z+ E, F: h1 i
请高手指点,不甚感激!
+ [' I, G. `+ N: [; L6 J2 z7 A
8 a+ @3 }" Z+ I3 x- y7 yPrivate Sub CreateRevolveSolid(ByVal Ang As Double, ByVal sp As Point3d, ByVal ep As Point3d)
' ^: [1 _. J; o- Q. G        Dim objTags(100) As NXOpen.Tag
        Dim i As Integer
        For i = 0 To arrCurves.Length - 1
, h: F- s/ C& P4 I2 x            objTags(i) = arrCurves(i).Tag
/ R' r: U7 B* p4 y; T        Next
3 D# f& ^* S2 V        Dim origin(2) As Double
4 a- z' ?+ D7 s  t: S4 Y) ]. K        Dim origin1(2) As Double
        Dim origin2(2) As Double
% |7 @0 [( f: n8 z        origin(0) = 0 : origin(1) = 0 : origin(2) = 0
9 }! D, \4 }* v8 I# N        origin1(0) = 0 : origin1(1) = 0 : origin1(2) = 0
        origin2(0) = 0 : origin2(1) = 0 : origin2(2) = 0
        Dim direction(2) As Double
        Dim direction1(2) As Double
        Dim direction2(2) As Double
        Dim mat As Double
        Dim mat1 As Double
        Dim mat2 As Double
        Dim status As Integer
        Dim status1 As Integer
        Dim status2 As Integer
4 B) f* Y# p6 U2 x4 w$ n        Dim Features(100) As NXOpen.Tag
7 D( P) k1 m" D0 K        Dim copies(100) As NXOpen.Tag
* i& S5 m  V( O' f        Dim ang1 As Double = 90
        Dim ang2 As Double = 90
+ P/ Y8 f5 Z( u5 k& [        direction1(0) = 1 : direction1(1) = 0 : direction1(2) = 0
        direction2(0) = 0 : direction2(1) = 0 : direction2(2) = 1
        '构建第一变换矩阵
9 [2 s9 n3 I3 d* j        MsgBox("Matrix1" & status1.ToString)
( N+ ]( Y+ U4 M        ufse.Trns.CreateRotationMatrix(origin1, direction1, ang1, mat1, status1)
2 H1 e- }$ H* x# s" E        MsgBox("Matrix1 status" & status1.ToString)
        '构建第二变换矩阵
        ufse.Trns.CreateRotationMatrix(origin2, direction2, ang2, mat2, status2)
# i( Z. Q0 A/ ?        MsgBox("Matrix2 status" & status2.ToString)
- y/ j/ m' I  U/ y$ C( `  Z% V        
$ g8 R1 J. x  g/ s, G* _        'ufse.Trns.MultiplyMatrices(mat1, mat2, mat)
        '变换
; A4 J+ L. {* c9 k$ s        MsgBox("transform1")
        ufse.Trns.TransformObjects(mat1, objTags, arrCurves.Length, 2, 0, 2, copies, Nothing, status)
1 B. s; X: v3 I) i. \        MsgBox("transform1 ok")
( u" n; a: f, }4 }" V        Dim limit(1) As String
& V$ }  W, ^& W- I3 J        limit(0) = CStr(-Ang) : limit(1) = CStr(Ang)
        Dim offset(1) As String
        offset(0) = "0.0" : offset(1) = "0.0"
        '生成回转体
1 f% k$ H3 W+ A& e        Dim cou As Integer
# q& Y% K8 x8 F9 R+ m+ [& Y        MsgBox("revolution")
! R/ t9 ~, j0 G2 ?, q% B! m, K        direction(1) = 0 : direction(2) = 1 : direction(3) = 0
        ufse.Modl.CreateRevolution(copies, arrCurves.Length, Nothing, limit, offset, origin, False, True, origin, direction, FeatureSigns.Nullsign, Features, cou)
    End Sub