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

luUl7vz

请看下面的子程序.
目的是对全局变量arrCurves()内的曲线对象进行两次变换.
然后,建立回转体.
' ?0 |" a+ u' `/ c- p2 F$ D
1 a8 u7 P& O' N: j问题是,建立第一次变换矩阵成功后(status1=0),不可建立第二次变换矩阵.
否则就出错.奇怪?
若将第二次变换代码删除,程序可顺利运行到下面的变换代码,但提示出错.
看一下ug界面内的运行结果.是变换成功的.那为何还要提示错误呢?
建立回转体是不可能了.

请高手指点,不甚感激!

Private Sub CreateRevolveSolid(ByVal Ang As Double, ByVal sp As Point3d, ByVal ep As Point3d)
  ]- W8 f' h, Q: a        Dim objTags(100) As NXOpen.Tag
        Dim i As Integer
' u/ H  F+ `. a        For i = 0 To arrCurves.Length - 1
( G. F9 C; c. N) }; j4 b5 q) L  J6 l            objTags(i) = arrCurves(i).Tag
        Next
; F$ j# c3 ^" e) p2 q( _        Dim origin(2) As Double
: ^/ ?3 D9 y! C% S( U  V1 v        Dim origin1(2) As Double
3 B' H% @0 [6 [0 v) H: G+ Z        Dim origin2(2) As Double
- i$ |- x" @6 L8 D$ o2 M! Q        origin(0) = 0 : origin(1) = 0 : origin(2) = 0
7 w* P, X4 B7 E0 ~        origin1(0) = 0 : origin1(1) = 0 : origin1(2) = 0
; l0 C' V0 d0 i, U0 N        origin2(0) = 0 : origin2(1) = 0 : origin2(2) = 0
        Dim direction(2) As Double
        Dim direction1(2) As Double
        Dim direction2(2) As Double
$ T% {$ p  Z/ r& y# J        Dim mat As Double
        Dim mat1 As Double
        Dim mat2 As Double
6 \4 c7 v2 L, D+ g) d        Dim status As Integer
        Dim status1 As Integer
        Dim status2 As Integer
        Dim Features(100) As NXOpen.Tag
        Dim copies(100) As NXOpen.Tag
" [( D% z1 a2 ]  q        Dim ang1 As Double = 90
        Dim ang2 As Double = 90
        direction1(0) = 1 : direction1(1) = 0 : direction1(2) = 0
. W& A2 a! O/ y7 B% h        direction2(0) = 0 : direction2(1) = 0 : direction2(2) = 1
" d! C6 m; u9 }) r) {& q        '构建第一变换矩阵
1 _3 t3 {6 P. l8 i+ n) Z; C6 o        MsgBox("Matrix1" & status1.ToString)
        ufse.Trns.CreateRotationMatrix(origin1, direction1, ang1, mat1, status1)
        MsgBox("Matrix1 status" & status1.ToString)
        '构建第二变换矩阵
        ufse.Trns.CreateRotationMatrix(origin2, direction2, ang2, mat2, status2)
        MsgBox("Matrix2 status" & status2.ToString)
        
        'ufse.Trns.MultiplyMatrices(mat1, mat2, mat)
        '变换
1 x4 i* I. a  b+ C1 u        MsgBox("transform1")
        ufse.Trns.TransformObjects(mat1, objTags, arrCurves.Length, 2, 0, 2, copies, Nothing, status)
        MsgBox("transform1 ok")
        Dim limit(1) As String
% h8 n, w" k3 B        limit(0) = CStr(-Ang) : limit(1) = CStr(Ang)
% n2 U$ S6 h8 o5 l* W' W        Dim offset(1) As String
  E  _; i: l+ R- {- B/ S        offset(0) = "0.0" : offset(1) = "0.0"
' B/ N- o; t4 w- l0 K8 Q, L+ j* j; {* D        '生成回转体
        Dim cou As Integer
        MsgBox("revolution")
        direction(1) = 0 : direction(2) = 1 : direction(3) = 0
" @) R, {$ ^, K, D0 Z9 y1 W5 ?        ufse.Modl.CreateRevolution(copies, arrCurves.Length, Nothing, limit, offset, origin, False, True, origin, direction, FeatureSigns.Nullsign, Features, cou)
    End Sub