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

jinjunbai

- `; O3 l) d2 f0 h& ]+ E9 p
今天嘗試用VBA代碼完成一個(gè)圖形的繪制,，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問題,，比如基準(zhǔn)面,，繪圖的時(shí)候設(shè)置好,，VBA中執(zhí)行出來就沒有了,，請(qǐng)高手幫忙解決一下
* q' v2 y$ b* v
代碼如下：
' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
Dim swApp As Object
: I9 O  {1 `0 W
$ t, x) e, H5 D7 n, a; R% _0 xDim Part As Object
Dim boolstatus As Boolean
0 S; n! {4 B) q) V* r3 O7 rDim longstatus As Long, longwarnings As Long
9 U  w9 i1 o, P' p
Sub main()

Set swApp = Application.SldWorks

& P1 O7 ^1 z8 ^" t( }3 G
' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
$ x1 o. M0 A* ]) uDim swSheetHeight As Double
3 m, x5 h) P' y: _" ~4 `swSheetHeight = 0
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
Set swPart = Part
swApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
3 W" s- _  P" ?7 fDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
5 w% @7 Z/ m) p$ r4 h/ `2 e- sboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
- p! j, L6 V+ a. }0 PPart.ClearSelection2 True
6 e  [: H, N) \9 ?, e! ^5 t" }boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
# i$ W/ S' Y) w! C# B2 Xboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

, s. t. s4 x) E1 n/ c. V- z' Named View
' r  C5 i2 o/ vPart.ShowNamedView2 "*上下二等角軸測(cè)", 8
' j( H. g4 G. m( Q  y$ V) SPart.ViewZoomtofit2
. S! d) ~# d& S, ^7 BDim myFeature As Object
0 b" [& b5 ^; e6 m) B0 ISet 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)
) p, ]6 v6 v3 R, fPart.SelectionManager.EnableContourSelection = False
5 v6 Y" h5 I1 o- u7 xboolstatus = 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
8 a+ f; Z' h# L0 R' M" G2 P* p. ]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)
+ u. J2 K( }6 X/ l  APart.ClearSelection2 True
6 s9 o- t4 n( ]# qboolstatus = 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)
, T9 M/ f% m1 O6 {: MDim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
! }& o9 ~5 }/ BPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
$ s. g. ]# x- m. c$ nPart.ClearSelection2 True
Part.ClearSelection2 True
4 |# N* v4 p8 |7 t1 R$ R$ dboolstatus = 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)
& U' _4 P1 ^# V* V( K6 nSet 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 `% U8 Y4 E$ b( {Part.SelectionManager.EnableContourSelection = False
! s% P! O9 Q$ ~/ a% t; Y' s( wEnd Sub
6 D. X2 R! m& q. f
5 Y0 g6 _/ |# K/ D4 g( r

gddx110

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

魍者歸來

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

jinjunbai

問題已經(jīng)搞定

遠(yuǎn)祥

這樣都是C語言嗎

未來第一站

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