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

oy87188

5 w5 `/ m! g4 w; J( v5 _: g1 Z尊敬的各位大佬，本人是SW使用的小白，最近在調試SW的宏代碼時，想通過宏代碼將曲面上的點陣輸出到txt中，從而方便后續處理。但是遇到了如下的問題：顯示對應變量未定義，還望各位大佬多多指點一二？
( Q4 a' i- S# Q& w$ x附上對應的代碼如下：（壓縮包內為swp文件）


3 m+ |0 f, i5 r2 f) f
' L, }  N0 s! Y* e3 W! t  @' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4 D+ N8 t! X" D% X4 |0 ~% v7 l4 W' 輸出曲面上某些點到Txt文件中
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
5 I& }' Y8 I6 B$ x& @Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim myModel As SldWorks.ModelDoc2
    Dim mathUtils As SldWorks.MathUtility
    Dim nStart As Single
* F$ H$ h% U8 O* B# f        nStart = Timer
( v8 v& K+ K& x2 T- R    Set swApp = Application.SldWorks
    Set myModel = swApp.ActiveDoc
' ?% [2 Z3 I+ c+ x- V5 T3 {% h- m    Set mathUtils = swApp.GetMathUtility()
$ p$ k& |* i  q- o/ R' G' J$ S    ' 以下遍歷22x22個投影點
8 p7 a% }! x. q) R8 ?5 M    Dim i As Integer
2 J& ^8 o9 R3 V. c1 V    Dim j As Integer
  a7 a1 w* g- K    For i = 0 To 21
8 K3 F$ W& o9 h$ B) S    For j = 0 To 21
, N* h) v9 L! W4 M0 U    ' 預先指定一個被投影面
. w' [! C; \. M0 S2 [; ]" b9 n( r    Dim mySelMgr As SldWorks.SelectionMgr
    Dim selObj As Object
    Dim faceToUse As SldWorks.Face2
6 A3 G4 t+ C; T2 z' a7 p    Dim surfaceToUse As SldWorks.Surface
) @1 A8 r  u' g( }    Dim selCount As Long
! ~9 M5 Q- e; x, ^    Dim selType As Long
    Set mySelMgr = myModel.SelectionManager
        selCount = mySelMgr.GetSelectedObjectCount2(0)
        If (selCount > 0) Then
        selType = mySelMgr.GetSelectedObjectType3(1, 0)
    Set selObj = mySelMgr.GetSelectedObject6(1, 0)
4 p" \- N: w: N3 a, P        If (selType = SwConst.swSelFACES) Then
        Set faceToUse = selObj
9 l0 \$ k4 o- ~        End If
    End If
    ' 定義投影向量
& k0 ]  q& g# I( A/ a    Dim basePoint(0 To 2) As Double, rayDir(0 To 2) As Double
6 t; C& ~3 m% ?* \    Dim vBasePoint As Variant, vVector As Variant
" `1 {' A$ N$ R+ O' f2 v    Dim rayPoint As SldWorks.MathPoint, rayVector As SldWorks.MathVector
- p/ w0 d6 r! O: c" t3 y' d    Dim intersectPt As SldWorks.MathPoint
2 k3 N; D5 ~& b. j' E3 l% n( l    Dim vPoint As Variant, vPoint2 As Variant
1 A' \; [$ R5 l; x# O7 t* |    Dim xPt As Double, yPt As Double, zPt As Double
& a; o  B/ R  h( J    ' 先對曲面的情況進行投影； First try the face
        If Not faceToUse Is Nothing Then
        basePoint(0) = i * 0.125 '
        basePoint(1) = j * 0.125 '
7 A/ n* m7 @7 ~; f        basePoint(2) = 1#
        vBasePoint = basePoint
    Set rayPoint = mathUtils.CreatePoint(vBasePoint)
2 y) V: F- z4 m( b. E$ o* `        rayDir(0) = 0#
        rayDir(1) = 0#
& l$ D: v& Z+ u. Y4 k$ @3 K        rayDir(2) = -1#
        vVector = rayDir
    Set rayVector = mathUtils.CreateVector(vVector)
    Set intersectPt = faceToUse.GetProjectedPointOn(rayPoint, rayVector)
    If Not intersectPt Is Nothing Then
        vPoint = intersectPt.ArrayData
        xPt = vPoint(0)
        yPt = vPoint(1)
        zPt = vPoint(2)
        清單輸出窗口.LIST.Text = 清單輸出窗口.LIST.Text & Format(xPt * 1000, "##0.0#####") & " ,"
. o/ g/ d: }% Z+ D! g9 Q
        清單輸出窗口.LIST.Text = 清單輸出窗口.LIST.Text & Format(yPt * 1000, "##0.0#####") & " ,"

6 O+ r/ N, @4 C/ i0 A( U/ v        清單輸出窗口.LIST.Text = 清單輸出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf
/ ?" J2 ]- {8 M( O. }) h  e    Else
7 A' U4 r, n5 K        清單輸出窗口.LIST.Text = 清單輸出窗口.LIST.Text & Format(zPt * 1000, "##0.0#####") & " " & vbCrLf    '(j * 125, "##0.0#####") & " , 0" & "   " & vbCrLf '控制是否輸出未投影到曲面上的點位 " No face hit point."
2 @  {) ?! e, c' J9 H- |& ?3 @      End If
    End If
    Next j
0 w. l; W0 f% n! Z& h    Next i

( V7 c+ ^2 A2 n( I7 y' d4 I, v7 y    清單輸出窗口.計算耗用時間.Text = Round(Timer) - Round(nStart) & "秒"
    清單輸出窗口.Show
0 D  K9 ~: d7 n* `+ t/ lEnd Sub

Public Sub Delayms(lngTime As Long) '延時程序調用-測試時用
. H6 X( r1 P* L/ y9 R" |( y- t8 W% `Dim StartTime As Single
  e1 Q& h) y3 v8 I. hDim CostTime As Single
7 Q/ P! d/ _# J. }- `# dStartTime = Timer
% O2 F4 X! b8 J8 Y3 yDo While (Timer - StartTime) * 1000 < lngTime
  V. [$ H$ ]4 p) T- [" EDoEvents
Loop
/ p; {2 E$ t1 B2 Q4 B, }" oSet swApp = Application.SldWorks
End Sub
2 S! q/ ^  U$ h  C* w  e


% t. ?6 s: N' ^7 }3 [7 C
: W4 f, S: x% a. Y+ z

喂我袋鹽

支持

劉大官人

盲區

吳嗒嗒

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