---

Wer kann mch helfen,

Ich muchte auf einem button drucken und ein block würd importiert.

ThisDrawing.SendCommand ("-_insert" & vbCr & "D:\Autocad\glass" & vbCr)

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

---

Hallo dw,
warum willst Du mit SendCommand den Umweg über die Befehlszeile machen.
Probiers mal mit der InsertBlock Methode:

    Dim insertionPnt(0 To 2) As Double
    Dim blockRefObj As AcadBlockReference
    insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "D:\Autocad\glass.dwg", 1#, 1#, 1#, 0)

Natürlich müßtest Du vorher abfragen wohin der Punkt gesetzt werden soll und evtl. Maßstäbe festlegen.

Grüße,
Klaus

PS: Füll doch mal Dein Profil aus (SystemInfo), bei manchen Anfragen kann das ganz hilfreich sein. Außerdem kann Korrekturlesen den anderen Forumslesern vielleicht helfen Deine Anfrage schneller zu verstehen (Stichwort: Tippfehler)

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

---

Danke für dein antword, habe es jetzt zo gemacht aber es wurde mir sehr intresieren wie ich das alles inerhab VBA behalten kann.

und type feller kommen vor weil ich Hollander bin sorry...

Dim startPnt As Variant            'Het startpunt van dat object, nodig om hoek te bepalen.
Dim basePnt As Variant              'Het aanwijspunt van dat object.

frmtrusstype.Hide

ThisDrawing.Layers.Add ("Eurotruss_FD_31")
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item("Eurotruss_FD_31")

basePnt = ThisDrawing.Utility.GetPoint(, "Basis punkt angeben:")          '(, "" & vbCr & "Basis punkt angeben:")
MsgBox "nu komt de rest"

ThisDrawing.SendCommand ("_-insert" & vbCr)
ThisDrawing.SendCommand ("D:\support\glass.dwg " & vbCr & "basePnt" & vbCr & vbCr & vbCr)

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

---

Hi dw,

Wie Klaus es schon geschrieben hat, musst du folgendes machen:

Anstatt:

Code:

---

ThisDrawing.SendCommand ("_-insert" & vbCr)
ThisDrawing.SendCommand ("D:\support\glass.dwg " & vbCr & "basePnt" & vbCr & vbCr & vbCr)

---

musst du das nehmen:

Code:

---

Dim blockRefObj As AcadBlockReference
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "D:\Autocad\glass.dwg", 1#, 1#, 1#, 0)

---

Gruß, Carsten

Edit: Ein Holländer aus der Schweiz?!

[Diese Nachricht wurde von Carsten1210 am 10. Dez. 2007 editiert.]

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

---

Hallo dw,
hab Dir den Code noch mal zusammengestellt:

Code:

---

Dim startPnt As Variant            'Het startpunt van dat object, nodig om hoek te bepalen.
Dim basePnt As Variant              'Het aanwijspunt van dat object.
Dim blockRefObj As AcadBlockReference

frmtrusstype.Hide

ThisDrawing.Layers.Add ("Eurotruss_FD_31")
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item("Eurotruss_FD_31")

basePnt = ThisDrawing.Utility.GetPoint(, "Basis punkt angeben:")         
MsgBox "nu komt de rest"

' Diese Zeilen sind nicht nötig,

' ThisDrawing.SendCommand ("_-insert" & vbCr)
' ThisDrawing.SendCommand ("D:\support\glass.dwg " & vbCr & "basePnt" & vbCr & vbCr & vbCr)

' dafür:
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(basePnt, "D:\Autocad\glass.dwg", 1#, 1#, 1#, 0)

'sofortiges zeichnen des Blockes
blockRefObj.update

---

Nachteil dieser Methode ist aber dass Attribute nicht abgefragt werden sondern nur der Block gezeichnet wird. Das heißt: Du müßtest die Attribute in Deinem Formular vorher abfragen und dann diese ergänzen.

Alternativ könntest Du natürlich auch einen String definieren mit den x,y - Koordinaten und diesen dem SendCommand mitgeben.

Code:

---

Dim KorText as String
Dim SendString as String

KorText = Trim(Str(basePnt(0))) + "," + Trim(Str(basePnt(1)))

ThisDrawing.SendCommand ("D:\support\glass.dwg " & vbCr & KorText & vbCr & vbCr & vbCr & vbCr)

---

Grüße in die Schweiz,
Klaus

[Diese Nachricht wurde von KlaK am 10. Dez. 2007 editiert.]

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

---

Es funktioniert wunderbar aber wie kann ich jetzt sagen das ich selbst eine grade einfugen will.

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(basePnt, "D:\Autocad\glass.dwg", 1#, 1#, 1#, 0)

was wird gemeint mit  1#,  und was muss ich da ändern das ich selbst die Ecke bestimmen kann?

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

---

Hi dw,

die drei 1# stehen für den Skalierfaktor der X-, Y- und Z-Achsen des Blocks.

Was meinst du mit

Zitat:

---

was muss ich da ändern das ich selbst die Ecke bestimmen kann?

---

 

Gruß, Carsten

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

---

ich meinte drehen. das will ich selbst bestimmen im Zeichnung drin.

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

---

Hi dw,

Ich gehe mal davon aus, das du den Block sichtbar am Cursor drehen willst.
Dann wirst du nicht um eine kombinierte VBA/Lisp-Lösung drum herum kommen. Ein Beispiel dazu findest du in diesem Beitrag.

Gruß, Carsten

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