宏代码——插入爆炸引线

天籁7180 · 发表于 2009-10-31 00:45:34

经典图书

Insert Explode Line Sketch and Jog Line Example (VBA)
This example shows how to insert a jog line in an explode line sketch, a type of 3D sketch.

' ****************************************************************************
'
' Preconditions: Open
' samplestutorialSimulationfloxpressball_valve.sldasm
'
' Postconditons:
' (1) An exploded view of the assembly is created.
' (2) A jog line, which is a type of explode line, is added.
' (3) 3DExplode1, the explode line sketch, is located on the
' ConfigurationManager tab. Click the ConfigurationManager
' tab and expand default and ExplView1.
'
' NOTE: Because this assembly is used in a SolidWorks
' online tutorial, do not save any changes when
' you close the document.
'
' ******************************************************************************
Option Explicit

Dim SwApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssembly As SldWorks.AssemblyDoc
Dim swSketchMgr As SldWorks.SketchManager
Dim swSketchSegment As SldWorks.SketchSegment

Sub main()

Set SwApp = Application.SldWorks
Set swModel = SwApp.ActiveDoc
Set swAssembly = swModel
Set swSketchMgr = swModel.SketchManager

' Explode the assembly
swAssembly.AutoExplode

swModel.EditRebuild3
swModel.ViewZoomtofit2

' Insert an explode line sketch
swSketchMgr.InsertExplodeLineSketch

'Create a line
Set swSketchSegment = swSketchMgr.CreateLine(0, 0.1, 0, 0, 0.3, 0)

swModel.ViewZoomtofit2

' Create a jog line using the line
swSketchSegment.JogLine 0, 0.2, 0, 0.04, 0.25, 0

' Close the 3D sketch and rebuild
swSketchMgr.Insert3DSketch True

End Sub