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

oy87188

尊敬的各位大佬，本人是SW使用的小白，最近在调试SW的宏代码时，想通过宏代码将曲面上的点阵输出到txt中，从而方便后续处理。但是遇到了如下的问题：显示对应变量未定义，还望各位大佬多多指点一二？
附上对应的代码如下：（压缩包内为swp文件）

7 s/ a+ a8 U/ J: L- m2 t

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- H% I: k$ r/ i' 输出曲面上某些点到Txt文件中
8 n& i. s4 `! V: `) y' E' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub main()
$ }& R& N6 A, C* v) ]    Dim swApp As SldWorks.SldWorks
6 U* Y# b: I- R5 l8 |* j5 c& o    Dim myModel As SldWorks.ModelDoc2
% ~1 U' ^( Y3 Q4 ^, J! q    Dim mathUtils As SldWorks.MathUtility
( G- a) q0 k( c+ C! K    Dim nStart As Single
# `9 g  k6 ]5 \9 U* X4 `9 S5 M        nStart = Timer
- c6 Q6 z8 T' R8 p* O1 ]  [2 t    Set swApp = Application.SldWorks
    Set myModel = swApp.ActiveDoc
    Set mathUtils = swApp.GetMathUtility()
    ' 以下遍历22x22个投影点
4 R1 _, I2 F8 R# v    Dim i As Integer
    Dim j As Integer
* q- }* c5 U  i9 `, {6 I    For i = 0 To 21
    For j = 0 To 21
    ' 预先指定一个被投影面
7 b2 _+ p% K1 L6 Z% I4 a5 ^    Dim mySelMgr As SldWorks.SelectionMgr
4 V. \) E% @* j. E3 h9 \) H    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
9 V1 Z, v; H. N! [. I, R3 `( a    Dim surfaceToUse As SldWorks.Surface
+ u: \. n, h) V; V% w    Dim selCount As Long
/ X% n1 n: z2 m8 O, Q% n; i    Dim selType As Long
    Set mySelMgr = myModel.SelectionManager
( [0 b  J, S8 t0 ]/ R- F& d        selCount = mySelMgr.GetSelectedObjectCount2(0)
        If (selCount > 0) Then
0 O& B2 ~# B" j! o$ y  U        selType = mySelMgr.GetSelectedObjectType3(1, 0)
    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
) d; m( l) q/ p        If (selType = SwConst.swSelFACES) Then
        Set faceToUse = selObj
! C; J) c. U2 ~- `        End If
    End If
    ' 定义投影向量
    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
, F  U3 y% r+ |, B. G0 _; W    Dim vBasePoint As Variant, vVector As Variant
# I& Z0 j. }0 Y$ ]6 J+ P    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
    Dim intersectPt As SldWorks.MathPoint
  X2 C% W" F$ s$ y$ V3 h    Dim vPoint As Variant, vPoint2 As Variant
9 I0 f  M. Z% D/ ?8 l    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 '
6 }" W0 ^& N2 p' E; G' M( O) ?        basePoint(2) = 1#
' @/ E8 t2 C& e( R        vBasePoint = basePoint
: }* O0 B' H3 B$ ?    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
        rayDir(0) = 0#
        rayDir(1) = 0#
        rayDir(2) = -1#
# ^/ B3 j/ _& Z% j0 f        vVector = rayDir
) p4 y: @' P$ G$ Y    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
    If Not intersectPt Is Nothing Then
' S- E2 m# N+ T        vPoint = intersectPt.ArrayData
! V0 b/ |& i0 C, s; h/ U- n* T8 {        xPt = vPoint(0)
7 p! `, a7 p! w* _; M! ^; X( r        yPt = vPoint(1)
        zPt = vPoint(2)
; n, e9 y- [+ Q+ w' G% ], d        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"

8 W6 W# h4 O6 n( M        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"

        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
    Else
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否输出未投影到曲面上的点位 " No face hit point."
      End If
: E! B& O, J$ R% N( m% Z# ]    End If
    Next j
    Next i

    清单输出窗口.计算耗用时间.Text = Round(Timer) - Round(nStart) & "秒"
: `+ m- S# L9 n/ O  V    清单输出窗口.Show
End Sub

- E$ V& p8 A$ X% J7 m, nPublic Sub Delayms(lngTime As Long) '延时程序调用-测试时用
( M: ?! D/ L% U8 z, s  \8 T6 YDim StartTime As Single
' |: Q- x: q3 L& ]" }( @9 pDim CostTime As Single
StartTime = Timer
Do While (Timer - StartTime) * 1000 < lngTime
0 U1 k; C+ E' z1 wDoEvents
9 M; F1 m! ~3 h$ f& GLoop
( |4 h* e3 u  D' z8 q" MSet swApp = Application.SldWorks
End Sub
8 ]2 ~7 s( t* I9 B! t


( n& Q/ Z1 ~: }& M2 K9 M

喂我袋盐

支持

刘大官人

盲区

吴嗒嗒

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