Beiträge: 189
Registriert: 27.10.2004

erstellt am: 03. Nov. 2004 08:59      <-- editieren / zitieren -->      Unities abgeben: 

Trotzdem Danke für die Tipps und die Unterstützung. Ich werde versuchen, erst einmal dieses Konzept hinzubekommen und dann sehe ich weiter.

Beiträge: 603
Registriert: 06.06.2002

erstellt am: 03. Nov. 2004 08:48      <-- editieren / zitieren -->      Unities abgeben: 

wahrscheinlich kannst Du mit der TextDatei nichts anfangen, aber das ist auch nicht schlimm. Den Teil kannst Du ja auch ohne Probleme wieder rausnehmen, die Koordinaten stehen ja weiterhin im Code. Wie wäre es, wenn Du Dir erstmal die Koordinaten deiner Anbindungspunkte lokal, also ausgehend vom Einfügepunkt bestimmst. Deine ganzen Teile, die Du Dir da dranhängen möchtest scheinen katalogisiert zu sein. Ist es denn denkbar, dass Antennen oder was auch immer, an mehreren Anbindpunkten eingefügt werden können? Ich denke mal ja. Das einfachste wäre dann wahrscheinlich, wenn Du Dir ein Formular erstellst, in dem so ein nackter Mast gezeichnet ist und der Benutzer sucht sich einfach nur den Anbindepunkt aus und welches Dingens dort dran gezeichnet werden soll. Ich glaub das wäre das einfachste. Und dein Programm kennt ja dann die lokalen Koordinaten. Voraussetzung wäre natürlich, das es den Mast dann auch in der Zeichnung gibt. Aber das sollte ja nicht das Problem sein. Das nochmal als Anregung. Wie Du nun weitervorgehen sollst oder kannst, kann ich Dir nicht vorschreiben oder sagen. Ich bin gerne bereit, Dich bei Programmierproblemen und Anderen zu unterstützen, aber es wäre schön, wenn von Dir auch etwas kommen würde, was die Lösung angeht und nicht wie Du etwas realisieren sollst. Wenn es irgendwo hängt, kein Problem, da hilft Dir in dem Forum hier jeder. Es ist schwer sich etwas vorzustellen, was man noch nie gesehen hat, geschweige denn eine Lösung dazu zu finden. Entwickle doch erstmal ein Konzept, wie das ganze mal aussehen soll, was es können soll. Dann entwirfst Du eine erste Oberfläche und die Programmierung dazu kommt von ganz alleine. Ich hoffe es hilft Dir weiter, aber sei mir nicht bös. Ich kann auch nicht den ganzen Tag im Forum hängen, muss nebenbei auch noch nen bissle studieren und meine Brötchen verdienen.

Gruß TP

Beiträge: 189
Registriert: 27.10.2004

erstellt am: 03. Nov. 2004 08:25      <-- editieren / zitieren -->      Unities abgeben: 

Mein Ziel ist es jedoch, in eine leere Zeichung über das entwickelte Menü die Blöcke der Einzelbauteile (aus den anderen dwg-Dateien) sozusagen zu importieren und diese automatisch an der richtigen Stelle zusammenfügen zu lassen. D.h. gleich beim Importieren des Blockes müssen die Koordinaten des Basispunktes verarbeitet werden.

Beiträge: 189
Registriert: 27.10.2004

erstellt am: 03. Nov. 2004 08:14      <-- editieren / zitieren -->      Unities abgeben: 

erst noch einmal recht vielen Dank für die gestrige Hilfe mit dem Code. Nun stellt sich mir die Frage, wie ich mit den Basispunktkoordinaten in der Textdatei weiterarbeiten kann bzw. ob mir das überhaupt richtig weiter hilft?

Mir schwebt ja vor, über ein Menü in AutoCAD alles verwalten zu können, d.h. ich wähle im Menü einen leeren Mast aus, dann meinetwegen den Mastfuß, danach das Fundament usw. und mein Programm, welches hinter dem Menü steckt, fügt diese Blöcke automatisch zusammen.

Wie kann ich das umsetzen?

K

Beiträge: 603
Registriert: 06.06.2002

erstellt am: 02. Nov. 2004 18:09      <-- editieren / zitieren -->      Unities abgeben: 

Gruß TP

Beiträge: 189
Registriert: 27.10.2004

erstellt am: 02. Nov. 2004 17:01      <-- editieren / zitieren -->      Unities abgeben: 

Vielleicht sieht man sich ja morgen wieder hier, ich bin Dir sehr dankbar für Deine Hilfe!

Beiträge: 603
Registriert: 06.06.2002

erstellt am: 02. Nov. 2004 16:50      <-- editieren / zitieren -->      Unities abgeben: 

Code:

---

Sub ReadBlockProperties()
Dim AcMapEntity As AcadEntity
Dim AcMapBlock As AcadBlockReference

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Dim TxtFile As TextStream
Set TxtFile = fso.OpenTextFile("c:\ausgabe.txt", ForWriting, True)

For Each AcMapEntity In ThisDrawing.ModelSpace
    If AcMapEntity.ObjectName = "AcDbBlockReference" Then
       
        Set AcMapBlock = AcMapEntity
        TxtFile.WriteLine AcMapBlock.InsertionPoint(0) & _
            vbTab & AcMapBlock.InsertionPoint(1) & _
            vbTab & AcMapBlock.InsertionPoint(2) & vbCr
 
    End If
Next

TxtFile.Close
Set TxtFile = Nothing
Set fso = Nothing
Set AcMapEntity = Nothing
Set AcMapBlock = Nothing

End Sub

---

Gruß TP

Beiträge: 189
Registriert: 27.10.2004

Beiträge: 189
Registriert: 27.10.2004

Beiträge: 603
Registriert: 06.06.2002

erstellt am: 02. Nov. 2004 16:30      <-- editieren / zitieren -->      Unities abgeben: 

Deine Anbindepunkte sind scheinbar willkürliche Punkte in dem Block drinnen, die sind aber nirgends definiert. Das heisst, das Du diese Punkte auch nicht auslesen kannst! Die könntest Du Dir höchstens mathematisch bestimmen und dort den jeweiligen Block einfügen. Vorausgesetzt, die Abstände der Anbindepunkte sind wirklich immer identisch und eindeutig festgelegt. Aber eine andere Möglichkeit sehe ich sonst nicht.

Gruß TP