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

luUl7vz

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

问题是,建立第一次变换矩阵成功后(status1=0),不可建立第二次变换矩阵.
否则就出错.奇怪?
若将第二次变换代码删除,程序可顺利运行到下面的变换代码,但提示出错.
看一下ug界面内的运行结果.是变换成功的.那为何还要提示错误呢?
建立回转体是不可能了.
+ T+ `3 m# r7 M6 o
. D5 `" s6 a  u3 |3 u请高手指点,不甚感激!
- u6 z# i% J& Z; h( L# n
Private Sub CreateRevolveSolid(ByVal Ang As Double, ByVal sp As Point3d, ByVal ep As Point3d)
        Dim objTags(100) As NXOpen.Tag
3 s8 o9 |7 n+ `        Dim i As Integer
        For i = 0 To arrCurves.Length - 1
            objTags(i) = arrCurves(i).Tag
7 Z# C7 t: F! q' y8 r        Next
        Dim origin(2) As Double
        Dim origin1(2) As Double
/ X" l- ?) o8 X1 B% d% P. f' Q        Dim origin2(2) As Double
        origin(0) = 0 : origin(1) = 0 : origin(2) = 0
        origin1(0) = 0 : origin1(1) = 0 : origin1(2) = 0
        origin2(0) = 0 : origin2(1) = 0 : origin2(2) = 0
5 c6 E' G! M1 M0 k/ r        Dim direction(2) As Double
        Dim direction1(2) As Double
3 F1 U1 d, _8 t* b        Dim direction2(2) As Double
* a' \: W2 e( W( K- Z% Q2 i) V        Dim mat As Double
3 R9 ^: A7 s3 S6 b. M* m        Dim mat1 As Double
        Dim mat2 As Double
        Dim status As Integer
' ?! D' N! r+ q9 G0 K* j( E- s        Dim status1 As Integer
        Dim status2 As Integer
8 T9 u7 ]) G/ _- G' G  v        Dim Features(100) As NXOpen.Tag
: u" h1 M+ t6 n8 n7 e        Dim copies(100) As NXOpen.Tag
        Dim ang1 As Double = 90
        Dim ang2 As Double = 90
  }. \" I' {5 b        direction1(0) = 1 : direction1(1) = 0 : direction1(2) = 0
        direction2(0) = 0 : direction2(1) = 0 : direction2(2) = 1
        '构建第一变换矩阵
        MsgBox("Matrix1" & status1.ToString)
9 H* O; ]( d, y; _' V        ufse.Trns.CreateRotationMatrix(origin1, direction1, ang1, mat1, status1)
$ r4 d$ U; ]! K        MsgBox("Matrix1 status" & status1.ToString)
% y& P; N# M& X+ b$ o! |5 u) o        '构建第二变换矩阵
        ufse.Trns.CreateRotationMatrix(origin2, direction2, ang2, mat2, status2)
- K! K! a0 \2 E! p# N. a        MsgBox("Matrix2 status" & status2.ToString)
        
; S8 l1 o, I- c7 v2 D% h7 V        'ufse.Trns.MultiplyMatrices(mat1, mat2, mat)
4 j4 I4 O! \9 {& I8 m        '变换
        MsgBox("transform1")
- _) S1 H: B4 ^( e4 q        ufse.Trns.TransformObjects(mat1, objTags, arrCurves.Length, 2, 0, 2, copies, Nothing, status)
% _' O# q3 U! ]- h% J! K! s        MsgBox("transform1 ok")
; [. \, B8 I- T/ f% Z        Dim limit(1) As String
        limit(0) = CStr(-Ang) : limit(1) = CStr(Ang)
* P9 @9 D1 M; g: s& l        Dim offset(1) As String
        offset(0) = "0.0" : offset(1) = "0.0"
        '生成回转体
5 T4 H0 F- ^& }- l        Dim cou As Integer
+ y& Z& e4 D0 }: {2 u4 y        MsgBox("revolution")
        direction(1) = 0 : direction(2) = 1 : direction(3) = 0
7 ^( C9 h6 x. T4 R9 t        ufse.Modl.CreateRevolution(copies, arrCurves.Length, Nothing, limit, offset, origin, False, True, origin, direction, FeatureSigns.Nullsign, Features, cou)
# @4 k! m3 b! g    End Sub