|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 14:03 Uhr (0)
Code: Sub Träume_am_laufenden_Block() Dim elem As AcadEntity 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 "D:Mappe1.xls" Set ExcelWks = ExcelWbk.ActiveSheet With ExcelWks .Cells(1, 1) = "x": .Cells(1, 2) = "y" usw For Each elem In ThisDrawing.ModelSpace If TypeOf elem Is IAcadBlockReferenc ...
|
| 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:08 Uhr (0)
Na aber Pi ist doch eine Variable, die ich weiter oben im Code deklariert habe? Zitat: Original erstellt von CADmium: ersetzte mal Pi durch 3.1415926 !
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block verändern
mapcar am 23.11.2004 um 14:11 Uhr (0)
Udo, hier sind wir aber im VBA-Forum;-) Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| 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 : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
mapcar am 23.11.2004 um 14:22 Uhr (0)
@kiltswitch: Du hast ein erstaunliches Talent, die Leute dazu zu kriegen, deine Arbeit zu machen. Und wenn die Arbeit erledigt, ist bist du auch noch nicht zufrieden. Ich habe es zwar nicht ausprobiert, bin mir aber sehr sicher, dass Nancys Code ganz genau das macht, was du wolltest. Nancy benutzt aber die Pi-Konstante aus den Excel-Funtionen. Warum auch nicht, da gibt es ja eine Pi-Definition. Die gibt es aber nicht, wenn du in ein Textfile schreibst. In diesem Falle musst du Pi selber definieren. Allerdi ...
|
| 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:29 Uhr (0)
@mapcar: Das ist nun wirklich nicht mein Vorwand, andere Leute dazu zu zwingen, meine Arbeit zu machen!!! 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? Der Code von Nancy funktioniert leider nicht so richtig. Wie gerade schon beschrieben, hängt sich bei mir immer die Excel-Datei auf, wenn ich sie öffnen will. Pi habe ich in meinem Code als Datentyp Double deklariert.
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
startrek am 23.11.2004 um 14:36 Uhr (0)
tja, dumm gelaufen ;-) versuchs mal mit Excelapp vor Worksheetfunction Code: .Cells(rownum, 4) = elem.Rotation * 180 / ExcelApp .WorksheetFunction.Pi ansonsten bin ich für meinen Teil planlos. Nancy
|
| 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:39 Uhr (0)
Also Nancy ihr Code funktioniert, wenn ich das mit der Pi-Funktion von Excel (WorksheetFunction.Pi) herausnehme und dafür die Variable Pi einsetze, die ich vorher mit dem Datentyp Double deklariert habe. ABER: Es passiert genau das Gleiche wie bei meinem Code, die Werte des Drehwinkels sind in der Exceldatei einfach falsch. Mich wundert, dass es 5 Blöcke gibt, da steht ein Wert drin, der wie bei den anderen Blöcken nicht dem Wert "0" entspricht. Mmh....
|
| 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 14:42 Uhr (0)
Offtopic : @kiltswitch : Übrigens : Glückwunsch zum (über) 100. Post zum gleichen Thema!! Rekordverdächtig! SCNR ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| 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:43 Uhr (0)
Nein, es funktioniert auch so nicht - genau das Gleiche: er legt die Datei an, aber ich kann sie nicht öffnen. Bzw. genauer: er will sie öffnen, aber Excel hängt sich auf. Zitat: Original erstellt von startrek: tja, dumm gelaufen ;-) versuchs mal mit Excelapp vor Worksheetfunction Code: .Cells(rownum, 4) = elem.Rotation * 180 / [b]ExcelApp .WorksheetFunction.Pi ansonsten bin ich für meinen Teil planlos. Nancy[/B]
|
| 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 15:02 Uhr (0)
Oh, danke! Nun, das Thema ist ja nun sehr komplex und es gibt viele viele Fragen und Teilprobleme: Datenbanken, automatisches Mastzusammensetzen, Blockauslesen, Konzeptbildung.... Da können schon schnell über 100 Beiträge zusammenkommen. Zitat: Original erstellt von CADmium: Offtopic : @kiltswitch : Übrigens : Glückwunsch zum (über) 100. Post zum gleichen Thema!! Rekordverdächtig! [b]SCNR [/B]
|
| In das Form Autocad VBA wechseln |
