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

luUl7vz

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

问题是,建立第一次变换矩阵成功后(status1=0),不可建立第二次变换矩阵.
否则就出错.奇怪?
若将第二次变换代码删除,程序可顺利运行到下面的变换代码,但提示出错.
看一下ug界面内的运行结果.是变换成功的.那为何还要提示错误呢?
  }7 s, m2 u5 {' Y建立回转体是不可能了.

7 c4 \% c4 B4 |& q2 [请高手指点,不甚感激!

9 F6 N9 ]3 C! B( S; gPrivate Sub CreateRevolveSolid(ByVal Ang As Double, ByVal sp As Point3d, ByVal ep As Point3d)
' y% M( v% \# ^% k; y6 }2 h        Dim objTags(100) As NXOpen.Tag
        Dim i As Integer
8 _2 |. t* e( x2 l4 c2 t/ o        For i = 0 To arrCurves.Length - 1
( F* E2 T, Z+ x            objTags(i) = arrCurves(i).Tag
        Next
1 }: N& u( b- g& o! B$ O        Dim origin(2) As Double
" i. a" D2 }( G$ W- N        Dim origin1(2) As Double
- c) t6 _! x  B4 L0 j* h        Dim origin2(2) As Double
        origin(0) = 0 : origin(1) = 0 : origin(2) = 0
  l- k; R6 I& ^% Y. `        origin1(0) = 0 : origin1(1) = 0 : origin1(2) = 0
        origin2(0) = 0 : origin2(1) = 0 : origin2(2) = 0
  f6 [" d% V: h! Z) o( A        Dim direction(2) As Double
0 {* h8 h' S& @6 e# z' M9 E        Dim direction1(2) As Double
        Dim direction2(2) As Double
0 `/ |; a3 q, V% \  |- p, s        Dim mat As Double
  C9 X4 J( e: v; Q        Dim mat1 As Double
        Dim mat2 As Double
        Dim status As Integer
' O1 z; z* a' h1 Y3 u& H( I& Y        Dim status1 As Integer
        Dim status2 As Integer
        Dim Features(100) As NXOpen.Tag
        Dim copies(100) As NXOpen.Tag
- d% |2 K  m% m# D7 E3 _' F        Dim ang1 As Double = 90
$ N+ S( w0 g/ C: [) h        Dim ang2 As Double = 90
$ w0 d5 A% p6 c( D+ U* S& H        direction1(0) = 1 : direction1(1) = 0 : direction1(2) = 0
. S3 c/ g; I: c  o# W  h        direction2(0) = 0 : direction2(1) = 0 : direction2(2) = 1
# N- H- t' c! \7 X        '构建第一变换矩阵
5 J. h! t  _6 G& m" _$ O' D        MsgBox("Matrix1" & status1.ToString)
        ufse.Trns.CreateRotationMatrix(origin1, direction1, ang1, mat1, status1)
! V# J3 R- [9 |# ]- h: h3 {        MsgBox("Matrix1 status" & status1.ToString)
        '构建第二变换矩阵
2 P/ T* P. s& ^/ l# I* d1 ^        ufse.Trns.CreateRotationMatrix(origin2, direction2, ang2, mat2, status2)
  {. ~7 Z* t; Z  ~# F% q0 |: c        MsgBox("Matrix2 status" & status2.ToString)
        
7 t% m1 {2 @. ^1 P        'ufse.Trns.MultiplyMatrices(mat1, mat2, mat)
% m- P7 J: Q# {5 J5 T# S+ c        '变换
        MsgBox("transform1")
        ufse.Trns.TransformObjects(mat1, objTags, arrCurves.Length, 2, 0, 2, copies, Nothing, status)
        MsgBox("transform1 ok")
        Dim limit(1) As String
        limit(0) = CStr(-Ang) : limit(1) = CStr(Ang)
        Dim offset(1) As String
; @  t+ [1 N, S$ O- {0 I3 K& F        offset(0) = "0.0" : offset(1) = "0.0"
        '生成回转体
        Dim cou As Integer
7 `% Q; Q8 [8 w2 Z: y        MsgBox("revolution")
        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