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

oy87188

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


' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 输出曲面上某些点到Txt文件中
6 h. i/ G+ A7 U! p0 \& W' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
5 g' h3 V% m1 q; n# ]Sub main()
    Dim swApp As SldWorks.SldWorks
% m5 F% i1 J+ b9 b- K    Dim myModel As SldWorks.ModelDoc2
5 l% A7 q! ~# {  w* G& V& f' ?8 {    Dim mathUtils As SldWorks.MathUtility
    Dim nStart As Single
+ m/ c; _. b# Z% ?  [        nStart = Timer
+ G9 t3 [# Y; R8 `6 N9 Y1 o    Set swApp = Application.SldWorks
    Set myModel = swApp.ActiveDoc
+ V4 v5 s" f) }1 `    Set mathUtils = swApp.GetMathUtility()
$ g4 n+ H! [9 Y. \5 v9 X    ' 以下遍历22x22个投影点
+ ]* Q; y; e; C    Dim i As Integer
    Dim j As Integer
    For i = 0 To 21
4 f3 o+ J9 w' }% `! y. W    For j = 0 To 21
    ' 预先指定一个被投影面
# k2 _1 C% F' Z9 `. p    Dim mySelMgr As SldWorks.SelectionMgr
    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
    Dim surfaceToUse As SldWorks.Surface
    Dim selCount As Long
    Dim selType As Long
$ P6 ?2 d4 O/ a* g* d6 o    Set mySelMgr = myModel.SelectionManager
, {- X- F% N4 F( D$ ^        selCount = mySelMgr.GetSelectedObjectCount2(0)
2 h1 j) p% K8 h+ G) }8 n        If (selCount > 0) Then
$ M* o% |7 m8 G  g8 p; `4 f" C        selType = mySelMgr.GetSelectedObjectType3(1, 0)
    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
/ g  _6 w4 x! c! R        If (selType = SwConst.swSelFACES) Then
        Set faceToUse = selObj
& v1 W& u2 v' g% x& X4 R; i        End If
    End If
    ' 定义投影向量
$ K) q& S0 r+ c* L9 ^& _  [' `; G    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
4 z+ l/ F/ W( S    Dim vBasePoint As Variant, vVector As Variant
# N' {8 L0 e/ n: n4 A    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
    Dim intersectPt As SldWorks.MathPoint
    Dim vPoint As Variant, vPoint2 As Variant
    Dim xPt As Double, yPt As Double, zPt As Double
0 L. O% e2 a5 s4 O2 M( r    ' 先对曲面的情况进行投影； First try the face
        If Not faceToUse Is Nothing Then
/ u: @$ {: i* d: B- l/ t3 \        basePoint(0) = i * 0.125 '
        basePoint(1) = j * 0.125 '
; f- \% Q7 T  \! u# b" M9 k4 j        basePoint(2) = 1#
        vBasePoint = basePoint
% V* y/ i& H1 T5 q* J/ P: K: i    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
6 K# z# }- r) O4 \) |        rayDir(0) = 0#
/ d2 S3 C0 H5 f: D8 l5 ^        rayDir(1) = 0#
7 O/ c4 f3 y8 R4 P0 \        rayDir(2) = -1#
+ r/ N1 G8 h- Q9 R+ h& j1 T, D5 o5 x        vVector = rayDir
+ M) r9 `: ]! M, S+ I; I    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
    If Not intersectPt Is Nothing Then
8 j+ s/ W+ b- M  R% N        vPoint = intersectPt.ArrayData
# C/ r+ w: Z: V* y        xPt = vPoint(0)
        yPt = vPoint(1)
        zPt = vPoint(2)
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"
0 F9 y* ~6 s9 X
' B1 p$ Z# D6 {2 `, I$ a/ Z: x        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"
: A- ]5 a% L% y0 I# G6 e
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
, X% _6 r4 }- i! Z, t8 U6 d    Else
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否输出未投影到曲面上的点位 " No face hit point."
9 X6 [9 S- d3 o, r: O4 D4 E; Q3 a      End If
    End If
% _! i$ X+ Z' s0 G9 s    Next j
/ s( ~3 T1 j( N- d& t7 r. s    Next i

    清单输出窗口.计算耗用时间.Text = Round(Timer) - Round(nStart) & "秒"
    清单输出窗口.Show
End Sub
) L" }, h, h! @4 w% t
9 _& Y4 |4 ]: Q9 t" i/ _Public Sub Delayms(lngTime As Long) '延时程序调用-测试时用
! [" U* }9 ]. X9 D& z. P7 LDim StartTime As Single
Dim CostTime As Single
StartTime = Timer
Do While (Timer - StartTime) * 1000 < lngTime
+ [" s6 s2 |3 X1 zDoEvents
$ c% P8 O# v; B6 ]- Z3 gLoop
) ]& ^! n* d3 rSet swApp = Application.SldWorks
End Sub

) d1 l1 @( P3 v8 C9 n

- O2 {. l: a: `, {0 s

喂我袋盐

支持

刘大官人

盲区

吴嗒嗒

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