SW关于输出曲面点阵到txt文档的宏代码

oy87188

尊敬的各位大佬，本人是SW使用的小白，最近在调试SW的宏代码时，想通过宏代码将曲面上的点阵输出到txt中，从而方便后续处理。但是遇到了如下的问题：显示对应变量未定义，还望各位大佬多多指点一二？
6 T8 x. V' M/ V# Q% W' _  @" ?. w0 ?/ A附上对应的代码如下：（压缩包内为swp文件）
4 C" r! a* N: _+ M) y
* N- d4 L$ n$ J. N2 w

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 输出曲面上某些点到Txt文件中
: Y+ h4 T" p& m1 L# |' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
" M# d) x. `, j  U. X* j% nSub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
    Dim mathUtils As SldWorks.MathUtility
$ |$ R& b* j5 Z8 w    Dim nStart As Single
# ~+ e3 n" U; `' J( G        nStart = Timer
    Set swApp = Application.SldWorks
6 `# [' [* G* Y    Set myModel = swApp.ActiveDoc
    Set mathUtils = swApp.GetMathUtility()
) {# I& |) a: m    ' 以下遍历22x22个投影点
+ I- b: g. B* ^    Dim i As Integer
& K  v5 }3 w0 O    Dim j As Integer
    For i = 0 To 21
" f: F8 j  i" z7 t' _6 G  s' }5 C    For j = 0 To 21
    ' 预先指定一个被投影面
    Dim mySelMgr As SldWorks.SelectionMgr
    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
1 ^  O' _& u2 S& e; v2 L    Dim surfaceToUse As SldWorks.Surface
6 y) \6 ]$ J2 {4 Y0 m# U2 R# {    Dim selCount As Long
( W( U4 @( {2 o' V( ?* l    Dim selType As Long
    Set mySelMgr = myModel.SelectionManager
- g  W/ Q" [+ ^7 G' d1 m        selCount = mySelMgr.GetSelectedObjectCount2(0)
        If (selCount > 0) Then
9 |% O7 [% P  v, G        selType = mySelMgr.GetSelectedObjectType3(1, 0)
    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
+ H. y* \5 g" z: [4 W. V        If (selType = SwConst.swSelFACES) Then
) Y4 L1 |( Y$ A$ ^* A( ?% A# t        Set faceToUse = selObj
        End If
    End If
    ' 定义投影向量
: T+ K7 F% m) S0 E+ ]3 k    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
    Dim vBasePoint As Variant, vVector As Variant
. ~- G' q, G3 P& M* L    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
    Dim intersectPt As SldWorks.MathPoint
    Dim vPoint As Variant, vPoint2 As Variant
8 w" t( b* Y& F& \! q5 ~# j    Dim xPt As Double, yPt As Double, zPt As Double
    ' 先对曲面的情况进行投影； First try the face
        If Not faceToUse Is Nothing Then
        basePoint(0) = i * 0.125 '
        basePoint(1) = j * 0.125 '
        basePoint(2) = 1#
        vBasePoint = basePoint
6 z' V* `: f2 q6 r6 g: B    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
$ b  s4 j" a/ o3 c7 q1 o        rayDir(0) = 0#
        rayDir(1) = 0#
6 h" ], V! Y6 v# h        rayDir(2) = -1#
        vVector = rayDir
! |5 x% I" I1 |    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
9 z3 _6 j, ?, Z/ k3 i' n8 N1 h    If Not intersectPt Is Nothing Then
; a1 H7 B% {- s, p; z8 @% a' r        vPoint = intersectPt.ArrayData
6 E% K# p) ~4 ~% Y        xPt = vPoint(0)
        yPt = vPoint(1)
; T* K' a7 U; R9 x  Q  g        zPt = vPoint(2)
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"
9 f0 V- E5 e7 s3 C  G* ~* X
6 L% f, Q' {2 g& e        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"

        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
    Else
1 c2 g4 o! A, ~$ z9 |3 M        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否输出未投影到曲面上的点位 " No face hit point."
% Q' z( C  z" b# I% J      End If
    End If
    Next j
3 x; A( I+ M5 D2 l    Next i

    清单输出窗口.计算耗用时间.Text = Round(Timer) - Round(nStart) & "秒"
4 H4 m; ~% c# ^: n, D    清单输出窗口.Show
1 _* y1 K! Y4 Z: y* k& I. OEnd Sub
$ L2 X3 A1 S) Y
Public Sub Delayms(lngTime As Long) '延时程序调用-测试时用
Dim StartTime As Single
9 ~4 Q1 q4 Q) U2 ~1 RDim CostTime As Single
StartTime = Timer
Do While (Timer - StartTime) * 1000 < lngTime
' l& d& L; a. ADoEvents
Loop
Set swApp = Application.SldWorks
8 @8 n3 t. s0 R' {0 {' I4 ?End Sub
; L. h2 w) ^: f
. r' e. T: l9 t. D2 P6 p

7 x. d0 Q4 a' O! k% m
* R: `8 ~5 M1 U( n

喂我袋盐

支持

刘大官人

盲区

吴嗒嗒

牛逼，这是什么东西？你们这时solidwork直接对接生产吗？