---

hallo ihr alle.
folgendes Problem.
ich habe einige symbole die als Wblock auf unserem Server liegen.
nun zu meiner Frage: kann ich eine schaltfläche mit bsp 10 buttons machen die über ein icon starte und wenn ich auf einen button klicke einen bestimmten Block einfügen?
Danke schon mal
MFG jigsawclan.at.tf

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

---

Hi,

Willst du ein Formular erstellen, wo du die Buttons drauf haben willst, oder sollen die als Toolbar erstellt werden.

Mit welcher Version arbeitest du?! Eine Alternative wären die Toolpaletten in Autocad.

Gruß, Carsten

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

---

hy danke für deine antwort.
ich hätte gerne ein Formular mit Buttons...geht das???
Arbeite mit 2006. wenn ich das mit icons mache is mein ganzes autocad
voller toolbars und die sind klein und unübersichtlich.
Dankeschön MFG eilovliz

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

---

Hi,

Schau mal hier. Da ist das einfügen von Blöcken, die am Fadenkreuz hängen, beschrieben.

Gruß, Carsten

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

---

hallo
das hab ich schon probiert aber irgendwie schaff ich es nicht
einen pfad vom server wo der block liegt anzugeben und den dann einfügen

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

---

hab jetzt folgendes Probiert

code:

Public Sub test()
Dim path As String
Dim abc
abc = "L:\acad\programme\AHAB-Elektro\BEH2\beh_001.dwg"
path = """" & abc & """"
ThisDrawing.SendCommand "(blockIn " & path & ")" & vbCr
End Sub

allerdings wenn ich auf ausführen gehe und auf den button klicke kommt genau nix

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

---

er schreibt blockin ist keine funktion.....??

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

---

Hi,

Du musst die BlockIn.lsp erstellen und laden. Die Befehlsfolge für die Lisp steht ja dort im Beitrag. Du kannst die Lisp dann unter Appload in die Startgruppe eintragen, so das diese dann automatisch mitgeladen wird.

Gruß, Carsten

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

---

muss das lokal liegen??

jetzt hab ich nämlich folgendes Problem
code:

Befehl: _vbaide
Befehl: *Abbruch*

Befehl: (blockIn "L:\acad\programme\AHAB-Elektro\BEH2\beh_001.dwg")

"acadprogrammeAHAB-ElektroBEH2beh_001.dwg": Kann Datei nicht finden im Suchpfad:
  C:\projekte\ (aktuelles Verzeichnis)
  H:\Hotel Uraniastrasse\10-Pläne\10.03 Haustechnik\10.03.03 Einreichnung\hkls\
  C:\Programme\ISHAcadAppsBase\
  C:\pit\CAD\8.0\LISP\
  C:\pit\CAD\8.0\WIN\ACAD\
  C:\pit\CAD\8.0\WIN\ACAD\2006\
  C:\Dokumente und Einstellungen\dr.ALTHERM\Anwendungsdaten\Autodesk\AutoCAD
2006\R16.2\deu\support\
  C:\Programme\AutoCAD 2006\support\
  C:\Programme\AutoCAD 2006\fonts\
  C:\Programme\AutoCAD 2006\help\
  C:\Programme\AutoCAD 2006\Express\
  C:\Programme\AutoCAD 2006\support\color\
  C:\Programme\AutoCAD 2006\
*Ungültig*

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

---

Ok tut mir leid das ich so voreilig geschrieben habte
hab ein paar sachen editiert und jetzt funktionierts
nur ich weis nicht wie ich es mache das er mit die dwg als
block einfügt. so helfen sie mir nämlich nichts
kannst du mir da vielleicht noch helfen??
MFG eilovliz

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

---

Hi,

Wie weit bist du denn mit deinem Code?! Kannst ja mal deine .DVB hochladen. Dann kann man mal weiter schauen.

Gruß, Carsten

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

---

so das hab ich jetzt auch hinbekommen 

jetzt hab ich noch die letzte frage
wie muss der code ausschaun das ich die dwg im angegebenen pfad als
xref einfüge??

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

---

Hallo!
ich bekomme es einfach nicht hin einen button zu bauen der mir eine dwg aus einem bestimmten pfad als xref einfügt!
kann mir jemad helfen??

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

---

Hallo,

die Hilfe liefert folgendes Beispiel:

Code:

---

Sub Example_AttachExternalReference()
    ' This example displays all the blocks in the current drawing
    ' before and after adding an external reference.
    '
    ' This example uses the "city map.dwg" found in the Sample
    ' directory. If you do not have this drawing, or if it is
    ' in a different directory, insert a valid path and file name
    ' for the PathName variable below.
   
    Dim InsertPoint(0 To 2) As Double
    Dim insertedBlock As AcadExternalReference
    Dim tempBlock As AcadBlock
    Dim msg As String, PathName As String
   
    ' Define external reference to be inserted
    InsertPoint(0) = 1: InsertPoint(1) = 1: InsertPoint(2) = 0
    PathName = "c:\program files\autocad\sample\city map.dwg"
   
    ' Display current Block information for this drawing
    GoSub ListBlocks
   
    ' Add the external reference to the drawing
    Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(PathName, "XREF_IMAGE", InsertPoint, 1, 1, 1, 0, False)
       
    ThisDrawing.Application.ZoomAll
   
    ' Display new Block information for this drawing
    GoSub ListBlocks
   
    Exit Sub

ListBlocks:
    msg = vbCrLf    ' Reset message
   
    For Each tempBlock In ThisDrawing.Blocks
        msg = msg & tempBlock.name & vbCrLf    ' Add Block to list
    Next
   
    MsgBox "The current blocks in this drawing are: " & msg
   
    Return
End Sub

---

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

---

dankeschön
es funktioniert zwar aber ich hab 2x die meldung

the current Block in the drawing are
*model_space
*paper_space
*paper_space0
this drawing

und ich kann den einfügepunkt nicht regeln
mfg eilovliz

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

---

Tut mir leid das ich immer so voreilig schreibe.
hab es jetzt hinbekommen VIELEN HERZLICHEN DANK

Nur wenn ich mein Prog ausführe und ich auf den button klicke schließt sich mein fenster nicht. weißt du warum??

MFG eilovliz

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

---

Nur wenn ich mein Prog ausführe und ich auf den button klicke schließt sich mein fenster nicht. weißt du warum??

MFG eilovliz

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

---

Hi,

Füge doch mal bei deiner Button_Click Aktion folgendes hinzu:

me.hide

oder

unload me.

Das hide blendet das Formular aus und das unload entfernt das Formular aus dem speicher.

Gruß, Carsten

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

---

absoluter wahnsinn
vielen dank für eure hilfe
funktioniert alles wunderbar wie ich es mir vorgestellt habe

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