---

Wie kann mich bitte hifen...

Fehlermeldung:
Komplierungs-fehler im verborgenem Modul

Private Sub CommandButton7_Click()
Dim basePnt As Variant
Dim rotHoek As Variant

`Hier geht es nicht gut ?? was ist hier doch das problem?
Dim blockRefObj As AcadBlockReference

frmpartyzelt1.Hide
On Error GoTo foutafhandeling
basePnt = ThisDrawing.Utility.GetPoint(, "Basis punkt angeben:")
rotHoek = ThisDrawing.Utility.GetAngle(basePnt, "Rotatiehoek: ")
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(basePnt, "D:\00_CAD\00_BIB_\01_Bib_Autocad\15_Giebel Ansichten\Party\PZ_9000_SH_229.dwg", 1#, 1#, 1#, rotHoek)
ThisDrawing.Regen (acActiveViewport)
frmpartyzelt1.Show
Exit Sub
foutafhandeling:
       Call Err.Clear
    Resume Next
End Sub

[Diese Nachricht wurde von dw am 11. Jun. 2012 editiert.]

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

---

Hallo,

Zitat:

---

`Hier geht es nicht gut ?? was ist hier doch das problem?
Dim blockRefObj As AcadBlockReference

---

Ist das ein älteres Programm?
Hast du die Verweise mal kontrolliert?

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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