標(biāo)題: solidworks自己錄制的VBA代碼有問(wèn)題 [打印本頁(yè)] 作者: jinjunbai 時(shí)間: 2019-6-8 14:12 標(biāo)題: solidworks自己錄制的VBA代碼有問(wèn)題 本帖最后由 jinjunbai 于 2019-6-8 14:17 編輯 " a" V& d- m' V4 |! n" q, {8 g$ @! j
今天嘗試用VBA代碼完成一個(gè)圖形的繪制,，發(fā)現(xiàn)程序自己錄制的VBA執(zhí)行都有問(wèn)題,，比如基準(zhǔn)面,，繪圖的時(shí)候設(shè)置好,，VBA中執(zhí)行出來(lái)就沒有了，請(qǐng)高手幫忙解決一下 9 b$ w+ b- t s, h( p- X* I4 U $ o* C% T4 b. K* g; T$ ^1 C代碼如下：9 w# j* T3 c( m. Z# ?
' ******************************************************************************7 A9 g* D8 \- J, ]
' C:\Users\admin\AppData\Local\Temp\swx11724\Macro1.swb - macro recorded on 06/08/19 by admin4 `0 o/ J& b, D! U- @$ A8 |3 S6 ]
' ****************************************************************************** 2 i2 |, a: \4 |5 B# RDim swApp As Object2 P: j! E3 o: V& e! u
6 _* P) J; [3 H- MDim Part As Object; L8 f: }. u" A: O" ] U+ X
Dim boolstatus As Boolean: c1 E. N& U: Z c' T, F
Dim longstatus As Long, longwarnings As Long1 } y% N9 p+ ]; c, d% J
& {# [* q0 {' O2 _. V; j$ SSub main() 2 |! ^6 ~ l$ _& P3 X F) ^5 [1 u+ `! x% b/ z) x
Set swApp = Application.SldWorks* ~5 ~( [: W l( g& a
# g# e) T8 M) L( t! O+ L0 e$ k$ |6 n9 s; r7 x$ n3 B9 O3 l
' New Document/ \8 ^+ s+ \- }7 n) [# T% y
Dim swSheetWidth As Double/ `; W7 k. J4 j2 Y8 j
swSheetWidth = 0# O" Y' W6 Y# P5 ]- C& s
Dim swSheetHeight As Double: P: R3 K3 U; a# f
swSheetHeight = 09 a: W" k- M+ \4 m5 S4 x
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2018\templates\gb_part.prtdot", 0, swSheetWidth, swSheetHeight) . N* K. {9 p0 t! q' PDim swPart As PartDoc4 F/ q9 q4 X8 }1 ?, _0 V, c5 t
Set swPart = Part8 `* L& `+ m- Y
swApp.ActivateDoc2 "零件1", False, longstatus # W; }4 Q2 i' [% C2 S- v3 ?Set Part = swApp.ActiveDoc - l9 Y3 Z9 u% qDim myModelView As Object; v8 E1 u* _# u) u* `5 v
Set myModelView = Part.ActiveView ; b$ J" S7 H6 W( c! RmyModelView.FrameState = swWindowState_e.swWindowMaximized3 W6 a3 ~) H* P% p1 K* U. }. U
boolstatus = Part.Extension.SelectByID2("注解", "DCABINET", 0, 0, 0, False, 0, Nothing, 0) 7 i2 Z! k$ p$ C q% q! |2 s5 R oboolstatus = Part.Extension.SelectByID2("前視基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0) 7 {6 _% B8 Q* f* e" `4 M% zPart.SketchManager.InsertSketch True 5 q+ o" B9 |0 d: Y& ~Part.ClearSelection2 True " [0 C5 S! X8 M& R* ^9 w1 A/ iboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, False) $ O* Y3 U- U/ |7 eboolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True) % _% N9 i% W GDim vSkLines As Variant 3 c1 L5 a4 l: _5 CvSkLines = Part.SketchManager.CreateCornerRectangle(-4.03305583756345E-02, 3.97460575296108E-02, 0, 6.89710998307952E-02, -0.03010179357022, 0)/ E9 ?8 P; [0 m, z# r6 J6 `/ }$ \* T