Hallo zusammen,
ich versuche eine *.mvba zu programmieren um eine Zelle zu importieren die genau nach Norden ausgerichtet ist.
Das ausrichten nach Norden der Zelle klappt ganz gut. Das Problem liegt aber beim "holen" der Zelle. Ich schaffe es nicht die Zellbibliothek automatisch anzuhängen. Das Makro bleibt bei geöffnetem Zell-Bibliothekfenster stehen. Ich muss die passende Zellbibliothek dann anwählen und das fenster von "Hand" schliessen. Danach ist die Zelle am Fadenkreut und wird wie gewünscht nach Norden gedreht...
Wie kann ich das Makros dazu bringen das Zell-Bibliothek-Fenster automatisch zu schliessen?
Ein anderer Weg wäre die Zeichnung so zu öffnen dass die passende Zellbibliothek schon angehängt ist. Nur wo mache ich das? In der *.ucf? In der dgnlib?...
Danke im voraus für eure Hilfe, habe ein bisschen Anfängermühe :-)
Dani
Hallo Herr Bosshard.
Variante 1:
Sie benötigen ein Klassenmodul zur Behandlung der modalen Dialoge (IModalDialogEvents). Wenn Sie das Anhängen einer Zellbliothek mit dem VBA Projektmanager aufzeichnen, wird ein solches Klassenmodul erstellt. Ein sogenannter EventHandler sorgt dann dafür, das das Dialogfeld am Ende geschlossen wird.
Variante 2:
Verwenden Sie zum Anhängen die Tastatureingabe RC=[Pfad zur Bibliothek]\Name.cel. Hier wird kein Dialog geöffnet.
VBA Code: CadInputQueue.SendCommand "RC=[Pfad zur Bibliothek]\Name.cel"
Variante 3:
Konfiguration - Setzen Sie die Variable MS_CELLLIST so, dass sie u. a. auf Ihre Bibliothek zeigt. Jetzt reicht das Keyin AC=Cellname, um die Zelle aufzurufen und das Platzieren zu starten.
VBA Code: CadInputQueue.SendCommand "AC=Cellname"
Viel Erfolg.
Ronald Zeike
Grüezi Herr Zeike,
ich hab's mit Variante 2 hingekriegt. Herzlichen Dank! :-)
Freundliche Grüsse aus der VBZ
Daniel Bosshard
Hallo Herr Zeike,
geht es irgendwie dass man das Ordner mit VBA anhängen kann?
Ich habe mit Varianten 2 probiert, das ist dann quasi wie den VBA Code: AttachCellLibrary.
Vielen Dank im Voraus.
Viele Grüße,
Cindy Putri
Cindy Putri said:geht es irgendwie dass man das Ordner mit VBA anhängen kann?
Da scheint es doch sinnvoller die vorgeschlagene Variante 3 von Ronald zu verwenden. Das wäre der Microstation Königsweg.
Regards
Frank
since 1985: GIS, CAD, Engineering (Civil) Senior Consultant : [Autodesk Civil 3D , Esri ArcGIS, VertiGIS: in previous days : Bentley MS V4 - V8i, GeoGraphics, Bentley Map V8i, InRoads, HHK Geograf, IBr DAVID] : Dev: [C, C++, .NET, Java, SQL, FORTRAN, UML][direct quote by: http://en.wikipedia.org/wiki/Helmut_Schmidt]: "Wer Kritik übel nimmt, hat etwas zu verbergen"Wer Grammatik- und/oder Rechtschreibfehler findet, der darf sie behalten :-)
Da gebe ich Frank recht. Wir haben in Bezug auf Zellen und VBA die besten Erfahrungen gemacht, wenn die Variablen MS_CELL und MS_CELLLIST richtig gesetzt sind. Dann findet das VBA Makro die Zellen schnell und zuverlässig.
Grüße