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

oy87188

% N5 x3 h# S* Z$ Q7 `尊敬的各位大佬，本人是SW使用的小白，最近在调试SW的宏代码时，想通过宏代码将曲面上的点阵输出到txt中，从而方便后续处理。但是遇到了如下的问题：显示对应变量未定义，还望各位大佬多多指点一二？
附上对应的代码如下：（压缩包内为swp文件）
" w! G% ~  t7 D0 u- w
3 S" g* J+ ^" f% l: m
9 m  m8 P% F# D% c1 o4 F8 N
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 输出曲面上某些点到Txt文件中
- t- T9 [1 y% s* v' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  }: Z, C( M+ @Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
0 r' y  I- \# r7 Y    Dim mathUtils As SldWorks.MathUtility
    Dim nStart As Single
        nStart = Timer
1 `! S- T& S% E7 j; Z    Set swApp = Application.SldWorks
    Set myModel = swApp.ActiveDoc
    Set mathUtils = swApp.GetMathUtility()
    ' 以下遍历22x22个投影点
    Dim i As Integer
9 ~! \" K% M# G7 q    Dim j As Integer
3 v/ G" `' p2 \4 G+ F3 i: N    For i = 0 To 21
% `2 G' q: n0 Y: z' q! F7 V    For j = 0 To 21
    ' 预先指定一个被投影面
; d! G, Y; k, x  Y    Dim mySelMgr As SldWorks.SelectionMgr
    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
, ?6 ]  m7 C' e% W) z    Dim surfaceToUse As SldWorks.Surface
    Dim selCount As Long
    Dim selType As Long
  Q. R  W5 u9 S$ r; p* Y4 D    Set mySelMgr = myModel.SelectionManager
- g" n+ E  i; T7 n5 t9 h        selCount = mySelMgr.GetSelectedObjectCount2(0)
7 S9 w; J$ l% N- U        If (selCount > 0) Then
2 S1 k7 k$ [* w% Q! h1 Q1 C        selType = mySelMgr.GetSelectedObjectType3(1, 0)
    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
        If (selType = SwConst.swSelFACES) Then
* R! s5 r9 W1 A- V' W& b# e        Set faceToUse = selObj
        End If
    End If
    ' 定义投影向量
    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
5 M8 T5 B; X  q# r    Dim vBasePoint As Variant, vVector As Variant
    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
* T" B* h/ E( Z8 M/ S    Dim intersectPt As SldWorks.MathPoint
. z7 u! V) ~% g    Dim vPoint As Variant, vPoint2 As Variant
0 T, F( i8 p" R/ ~2 Z    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 '
# H$ T8 [4 B+ O! P& \: O9 H3 x; l        basePoint(2) = 1#
! V! k; `6 p8 j0 o+ M$ i        vBasePoint = basePoint
1 Z  V5 N2 [& q9 S# @1 N    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
        rayDir(0) = 0#
        rayDir(1) = 0#
        rayDir(2) = -1#
  a" V: ^% Q) u        vVector = rayDir
    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
- }- @9 Z, b$ v" K( e& z4 H    If Not intersectPt Is Nothing Then
$ s# W# ~6 m+ }+ e        vPoint = intersectPt.ArrayData
9 r$ A0 m% [9 B* H# h) f6 }        xPt = vPoint(0)
0 x: y& j, e. w8 I: h8 [+ U        yPt = vPoint(1)
        zPt = vPoint(2)
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"

. n& Q  m* A, s, }1 s. J        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"
8 J' d# t2 n" }; V
6 ?: p& @( L* d1 \  n2 K8 J        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
4 l/ Y/ h$ y) i    Else
0 a, ~& ^, c2 N0 K" I6 b% g: Q        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否输出未投影到曲面上的点位 " No face hit point."
# _' e% D) t* \$ Z/ G5 J8 s6 t      End If
    End If
9 e9 k5 u' j6 W    Next j
- j: A$ J7 P7 B  X& O. f    Next i

. q" u4 R# j0 ~8 O$ c    清单输出窗口.计算耗用时间.Text = Round(Timer) - Round(nStart) & "秒"
2 w/ C. x/ d; u: M4 O  }    清单输出窗口.Show
8 n, B' g, u. K# [  a/ O3 j8 ~3 nEnd Sub
3 ?2 A" i( v; _% ]0 y
2 u& _% K: [9 iPublic Sub Delayms(lngTime As Long) '延时程序调用-测试时用
Dim StartTime As Single
3 d! y5 L7 g3 [, f/ h3 tDim CostTime As Single
) [, V8 j- A7 Z, r% D5 JStartTime = Timer
Do While (Timer - StartTime) * 1000 < lngTime
DoEvents
, T" G+ x9 Q& f" X6 p& Y4 fLoop
Set swApp = Application.SldWorks
+ [$ H! Y  x6 Q4 NEnd Sub
/ j8 N  t2 J) `5 x' b0 }5 C9 T7 p& e

喂我袋盐

支持

刘大官人

盲区

吴嗒嗒

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