---

Hallo Friends,

I am new here today...searching a code in internet for following problem.

I have a drawing in AutoCAD2005.

I have written a VisualBasic program finding an Appropriate dwg files in Particular folders coz you people know how our Explorer works..in tree form...clicking clicking and so on till we need our particular folder..so inorder to minimize the time program works using command buttons and lists all the dwgs in Listview.

now i choose a dwg file in Listview ( i mean its a small drawing which should be inserted in opened drawing ). and click the Button INSERT.
now task is this dwg file which is been selected in Listview shold be inserted in opened autocad drawing.

Please can anybody help me how to write this code for this Button Insert..

Private sub insert_click()
.
.
.
.
.
End Sub

it would be very helpfull for me my friends..

i think i have expressed my task in detail..

Thanks - Singoi

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

---

Hi singoi,

Just take a look at the InsertBlock-Method in the help.
This should help you.

Greets, Carsten

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

---

Hallo,

Es tut mir leid..ich habe mein frage auf english gestellt..versuche ich auf deutsch zu erwitern.

ich habe eine Dwg zeichnung (Alias.dwg) geöffnet. in diese zeichnung möchte ich ein kleine blöcke( auch ein dwg zeichnung aber irgendwo in eine ordner in Server liegt) einfügen. dafür habe ich selber ein program in VB geschiereben. ich sehe die dwgs die ich brauche in ein LISTVIEW in VB fenster. da kann ich mich wählen welche dwg ich einfügen möchte.

jetzt ist die frage für ein knopf ( Insert ). wie kann ich diese dwg in mein ALIAS.dwg einfügen die ich in LISTVIEW ausgewählt haben.

ich bitte euch mir zu hilfen diese Code zu schreiben.

Gruß . Singoi

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

---

Hallo Singoi,

hier ist mal ein Beispiel um eine DWG als Block einzufügen

Code:

---

    ''
    '' DWG als Block laden
    ''
    Dim tmpBlockRef As AcadBlockReference
    Dim tmpBlockDef as AcadBlock
    Dim tmpPkt(0 To 2) As Double
    Dim tmpBlockName As String
   
    ' Fügt eine DWG  ein (Blockreference)
    Set tmpBlockRef = ThisDrawing.ModelSpace.InsertBlock(tmpPkt, vlst_DWG, 1, 1, 1, 0)
    ' Name des Block innerhalb von AutoCAD ermitteln
    tmpBlockName = tmpBlockRef.Name
    ' Blockdefinition
    Set tmpBlockDef = ThisDrawing.Blocks(tmpBlockName)

---

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

---

So wie ich das sehe, willst du in eine Zeichnung die du bearbeitest verschiedene Zeichnungen, die als Blöcke in separaten Zeichnungen hinterlegt sind einfügen?

Bei uns wird auch so gearbeitet. Und wir benutzen eine Funktion von AutoCAD. "amLibrary"
Dort kann man sich ne eigene Bibliothek zusammenstellen. Z.B. eigene Sonderschrauben die als Blöcke hinterlegt sind.
Du öffnest dann die Bibliothek und siehst alle hinterlegten Zeichnungen als Minivorschau und kannst das was du haben willst anklicken und als Block in deine aktuelle Zeichnung einfügen. Feine Sache.

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

---

Hi insidERR,

Das wird dann eine Mechanical-Funktion sein, die im Standard-Autocad nicht vorhanden ist.

Ich denke, der Weg von Stelli wird schon der richtige sein. Aber dyzu müsste man auch eine Rückmeldung vom Fragesteller bekommen.

Gruß, Carsten

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

---

hmmm...
warum benutzt Du nicht einfach das Designcenter?

Grüsse, Henning

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