solidworks自己录制的VBA代码有问题

jinjunbai

今天尝试用VBA代码完成一个图形的绘制，发现程序自己录制的VBA执行都有问题，比如基准面，绘图的时候设置好，VBA中执行出来就没有了，请高手帮忙解决一下

代码如下：
3 x: K( r3 g2 B' ******************************************************************************
! e6 R# y" `5 z& M% C. X# ~- @' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
! r' i2 L! V* \  C% P5 x, pDim swApp As Object
6 G- C! h7 }, L8 G8 J6 b
Dim Part As Object
. [' z/ o9 @+ c3 A  k+ J8 WDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
, i8 G+ n7 z% v; g* f' _
; t' u. Q$ U! P2 JSub main()

; Y: d! x+ {# Z9 H  ESet swApp = Application.SldWorks
% E5 I& l1 S2 O6 X2 t$ e
8 u5 O; t: Z' J% V, h
! X/ Y  c( H- y1 b$ y/ \' New Document
# R5 O  b3 H- m0 P0 _Dim swSheetWidth As Double
swSheetWidth = 0
2 T. q" {% a: g6 E3 j5 rDim swSheetHeight As Double
; K2 y& ]+ M4 ]/ P) LswSheetHeight = 0
4 k2 q* c# O+ h. u: e  wSet Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
  ?4 g$ a$ _7 EDim swPart As PartDoc
2 S( N6 X8 k& l  [+ i  e+ T: ]! ^Set swPart = Part
2 b3 F* D/ q$ \- x+ ?. `swApp.ActivateDoc2 "零件1", False, longstatus
6 s  F6 P$ m$ o5 ^Set Part = swApp.ActiveDoc
Dim myModelView As Object
8 o) [5 E0 r7 o: c% ~/ hSet myModelView = Part.ActiveView
2 F- z, t- q" s) y6 r$ ?" L% [! \myModelView.FrameState = swWindowState_e.swWindowMaximized
! ]1 E* c& y9 p7 Tboolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
; O* {9 }: n5 j* W' q# S# ^. y4 d+ L& sboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
6 m/ o3 X6 ~! R+ _; H, {/ UPart.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
, ?$ ^0 M9 U) O( qboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
Dim vSkLines As Variant
4 }$ @7 r. e* V( K. U+ rvSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

' Named View
4 b( I7 R. s/ T* \7 y' T! HPart.ShowNamedView2 "*上下二等角轴测", 8
Part.ViewZoomtofit2
Dim myFeature As Object
6 }5 ~6 B0 Z6 X! k  j1 xSet 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 v* l! I1 q. J: BPart.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
0 ?/ B/ k. p. T2 O1 M) cboolstatus = 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 J: ^; |% g7 W, O, ~boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
Part.ClearSelection2 True
7 X6 c2 _  X8 ]% Jboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
# _) ?9 C5 z' b2 N2 q, gPart.ClearSelection2 True
% F1 j& V$ }* E0 zboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
* l/ q/ W( F- Q9 w/ d# n  p. BvSkLines = Part.SketchManager.CreateCornerRectangle(-1.26249913529932E-02, 1.98473013094258E-02, 0, 4.43244050501335E-02, -1.64793375533918E-02, 0)
, H' g( `. b: s# vSet 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)
$ ]' t8 K7 m7 c  C8 g* P1 NPart.SelectionManager.EnableContourSelection = False
End Sub
) \) D7 O8 t9 b

' f9 G: J$ F9 a+ }; o$ |; w

gddx110

SW录制的部分动作不会记录，需要对二次开发的语句有一定了解才能修改，建议看一下API帮助文档入门后再提问。

魍者归来

先说清楚自己想实现什么动作

jinjunbai

问题已经搞定

远祥

这样都是C语言吗

未来第一站

进阶功能^_^