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

luUl7vz

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

问题是,建立第一次变换矩阵成功后(status1=0),不可建立第二次变换矩阵.
5 h7 D; B1 ?7 l" J3 Z5 \. T否则就出错.奇怪?
  {/ V: f% Z( U- f- v. P. u若将第二次变换代码删除,程序可顺利运行到下面的变换代码,但提示出错.
: M9 W+ R# D8 G" l3 }$ U看一下ug界面内的运行结果.是变换成功的.那为何还要提示错误呢?
建立回转体是不可能了.

请高手指点,不甚感激!

Private Sub CreateRevolveSolid(ByVal Ang As Double, ByVal sp As Point3d, ByVal ep As Point3d)
- H6 b$ b% Z9 U& ]& G' _* i6 a        Dim objTags(100) As NXOpen.Tag
; ~9 j+ v" x& V6 ^  i1 Q        Dim i As Integer
9 W* ^! C/ J! L7 v5 U  O' V  M; _        For i = 0 To arrCurves.Length - 1
8 Z: s$ d6 K9 I            objTags(i) = arrCurves(i).Tag
1 ]" q: [( w4 V        Next
        Dim origin(2) As Double
3 T; Y; G  _5 z2 a) V: u% L+ {        Dim origin1(2) As Double
        Dim origin2(2) As Double
        origin(0) = 0 : origin(1) = 0 : origin(2) = 0
% J  B+ y: q/ E# `9 }/ I6 h" X        origin1(0) = 0 : origin1(1) = 0 : origin1(2) = 0
; y( K) M/ u! Y. @' c        origin2(0) = 0 : origin2(1) = 0 : origin2(2) = 0
        Dim direction(2) As Double
        Dim direction1(2) As Double
7 J3 g  L0 w2 g        Dim direction2(2) As Double
0 L$ N. j% I) w        Dim mat As Double
        Dim mat1 As Double
2 A+ S1 T, q+ e" G# l        Dim mat2 As Double
5 K6 |2 V* o) B5 T4 a        Dim status As Integer
        Dim status1 As Integer
        Dim status2 As Integer
7 b! C& ^. k7 B5 [2 b        Dim Features(100) As NXOpen.Tag
# W0 T9 k" Q1 N# r        Dim copies(100) As NXOpen.Tag
        Dim ang1 As Double = 90
        Dim ang2 As Double = 90
" A( n* H7 o+ @# E        direction1(0) = 1 : direction1(1) = 0 : direction1(2) = 0
        direction2(0) = 0 : direction2(1) = 0 : direction2(2) = 1
        '构建第一变换矩阵
) o6 c3 ?& ?0 K/ H/ P  F        MsgBox("Matrix1" & status1.ToString)
        ufse.Trns.CreateRotationMatrix(origin1, direction1, ang1, mat1, status1)
        MsgBox("Matrix1 status" & status1.ToString)
0 ^/ [9 l' }7 f$ j        '构建第二变换矩阵
2 A2 ]/ \* @6 h4 |7 v' u9 x: S- A2 w        ufse.Trns.CreateRotationMatrix(origin2, direction2, ang2, mat2, status2)
4 E! _" X/ C. S        MsgBox("Matrix2 status" & status2.ToString)
        
        'ufse.Trns.MultiplyMatrices(mat1, mat2, mat)
        '变换
        MsgBox("transform1")
7 D$ y9 S) d1 ]( m$ [        ufse.Trns.TransformObjects(mat1, objTags, arrCurves.Length, 2, 0, 2, copies, Nothing, status)
        MsgBox("transform1 ok")
6 Q0 q: {% I# J; S8 ~. Q        Dim limit(1) As String
        limit(0) = CStr(-Ang) : limit(1) = CStr(Ang)
        Dim offset(1) As String
        offset(0) = "0.0" : offset(1) = "0.0"
, c8 e& t! x. r. w5 {; X        '生成回转体
        Dim cou As Integer
9 d& i, m* k' T  B) |8 d        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)
; b. T7 l; m" U9 v& V7 F- f    End Sub