|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
alfred neswadba am 04.11.2008 um 14:54 Uhr (0)
Hi,korrigiere mich, wenn ich falsch liege (komm nicht aus der Maschinenbauer-Seite), ist das nicht schon etwas alt? Wenn ich damit richtig liege, dass das auch AutoCAD 2002 beruht, dann habe ich das Problem, dass ich Dir nichts vorschreiben kann, da bei mir 2002 nicht mehr installiert ist. D.h. wir müssen Code direkt hier tippen, dvb übertragen geht (von mir zur Dir) nicht.Welchen Teil von Code hast Du schon und wo hängst Du?- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
CHMR am 04.11.2008 um 15:06 Uhr (0)
Hallo,Sub Datenübertrag()Dim XlAPP As ObjectSet XlAPP = GetObject(, "Autocad.Application")Range("B3:H8").SelectSelection.CopyShell "C:acad.exe /o M:eichnungsvorlage.dwg"...und dann verließen sie ihn...dieses Modul habe ich in einer Excel-Tabelle begonnen.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
alfred neswadba am 04.11.2008 um 15:11 Uhr (0)
Hi,wenn Du mit XlApp das Excel-Application-Objekt meinst, dann bitte nicht mit GetObject(,"AutoCAD.Application") starten oderwenn du mit XlApp das AutoCAD-Application-Objekt meinst, dann bitte nicht nochmals per Shell starten.Kannst Du mal daneben kommentieren, was Du womit bezweckst (eben um obiges klarer zu machen)Weiters wäre interessant, ob Du das VBA im Excel abarbeitest oder im AutoCAD (kann ich unten auch nicht erkennen)- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
CHMR am 04.11.2008 um 21:44 Uhr (0)
Hi,Sub Datenübertrag()Dim XlAPP As ObjectSet XlAPP = GetObject(, "Autocad.Application")Range("B3:H8").Select - Werte aus Excel Tabelle Selection.Copy - kopierenShell "C:acad.exe /o M:eichnungsvorlage.dwg" - Zeichnungsvor- lage öffnenDas Programm war nur als Probe gedacht, um festzustellen, wie ich überhaupt von Excel aus eine .dwg öffne. Die Definition von xlAPP hatte bis dahin keinen tieferen Sinn. Auch nicht die Auswah ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
alfred neswadba am 05.11.2008 um 08:55 Uhr (0)
Hi,es sollte nicht das Programm fertig ablaufen (schon wegen Pfad-angaben etc.), es sollte Dir als Vorlage dienen, wie Du zum AutoCAD kommst (es geordnet startest) um die Zeichnung mal in der Hand zu haben. Zitat:Das Problem es läuft einfach "so durch". Es öffnet mir nicht einmal die Zeichnung...dann nimm das On Error Resume Next mal raus und schau, wo er haengt und korrigiere, wenn Du kannst oder lass es mich wissen. Wie ich schon geschrieben habe, das ist blind runtergeschrieben, da koennen schon Tipfehl ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
CHMR am 05.11.2008 um 16:57 Uhr (0)
...bevor ich es vergesse.Leider liegt hier Autocad unter Laufwerk C:Wie dem auch sei könnte es an den Verweisen liegen? Welche Bibliothek wäre hier u.U. die richtige?Gruß
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
CHMR am 06.11.2008 um 15:03 Uhr (0)
Hi,also ich komme so langsam meinem Ziel näher. Zwei Probleme (noch):1. tAcadApp = GetObject(, "AutoCAD.Application") Set tAcadDoc = tAcadApp.Documents.Open ("M:...") == kommen sich in die Quere. Soll heißen, das Programm öffnet die Zeichnung erst, wenn AutoCad schon gestartet ist. Vielleicht müsste ich hier auf meine gute alte Shell-Methode zugreifen2. Mein eigentliches Problem war ja das Einfügen von Zellen in die Zeichnung. Wie sieht hier der Code aus? [Ein Makrorecorder für AutoCad wäre ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Excel-Werte in CAD-Zeichnung übernehmen
CHMR am 06.11.2008 um 15:05 Uhr (0)
Hi,also ich komme so langsam meinem Ziel näher. Zwei Probleme (noch):1. tAcadApp = GetObject(, "AutoCAD.Application") Set tAcadDoc = tAcadApp.Documents.Open ("M:...") == kommen sich in die Quere. Soll heißen, das Programm öffnet die Zeichnung erst, wenn AutoCad schon gestartet ist. Vielleicht müsste ich hier auf meine gute alte Shell-Methode zugreifen2. Mein eigentliches Problem war ja das Einfügen von Zellen in die Zeichnung. Wie sieht hier der Code aus? [Ein Makrorecorder für AutoCad wäre ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekten Informationen zuordnen und an Excel weitergeben
Murkeline am 08.11.2008 um 11:45 Uhr (0)
Hey Alfred, das hilft mir schonmal weiter, allerdings muss ich die Daten trotzdem irgendwie nach Excel kriegen. Ich weiß, dass es das in Map gibt, allerdings möchte mein Prof eine möglichst einfache Lösung, die auch jemand bedienen kann, der AutoCAD an sich überhaupt nicht bedienen kann. Deshalb dieser ganze Umstand. LG Marie
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ARX-Anwendung über VBA laden
wwwilli am 10.11.2008 um 12:05 Uhr (0)
Hallo,ich habe in ACAD eine Planungsanwendung mit einer .ARX-Datei, die lade ich übers Menü mit Extras / Anwendung / Laden oder über einen Button mit^C^C(arxload "c:/programme/blablabla/blabla.arx") Nun würde ich das Laden gerne in ein VBA-Makro integrieren, aber möglichst nicht über SendCommand.Weiß jemand, wie das geht?MfG,wwwilli
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekten Informationen zuordnen und an Excel weitergeben
alfred neswadba am 11.11.2008 um 13:12 Uhr (0)
Hi Marie,anbei dvb-File mit 2 Funktionen (Deinen Teil, wo aus UserForm die Werte abgefragt werden, musst halt dazutun):a) attachEED (hier gehört Dein UserForm noch rein) läßt Anwender Elemente zeigen, diese erhalten dann die EED-Datenb) createXlsFromEEDs startet ein neues Excel, sucht sich alle Objekte in Deiner Zeichnung mit EED-Daten und schreibt die Werte in ein leeres XLS-Sheet (derzeit wird halt jedes mal ein neues Excel gestartet, ich weiss nicht, ob Du in bestehende Datei schreiben willst, immer ein ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Speicherung von Bauteildaten
alfred neswadba am 11.11.2008 um 11:25 Uhr (0)
Hi,hat IMHO nichts mit AutoCAD zu tun, oder kommt die Liste UZBauTeilListe aus AutoCAD (Architecture? ADT? == damit hab ichs nicht), aber:wenn ich mir Deine Schleifen ansehe, dann führst Du j und i als 2 Zähler, um einen Wert (Reihe in Excel) zu zählen.Probier mal:Code:Worksheets("Tabelle1").ActivateLetzteBeschrReihe = ActiveSheet.Range("A65536").End(xlUp).Row For Each UZBauteil In UZBauteilListe For i = 4 To LetzteBeschrReihe If ActiveSheet.Cells(i, 1) = UZBauteil.BauteilHandle Then ActiveSheet.Cell ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Problem mit dem Einfügen von selbstdefinierten Blöcken
alfred neswadba am 17.11.2008 um 20:06 Uhr (0)
Hi Marie,ich tippe bei der Datei darauf, dass INSBASE verstellt ist oder das Element, das einen Pfeil darstellt, nicht auf 0,0,0 gezeichnet ist. Damit wird es beim Einfügen eben um den Vektor versetzt sichtbar, den das urspruengliche Element eben vom INSBASE entfernt ist.Wenn ich allerdings dann Deine zweite Nachricht dazu lese, dann könnte man auch vermuten, dass es sich um eine Block-In-Block Struktur handelt, d.h. Du willst einen Block namens PFEIL aus einer Zeichnung names SYMBOLE.DWG (als Beispiel). D ...
|
| In das Form AutoCAD VBA wechseln |
