|
Autocad VBA : Alle Layouts nach blöcken durchund-color: #FFFF99'>suchen
dan_rather am 19.05.2004 um 15:01 Uhr (0)
Danke Holger, wie bekomme ich den die Auswahl jetzt hierhin?: Excel starten. Set Excel = New Excel.Application Excel.Visible = True Erstellen einer neuen Arbeitsmappe und und-color: #FFFF99'>Suchen des aktiven Arbeitsblatts. Set ExcelWorkbook = Excel.Workbooks.Add Set ExcelSheet = Excel.ActiveSheet On Error GoTo Ende: ExcelWorkbook.SaveAs Pfad RowNum = 1 Header = False Papierbereich durchlaufen, um alle Blockreferenzen zu finden. For Each elem In ThisDrawing.Paper ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Get Xdata Entitys
dan_rather am 27.05.2004 um 14:29 Uhr (0)
Hallo zusammen, wie zeige ich mit folgendem Code alle xdaten im gewählten sset an? irgendwas fehlt hier noch, aber was? Sub Kanal_Berechnung() und-color: #FFFF99'>Suchen der im vorherigen Beispiel erstellten Auswahl On Error GoTo Hell Dim awss As AcadSelectionSet Set awss = ThisDrawing.SelectionSets.Add( 310 ) awss.SelectOnScreen Dim sset As Object Set sset = ThisDrawing.SelectionSets.item( 310 ) Definieren der XDaten-Variablen zum Erfassen der XDaten-Informationen Dim xdat ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Alle Layouts nach blöcken durchund-color: #FFFF99'>suchen
dan_rather am 19.05.2004 um 13:45 Uhr (0)
Hallo zusammen, kann mir jemand sagen wie ich alle layouts nach einem bestimmten block durchund-color: #FFFF99'>suchen kann und die Attribute dann in eine excel-Datei schreiben. Hier mein Ansatz: Sub Ch12_Extract() Dim Excel As Excel.Application Dim ExcelSheet As Object Dim ExcelWorkbook As Object Dim RowNum As Integer Dim Header As Boolean Dim elem As AcadEntity Dim Array1 As Variant Dim Count As Integer Dim Pfad As Variant Pfad = R:/AutocadEinstellungen/Zeichnungskopf/ZeichnungsVerwa ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
