---

Hi!
Ich erstelle 2 regionen.
Wie verbinde ich sie jetzt???

Sub Create_Region()
    Dim RoomObjects(0 To 3) As AcadLine
   
Dim StPt(2) As Double
Dim EndPt(2) As Double

StPt(0) = 0
StPt(1) = 0
StPt(2) = 0

EndPt(0) = 0
EndPt(1) = -50
EndPt(2) = 0

Set RoomObjects(0) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 0
StPt(1) = -50
StPt(2) = 0

EndPt(0) = 20
EndPt(1) = -50
EndPt(2) = 0

Set RoomObjects(1) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 20
StPt(1) = -50
StPt(2) = 0

EndPt(0) = 20
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects(2) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 20
StPt(1) = 0
StPt(2) = 0

EndPt(0) = 0
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects(3) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

   
    ' Erstellen einer Region aus den linien
    Dim regions As Variant
    regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)
   
'########################
    Dim RoomObjects2(0 To 3) As AcadLine
   
StPt(0) = -10
StPt(1) = 0
StPt(2) = 0

EndPt(0) = -10
EndPt(1) = -10
EndPt(2) = 0

Set RoomObjects2(0) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = -10
StPt(1) = -10
StPt(2) = 0

EndPt(0) = 30
EndPt(1) = -10
EndPt(2) = 0

Set RoomObjects2(1) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 30
StPt(1) = -10
StPt(2) = 0

EndPt(0) = 30
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects2(2) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 30
StPt(1) = 0
StPt(2) = 0

EndPt(0) = -10
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects2(3) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

   
    ' Erstellen einer Region aus den linien
    Dim regions2 As Variant
  regions2 = ThisDrawing.ModelSpace.AddRegion(RoomObjects2)
   
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CNC

versuch es mahl mit

regions.Boolean acUnion, regions2

sollte hinhauen
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tja, es zeigt sich immer wieder, dass VBA für Geometriebearbeitung deutlich schlechter geeignet ist als Lisp. An den Befehl _union kommt man mit ActiveX nicht dran, und eine andere Möglichkeit sehe ich nicht - es gibt eben kein ActiveX für Boolesche Operationen.

Das hier läuft zwar, aber es ist hirnrissig...

Gruß, Axel Strube-Zettler

Code:

---

Option Explicit

Function CreateRegion1() As String
    Dim RoomObjects(0 To 3) As AcadLine
   
Dim StPt(2) As Double
Dim EndPt(2) As Double

StPt(0) = 0
StPt(1) = 0
StPt(2) = 0

EndPt(0) = 0
EndPt(1) = -50
EndPt(2) = 0

Set RoomObjects(0) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 0
StPt(1) = -50
StPt(2) = 0

EndPt(0) = 20
EndPt(1) = -50
EndPt(2) = 0

Set RoomObjects(1) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 20
StPt(1) = -50
StPt(2) = 0

EndPt(0) = 20
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects(2) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 20
StPt(1) = 0
StPt(2) = 0

EndPt(0) = 0
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects(3) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

   
    ' Erstellen einer Region aus den linien
    Dim regions As Variant, region As AcadRegion
    regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)
    Set region = regions(0)
    CreateRegion1 = region.Handle
   
End Function

Function CreateRegion2() As String
    Dim RoomObjects(0 To 3) As AcadLine
   
Dim StPt(2) As Double
Dim EndPt(2) As Double

StPt(0) = -10
StPt(1) = 0
StPt(2) = 0

EndPt(0) = -10
EndPt(1) = -10
EndPt(2) = 0

Set RoomObjects(0) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = -10
StPt(1) = -10
StPt(2) = 0

EndPt(0) = 30
EndPt(1) = -10
EndPt(2) = 0

Set RoomObjects(1) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 30
StPt(1) = -10
StPt(2) = 0

EndPt(0) = 30
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects(2) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

StPt(0) = 30
StPt(1) = 0
StPt(2) = 0

EndPt(0) = -10
EndPt(1) = 0
EndPt(2) = 0
Set RoomObjects(3) = ThisDrawing.ModelSpace.AddLine(StPt, EndPt)

   
    ' Erstellen einer Region aus den linien
    Dim regions As Variant, region As AcadRegion
    regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)
    Set region = regions(0)
    CreateRegion2 = region.Handle
   
End Function

Public Sub test()
  Dim Handles(0 To 1) As String
 
  Handles(0) = CreateRegion1()
  Handles(1) = CreateRegion2()
 
  ThisDrawing.SendCommand "(command " & Chr(34) & "_union" & Chr(34) _
  & "(handent " & Chr(34) & Handles(0) & Chr(34) & ")" _
  & "(handent " & Chr(34) & Handles(1) & Chr(34) & ")" _
  & Chr(34) & Chr(34) & ")" & vbCr

End Sub

---

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Joe,

jetzt wo ich es sehe - deutlich besser als mein Ansatz;-) Und kam auch noch füher, das hab ich vorhin gar nicht gemerkt, weil ich auch noch ziemlich lang an meinem Stuß rumgemacht habe;-)

Also cnc, vergiss ganz schnell, was ich hier gepostet habe: Blödsinn nämlich, und halte dich an den Vorschlag von Joe.

Ist ja schon irgendwie peinlich;-)

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi!
regions.Boolean acUnion, regions2

Laufzeitfehler 424  Object Erforderlich
Was mache ich da falsch??

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)

regions.booelan funktioniert nur wenn regions ein Obkjekt ist

also

dim regions as Object
SET regions = Thisdrawing ....

dim regions2 as object
SET regions2 = Thisdrawing ....

aber ungetestet

------------------
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So, fuchsi:

    Dim regions As Variant, region As AcadRegion
    regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)
    Set region = regions(0)
   
Das ist wenigsten getestet, weil es in meinem Programm funktioniert. AddRegion gibt immer ein Array zurück, weil mehr als eine Region entstehen kann (z.B. wenn in diesem Beispiel alle 8 Punkte auf einmal übergeben werden).

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@mapcar
ja , ich hab mir nach dem abschicken eh gedacht, dass mir was komisch vorkommt.

weil sonst hätte ja sein jetziger code eigentlich einen fehler auswerfen müssen, wenn mein vorschlag gestimmt hätte.

(habs aber nicht mehr korrigieren können. musste zwischenzeitlich in Feuerwehreinsatz, sch.. Hagelsturm)

------------------
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi!
anke für den tip.
Nächste frage:
  ' Erstellen einer Region aus den linien
regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects2)
  Set region1 = regions(0)
Danach habe ich doch die linien und die region oder?

Muss ich eine region so erstellen,und dan die elemente die ich gezeichnet habe löschen,oder gibt es da andere lösung?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi cnc,

ich denke, du musst sie löschen. Ich habe mich auch gewundert, dass sie stehen bleiben. DELOBJ stand bei mir auf 1, trotzdem waren sie noch da. AddRegion hat auch keine optionalen Parameter.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP