|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 22.11.2004 um 16:55 Uhr (0)
Die Kommawerte habe ich gar nicht beachtet, sondern lasse die Werte - ohne Einflüsse durch mich - einfach nach Excel übertragen. Der Tipp mit Round war gut, die Koordinaten stimmen jetzt. Nur bei dem Drehwinkel bin ich noch nicht im klaren, ob er stimmt. Ich vermute, der Wert in Excel (z.B. steht da 4,71) ist das umgerechnete Bogenmaß. Ich muß das mal zurückrechnen. Mich wundert nur, dass z.B. bei einer Angabe von 10° in der Zeichnung kein Wert in Excel eingetragen wird, da müßte doch wenigstens IRGENDWAS ...
|
| 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 08:44 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? Wie bekomme ich es hin, dass mir Excel die Werte richtig darstellt, am besten in Grad wie in der CAD-Zeichnung? 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 dann und wie kan ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vergleich von zwei sequentiellen Dateien
kiltswitch am 02.12.2004 um 16:50 Uhr (0)
Hallo Fuchsi, danke für den Code. Den werde ich mir mal genauer betrachten und testen. Eine Frage habe ich dazu: Findet der die Koordinatenpaare auch, obwohl in den beiden Dateien auch noch andere Dinge stehen? Also z.B. Blockname, Block-ID, allgemeiner Text. Müßte ja eigentlich trotzdem gehen, oder? Ich habe das Ganze mal mit Excel getestet und gerade eben auch hinbekommen. Excel wäre aber nur eine "Notlösung", denn ich will das schon gern mit den sequentiellen Dateien schaffen. ------------------ Gruß T ...
|
| 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
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 22.11.2004 um 13:12 Uhr (0)
Also ideal wäre eine Datei, die in VBA integriert ist, somit man nicht auf externe Programme wie Excel zurückgreifen muß (wenn es jedoch nicht anders gehen sollte, dann wäre das doch eine Variante). Die Daten sollen tabellarisch aufgelistet werden: Blockname, X-Koordinate, Y-Koordinate, Z-Koordinate, Drehwinkel Und ganz wichtig: ich muß diese Daten weiterverarbeiten können. ----- Ich habe einen Code (auch mal hier bekommen), bei dem die Blockattribute in eine Textdatei exportiert werden. Aber die Werte wer ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
kiltswitch am 22.11.2004 um 16:37 Uhr (0)
Hat irgendwer eine Idee, woran es liegen kann, dass die Koordinatenwerte so groß sind? Könnten das durch Rundungsfehler sein? Und was könnte der Grund sein, warum manche Drehwinkel-Werte nicht (korrekt) in die Datei übernommen werden? Bspw. hat ein Block in der Zeichnung die Verdrehung 90°, aber in der Excel-Datei steht der Wert 0 ?! Und meine letzte Frage, die habe ich vorhin schon einmal gestellt: kann ich mit VBA auch eine interne Datei - also keine eines externen Programmes wie Excel - erstellen, welch ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme bei mehrspaltiger Listbox
kiltswitch am 02.12.2004 um 08:36 Uhr (0)
Hallo Nancy, ich mache nur das, was man mir hier im Unternehmen sagt! Zunächst konnte sich mein Chef nicht genau ausdrücken, was er will, was kann ich dafür?! Also habe ich - auch in meiner Unwissenheit - versucht, herauszubekommen, was es für Möglichkeiten mit den Blöcken gibt. Er erzählte mir etwas von Konzept - ergo habe ich hier im Forum nachgefragt, wie das geht und was man beachten muß. Dann meinte er, Excel wäre vielleicht eine Lösung - ergo habe ich das mit Excel probiert. Und nun meint er eben, se ...
|
| 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 13:14 Uhr (0)
Hallo Mapcar, mal zu Deinem Beitrag. Ich toleriere das, was Du schreibst, aber verstehe doch auch mal mich: ich will nichts weiter wissen als, wie ich das mit dem Drehwinkel hinbekomme. Den Code zum Auslesen habe ich ja da, aber es steckt nun mal ein Fehler drin, das mit RAD und DEG. Ich habe das mit DEG=RAD*180/Pi ja auch schon getestet, aber es klappt einfach nicht, dass die Werte richtig in Excel eingetragen werden. Ich will, dass die Grad-Werte des Drehwinkels vom Block - wie sie in AutoCAD im Eigensch ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Fehlermeldung: Let-Prozedur der Eigenschaft nicht definiert
kiltswitch am 25.11.2004 um 08:26 Uhr (0)
Hallo alle miteinander, ich habe folgenden Code: Option Explicit Sub Blockauslesung_Datei2() Dim elem As AcadEntity Dim Pi As Double Dim rownum As Long, ip As Variant Dim ExcelApp As Excel.Application Dim ExcelWbk As Excel.Workbook Dim ExcelWks As Excel.Worksheet rownum = 2 Set ExcelApp = New Excel.Application Set ExcelWbk = ExcelApp.Workbooks.Add ExcelApp.ActiveWorkbook.SaveAs "V:Praxis_KonstruktionsabteilungBlockauslesungBlockauslesung Datei6.xls" Set ExcelWks = ExcelWbk.ActiveSheet With ExcelWks .Cell ...
|
| 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:22 Uhr (0)
Also ich habe den Code gerade mal ausprobiert, aber irgendwie geht das mit der Datei nicht. Ich kann die Excel-Datei nämlich nicht öffnen bzw. beim Öffnen bleibt es hängen?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Fehlermeldung: Let-Prozedur der Eigenschaft nicht definiert
kiltswitch am 25.11.2004 um 10:24 Uhr (0)
Moin Headcase, also ich habe das jetzt mal ausprobiert. Fakt ist, dass er mir keine Fehlermeldung mehr mit Let und Get bringt. Also erstmal Danke, dieses Problem wäre gelöst. Allerdings schreibt er in die Excel-Tabelle nur die erste Zeile (also den Tabellenkopf) rein - und keine weiteren Werte?
|
| 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 |
