|
Autocad VBA : Eigenschaft eines Textobjektes auslesen
Marco Lorenz am 19.08.2004 um 14:10 Uhr (0)
Hallo, LordK Hier ein bißchen Code zu Deiner Frage... Bei Benutzung außerhalb von AutoCAD brauchts das Objekt Acad_App und folgende 2 Zeilen: Dim ThisDrawing as AcadDocument Set ThisDrawing = Acad_app.ActiveDocument Dim Gpcode(0) As Integer, Datavalue(0) As Variant, SS1 as AcadSelectionSet Dim Corner1(0 To 2) As Double Dim Corner2(0 To 2) As Double Wählt die Texte in folgendem Fenster: Corner1(0) = 500 Corner1(1) = 300 Corner2(0) = 800 Corner2(1) = 500 Setzt den Filter auf Texte un ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Acad Suchfunktion mit VBA ??
Marco Lorenz am 18.07.2004 um 23:16 Uhr (0)
Wenn Du die Datenbank nach einzelnen Elementen durchsuchst, kann das ziemlich lange dauern, bei größeren Zeichnungen. Du kannst mit einem Selectionset arbeiten. z.B. so: Dim Gpcode(0) As Integer, Datavalue(0) As Variant, SS1 as AcadSelectionSet, Object as AcadObject Gpcode(0) = 0 Datavalue(0) = *TEXT *TEXT spricht sowohl Texte als auch und-color: #FFFF99'>MTexte an... Set SS1 = ThisDrawing.SelectionSets.Add( Texte ) SS1.Select acSelectionSetAll, , , Gpcode, Datavalue MsgBox CStr(SS1.Count) & Texte gefunden... For Eac ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Index
Marco Lorenz am 22.07.2004 um 12:10 Uhr (0)
Also, ich würde Dir da mal eher MS-Access empfehlen, da kannst Du die Daten einfacher handeln, speziell, wenns ein paar mehr sein sollen (schnelles und-color: #FFFF99'>Suchen etc...). Aber Excel geht natürlich auch, ist halt keine richtige Datenbank. Du kannst den kompletten Code innerhalb von MS-Office schreiben. Am besten nimmst Du die AutoCAD-Bibliothek zu den Verweisen dazu. Das AutoCAD-Objekt bekommst Du mit Set Acadapp = GetObject(, Autocad.Application ) oder, falls AutoCAD noch nicht offen ist: Set Acadapp = CreateObj ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
