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

oy87188

尊敬的各位大佬，本人是SW使用的小白，最近在调试SW的宏代码时，想通过宏代码将曲面上的点阵输出到txt中，从而方便后续处理。但是遇到了如下的问题：显示对应变量未定义，还望各位大佬多多指点一二？
* W, v1 y: D: y9 t1 s; ~0 G9 d附上对应的代码如下：（压缩包内为swp文件）
9 R7 I7 o: L' |9 U* ~
! C  F; g& ]1 l) z: {9 N% g
& S; |8 `  r$ e, w# ^7 X* x
  g% _% J/ D- c' B: A+ H' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ A. j( O8 k8 y" {9 L0 q' 输出曲面上某些点到Txt文件中
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' T4 ]3 f) }" g* ]Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
! b& Z2 i. N( v8 {6 m2 q# _    Dim mathUtils As SldWorks.MathUtility
( q1 a5 t) ~( }2 A3 V6 n    Dim nStart As Single
% X  r. h0 ]) t3 n( v        nStart = Timer
    Set swApp = Application.SldWorks
    Set myModel = swApp.ActiveDoc
3 w9 ~2 A4 m+ c6 `    Set mathUtils = swApp.GetMathUtility()
, d' s9 |- A/ m! I    ' 以下遍历22x22个投影点
- _- }9 r3 p7 Z, H    Dim i As Integer
( k$ [, R1 g8 @  U7 W+ w    Dim j As Integer
    For i = 0 To 21
    For j = 0 To 21
    ' 预先指定一个被投影面
    Dim mySelMgr As SldWorks.SelectionMgr
: t& l3 e, q8 {    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
    Dim surfaceToUse As SldWorks.Surface
    Dim selCount As Long
5 T9 Y4 |, c( X7 E7 Q    Dim selType As Long
    Set mySelMgr = myModel.SelectionManager
        selCount = mySelMgr.GetSelectedObjectCount2(0)
: X2 _  R5 ]+ l        If (selCount > 0) Then
        selType = mySelMgr.GetSelectedObjectType3(1, 0)
    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
        If (selType = SwConst.swSelFACES) Then
0 o3 P2 c; a: W# j9 ^        Set faceToUse = selObj
3 d* j# F* k1 D, k* C1 ~5 W        End If
    End If
  b9 m3 r" U+ _# K! G* F    ' 定义投影向量
    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
; c. {! D' [2 Y6 C/ {    Dim vBasePoint As Variant, vVector As Variant
6 \6 k* U& H; |; I$ I& A) ?    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
! h. T: i+ f5 |+ v& C% j- E$ {    Dim intersectPt As SldWorks.MathPoint
    Dim vPoint As Variant, vPoint2 As Variant
    Dim xPt As Double, yPt As Double, zPt As Double
0 L  l! F5 V7 ]8 a: {    ' 先对曲面的情况进行投影； First try the face
        If Not faceToUse Is Nothing Then
& |$ B( L2 T) S; ]6 n        basePoint(0) = i * 0.125 '
! R0 V% ~: ~3 ?1 C& [/ J) Y! B        basePoint(1) = j * 0.125 '
        basePoint(2) = 1#
+ M. ]0 F8 o3 L# }% r, c        vBasePoint = basePoint
    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
        rayDir(0) = 0#
        rayDir(1) = 0#
        rayDir(2) = -1#
5 N$ t9 x; ^! t1 n& j5 c        vVector = rayDir
    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
    If Not intersectPt Is Nothing Then
. M$ ^* z  m9 @5 t( m        vPoint = intersectPt.ArrayData
        xPt = vPoint(0)
0 S  Y! A  `/ z: I        yPt = vPoint(1)
$ C; E! f1 b, z  S+ W8 V        zPt = vPoint(2)
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"
6 v2 j  y* r" Z5 z; u; J
* A" a2 T6 ~. h4 \. i. U        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"

# F8 U) F# v. i- M. i* D        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
- o5 {& j6 A3 @8 D    Else
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否输出未投影到曲面上的点位 " No face hit point."
/ b, C# n' O$ u' Y' w      End If
    End If
    Next j
    Next i

    清单输出窗口.计算耗用时间.Text = Round(Timer) - Round(nStart) & "秒"
3 C, y4 d6 M. Q2 R! a    清单输出窗口.Show
End Sub
% W( X3 R' C- v7 V/ V9 r* [6 O
, z, J- Q8 }2 P5 `/ a4 a  _, e6 C8 pPublic Sub Delayms(lngTime As Long) '延时程序调用-测试时用
9 G# h) O, e  H+ Z: i: o8 M3 S, zDim StartTime As Single
6 `$ V- j" |4 p+ z: W1 aDim CostTime As Single
StartTime = Timer
Do While (Timer - StartTime) * 1000 < lngTime
DoEvents
Loop
Set swApp = Application.SldWorks
End Sub



3 d9 Z) f4 q1 P) k* {

喂我袋盐

支持

刘大官人

盲区

吴嗒嗒

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