wiki

VBA RemoveBadOps

Sub RemoveBadOps() Dim OP As Esprit.Operation Dim I As Integer For I = Document.Operations.Count To 1 Step -1 If IsBadOp(I) Then MsgBox „Removing an Operation“ Document.Operations.Remove (I) Else Document.Operations.Item(I).Rebuild End …

VBA Ist Das Feature geschlossen

In dem EspritCenter4CNCTools ist eine Routine integriert, welche automatisch dem Feature die Eigenschaft „IsClosed“ beifügt. Sub IsFeatureClosed() ‚ dieses Makro gibt die Eigenschaft eines Kontur-Features ob diese geschlossen ist Dim …

VBA Save all Operations

Sub SaveOP() Dim OP As Operation Dim OPTech As Technology Dim OPN As String For Each OP In Document.Operations If OP.Grouped = True Then Set OPTech = OP.Technology OPN = …

VBA SolidsToSimulation

‚VBA Makro um Gruppierte Solids in die Simulation zu übernehmen Sub SolidsToSimulation() Dim I As Long, SS As Esprit.SimulationSolid, G As Esprit.GraphicObject With Document.Group For I = 1 To .Count …