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

jinjunbai

# X9 B  E& e3 N今天嘗試用VBA代碼完成一個(gè)圖形的繪制,，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問(wèn)題,，比如基準(zhǔn)面,，繪圖的時(shí)候設(shè)置好,，VBA中執(zhí)行出來(lái)就沒(méi)有了,，請(qǐng)高手幫忙解決一下
3 R5 Q0 p1 \4 C! k
* f4 V. x9 r$ K, H代碼如下：
' ******************************************************************************
! o7 Q, U3 k4 R; h' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
$ `; U: [# v6 I; A' ******************************************************************************
1 p& B$ }" B- T2 IDim swApp As Object

2 n. n# C  @" X) x' h8 zDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
8 H; f7 j6 b& G8 U& W
: ?1 K7 L/ ^* m- DSub main()
( d6 e. F* f1 @+ D7 l
- P' Z/ m' r: q/ @8 F2 ^Set swApp = Application.SldWorks
/ h3 C3 i& f4 c2 m) ]/ X6 C. J. r5 K
5 k% U3 y" F- D; m  F9 I* M' p* _
' New Document
6 L0 F0 p' b6 n+ k: o4 O: ?. PDim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
' R. r7 B* W0 K6 i5 LswSheetHeight = 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
! \* G1 l5 E0 u  x1 UDim myModelView As Object
$ i, P% t! d2 V1 n5 j/ zSet myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
$ r3 ]6 H1 t  g' R! qPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
. h" o; [9 ^# d) P" _4 y  sboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
! [2 N  r2 P, q- q( O7 @Dim vSkLines As Variant
  J$ s9 O* S7 q, d! VvSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

2 F4 r. h, K4 Y# P' 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)
2 d/ U5 P& T7 b& d2 B( U: b9 U9 v2 tPart.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)
' E2 }' X% h7 W- {6 |0 {( p+ S1 sPart.ClearSelection2 True
! K& r* A/ `3 c4 g1 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)
- h# \3 w5 M' Z! o0 D; D! I! fPart.ClearSelection2 True
5 J% r. w) X1 {boolstatus = 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)
$ _7 e& X& q. S2 _  D9 y5 vDim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
Part.ClearSelection2 True
0 }: J! I7 t" d' t& r( V" uboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
) r: F2 }. e2 G. v/ vPart.ClearSelection2 True
, H5 @5 d* `+ [; Z6 UPart.ClearSelection2 True
boolstatus = 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)
0 S, M: q$ r0 fSet 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
End Sub


9 \+ f- d5 P. p9 w' w

gddx110

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

魍者歸來(lái)

先說(shuō)清楚自己想實(shí)現(xiàn)什么動(dòng)作
. |) J$ ^9 m6 ?

jinjunbai

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

遠(yuǎn)祥

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

未來(lái)第一站

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