solidworks自己錄制的VBA代碼有問(wèn)題

jinjunbai

1 `) c" ~8 {0 t
今天嘗試用VBA代碼完成一個(gè)圖形的繪制，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問(wèn)題，比如基準(zhǔn)面，繪圖的時(shí)候設(shè)置好，VBA中執(zhí)行出來(lái)就沒(méi)有了，請(qǐng)高手幫忙解決一下

代碼如下：
/ W! c# r+ h( X' j' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
) D0 j7 @9 g% g2 i  z' ?4 Z* _8 ^1 BDim swApp As Object
! }9 k' E- @3 d9 x
& Y: s- K0 i& k) vDim Part As Object
Dim boolstatus As Boolean
; S) w+ |) B0 {/ f3 _( C1 nDim longstatus As Long, longwarnings As Long
  q' h+ X# v, q2 s
Sub main()
& s7 Y  k8 E8 q; w4 ]
1 J( _1 ?* y: f! ~1 PSet swApp = Application.SldWorks
1 [" ~7 J' u7 a  b  `8 u

3 G7 K& \2 s" |' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
6 d5 \/ j3 w3 i- ]5 @- d, D, M' NDim swSheetHeight As Double
2 v4 r& a- O, t1 X, b+ i' ?2 n7 wswSheetHeight = 0
' \7 ~* H3 e6 v5 D' _! \! ^Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
! Q& t9 \' q3 h: L2 n, b5 @. d2 wDim swPart As PartDoc
4 n$ @9 [: p0 [2 JSet swPart = Part
swApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
: |4 ^; a2 D2 T3 `$ ADim myModelView As Object
Set myModelView = Part.ActiveView
) s3 h- O' `# F( z$ i- y7 umyModelView.FrameState = swWindowState_e.swWindowMaximized
* k2 u: S4 y6 x, Gboolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
& W; `5 m0 S* A' o. {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)
, z; Y, a" g. }  V& xDim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

. @4 y  y2 ?, D/ @' Named View
Part.ShowNamedView2 "*上下二等角軸測(cè)", 8
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)
5 h! U0 j4 d( L8 y& Z: pPart.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
" S6 [* m: B; h# `% aboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
4 y4 @6 `3 n6 {! _" k" @boolstatus = 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)
5 j0 N8 J$ @: U5 dPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
5 M7 i9 `! X! cPart.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
7 _1 ~3 k7 {, |6 l* B; g0 K/ }3 M6 YvSkLines = 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)
  B! J, Q* ]+ y7 q, P: cPart.SelectionManager.EnableContourSelection = False
End Sub
6 i6 v7 y' u  m3 [- ^  I% q4 h" X
: U; r( |0 [1 ?# ~5 _' {8 b2 K1 D

gddx110

SW錄制的部分動(dòng)作不會(huì)記錄，需要對(duì)二次開(kāi)發(fā)的語(yǔ)句有一定了解才能修改，建議看一下API幫助文檔入門后再提問(wèn)。

魍者歸來(lái)

先說(shuō)清楚自己想實(shí)現(xiàn)什么動(dòng)作

jinjunbai

問(wèn)題已經(jīng)搞定

遠(yuǎn)祥

這樣都是C語(yǔ)言嗎

未來(lái)第一站

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