|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 01.03.2005 um 16:00 Uhr (0)
Also Huebi, ich bin dir sehr dankbar für die Hilfe und weiß es auch zu schätzen. Das mit dem Debugen hab ich schon längst doch es sind verschiedene Probleme. Ich fang mal mit dem hauptproblem an. AcSSet.Item(i).ScaleEntity AllMin, ScaleFactor wenn man sich AcSSet genauer anschaut und die einzelnen Elemente betrachtet erwarte ich eigentich nach dem durchlauf dieser funktion das sich z.B. beim rechteck die werte für Witdh und Hight ändern. Das tuen sie allerdings nicht!!! und ich verstehe nicht warum. V ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 24.11.2004 um 09:48 Uhr (0)
Ok, habe das mal gemacht. Also aus dem Lokalfenster die Bogenmaßwerte werden über die Formel *180/Pi (im Code) in die Gradzahlen umgerechnet, welche dann im Direktfenster stehen. Diese Werte findet man dann auch in der Exceltabelle wieder, denn im Grunde ist diese Tabelle ja nur eine ähnliche Abbildung vom Direktfenster, könnte man so sagen. ABER: Was ich jetzt gerade geprüft habe, darum geht es mir ja jetzt gar nicht so richtig! Sondern ich will herausfinden, warum im AutoCAD-Menü "Eigenschaften" bei den ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
Brischke am 23.11.2004 um 14:41 Uhr (0)
Zitat: Original erstellt von kiltswitch: Wenn ich es nun mal nicht hinbekomme - rumprobiere, abändere und es trotzdem noch nicht geht - dann muß ich doch nun mal auf Hilfe anderer Leute hoffen?... Falsch! Das ist die vollkommen verkehrte Herangehensweise. Du fummelst irgendwas, irgendwie, ziellos in dem zufällig gefundenen VBA-Editor rum. Der zufall entscheidet allein darüber, ob du nun ein paar lauffähige Zeilen damit erzeugt hast, oder auch nicht. Tobias, du solltest aufhören dein Halbwissen mi ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
CADmium am 23.11.2004 um 09:09 Uhr (0)
Also hat es wie von mir schon vermutet mit dem Bogenmaß zu tun und Excel hat damit Probleme? Wie kann man denn dieses Problem lösen? Sag mal ist das jetzt ver***, oder hast du in Mathe echt nicht aufgepasst? Winkel in Grad = Winkel in Bogenmaß * 180 / Pi Gibt es zu Excel eine Alternative? Mein Vorgesetzter meinte, in VBA direkt gäbe es evtl. auch die Möglichkeit, eine Datei zu schreiben - man bräuchte dann evtl. nicht Excel als externes Programm. Stimmt das und wenn ja, was für ein Dateityp wäre das da ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 11.08.2003 um 09:40 Uhr (0)
Ich hab es jetzt ein wenig umgeschrieben, jetzt hast du gleich Rechtecke. Code: Public Sub Drehtuer() Const Durchmesser As Double = 2000 Const Winkel As Double = 60 Dim Radius As Double Dim WinkelRad As Double Dim Linie1_1 As AcadLine Dim Linie2_1 As Acadline Dim Linie1 As AcadLWPolyline Dim Linie2 As AcadLWPolyline Dim PT1(7) As Double Dim PT2(7) As Double Dim Bogen1 As AcadArc Dim Bogen2 As AcadArc Dim Bogen1Temp As AcadArc Dim Bogen2Temp As Aca ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 09:15 Uhr (0)
Hallo Holger, danke für Deinen Beitrag hier. Nun, die Umrechnung von DEG in RAD ist mir ja bekannt (hast Du mir ja damals gesagt), aber das eigentliche Problem ist: wenn ich das im Code anwende, funktioniert es nicht! Hier mal mein Code, vielleicht findest Du einen Fehler. Oder hast Du eine bessere Idee bezüglich des Codes? Sub ReadBlockProperties() Dim AcMapEntity As AcadEntity Dim AcMapBlock As AcadBlockReference Dim fso As FileSystemObject Set fso = New FileSystemObject Dim TxtFile As TextStream Set Txt ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
The VIP am 11.08.2003 um 12:37 Uhr (0)
der Grundgedanke war, den Arbeitsaufwand zu verkleinern. Wenn bei uns eine grundsätzlich Änderung an den Draufsichten vergenommen wird, müssen mehrere Zeichnungen einzeln geöffnet und bearbeitet werden. Das mussten wir nun schon zwei Mal tun (es betrifft mehr als nur 21 Zeichnungen, da es auch Varianten gibt). Dann kam mir die Idee mit VBA und ich dachte, dass es ähnlich ist wie Excel (welches ich ja sehr gut kann). Dem ist aber nicht so und nun hab ich festgestellt, dass ich AutoCAD VBA erst erlernen muss ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 11.08.2003 um 09:13 Uhr (0)
Hallo VIP, ich hab dir jetzt ganz schnell die Funktion geschrieben, die Werte mußt du selbst abfragen, hab es jetzt mal mit Konstanten gemacht. Code: Public Sub Drehtuer() Const Durchmesser As Double = 2000 Const Winkel As Double = 60 Dim Radius As Double Dim WinkelRad As Double Dim Linie1_1 As AcadLine Dim Linie2_1 As AcadLine Dim Bogen1 As AcadArc Dim Bogen2 As AcadArc Dim Bogen1Temp As AcadArc Dim Bogen2Temp As AcadArc Dim SP1_1 As Variant Dim SP2_1 As V ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 14:46 Uhr (0)
Weil man hier so fürsorgend ist und auch noch hoffnungslosen Fällen wie mir hilft... :-) Also der Code von Nancy und mein Code unterscheiden sich in keinster Weise beim Ergebnis. :-( Es tritt wieder das gleiche Problem wie immer auf: die Werte des Drehwinkels stimmen nicht. @Nancy: Trotzdem Danke für Deinen Code! Zitat: Original erstellt von Brischke: [b]Falsch! Das ist die vollkommen verkehrte Herangehensweise. Du fummelst irgendwas, irgendwie, ziellos in dem zufällig gefundenen VBA-Editor rum. De ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 23.11.2004 um 09:21 Uhr (0)
Nein, mit Ver*** hat das Ganze nun wahrlich nichts zu tun. Mir ist auch durchaus bekannt, wie man Grad in Bogenmaß umrechnet. Darum gehts mir ja auch nicht, sondern wie der CODE dazu aussieht! Zitat: Original erstellt von CADmium: [b]Also hat es wie von mir schon vermutet mit dem Bogenmaß zu tun und Excel hat damit Probleme? Wie kann man denn dieses Problem lösen? Sag mal ist das jetzt ver***, oder hast du in Mathe echt nicht aufgepasst? Winkel in Grad = Winkel in Bogenmaß * 180 / Pi Gibt es zu Exc ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 24.11.2004 um 08:43 Uhr (0)
Guten Morgen Nancy, also ich habe jetzt mal Deinen Ratschlag befolgt und mit Deinem oben angegebenen Code die Werte im Direktfenster / Lokalfenster überprüft. Bei allen Blöcken (AcadBlockReference) stimmen die Werte der Rotation im Lokalfenster mit denen in der Exceltabelle überein. Das heißt ja dann wohl, die Werte werden richtig an Excel übertragen, oder...? Copy/Paste bringt mir nichts. Ich könnte zwar die Werte so in die Excel-Tabelle eintragen, aber das will ich ja nicht. Die Werte sollen automatisch ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
mapcar am 23.11.2004 um 11:31 Uhr (0)
Tobias, du hast alles, was du brauchst. Wie man Einfügepunkt und Drehwinkel ausliest, hast du selber hier gepostet, ebenso, wie man eine Textdatei schreiben kann. Wie man direkt nach Excel überträgt, hat dir Roland aus der Hilfe reinkopiert. Wenn du keine Attributdaten brauchst, ersetze diesen Teil des Codes durch eigenen, der das leistet, was du brauchst. Das Problem mit den Trennzeichen wurde von Roland und mir ausführlich besprochen, und Nancy hat dir mitgeteilt, warum dein Code so nicht läuft. Schau in ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zeichnung ohne AutoCAD erstellen / Create Drawing without AutoCAD
alfred neswadba am 05.12.2008 um 10:08 Uhr (0)
Hi,DXF kann von jeder Software geschrieben werden, die ASCII-Dateien schreiben kann, das Erstellen eines DXF-Files ist daher überhaupt nicht an AutoCAD gebunden. Ist das die gesuchte Antwort?- alfred -PS: Für wen ist denn die englische Übersetzung, wenn die Frage in einem deutschen Forum gepostet wird?
|
| In das Form AutoCAD VBA wechseln |
