|
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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
