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

luUl7vz

请看下面的子程序.
目的是对全局变量arrCurves()内的曲线对象进行两次变换.
+ t# o7 A2 W* F! Z: N然后,建立回转体.
; s; c* m3 K: m1 I
# L! X! W9 v# U7 c  ?) Y问题是,建立第一次变换矩阵成功后(status1=0),不可建立第二次变换矩阵.
否则就出错.奇怪?
8 ^& ?7 G( `( l# ^若将第二次变换代码删除,程序可顺利运行到下面的变换代码,但提示出错.
看一下ug界面内的运行结果.是变换成功的.那为何还要提示错误呢?
建立回转体是不可能了.
( o' I5 a! S$ o5 s$ n
请高手指点,不甚感激!

( F1 c: i( _. J" R* o, iPrivate Sub CreateRevolveSolid(ByVal Ang As Double, ByVal sp As Point3d, ByVal ep As Point3d)
        Dim objTags(100) As NXOpen.Tag
; y# F. Q, }4 I9 U1 x9 e2 N2 E        Dim i As Integer
        For i = 0 To arrCurves.Length - 1
8 z4 H) b' O$ U' n7 c2 |" u            objTags(i) = arrCurves(i).Tag
        Next
        Dim origin(2) As Double
        Dim origin1(2) As Double
        Dim origin2(2) As Double
        origin(0) = 0 : origin(1) = 0 : origin(2) = 0
; M1 H( k- S0 n. ^8 Z1 Q        origin1(0) = 0 : origin1(1) = 0 : origin1(2) = 0
        origin2(0) = 0 : origin2(1) = 0 : origin2(2) = 0
        Dim direction(2) As Double
/ _( A8 l; H' j: @" S! Y        Dim direction1(2) As Double
        Dim direction2(2) As Double
- ^! i! [: _5 [3 N; z; w        Dim mat As Double
% W. J) r& M! X7 ]& w6 n3 W! v        Dim mat1 As Double
1 d8 R1 ]0 h: O% i! s, K        Dim mat2 As Double
        Dim status As Integer
        Dim status1 As Integer
        Dim status2 As Integer
        Dim Features(100) As NXOpen.Tag
8 c. b/ {; N$ ~        Dim copies(100) As NXOpen.Tag
        Dim ang1 As Double = 90
; e: t# b7 ]2 P9 h        Dim ang2 As Double = 90
        direction1(0) = 1 : direction1(1) = 0 : direction1(2) = 0
1 v# [- ?- J& R9 C1 j& l: S$ u        direction2(0) = 0 : direction2(1) = 0 : direction2(2) = 1
  F, a  j7 M8 Q4 G9 ^* p) N        '构建第一变换矩阵
        MsgBox("Matrix1" & status1.ToString)
6 }2 @% j) M" \        ufse.Trns.CreateRotationMatrix(origin1, direction1, ang1, mat1, status1)
        MsgBox("Matrix1 status" & status1.ToString)
        '构建第二变换矩阵
        ufse.Trns.CreateRotationMatrix(origin2, direction2, ang2, mat2, status2)
  ^  b$ P' B& k7 {! f/ }- m        MsgBox("Matrix2 status" & status2.ToString)
: F$ A( j) C1 G* G9 h        
        'ufse.Trns.MultiplyMatrices(mat1, mat2, mat)
( B8 s( U# e$ {, ]' g# \+ X        '变换
3 J$ z" V* U# ]& x5 Y7 y        MsgBox("transform1")
, K  }6 y  ^7 R9 e9 E        ufse.Trns.TransformObjects(mat1, objTags, arrCurves.Length, 2, 0, 2, copies, Nothing, status)
4 Z# {! |" |) K  k. d/ S        MsgBox("transform1 ok")
2 W" R# }& @1 L        Dim limit(1) As String
$ ?0 D4 l& M5 H        limit(0) = CStr(-Ang) : limit(1) = CStr(Ang)
! A- l. u: x3 c5 L3 `4 j  u& S        Dim offset(1) As String
        offset(0) = "0.0" : offset(1) = "0.0"
4 X7 w6 y3 O6 J4 l7 U6 c! e8 |        '生成回转体
        Dim cou As Integer
        MsgBox("revolution")
1 i. v6 s; d  d: V5 x# A        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