|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Gloem am 22.10.2008 um 21:24 Uhr (0)
Hallo,ich wollte mal kurz fragen ob folgendes Programm ohne weiteres zu realisieren ist: Ich möchte automatisch per VBA alle Objekte einer Zeichnung auswählen und in eine andere Zeichnung einfügen. Also quasi Kopieren mit Basispunkt(0,0) in der Quelldatei und Einfügen bei 0,0 in der Zieldatei automatisieren, da ich die manchmal für viel Zeichnungen machen muss.Selectiert hab ich die ganzen Objekte schon nur fehlt mir jetzt der Befehl um die in der Zielzeichnung einzufügen.Code: If (Dir(LB_Dateiliste.Lis ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Gloem am 23.10.2008 um 19:41 Uhr (0)
Weil jedesmal die Daten aus 30 bis 50Dateien zusammenkopiert werden müssen
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Gloem am 23.10.2008 um 23:22 Uhr (0)
Die Importfunktion von Theo funktioniert ganz gut und das Formular drumrum hat auch nicht lange gebraucht. Aer trotzdem danke für alle weiteren Lösungsvorschläge
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Gloem am 23.10.2008 um 11:34 Uhr (0)
Danke für eure Antworten.Aber es geht hier wirklich um wiederkehrende Arbeiten mit massenweise Zeichnungen, weswegen sich das Programmieren schon lohnt. Formular und den Rest hab ich ja auch schon fertig, das war nur ne Stunde Arbeit, leider scheiter ich jetzt jedoch am Einfügen der Objekte.Den Tipp mit CopyObjects werd ich mir mal genauer anschauen
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Hyperlink zu einem Block
Gloem am 05.02.2009 um 11:03 Uhr (0)
Hallo zusammen,mein Problem ist folgendes: Habe in eine Zeichnung Blocks eingefügt. Mit diesen Blocks sind Hyperlinks verbunden. Beim erstmaligen Einfügen der Blocks erscheinen die Hyperlinks auch in der Zeichnung und lassen sich problemlos öffnen. Speichere ich aber dann die Zeichnung und öffne sie dann erneut, sind zwar die Blöcke noch da aber die Hyperlinks fehlen.Hat jemand eine Idee?
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Einlesen von Blockdefinitionsdatei
Gloem am 29.01.2008 um 11:01 Uhr (0)
Hallo,ich habe ein kleines Problem beim Einlesen meiner Blockdefinitionsdatei mit MEHREREN Blöcken.Beim Öffnen des Formulars soll automatisch die Datei mit den Blöcken in die aktuelle Zeichnung eingebunden werden:Code:Set objXRef = ThisDrawing.ModelSpace.AttachExternalReference(FILE_BLOCKREFERENZ, "EVG", Point, 1, 1, 1, 0, False)Beim ersten Öffnen funktioniert alles. Wird da Formular nun aber ein zweites mal geöffnet, bekomm ich ein Fehler das die Blockdefinitionsdatei nicht geöffnet werden kann.Muss ich m ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Hyperlink zu einem Block
Gloem am 06.02.2009 um 20:31 Uhr (0)
Danke für die Zeichnung.Nur leider funktioniert es mit deinem Beispiel und mit einem Beispiel aus einem Buch auch, nur eben mit meinem nicht, obwohl ich eigentlich ja nichts anders mache.Auf einem anderen Rechner funktioniert mein Beispiel aber jetzt auch, allerdings hab ich hierbei nicht denselben Block verwendet(Hab gerade keinen Zugriff auf die Blocksammeldatei) wie in der ursprünglichen Zeichnung. Daher befürchtete ich zuerst, dass das ganze mit importierten Blöcken nicht funktioniert aber das war es z ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Hyperlink zu einem Block
Gloem am 12.02.2009 um 07:11 Uhr (0)
Es lag wirklich am verwendeten Block. Ich hab den in der externen Zeichnung neu erstellt und soehe da es ging. Keine Ahnung warum.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Hyperlink zu einem Block
Gloem am 05.02.2009 um 11:41 Uhr (0)
Hallo Klaus,ich schicke dir mal den entsprechenden Teil des Quellcodes rüber. Das macht es sicher einfacher.Block aus Referenzdatei in die geöffnete Zeichnung importierenCode: Zuweisung des Blocks Dim axBlockFile As New AxDbDocument Dim newBloecke(0) As Object Dim block As AcadBlock On Error Resume Next axBlockFile.Open Konstants.FILE_BLOCKREFERENZ For Each block In axBlockFile.Blocks If block.name = Konstants.BLOCKNAME_FOTO Then Set newBloecke(0) = block ax ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text über anderes Objekt liegen
Gloem am 11.02.2008 um 16:06 Uhr (0)
Hallo, ich möchte einen Text, am liebsten den normalen AcadText, über ein anderes Objekt legen.Von daher müsste ich den Text in den Vordergrund schieben und danach den Hintergrund des Textes auf die Farbe der Zeichnung setzen. Bei einer normalen Verwendung von AutoCAD funktioniert das ja aber mit VBA steh ich voll auf dem Schlauch.Hoffe jemand kann mir helfen
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position suchen
Gloem am 26.03.2009 um 20:04 Uhr (0)
@Alfred: Es können sagen wir mal bis zu maximal 10.000 Blöcke in einer Zeichnung sein. Wie würdest du den nach einem Block suchen wenn man der select-Funktion nicht trauen kann.@Stelli: Gar nicht mal so dumm. Warum umständlich mit den Filtern ein Rechteck basteln wenn es dafür doch extra ne Funktion gibt. Irgendwie muss ich das überlesen haben
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : 2 Texte plu eine Linie gleichzeitig drehen
Gloem am 23.06.2008 um 21:03 Uhr (0)
Hallo,wie würdet ihr folgendes machen: Ich möchte automatisch Flurstücksnummern in die Zeichnung eintragen, nach Möglichkeit auch gedreht und auch mit "Zähler" und "Nenner".Ich dachte ich schreibe einfach 2 Texte untereinander und zeichne dazwischen ne Linie dessen Länge irgendwie aus der Boundigbox kommt. Aber wie drehe ich die 3 Elemente jetzt alle auf einmal? Kann man selectionSets um einen Winkel und den Mittelpunkt drehen?MfGGloem
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Einlesen von Blockdefinitionsdatei
Gloem am 29.01.2008 um 12:11 Uhr (0)
Kann das ganze so funktionieren:Code: Bei Fehler - Sprung zur Fehlermarke On Error GoTo err_Import_XRef Dim blockFile As New AxDbDocument blockFile.Open FILE_BLOCKREFERENZ Dim blockRef_File As AcadBlockReference Dim blockRef As AcadBlockReference Dim vorhanden As Boolean For Each blockRef_File In blockFile.Blocks vorhanden = False For Each blockRef In ThisDrawing.Blocks If (blockRef.name = blockRef_File.name) Then vorhanden = True End If Next If (Not vorhanden) The ...
|
| In das Form AutoCAD VBA wechseln |
