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