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

jinjunbai

* G6 C$ e. e! K, `$ c$ y8 R5 O
" a4 O* `) d0 e9 z# O. ?  p# C7 ^0 `今天嘗試用VBA代碼完成一個圖形的繪制，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問題，比如基準(zhǔn)面,，繪圖的時候設(shè)置好,，VBA中執(zhí)行出來就沒有了，請高手幫忙解決一下

代碼如下：
' ******************************************************************************
. O7 F- U0 [4 K2 p' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
  @4 T: }; F0 x' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

! G) X; f3 G3 C, aSub main()
  d: D6 N2 h* Z# S) t! H5 T7 u& m
, i( N% J, [4 k1 g7 I' Q  n8 HSet swApp = Application.SldWorks


' New Document
Dim swSheetWidth As Double
2 L- [, c% E3 ?( FswSheetWidth = 0
Dim swSheetHeight As Double
) I" \; Z$ b. D3 e. i' k& G5 J9 DswSheetHeight = 0
+ V' h+ U7 F) o4 c7 y1 RSet Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
. _4 V; U! O/ K' I# q1 m+ zDim swPart As PartDoc
% `- _# q; q1 ], `, Y% T4 sSet swPart = Part
swApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
3 c! J4 l$ a+ l+ u4 I& a; y3 L& o* z* pDim myModelView As Object
! c1 S2 G1 |; k2 |5 w% d) O% J- }Set myModelView = Part.ActiveView
& ^7 J) A4 C4 g4 h. qmyModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
9 {0 ^0 j8 w5 N: ^% @( dboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
7 z0 j- }1 n( @Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
$ T5 h" Y0 T+ Rboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
, J+ H# `& _# S/ gboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
7 R% O( t% o+ h4 X1 z1 e, i3 uDim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

' Named View
Part.ShowNamedView2 "*上下二等角軸測", 8
Part.ViewZoomtofit2
% v2 L- |0 k1 c/ V: ^9 iDim myFeature As Object
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)
; ]0 D' r4 {1 l& O* t5 H5 NPart.SelectionManager.EnableContourSelection = False
( @/ W; e, _8 f8 J$ T% N, K1 m# lboolstatus = 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)
Part.ClearSelection2 True
+ T- {( w, `6 m0 ?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)
Part.ClearSelection2 True
  I+ T3 y- D7 v8 b3 rboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
, p+ Y, N2 @8 W, U6 C' Bboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
: G8 J: @; ?6 E$ x# d  o) r- HDim myRefPlane As Object
* @& M- z. r5 q; C" |9 ]Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
) h5 y0 p, [, k  ~: l" @Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
0 p0 J/ o, J4 U7 ]6 XPart.ClearSelection2 True
% A7 i, r9 a# t0 Gboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
& v& g- |' Y9 A" r8 W- N6 avSkLines = Part.SketchManager.CreateCornerRectangle(-1.26249913529932E-02, 1.98473013094258E-02, 0, 4.43244050501335E-02, -1.64793375533918E-02, 0)
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)
Part.SelectionManager.EnableContourSelection = False
* _& [! T' ]) V7 k7 GEnd Sub


: k" A& A; `/ i! s, t

gddx110

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

魍者歸來

先說清楚自己想實現(xiàn)什么動作

jinjunbai

問題已經(jīng)搞定

遠(yuǎn)祥

這樣都是C語言嗎

未來第一站

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