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

jinjunbai

( r1 J8 ]. g, e3 P+ N& A$ b' w
  {1 O" O; Z: p+ o  G6 E# D今天嘗試用VBA代碼完成一個(gè)圖形的繪制,，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問(wèn)題,，比如基準(zhǔn)面,，繪圖的時(shí)候設(shè)置好,，VBA中執(zhí)行出來(lái)就沒(méi)有了，請(qǐng)高手幫忙解決一下

代碼如下：
$ I  s8 N6 q5 Q3 ]' j' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin
' ******************************************************************************
7 H/ S, V- l" i) vDim swApp As Object

5 n6 e$ F# Y* ^8 |: z: EDim Part As Object
Dim boolstatus As Boolean
( \0 d8 k/ j* EDim longstatus As Long, longwarnings As Long

' K* T1 |4 w( h3 c$ v2 aSub main()

Set swApp = Application.SldWorks

/ P9 A  V! x& s7 L6 ^. X8 ?
' New Document
Dim swSheetWidth As Double
% D  X! Q9 F; s  ?* ?% WswSheetWidth = 0
Dim swSheetHeight As Double
0 \3 b1 s( Q3 u2 @. @5 M1 HswSheetHeight = 0
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight)
3 h' T: O0 ?, a3 P  SDim swPart As PartDoc
6 O( l) G) j2 D' fSet swPart = Part
swApp.ActivateDoc2 "零件1", False, longstatus
8 W  ~& _- \' h9 n* qSet Part = swApp.ActiveDoc
Dim myModelView As Object
. Y3 g* j- F7 ?$ `* F% E' K" U% HSet myModelView = Part.ActiveView
4 \7 c5 P3 A6 k9 K: o3 x( FmyModelView.FrameState = swWindowState_e.swWindowMaximized
) S0 L; ]. @9 x! X" E; Gboolstatus = 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)
$ @" y- b2 h7 c0 ~) E$ Z  lPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
. j  Z  {/ F' Yboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False)
1 @) R7 M+ J( V9 w( bboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
Dim vSkLines As Variant
# E1 h6 y3 P5 q' r, hvSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)

' Named View
4 W1 m- c9 H! wPart.ShowNamedView2 "*上下二等角軸測(cè)", 8
Part.ViewZoomtofit2
! s* |7 [4 ?: G) _; k- ?' BDim 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)
1 J4 G; `) Z! `# V) Y$ oPart.SelectionManager.EnableContourSelection = False
) p& U' |# K! Q" pboolstatus = 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)
5 L1 n& `  s* u9 c$ i  F; I9 W7 E4 |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)
; z5 f% Y  S& d8 t- p/ x/ ~) j+ MPart.ClearSelection2 True
$ ?7 C6 o6 F7 A, fboolstatus = 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)
Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.01, 0, 0, 0, 0)
Part.ClearSelection2 True
" i! `7 u! U4 E" _7 Bboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
& F& w8 g) ~7 ]9 L+ ?4 ^0 ~Part.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)
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 U8 E2 e( K. Q1 u3 H; A1 MPart.SelectionManager.EnableContourSelection = False
End Sub

gddx110

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

魍者歸來(lái)

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

jinjunbai

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

遠(yuǎn)祥

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

未來(lái)第一站

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