---

Hallo.

Über eine Eingabemaske kann ich die Abmasse eines Quadrats eingeben.
z.B. 40 (40mm). Danach setze ich einen Basispunkt und das Quadrat wird als Block erzeugt. Der Name des Blocks lautet "40".

Das Makro läuft so ab, dass die Linien gezeichnet werden und danach zum Block "40" dazugenommen werden. Wenn nun aber schon so ein Block in der Zeichnung ist, und ich das Quadrat mit den Abmessungen 40 erneut zeichnen lasse, dann wird dieser Block um die selben 4 Linien ergänzt. Er fügt die neuen Linie hinzu (-> 8 Linie).
Da der Basispunkt dann meist ein anderer ist, stimmt am schluß nichts mehr.

Lange Rede kurzer Sinn: Wie kann ich vor Beginn des Makros abfragen, ob der Block schon in der Zeichnung ist? -> Wenn Ja, dann soll er den Block nehmen und einfügen, ansonsten soll er den Block neu zeichnen.

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

---

Werte einfach folgenden Ausdruck weiter aus :

Set block = thisdrawing.Blocks("40")

------------------
- Thomas -

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

---

hm, das versteh ich nicht.
Ich bin kein Profi bei VBA in AutoCAD.
Kannst du mir dazu noch etwas mehr Infos geben?

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

---

Probier einmal diese Funktion:

Code:

---

Public Function BlockInDrawing(BlockName)
    Dim BlCheck As AcadBlock
   
    On Error Resume Next
    Set BlCheck = ThisDrawing.Blocks(BlockName)
    If Err Then
        BlockInDrawing = False
    Else
        BlockInDrawing = True
    End If
   
End Function

---

------------------
Roland

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

---

Hi RoSiNiNo.
Danke, die Funktion hab ich bereits bei mir im Modul drin. Hab ich mal von dir bekommen 

Ich denke die Abfrage muss richtig als If-Block kommen (nicht als Funktion).

Denn später kommen ja die Zeilen

Code:

---

Set BLOCK_LINIE = BLOCK_RECHTECK.AddLine(Point3D(100,0), Point3D(100, 100))
Set BLOCK_LINIE = BLOCK_RECHTECK.AddLine(Point3D(100,100), Point3D(0, 100))

---

etc. etc.
und die muss ich dann ja mit Else beantworten.

If Block schon in der Zeichnung, dann
- vorhandener Block einfügen
Else
- Linie zeichnen und zu Block hinzufügen
- Block einfügen
End if

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

---

Darum gibt es ja die Funktion

Code:

---

If BlockInDrawing("Mein_Block") = True Then
    'Mach etwas wenn der Block in der Zeichnung ist
Else
    'Wenn nicht, etwas anderes
End If

---

------------------
Roland

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