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

jinjunbai

8 f' I2 G, e- J6 a. [
" {0 Z: N$ p2 f3 t5 p( c' _今天尝试用VBA代码完成一个图形的绘制，发现程序自己录制的VBA执行都有问题，比如基准面，绘图的时候设置好，VBA中执行出来就没有了，请高手帮忙解决一下
' | }$ O( `% [/ q
代码如下：
' ******************************************************************************
l; r3 U/ d! {2 _( @# n/ h' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
Dim swApp As Object
$ p4 @, J, F( {* _" d1 H
Dim Part As Object
Dim boolstatus As Boolean
, M; i1 h7 C7 `. w. ]% c4 qDim longstatus As Long, longwarnings As Long
% p: k$ W! Q) H! z( k# h8 B& r% q
Sub main()
# I* v8 W6 M) w
0 R3 }6 U4 I5 t! T4 ^3 |. pSet swApp = Application.SldWorks


+ B/ D" x4 [% _" r' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
! g% ]7 ?. o. U) B% Z8 l) M5 u. {swSheetHeight = 0
/ X0 \: E4 r( HSet Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
, F; C7 J# s5 E! w: z# F) I" v# ^Set swPart = Part
, t+ R1 u' s& P9 z. B! tswApp.ActivateDoc2 "零件1", False, longstatus
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
( A! F8 A1 w+ Hboolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
# S; v- ]* L4 A% I) yboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
/ b/ y, y" A0 k; t8 `; {. V4 B' ZPart.ClearSelection2 True
* E5 a9 ^- e+ x+ C' x' H/ wboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
$ l, \" R# K4 o$ P9 K6 d7 U+ `% Bboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
Dim vSkLines As Variant
% j# [# C8 _0 z+ S5 F0 C, `vSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)
$ q, \* T& r( u; e j3 S3 h
$ s5 t& l0 v/ t8 w3 r; L' Named View
Part.ShowNamedView2 "*上下二等角轴测", 8
8 h! _/ e- r! B+ ~+ yPart.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
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)
M" J' }0 K# ^' U! CPart.ClearSelection2 True
* B8 W' ]6 l8 A# gboolstatus = 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)
2 T7 p5 f; V& c* z0 XPart.ClearSelection2 True
' f* O N) M+ @5 @boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
2 O/ ^% j6 E" d+ FDim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
Part.ClearSelection2 True
) W+ e# }- o1 A4 f( Fboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.ClearSelection2 True
. ^, h# [ l6 {$ H, jboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
" o. W0 |& o8 N4 I5 i5 H5 Q6 R$ Tboolstatus = 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
7 J) Z4 y" ?2 P) lEnd Sub
1 a! ?1 Y8 B0 U
. v k5 |; ?1 C8 T; j6 d

gddx110

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

魍者归来

先说清楚自己想实现什么动作
* {* z$ ^" W4 o- a0 y

jinjunbai

问题已经搞定

远祥

这样都是C语言吗

未来第一站

进阶功能^_^