---

Liebes Forum,

Ich habe auf einer Form ein CommandButton1 bei dem ich beim klicken eine dwg von der Festplatte einfügen möchte. Beim Klicken erscheint eine Laufzeitfehler 13 "Typen unverträglich", der Block ist zwar eingefügt jedoch würde mich interessieren wo ich da ein Fehler mache.

Code:

---

Private Sub CommandButton1_Click()
    Dim PfadBlock As String
    Dim blockobj As AcadBlock
    Dim insertionPnt(0 To 2) As Double
   
    ' in modelspace einfügen
    ThisDrawing.ActiveSpace = acModelSpace
   
    ' einfügepunkt definieren
    insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0
   
    ' einzufügender Block von Festplatte
    PfadBlock = "C:\ZSF\RA_A4QAE.DWG"
   
    ' Form ausblenden sonst Fehlermeldung
    frmEditAttr.Hide
   
    ' Block einfügen
    Set blockobj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, PfadBlock, 1#, 1#, 1#, 0)
   
    ' update so block wird dargestellt
    ssnew.Item(0).Update
   
    ' Form wieder zeigen
    frmEditAttr.Show

End Sub

---

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

---

HI vittorio0,

Änder mal

Dim blockobj As AcadBlock

in

Dim blockobj As AcadBlockReference

Dann sollte es funktionieren.

Gruß, Carsten

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

---

Hi Carsten
Besten Dank für die schnelle Antwort.
Habs probiert, funktioniert, weiss aber nicht warum.

viktor

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

---

Hi,

>> weiss aber nicht warum

Weil AcadBlock und AcadBlockReference unterschiedliche Objekttypen sind. Und Du kannst nicht einen Block einfügen (= BlockReference) und diese dann einer Variable vom Typ AcadBlock zuordnen.

Vergleich, ein Polizist hält Dich (mit dem Auto) auf und Du möchtest ihm erklären, Dein Gefährt ist ein Rad.
Du hältst Dein AutoCAD an, eine BlockReference einzufügen und möchtest dem AutoCAD dann erklären, es ist eine Blockdefinition.

HTH, - alfred -

------------------
www.hollaus.at

---

herzlichen dank für die Ausführung. Gibt es ein Buch das empfohlen werden kann?

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