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

oy87188

9 z6 S$ b8 Z) {& G9 ]# d# R
0 o2 R6 E+ Y) R( r0 k. j5 L2 g) Q5 S尊敬的各位大佬，本人是SW使用的小白，最近在调试SW的宏代码时，想通过宏代码将曲面上的点阵输出到txt中，从而方便后续处理。但是遇到了如下的问题：显示对应变量未定义，还望各位大佬多多指点一二？
附上对应的代码如下：（压缩包内为swp文件）
2 B: X8 M+ z; f& o$ T

+ B% |+ c0 N/ V
( O; H" Q1 D1 _, a' K# y0 D2 w& T' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 输出曲面上某些点到Txt文件中
6 y* w0 E* ]/ z$ p' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% g1 J) N) P% i2 O, a1 h0 N& Q3 _Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
    Dim mathUtils As SldWorks.MathUtility
    Dim nStart As Single
1 {3 G9 t7 g. f; V        nStart = Timer
    Set swApp = Application.SldWorks
# r0 X+ `" K6 E4 e( T1 Z6 L/ A    Set myModel = swApp.ActiveDoc
/ }( o7 [" J' y! W    Set mathUtils = swApp.GetMathUtility()
    ' 以下遍历22x22个投影点
* q- i0 y! O+ W- u    Dim i As Integer
    Dim j As Integer
. v# q  z3 ?2 n2 d    For i = 0 To 21
- l  |' x* v7 f7 J& c    For j = 0 To 21
    ' 预先指定一个被投影面
    Dim mySelMgr As SldWorks.SelectionMgr
    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
6 Q: [/ v( C0 ~" W; b  ?$ e    Dim surfaceToUse As SldWorks.Surface
1 @* w+ w. D' t6 ?    Dim selCount As Long
    Dim selType As Long
    Set mySelMgr = myModel.SelectionManager
2 N2 ^! Y# f. [/ o( ]& _        selCount = mySelMgr.GetSelectedObjectCount2(0)
        If (selCount > 0) Then
        selType = mySelMgr.GetSelectedObjectType3(1, 0)
+ g# _% i5 J- R8 F0 ~    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
& C5 Y+ L! N+ p        If (selType = SwConst.swSelFACES) Then
        Set faceToUse = selObj
5 ?1 S( r( F, W, ]3 U' s: \        End If
    End If
    ' 定义投影向量
    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
    Dim vBasePoint As Variant, vVector As Variant
    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
- k  |: J$ z" `" S; W6 L/ r4 R    Dim intersectPt As SldWorks.MathPoint
7 F" L' k$ ~6 Z; d2 \4 N- V+ N    Dim vPoint As Variant, vPoint2 As Variant
    Dim xPt As Double, yPt As Double, zPt As Double
  f& A/ ?. `% w* S    ' 先对曲面的情况进行投影； First try the face
        If Not faceToUse Is Nothing Then
* p5 ?% e% E& H, o& L        basePoint(0) = i * 0.125 '
- j" [5 j3 a; H5 J; A" m        basePoint(1) = j * 0.125 '
        basePoint(2) = 1#
0 L0 r  `7 q& R8 G/ D% m$ d: F        vBasePoint = basePoint
    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
. ~" ]% K0 Z# I# @+ x4 Y        rayDir(0) = 0#
        rayDir(1) = 0#
        rayDir(2) = -1#
( O( J% R- b: f6 d% m7 v! }        vVector = rayDir
8 `# [2 b( [+ ]# r    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
) W- Y; e7 H, d; Z0 Y    If Not intersectPt Is Nothing Then
        vPoint = intersectPt.ArrayData
        xPt = vPoint(0)
0 s0 O% ^8 `0 R, g. W        yPt = vPoint(1)
! @8 R3 `% s) Y6 U& t" u/ |        zPt = vPoint(2)
8 L8 D$ x( u; j0 \- X2 V6 I        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"
' N; x1 v- p. W
. [6 n2 k$ }: g4 B% D  K# W2 M        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"

6 t2 T. ]) Q7 f/ P# m# q        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
3 E! N& o2 y! ?/ ]    Else
        清单输出窗口.LIST.Text = 清单输出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否输出未投影到曲面上的点位 " No face hit point."
) x# W5 N2 _2 u# k6 S1 v      End If
    End If
    Next j
    Next i

- U% A8 F# Q  _* P    清单输出窗口.计算耗用时间.Text = Round(Timer) - Round(nStart) & "秒"
    清单输出窗口.Show
End Sub

Public Sub Delayms(lngTime As Long) '延时程序调用-测试时用
% T, k5 g! q# U2 hDim StartTime As Single
Dim CostTime As Single
StartTime = Timer
9 M, B- L, w+ `: g* W* |Do While (Timer - StartTime) * 1000 < lngTime
5 S. \# h2 i  ]- tDoEvents
5 r* A" Z9 `4 P# uLoop
/ n2 o2 E: T6 N, G; w9 WSet swApp = Application.SldWorks
  h0 W; H+ t. k+ n' d8 F. UEnd Sub

喂我袋盐

支持

刘大官人

盲区

吴嗒嗒

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