|
AutoCAD VBA : Fehlermeldung beim Rahmen einfügen
Stechi am 13.03.2008 um 09:11 Uhr (0)
Hallo Leute,ich habe in Autocad ein leeres Blatt. Wenn ich jetzt per VBA einen Rahmen aus Vorlage einfüge möchte, bekomme ich folgende Fehlermeldung:Doppelte Definition von Block GENAXEH ignoriert.Warum?Zum Einfügen des Rahmens benutze folgenden Code:Code: Dim path As String Dim myBK As AcadBlockReference Dim Pt1(0 To 2) As Double Pt1(0) = 0: Pt1(1) = 0: Pt1(2) = 0 path = "C:ProgrammeAutodeskAcadm2005EKKDWGFormatakk_a4.dwg" Set myBK = ActiveDocument.ModelSpace.InsertBlock(Pt1, path, 1#, 1#, 1#, 0 ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Rahmen zeichnen mit VBA
Stechi am 24.04.2008 um 15:39 Uhr (0)
Hallo zusammen,ich brauche nochmal Eure Unterstützung. Bis jetzt schaffe ich es, dass ich einen neuen Block erzeugen kann und in diesen Block ein Rahmen liegt und dass die Linien rot sind. Dazu benutze diesen Code:Code: Set blockObj = ThisDrawing.Blocks.Add(insertionPoint, "NEW_BLOCK") Rahmen ziehen points(0) = 0: points(1) = 0 points(2) = LAENGE: points(3) = 0 points(4) = LAENGE: points(5) = HOEHE points(6) = 0: points(7) = HOEHE points(8) = 0: points(9) = 0 Layer ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Rahmen zeichnen mit VBA
Stechi am 25.04.2008 um 07:41 Uhr (0)
Hallo Klaus,Danke für Dein Beispiel! Der Hintergrund des Ganzen ist, dass ich keine Vorlagen für Überlänge habe. Also muss ich die Vorlage selber zeichnen. Ich weiss, dass ich in AutoCAD nicht der Hellste bin!Und deshalb sage ich nochmal Danke für die Geduld!GrußMarkus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : dwg-Zeichnung kopieren
Stechi am 02.06.2008 um 11:38 Uhr (0)
Hallo zusammen,wie kann ich eine dwg-Zeichnung, die ich von einem bestimmten Verzeichnis öffne, auf ein anderes Laufwerk kopieren?Beispiel: Zu öffnete Datei D:PAK-UnterlagenAufträge260-260-00028-Kimberly Clark123.dwg möchte ich nun auf D:WorspacePAK-UnterlagenAufträge260-260-00028-Kimberly Clark speichern.Für jede Hilfe möchte ich mich jetzt schon bedanken!GrußMarkus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Dialogbox im ._-plot-Befel unterdrücken
Stechi am 18.06.2008 um 16:25 Uhr (0)
Hallo zusammen,ich möchte aus dem VBA heraus eine dwg-Datei plotten. Dafür muß ich einige Vorbereitungen erledigen. Über den ThisDrawing.SendCommand löse ich den ._-plot-Befehl aus. Irgendwann komme ich an die Stelle, wo er mir ein Dialogfenster aufmacht, wo ich dann aufgefordert werde, den Bestimmungsort für die plt-Datei einzugeben. Das möchte ich aber nicht. Er soll das Fenster aber unterdrücken und als plt-Datei diesen Pfad C:Tempoce9800out.plt immer nehmen.Mein bisherigen Code:Code:AUSGABEDATEI = "C:T ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Dialogbox im ._-plot-Befel unterdrücken
Stechi am 19.06.2008 um 10:47 Uhr (0)
Hallo Anton,Danke für Antwort. Ich habe es ausprobiert! Die Datei wird erstellt. Ich habe jetzt folgenden Code:Code:Dim result As BooleanAUSGABEDATEI = "C:Tempoceout.plt"AUSGABEGERÄT = "OCE9800.pc3"result = ThisDrawing.Plot.PlotToFile("c: empoceout.plt", AUSGABEGERÄT)Irggendwie fehlen doch noch einige Paramaeter (siehe erstes Posting von mir), wie z.B. das Papierformat (hier: EKK_A0_Rolle_700) oder den Maßstab für die Zeichnung, oder?Konkret: Wie bekomme ich die benötigten Parameter (s.o.) in den Befehl un ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Schleifenabbruch mit ESC-Taste
Stechi am 26.06.2008 um 15:31 Uhr (0)
Hallo Huebi,in VBA sieht der Code für das "keypressed"-Ereignis so aus:Code:Private Sub Textfeld-Name_KeyPress(KeyAscii As Integer)Dim pos As LongDim textString As String If KeyAscii = KEY_RETURN Then KeyAscii = 0 ElseIf KeyAscii = KEY_SPACE Then aktuelle Cursorposition ermitteln pos = Textfeld-Name.SelStart Eingabestring (mit neu eingegebenem Zeichen) textString = Mid$(Textfeld-Name.text, 1, pos) & Chr$(KeyAscii) Zeichen selektiert - Cursorposition für Ende ermitteln If Len(Textf ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Programmversion
Stechi am 04.07.2008 um 11:14 Uhr (0)
Hallo zusammen,wie kann ich nochmal die Programmversion von AutoCAD ermitteln (z.B. ob AutoCAd 2005 oder AutoCAD 2007)? Ich habe es schonmal hier im Forum gefunden, aber irgendwie finde ich es nicht mehr!Bitte helfen! Danke!GrußMarkus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : neuen Datensatz in DB einfügen
Stechi am 14.07.2008 um 14:50 Uhr (0)
Hallo,irgendwie stehe ich wieder auf dem Schlauch! Ich möchte ein Insert auf einer DB absetzen und habe dafür folgenden Code:Code: Datenbank öffnen Set AKKWORKSPACE = CreateWorkspace("NewODBCWorkspace", DBUSER, DBPASS, dbUseODBC) Set VERBINDUNG = AKKWORKSPACE.OpenConnection("Connection1", , , _ "ODBC;DATABASE=AKK;DSN=EKKECAD01;") Set qdfMaxZeichnungsnummer = VERBINDUNG.CreateQueryDef("") qdfMaxZeichnungsnummer.sql = "SELECT max(Zeichnungsnummern.Zeichnungsnummer) As Zeichnungsnumme ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : alle Zeichnungen löschen
Stechi am 15.01.2009 um 13:41 Uhr (0)
Hallo Leute,ich habe mal wieder eine Frage: Ich habe eine dwg-Datei mit mehren Zeichnungen und evt. Bemaßungen und Tabellen, in der ein Rahmen und ein Schriftkopf enthalten ist. Nun möchte ich eine neue dwg-Datei erzeugen, in der der Rahmen und Schriftkopf erhalten bleiiben, aber alles andere gelöscht wird. Geht das mit VBA? Wenn ja, wie?Danke schonmal für die, hoffentliche, eingehenden Ratschläge!GrußMarkus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Preview
Stechi am 28.01.2009 um 11:55 Uhr (0)
Hi Alfred,ich habe nun folgendes versucht:Code:ThisDrawing.Application.Preferences.Output.DefaultOutputDevice = cboPlotter.text & ".pc3"ThisDrawing.Plot.DisplayPlotPreview acFullPreviewTrotz der Zuweisung der .pc3-Datei verwendet Autocad die voreingestellte Einstellung, die im Plotmenü von Autocad vorgenommen wurde. Er ignoriert die Umstellung auf einen anderen Drucker. Warum?Die Änderung erfolgt erst dann, wenn man VBA beendet. Nochmal die Frage: Warum?Anmerkung: cboPlotter.text ist eine Combobox, aus der ...
|
| In das Form AutoCAD VBA wechseln |
