|
AutoCAD VBA : Ortho oder Fang schalten mit VBA
alfred neswadba am 07.08.2009 um 09:15 Uhr (0)
Hi,mit ThisDrawing.SetVariable kannst Du jede AutoCAD-Variable setzen.Damit gibt es z.B. OSMODE für setzen/deaktivieren von Objektfängen, etc.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
alfred neswadba am 11.08.2009 um 15:40 Uhr (0)
Hi,kann es sein, dass Du im AutoCAD die Systemvariable SDI auf 1 stehen hast?- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
alfred neswadba am 13.08.2009 um 12:58 Uhr (0)
Hi, Zitat:ACad hängt sich allerdings nach Bearbeitung der letzten Datei auf...viele Dateien öffnen und schliessen mag AutoCAD (und auch andere nicht), egal ob Word oder AutoCAD - 5000 Dateien öffnen, darauf zugreifen und wieder schliessen ist der Tod für Windows und dessen Memory-Verwaltung.Du kannst aber (empfehle ich bei der Abhandlung solcher Dinge grundsätzlich) ein Log-File mitschreiben, am Anfang einer Zeichnung fügst Du eine Zeile mit Dateiname ein (ev. mit Datum/Uhrzeit), dann LogFile schliessen. A ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
alfred neswadba am 13.08.2009 um 16:47 Uhr (0)
Hi, Zitat:Vll. muß ich wirklich vom ThisDrawing weg. Wie mache ich das aber am besten?...sorry, da haben sich unsere Antworten überkreuzt und damit ist mir dieser Beitrag entkommen.Du kannst einmal auf das Application-Objekt referenzieren mit dim tAcadApp as AcadApplicationset tAcadApp = ThisDrawing.Applicationoder der noch weiter entfernte Weg:set tAcadApp = GetObject(,"AutoCAD.Application")Und wenn Du nicht viel in der Zeichnung machen mußt, dann kannst Du von ganz aussen kommen und z.B. Excel starten, d ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
alfred neswadba am 11.08.2009 um 13:44 Uhr (0)
Hi, Zitat:Stimmt das so als Herangehensweise?...sehe keinen Fehler, Verzeichnis einlesen kannst Du mit dem Windows-Scripting-Object oder mit der VB-Funktion DIR.Vorsicht bei großer Dateianzahl, Öffnen von 100ten Zeichnungen kann irgendwann mal ein MemoryLeak hinterlassen und AutoCAD ist tschüss.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Löschen von Schriftkopf / Rahmen
alfred neswadba am 24.08.2009 um 12:42 Uhr (0)
Hi,@insidERR: Zitat:Zeichnungsrahmen und Schriftkopf sind doch BlöckeIch nehme an, dass es rund um dieses Problem relativ leise in diesem Thread ist, da das verwendete Objektmodell von CW77 eben Mechanical-eigene Objekte sind (siehe die Deklarationen, die allesamt nicht AutoCAD-Basisojekte sind).Wenn Du Mechanical hast, kannst Du doch seinen Code mal ausprobieren, gibts bei Dir den gleichen Fehler?Wenn es denn doch AutoCAD-Blöcke sind, dann sollte man acht geben, ob durch löschen einer solchen Blockreferen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : PDF erstellen per VBA-Makro
alfred neswadba am 24.08.2009 um 19:56 Uhr (0)
Hi,das ZIP ist nicht beschädigt, es hat nur leider Sonderzeichen im Dateinamen. Öffne diesen Link und klicke dann auf die Datei direkt, dann bekommst Du sie herunter.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Eigene Textbox im Werkzeugkasten
alfred neswadba am 29.08.2009 um 10:18 Uhr (0)
Hi,weder TextBox noch ComboBox steht Dir in einem Werkzeugkasten mit VBA zur Verfügung. Mit AutoCAD 2002 mußt Du in diesem Fall auf ObjectARX greifen (und auch das ist hart).Ab AutoCAD 2009 wären die Ribbons dafür gut geeignet, denn damit kann man alles WPF-artige umsetzen und da kannst auch Filmchen-Player einbauen.Sorry, - alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Versionsabhängikeiten
alfred neswadba am 31.08.2009 um 17:06 Uhr (0)
Hi Didi,Dann kannst du statt fixer Texte eine Funktion definieren, die Dir die richtigen ActiveX-ObjectNames evaluiert und diesen retourniert.Code:...folgendes kann in eigenen Modulen stehen, die Du Dir als allgemeine Library erzeugstPrivate Function getAcadVersionMain as string getAcadVersionMain = left(ThisDrawing.Application.Version,2)End FunctionPrivate Function getColorInterfaceString() as String getColorInterfaceString = "Autocad.accmcolor." & getAcadVersionMain End Function...und in Deiner Funktio ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : objectID
alfred neswadba am 02.09.2009 um 13:51 Uhr (0)
Hi, Zitat:ich habe gehört dass man mit der funktion objectID jedem autocad zeichen objekt eine eindeutige ID zuordnen kann...falsch gehört, denn die ObjectID wie auch der Handle sind von AutoCAD vergebene IDs, auf welche man keinen erzeugenden Zugriff hat.Mit dotNET und ObjectARX hast Du zwar die Möglichkeit, bestehenden Handles etwas anderes unterzujubeln, aber auch hier keine freie Wahl.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Header / aus Bibliothek einfügen
alfred neswadba am 10.09.2009 um 22:01 Uhr (0)
Hi Christian,da läuft irgendwas aber nicht so, wie ich es kenne. Wenn Du bereits eine Blockdefinition BAUM in der Zeichnung hast (und diese Definition in der Zeichnung bereits modifiziert hast); dann erneut den Einfügebefehl mit vollem Dateinamen angibst (z.B. C:AcadSymbBAUM.dwg), dann schaut AutoCAD schon selbst nach, obs die Blockdefinition schon gibt oder nicht.Lt. Deiner Beschreibung interpretiere ich, dass mit Deiner Version, wie Du den Block einfügst, die in der Zeichnung bestehende Blockdefinition ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AddText nimmt Koordinaten nicht
alfred neswadba am 15.09.2009 um 14:54 Uhr (0)
Hi, Ja, jetzt wo ich es sage, sieht es jeder, nicht wahr... Oh JA, da war wohl das erste Codeschnippsel Auslöser für zu oberflächlich überfliegen Deines größeren Codeteils, da war ich zumindest zu sehr fixiert auf wo ändern sich die Koordinaten auf 0,0,0. ...das selbe, wie wenn ich im DWG unter den Element-Eigenschaften die Ausrichtung auf "irgendwas" ändere...Na dann schau Dir mal das Eigenschaftsfenster im AutoCAD an, wenn Du die Ausrichtung von linksbündig auf zentriert stellst. Du wirst hier bemerk ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Die Eigenschaft -VonLayer- auf einen -festen- Wert setzen
alfred neswadba am 13.09.2009 um 19:27 Uhr (0)
Hi,Du hast aber schon im Forum und auch in der AutoCAD-Hilfe Beispiele für Selektieren von Objekten, aus der Hilfe z.B. dieses:Code:Sub Example_Select() This example adds members to a selection set, first by crossing and then by filtering for circles. Create the selection set Dim ssetObj As AcadSelectionSet Set ssetObj = ThisDrawing.SelectionSets.Add("SSET") Add all object to the selection set that lie within a crossing of (28,17,0) and (-3.3, -3.6,0) Dim mode As Integer Dim corner1(0 ...
|
| In das Form AutoCAD VBA wechseln |
