SW關于輸出曲面點陣到txt文檔的宏代碼

oy87188

$ K/ s# w, a, L/ Q3 k
3 T( W: v3 Q: |* s; H0 |尊敬的各位大佬，本人是SW使用的小白，最近在調試SW的宏代碼時，想通過宏代碼將曲面上的點陣輸出到txt中，從而方便后續處理。但是遇到了如下的問題：顯示對應變量未定義，還望各位大佬多多指點一二？
附上對應的代碼如下：（壓縮包內為swp文件）
, _3 y5 m2 ?, a- u' E# o
9 q  o' e7 k( [" \& X+ }

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 輸出曲面上某些點到Txt文件中
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
0 @0 S8 C5 m3 w, h* ]/ ySub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
    Dim mathUtils As SldWorks.MathUtility
+ \% Z6 b% I: W4 |5 s    Dim nStart As Single
        nStart = Timer
    Set swApp = Application.SldWorks
  V; T2 m9 `& `) s( f; k    Set myModel = swApp.ActiveDoc
1 O; y7 i' G6 p. K7 p4 e9 W: U    Set mathUtils = swApp.GetMathUtility()
    ' 以下遍歷22x22個投影點
0 |8 p1 r& T8 @8 R0 q+ F* Z$ `    Dim i As Integer
7 J, G6 m8 _9 Z' ]' U2 M, P    Dim j As Integer
0 G$ `3 o' F- `4 s    For i = 0 To 21
- ^+ T' m, `( C$ J% y/ l) E    For j = 0 To 21
6 g) g/ ~" ~$ Z    ' 預先指定一個被投影面
; S% c, V3 q# \1 U    Dim mySelMgr As SldWorks.SelectionMgr
3 B2 G; H3 j. H% @' z! i    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
) N7 Y6 W7 t- X1 {! A    Dim surfaceToUse As SldWorks.Surface
    Dim selCount As Long
+ ]8 [( I$ x2 h& _    Dim selType As Long
6 k) e: B5 H  k. _4 ]) `    Set mySelMgr = myModel.SelectionManager
7 E6 g. }2 b3 x; s  E: A- I        selCount = mySelMgr.GetSelectedObjectCount2(0)
. e& f1 k  L9 S7 F        If (selCount > 0) Then
5 O% ^  K  a* {& [* Q5 M        selType = mySelMgr.GetSelectedObjectType3(1, 0)
& L2 f3 n' `$ w( d0 D# R    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
$ s/ h* F; Y# b& l9 g1 V- U        If (selType = SwConst.swSelFACES) Then
/ N% P3 B( a( W2 Y! s        Set faceToUse = selObj
( h  O5 b7 M2 Q9 B* h        End If
9 l, [  `) v3 x6 S+ A    End If
2 p" A( \. X% Y- C2 k    ' 定義投影向量
    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
    Dim vBasePoint As Variant, vVector As Variant
. h. y+ N" z, `; I# K- \    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
    Dim intersectPt As SldWorks.MathPoint
0 Y7 ^7 h, {+ N. k    Dim vPoint As Variant, vPoint2 As Variant
    Dim xPt As Double, yPt As Double, zPt As Double
6 i; _  b! g6 u( j9 A, H    ' 先對曲面的情況進行投影； First try the face
        If Not faceToUse Is Nothing Then
        basePoint(0) = i * 0.125 '
3 n& A; [& a& L) X7 i$ R+ b/ H, d. H        basePoint(1) = j * 0.125 '
3 O$ K6 E. F( `) p6 z# q        basePoint(2) = 1#
0 C# \3 ^# D6 a6 {* ~        vBasePoint = basePoint
; _7 d" B' @+ `* K& D    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
% F+ C1 O: |; `3 C: k  b& @        rayDir(0) = 0#
4 r' c& R5 \( W0 z3 J% I        rayDir(1) = 0#
        rayDir(2) = -1#
: N( [: j, J! x8 ?. X        vVector = rayDir
# I( P9 s4 B. `& U; B1 X    Set rayVector = mathUtils.CreateVector(vVector)
6 c' B$ k& k! M/ p0 j8 B5 L2 x7 h, g    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
    If Not intersectPt Is Nothing Then
        vPoint = intersectPt.ArrayData
6 L% ^% k0 e5 [# l        xPt = vPoint(0)
        yPt = vPoint(1)
        zPt = vPoint(2)
6 q, J0 \# `- T9 |- P        清單輸出窗口.LIST.Text = 清單輸出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"
! E) g7 g$ W! p- r; r4 h5 {
# B( y# c& ^8 X1 \        清單輸出窗口.LIST.Text = 清單輸出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"
1 h2 E( X( e; y1 Y; ~
1 k# {# s) x* p9 M        清單輸出窗口.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
    End If
% n0 u8 z/ Y2 U! S    Next j
9 d5 S2 C: R7 w0 p; P' b! f; L    Next i
) j2 P' e% U8 w7 [% S! I, Y
! N! o; y+ v1 l, S    清單輸出窗口.計算耗用時間.Text = Round(Timer) - Round(nStart) & "秒"
4 _, C: _: e) G    清單輸出窗口.Show
End Sub

Public Sub Delayms(lngTime As Long) '延時程序調用-測試時用
1 s; I. @/ p; \- W1 C2 [7 yDim StartTime As Single
Dim CostTime As Single
# k/ _) I- x$ {' C& EStartTime = Timer
4 n+ w" D, F. L' s9 M0 \9 S, R/ T/ dDo While (Timer - StartTime) * 1000 < lngTime
DoEvents
9 K% \5 M0 h6 M" u6 ^Loop
Set swApp = Application.SldWorks
End Sub
) U. C' o6 Z  G; s
0 c* ]7 c5 [* F; I' U' w
2 q9 h" `7 i( S, z0 H

  U+ t1 `# G( @. v# u. D

喂我袋鹽

支持

劉大官人

盲區

吳嗒嗒

牛逼，這是什么東西？你們這時solidwork直接對接生產嗎？