solidworks自己錄制的VBA代碼有問題

jinjunbai

; D; j4 P9 ~7 `& i3 s% b7 x) T) [
今天嘗試用VBA代碼完成一個圖形的繪制,，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問題,，比如基準(zhǔn)面,，繪圖的時候設(shè)置好,，VBA中執(zhí)行出來就沒有了,，請高手幫忙解決一下
" T! U3 R1 L. P/ |# _0 T* B4 l
代碼如下：
7 O% a# H1 n% x3 `' ******************************************************************************
; S& `) N4 r" _3 k' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
* \% x/ l% h# ~6 J+ W' ******************************************************************************
Dim swApp As Object
! m. V$ g2 W" n$ x  X5 w  y5 @
+ J& b  H( k! P5 D4 W/ uDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
7 c+ N+ w) q8 s" T1 H% K. w% N% B
5 l) n' J$ Y0 a, _Sub main()

" E" S( }( g( O) r& SSet swApp = Application.SldWorks
  q0 i% k) e6 d- F

' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
swSheetHeight = 0
- Q/ ]6 ~- p6 v; y/ F; zSet Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
, r: w7 f0 I4 e% m+ V; r8 Q1 T: c0 cDim swPart As PartDoc
5 c; S, m$ e! x! n$ B% ]6 G5 NSet swPart = Part
swApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
4 j0 Z- p( z* W% j- y- w! X$ o8 a2 fPart.SketchManager.InsertSketch True
3 Y* V- |: p. R* K2 }Part.ClearSelection2 True
0 g) c+ t( X: \0 |5 v$ S! Bboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
, d2 n* [" e4 c" {" x% e  _; ]4 `boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
5 m, a2 J0 V% G7 k4 h: zDim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)
0 i) `/ b4 R' Q* v  k" d
9 B3 }* `4 i: _8 T5 d2 T/ Z' Named View
# k& h7 v  c2 v! X4 XPart.ShowNamedView2 "*上下二等角軸測", 8
Part.ViewZoomtofit2
# Y  B2 A( G* {' d; U# HDim myFeature As Object
0 T' @9 ]; a1 P0 H: gSet myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
  k  M% x# Q3 J1 B6 V/ [! YPart.SelectionManager.EnableContourSelection = False
boolstatus = Part.Extension.SelectByRay(-1.52826298517539E-02, 1.47929888240128E-02, 9.99999999999091E-03, -0.400036026779312, -0.515038074910024, -0.758094294050284, 5.70826886238244E-04, 2, False, 0, 0)
6 ^) y+ W; k- B4 t' UPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByRay(-1.52826298517539E-02, 1.47929888240128E-02, 9.99999999999091E-03, -0.400036026779312, -0.515038074910024, -0.758094294050284, 5.70826886238244E-04, 2, False, 0, 0)
; y8 Q! }8 C+ ~+ _. \" o- {; zPart.ClearSelection2 True
2 c# l% J4 ~: Mboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
( J2 H/ B  G' P. u. l8 M0 v* sDim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
4 H# h* Y" i, C5 I) r1 nPart.ClearSelection2 True
$ ?9 _+ U* t1 z- @4 F" bboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
# \. C, q, ]- A' r& BPart.ClearSelection2 True
1 e; q5 Q0 f* [7 c0 ?/ r) c( z+ aPart.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
* i8 Q* w8 r  VvSkLines = Part.SketchManager.CreateCornerRectangle(-1.26249913529932E-02, 1.98473013094258E-02, 0, 4.43244050501335E-02, -1.64793375533918E-02, 0)
, k0 C$ f- m6 B: n5 [Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
  f* k+ s/ `( r. c  bPart.SelectionManager.EnableContourSelection = False
& F! H' L; I; F" ?7 V* x5 UEnd Sub
' A& S' U, T1 V: ]  H) {/ }' g; S
# `# q2 r& o( @/ P6 d. b+ F

gddx110

SW錄制的部分動作不會記錄,，需要對二次開發(fā)的語句有一定了解才能修改,，建議看一下API幫助文檔入門后再提問。

魍者歸來

先說清楚自己想實現(xiàn)什么動作
- i4 |9 i0 j( }: a8 J0 J

jinjunbai

問題已經(jīng)搞定

遠(yuǎn)祥

這樣都是C語言嗎

未來第一站

進(jìn)階功能^_^