---

Hallo!

Es gibt eine *.dwg datei welche bestimmte fertig definierte Blöcke enthält. Ich kopiere diese Blöcke von dort heraus und füge sie dann in einer anderen Datei ein. Jetzt möchte ich mittels VB6 alle Blöcke in der neuen Datei zählen und snschließend in einem vb form die benötigten Stückzahlen pro Block ausgeben!

Da ich die Com Schnittstelle von AutoCad noch nie programmeirt habe , habe ich absolut Null Ahnung wie das script dafür aussehen könnte.

Ideal wäre es, wenn der benutzer aus einer combobox auswählen könnte welche offene/oder auch nicht offene Acad datei er auswerten möchte und ihm dann eine übersicht mit der in dieser Datei plazierten Blöcken erhält (Stück - Blockname)

Wer würde mir da bitte ein paar Anstöße geben, um diese Aufgabenstellung zu verwirklichen????

Schon jetz Besten Dank für eure Bemühungen!

lg

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

---

Blockauswahl.zip

Hallo LG

ich hoffe ich hab dich richtig verstanden!
schau dir die Anlagedatei an, darin hab ich dir ein kleines Beispiel programmiert!

Joe

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

---

blockauswahl1.txt

sorry, aber man kann in VB6 keine *.dvb files vernünftig verarbeiten.
(ergebnis siehe anhang)

ISTzustand:
Option Explicit
  Public AcadApp As AcadApplication
  Public AcadBlock As AcadBlock
  Public WshShell As Object
 
Private Sub Command1_Click()
  Set WshShell = CreateObject("Wscript.Shell")
  WshShell.Run "C:\Programme\ACAD2000\acad.exe"
  Set AcadApp = CreateObject("AutoCAD.Application")
  'wie kann ich alle ofenen bzw. aktiven acad sitzungen auslesen
  'um den benutzer die auszuwertende sitzung mittels combo box
  'auswählen zu lassen???

  'wie initialisiert man einen autoCAD block bzw. blöcke???

  'jetzt sollen alle im aktiven AcadFile vorhandenen Blöcke
  'ausgelesen und aufgelistet werden + platzierte Stückzahl
  'jedes einzelnen Block Typs
End Sub

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

---

Hallo, lg,

in Deinem Code startest Du AutoCAD gleich zweimal, einmal über die Shell und dann nochmal mit CreateObject oder?

Ich würde das so machen:
Zuerst nachsehen, ob schon ein AutoCAD aktiv ist:
Dim Acadapp As Object
On Error Resume Next
Set Acadapp = GetObject(, "Autocad.Application")
If Err <> 0 Then
    ' AutoCAD nicht gefunden - wird nun gestartet...
    Set AcadApp = CreateObject("Autocad.Application")
End If
' Nun eventuell eine Datei in AutoCAD öffnen:
Dim Drawing as As AcadDocument
Set Drawing = Acadapp.Documents.Open ("Test.dwg")
' Dann kannst Du z.B. die Blockdefinitionen ansehen:
Dim Blockdef as AcadObject
For Each Blockdef in drawing.blocks
    debug.print blockdef.name
Next Blockdef
....
Für die platzierte Stückzahl der einzelnen Blöcke mußt Du die Zeichnung durchsuchen - siehe Selectionsets, da hab ich neulich was dazu gepostet: http://ww3.cad.de/foren/ubb/Forum259/HTML/000310.shtml

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

---

hi!

erstmals vielen vielen dank!
das hilft mir schon sehr weiter!!!

besten dank!
jetzt sollt ichŽs selbst hin kriegen!
lg

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