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

jinjunbai

今天嘗試用VBA代碼完成一個圖形的繪制，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問題，比如基準(zhǔn)面，繪圖的時候設(shè)置好，VBA中執(zhí)行出來就沒有了，請高手幫忙解決一下

% h8 k; o6 z8 f4 Z( ]/ C/ u8 m代碼如下：
0 B3 v% {6 Q! i: M' ******************************************************************************
4 W! Z1 x% z* W( {/ f' o" H7 k+ {' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
: ^1 c" ?& K2 T% J0 M! b
8 c+ M  a6 B0 ]  ^1 T+ `Sub main()

4 g! c4 D  ?, H) {Set swApp = Application.SldWorks
3 X# c4 e) ~3 M1 v5 I$ c3 {

' L1 H9 r( l- \' New Document
Dim swSheetWidth As Double
$ S+ O8 A- V8 A8 FswSheetWidth = 0
) z4 w/ w* H' `! Q; F1 m/ SDim swSheetHeight As Double
swSheetHeight = 0
; _+ Y- s: k9 @9 N8 T  BSet Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
, p+ Z5 x4 u+ r" k) Z$ t7 z* Q9 SSet swPart = Part
: {2 K* ^! _0 [2 Y) T9 V* IswApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
+ d/ @' F( W# D/ ~+ Wboolstatus = 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)
& x5 L+ Y# s3 [5 h2 e2 PPart.SketchManager.InsertSketch True
; m. t4 p& {/ x/ d# T3 aPart.ClearSelection2 True
* C7 h; ]8 o9 y' b9 I$ d; sboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
2 `* t' N6 C* B/ o  ^$ cboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
Dim vSkLines As Variant
( y/ H: L( z  p4 q! _$ NvSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

! Y/ j% e+ C+ K* f: r4 G1 [' Named View
Part.ShowNamedView2 "*上下二等角軸測", 8
. O% l* m- q5 }Part.ViewZoomtofit2
Dim 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)
Part.SelectionManager.EnableContourSelection = False
, W* C0 S( A# o$ l  Hboolstatus = 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)
8 u2 t, p; T( d* @: P; _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)
/ G( j+ R4 ~' R: w5 \5 S+ JPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
2 n1 A  D7 I- jboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
  S6 q5 F2 M3 r7 P0 R+ |( HPart.ClearSelection2 True
3 Z8 T- G$ b  _$ p6 nboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
1 c; G9 N$ N- V3 H$ HPart.ClearSelection2 True
( Z/ J6 K& n2 Q/ F/ fboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = 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
  H7 M" J& y* i$ B  _! eEnd Sub
  l( g! l) ?% D1 H3 T' c! T% i
1 ?5 i2 H1 l+ b$ O# T

gddx110

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

魍者歸來

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

jinjunbai

問題已經(jīng)搞定

遠(yuǎn)祥

這樣都是C語言嗎

未來第一站

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