Hallo Zusammen!
Allen eines frohes und gesundes neues Jahr.
Ich habe mir ein kleines Programm geschrieben, mit dem ich zwei Volumenkörper über Extruieren erzeuge und diese anschließend von einander abziehe.
Nach dem Programmdurchlauf bleiben 2 Regionsflächen übrig, die nicht mehr benötigt werden.
Ich habe aber noch keine Möglichkeit gefunden, diese zu löschen.
Die Delete-Methode funktioniert nicht, da die Regionen vom Typ Variant sein müssen.
'Definition des "peditobj1"
Set peditobj1(0) = ThisDrawing.ModelSpace.AddArc(P12, RA, dtr(180#), dtr(270#))
Set peditobj1(1) = ThisDrawing.ModelSpace.AddArc(P13, RA, dtr(270), dtr(0))
Set peditobj1(2) = ThisDrawing.ModelSpace.AddArc(P14, RA, dtr(0), dtr(90))
...
'Definition des "peditobj2"
Set peditobj2(0) = ThisDrawing.ModelSpace.AddLine(P18, P20)
Set peditobj2(1) = ThisDrawing.ModelSpace.AddLine(P19, P21)
...
'Festlegung der Regionen
Dim regionobj1 As Variant
regionobj1 = ThisDrawing.ModelSpace.AddRegion(peditobj1)
Dim regionobj2 As Variant
regionobj2 = ThisDrawing.ModelSpace.AddRegion(peditobj2)
' Definition der Extrusion
Dim taperAngle As Double
taperAngle = 0
' 3D Körper erstellen
Dim solidobj1 As Acad3DSolid
Dim solidobj2 As Acad3DSolid
Set solidobj1 = ThisDrawing.ModelSpace.AddExtrudedSolid(regionobj1(0), HZ, taperAngle)
solidobj1.Layer = cbo1.Value
Set solidobj2 = ThisDrawing.ModelSpace.AddExtrudedSolid(regionobj2(0), HZ, taperAngle)
solidobj2.Layer = cbo1.Value
solidobj1.Boolean acSubtraction, solidobj2
peditobj1(0).Delete
peditobj1(1).Delete
...
peditobj2(0).Delete
peditobj2(1).Delete
...
Hat jemand eine Idee wie ich die Regionen löschen kann.
Vielen Dank im voraus.
Gruß Dirk
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP