|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 02.04.2013 um 15:49 Uhr (0)
Hallo VBA-Freunde,da ich sehr unbeholfen mit der Programmierung bin, und im Excel-Forumsberich nur bedingt weitergekommen bin,bitte ich euch hier um Hilfe.Programstatus:-Excel öffnet Zeichnung -OK-Acad aus Zielblock auslesen - -Acad in Zielblock schreiben - -Acad Zeichnung schließen -OKIch hoffe das mir hier wer helfen kann!------------------mfg Ronald
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 03.04.2013 um 19:24 Uhr (0)
Hallo Klaus,Bei Versuch 3 muss ich den Block im ACAD auswählen (ich kenne aber den Blocknamen!)weiters werden nur die Attributenamen ins Excel geschrieben und das dazu noch in Spalte "A" und Zeile "2"obwohl mein Auswahlfeld der Zeichnung auf Spalte "AF" und Zeile "9" und die Attribute ab Spalte "AH" beginnen sollten.------------------mfg Ronald
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 04.04.2013 um 22:01 Uhr (0)
Hallo Klaus,da mir heute der kopf schon raucht werd ich das morgen probieren------------------mfg Ronald
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 12.04.2013 um 10:04 Uhr (0)
Hallo Klaus,soweit funktioniert jetzt allesausgelesen wird in die richtige zeile und auch umgekehrtdas mit dem überschreiben der attribute ist immo egal da ich sowieso vorher auslesen muss und die blöcke mit sicherheit ident sindzum Problem mit dem layoutwechselich bin soweit das ich vom excel die blattzahl bekommenur mit dem umschalten das funktioniert nichtCode: Dim BlattNR As String intZeil = Selection.Item(intsel).Row BlattNR = Cells(intZeil, 12).Text BlattNR ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 04.04.2013 um 20:11 Uhr (0)
Hallo Klaus,Deine Tips habe ich jetzt eingebaut.Habe noch drei Probleme beim Auslesen der Blöcke1. möcht ich statt Code:ssetObj.SelectOnScreen gpCode, dataValue einen Blocknamen ansprechen (zb. Schrifkopf)2. wenn eine andere Zeichnung ausgewählt wird (zb. eine Zeile weiter unten), werden die Daten trotzdem in die gleichen Felder geschrieben3. wenn ich mehrere Zeichnungen in meinem Excel auswähle dann wird nur die erste gemacht (da verliert der Counter etwas)Aktueller Code:Code:Public Sub ACAD_TO_EXCEL()Opt ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 05.04.2013 um 15:27 Uhr (0)
Hallo Klaus,Sieht gut aus die hälfte meines Programms funktionier schonBin jetzt soweit das ich alle daten auslesen kannTeil 2 sollte vorhandene daten in die Zeichnungen schreibenhier mal ein entwurf / ab Block 1 funktioniert er nicht richtigCode:Dim AngBracDwg As String Dim Schriftkopf1 As String Dim Schriftkopf2 As String Schriftkopf1 = Cells(3, 26 + 6).Text Schriftkopf2 = Cells(5, 26 + 6).Text For i = 1 To Selection.Count AngBracDwg = Selection.Item(i).Text tAcadApp.Documents.Open (AngBracD ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KAME am 09.04.2013 um 19:13 Uhr (0)
Hallo Klaus,hab mal aufgeräumt und die Definitionen geändert.weiters hab ich auf 4 Blöcke erweitertCode: Dim AngBracDwg As String Dim Block1, Block2, Block3, Block4 As String Block1 = Cells(2, 26 + 7).Text Block2 = Cells(3, 26 + 7).Text Block3 = Cells(4, 26 + 7).Text Block4 = Cells(5, 26 + 7).Text For intSel = 1 To Selection.Count AngBracDwg = Selection.Item(intSel).Text tAcadApp.Documents.Open (AngBracDwg)..................................................................................... ...
|
| In das Form AutoCAD VBA wechseln |
