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

jinjunbai

今天嘗試用VBA代碼完成一個圖形的繪制，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問題,，比如基準(zhǔn)面,，繪圖的時候設(shè)置好，VBA中執(zhí)行出來就沒有了,，請高手幫忙解決一下
5 i2 }9 q! b* G* Y* _- v& ?
  B2 _& i7 w, z$ _代碼如下：
' ******************************************************************************
3 |! t2 z5 |' p; P" g' v' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
( T$ p( \. t1 h- F$ r' X# [6 ~' ******************************************************************************
Dim swApp As Object
$ A8 a+ \9 x8 \7 O4 d2 l' ?# i# Z
" b; K6 ]9 V- c* c& S8 ^( JDim Part As Object
2 x( e2 G0 R- z- `1 I' U4 {& \Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks


' New Document
% Y. x, P' {  {# ^  R! n6 I" D! GDim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
: }# t) x) j: A# ~  m8 }swSheetHeight = 0
- Z8 }9 s( K4 U' n% K' S" bSet Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
" ^: C% P* |9 E, j; v1 SSet swPart = Part
$ g7 s! y  _% q8 m7 aswApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
' t! y+ G1 \: W  b, u! N4 s7 L% eDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
0 D) u4 W8 I; V; Jboolstatus = 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)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
2 o% r: ^/ A. K4 Z) t1 h( n5 @4 ^Dim vSkLines As Variant
6 @1 P) F% e. `+ v: rvSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)
, Q; _$ H$ H* J. ^
' Named View
, g) s: B: O9 G3 v" |5 V3 j2 iPart.ShowNamedView2 "*上下二等角軸測", 8
Part.ViewZoomtofit2
Dim myFeature As Object
% J& v/ P5 A/ O# M4 @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)
5 H5 P5 V' g- _Part.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)
Part.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)
Part.ClearSelection2 True
boolstatus = 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)
& d1 U0 W0 f2 V6 I5 S0 W. }Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
Part.ClearSelection2 True
* c" c% _+ X8 \; Aboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
9 b2 ^+ g% ?* T1 \0 iPart.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
" i& Y1 ]  l: K/ C2 r1 W) q6 Aboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
vSkLines = 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
End Sub

9 R! m; A! p  T7 f0 J

gddx110

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

魍者歸來

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

jinjunbai

問題已經(jīng)搞定

遠(yuǎn)祥

這樣都是C語言嗎

未來第一站

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