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

jinjunbai

, }% ]- P% X! K. X
: K6 Q+ i0 P$ z' M/ C, e$ N3 z$ p今天尝试用VBA代码完成一个图形的绘制，发现程序自己录制的VBA执行都有问题，比如基准面，绘图的时候设置好，VBA中执行出来就没有了，请高手帮忙解决一下
2 ?' Z3 u2 i2 v$ x- d' Y+ S
代码如下：
  Y4 |6 \6 U# \* W' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
2 w9 l6 U, J8 a7 nDim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

) h: P- V0 E" P& M% pSub main()
- r% Q3 X- D) N3 b+ Q' Z+ q
Set swApp = Application.SldWorks


% h( f" I! w0 R% }6 F' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
swSheetHeight = 0
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
# h# R& p+ w& g. LDim swPart As PartDoc
Set swPart = Part
swApp.ActivateDoc2 "零件1", False, longstatus
% U& X+ `. e& V' E1 DSet Part = swApp.ActiveDoc
* z1 n1 C, `, q; m5 lDim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
2 _1 h  i# q, X; \4 B4 s2 [boolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
7 n# P7 ?  B+ I6 F" kboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
7 c; o2 Z; D, h- PPart.ClearSelection2 True
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = 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)
8 G+ s4 [% s3 Y' q, j  e
' Named View
Part.ShowNamedView2 "*上下二等角轴测", 8
# ?; `$ p3 D8 M; T6 ^Part.ViewZoomtofit2
Dim myFeature As Object
/ M) P4 O9 p4 @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
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)
$ N" T& ?  ^+ w7 e! a% tPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
7 u2 {9 r3 u0 G- sboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Dim myRefPlane As Object
$ q; A$ b8 N6 a0 Z& ]Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
/ ?- i" |, [$ j9 f0 A8 uPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
. N5 V. `2 i; l' [, K! t% b1 q3 i6 OPart.ClearSelection2 True
0 Y3 f, ~/ h0 q1 lboolstatus = 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)
! P8 `6 B, i$ M3 c7 |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)
& N% Y( P& f9 g% o" n& j: dPart.SelectionManager.EnableContourSelection = False
$ v/ E7 L9 M0 q/ Y3 bEnd Sub
5 v/ h) C; m9 b: r% C; r( p% J
* U- a, @6 C1 m! ^& F9 ^

未来第一站

进阶功能^_^

远祥

这样都是C语言吗

jinjunbai

问题已经搞定

魍者归来

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

gddx110

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