Kategorie: VBA

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 …

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 …

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 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 …

provided that you agree that Center4CNC has no warranty obligations ‚ or liability whatsoever for any of the sample code files, the result ‚ from your use of them or …

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 = …