|
AutoCAD VBA : Preview
alfred neswadba am 28.01.2009 um 12:28 Uhr (0)
Hi,hab jetzt zwar kein AutoCAD an der Hand, aber da gibts was, dass DeviceInfos upgedatet werden, heisst so ähnlich wie RefreshPlotDevice, auch wenn ichs nicht genau weiss, solltest Du in der Hilfe dazu Info finden.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
jakob schaaf am 28.01.2009 um 14:24 Uhr (0)
Hallo Gerhard.Es kommt auf die Fehlerhandhabung an.Mit (select ..... where... order bei zng) hast Du, z.B: ein Tabelle, die Du mit einer While Schleife durchläufst.Beim Auftreten eines Fehlers, solltest Du ihn loggen und die Schleifeweiter abarbeiten lassen.Du kannst ja, z.B: AutoCAD starten, konvertieren, AutoCAD beenden und dann zum nächsten Datensatz springen.Das Öfnnen und Schliessen von ACAD ist natürlich langsammer, aber mit Der Fehlerhandhabung ist es besser zu händeln.mfgJakob
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme beim Einlese von .txt
jimbo3 am 28.01.2009 um 14:34 Uhr (0)
Wiedermal ein Hallo an Alle!Habe ein Problem beim Einlesen von TXT-Dateien.Ich erstelle mit folgendem Code eine TXT-datei:Private Sub Übernehmen_Click()Dim min(1 To 10)Dim max(1 To 10)min(1) = min1min(2) = min2min(3) = min3min(4) = min4min(5) = min5min(6) = min6min(7) = min7min(8) = min8min(9) = min9min(10) = min10max(1) = max1max(2) = max2max(3) = max3max(4) = max4max(5) = max5max(6) = max6max(7) = max7max(8) = max8max(9) = max9max(10) = max10Open "c:Verzeichnisdatei.txt" For Output As #1 Print #1, "min" ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Probleme beim Einlese von .txt
alfred neswadba am 28.01.2009 um 16:38 Uhr (0)
Hi,eine nicht schöne, aber schnelle Vorgehensweise wäre einfach Du versuchst die TXT-Datei zu öffnen und prüfst auf Fehler:Code:On Error Resume NextDim tFnr as IntegertFnr = FreeFile du weisst ja nicht, on 1 schon verwendet ist, damit erhältst Du sicher die nächste FREIE NummerOpen "c:Verzeichnisdatei.txt" For Input As #1if Err.Number = 0 then dann darfst Du mit einlesen anfangenelse da ist Fehler aufgetreten, Fehlermeldung oder was auch immerEnd IfDie schönere Methode wäre, über das Microsoft.Scripting ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
jakob schaaf am 29.01.2009 um 11:03 Uhr (0)
Hallo Gerhard,was dies bedeutet AutoCAD.Documents.Open t2, True, das weiss ich nicht, aber hier könntest Du deinen Code erweitern.z.B: Zeit1 = ... taskID = ExecuteTask("C:programmeAutoCADR14acad.exe" & " /b " & pfad & DateiName) While IsTaskRunning(taskID) Zeit2 = ... If Zeit2 - Zeit1 Val(TIMEOUT) Then Call KillACAD("AutoCAD - [Zeichng.dwg]")...Ich verwende hier einige API funktionen, bitte selbst danach googeln.Hier noch eine Function:Function KillApp(AppClass As String, WinTitle As String) As Boolean ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
gerhard123 am 21.01.2009 um 12:58 Uhr (0)
Hallo zusammenIch habe ein Problem mit einem Batchprogramm.Ich öffne alle DXF-Files die ich in einem Verzeichnis finde um diese zu konvertieren.Nun mein Problem: Ist eine DXF-Files kaputt (DXF-Files kommen auch aus Fremdsystemen ) was öfter mal vorkommt, dann bleibt mein Batchprogramm stehen und im Autocad kommt die Meldung Zeichnung kann nicht geöffnet werden. Gibt es eine Möglichkeit, wie ich aus VB vorab prüfen kann ob das DXF-File ok ist oder wie ich auf die Meldung aus dem Autocad reagieren kann damit ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 21.01.2009 um 13:58 Uhr (0)
Hi Gerhard,Code: On Error Resume Next t2 = rs!dateiname So öffne ich auch die DXF-Files AutoCAD.Documents.Open t2, True Mit diesem Sub erstelle ich PNG-Dateien je Layout für unser ERP-System Call pngPlot ThisDrawing.Close Falsewenn ich es (ohne zu probieren) richtig verstehe, dann solltest Du eigentlich folgendes ändern können:Code:AutoCAD.Documents.Open t2, Trueif Err.Number = 0 then nur plotten, wenn problemlos geöffnet Call pngPlot ThisDrawing.Close Falseelse Err.Clear Call de ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
gerhard123 am 22.01.2009 um 11:24 Uhr (0)
Hallo Alfred,vorab mal danke für das Beispiel, aber leider ist es nicht so einfach.Damit du mein Problem nachvollziehen kannst:Erstelle von einer einfachen Zeichnung ein DXF-File, editier das File und lösche wahllos einige Zeilen auf den DXF-File und speicher das File danach. Jetzt versuch das DXF-File mit deinem VAB-Code zu öffnen, du wirst sehen, das Autocad wartet auf eine Eingabe und das VBA-Programm wird angehalten bis im Autocad eine Escape oder Enter eingegeben wird.Vielleicht kannst du mir ja noch ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
gerhard123 am 22.01.2009 um 11:50 Uhr (0)
Hallo Alfred,ich habe 7 Routinen laufen die auch Zeichnungen plotten (aus Layouts) die kann ich leider nicht mit Insert einfügen.Der Tipp ist bei den DXF-Files schon OK, aber leider nicht überall verwendbar.Wir haben auch hin und wieder das Problem, dass wir von externen Firmen Zeichnungen bekommen die mit einer Schulungsversion erstellt wurden.Dann habe ich ein ähnliches Phänomen, Autocad wartet auf eine Eingabe.Toll wäre es, zB nach 2 Minuten passiert einfach ein Escape ans Autocad zu senden wenn das Pro ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
alfred neswadba am 22.01.2009 um 11:55 Uhr (0)
Hi,Workaround, das mir jetzt einfällt:mach den Schritt mit DXF-Einfügen in neue leere Zeichnung, wenn Du dann eine Exception bekommst (und diese sollte dann nicht den Dialog von AutoCAD unterbrechen), dann weisst Du, dass das DXF nciht zu öffnen ist.Funktioniert es doch, dann kannst Du ja das DXF mit Documents.Open öffnen, dann weisst Du ja schon dass es funkt.Anderes Workaround wäre, dass Du versucht, mit Windows-APIs Fenster zu überwachen und dann mit WindowsMessages (so glaube ich, dass der Name ist, st ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
jakob schaaf am 28.01.2009 um 10:24 Uhr (0)
Hallo,wir machen das so (entweder die Methode 1 oder 2):1) vor dem ACAD-Aufruf, eine externe EXE Starten die, nach einer bestimmten Zeit ACAD killt. Ist ACAD vorher fertig, dann den Killer killen.2) Starten von ACAD mittels Script, und ggf. killen des ACAD nach einer gewissen Zeit. Hier einige Auszüge:...taskID = ExecuteTask(AUTOCAD & " /b " & pfad & DateiName) -- ACAD starten, mittels scriptWhile IsTaskRunning(taskID) If Zeit2 - Zeit1 Val(TIMEOUT) Then Call KillACAD("AutoCAD - [Zeichng.dwg]")...Public ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Tool zum Auflösen für Blöcke mit Attributen
tunnelbauer am 29.01.2009 um 13:59 Uhr (0)
Auf der Installations-CD von AutoCAD sind diese drauf - einlegen und Installation ändern - aber warum fragst du das eigentlich im VBA-Forum?------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Tool zum Auflösen für Blöcke mit Attributen
tunnelbauer am 29.01.2009 um 14:08 Uhr (0)
Da ist die Frage mit welcher Sprache dieses Tool umgesetzt wurde... AutoCAD kann nicht nur VBA... ------------------GrüsseThomasKorrekturen zum Kochbuch AutoLISP
|
| In das Form AutoCAD VBA wechseln |
