|
Autocad VBA : Füllen eines Kreises aus Excel
Sagu am 14.03.2007 um 10:16 Uhr (0)
Hallo Forum, zur Zeit sitze ich an einem Makro, welches ich in Excel 2003 ausführe. Es sollen die Daten für Kreise an Autocad 2004 übergeben gezeichnet und mit Solid gefüllt werden. Das Öffnen der Zeichnung und das Erstellen der Kreise klappt schon super, aber das Füllen der Kreise schafft mich. Nun bin ich in der VBA Sprache Neuling und probiere mehr aus als dass ich gezielt vorgehe. Wollte mir entsprechende Literatur besorgen. Das gestaltet sich etwas schwierig, da in den großen Buchhandlungen nur noch e ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 16.03.2007 um 10:13 Uhr (0)
Guten Morgen Stelli1,die Tips die Du mir gegeben hast laufen in AutoCAD super. Das Problem entsteht, wenn ich die Sachen in mein Excel Makro übernehme. Mein Code sieht wie folgt aus:Sub X() Dim i As Integer Dim kx As Double Dim ky As Double Dim r As Double Dim ThisDrawing As AcadDocument Dim centerPoint(0 To 2) As Double Dim radius As Double Dim hatchObj As AcadHatch Dim kreis(0 To 0) As AcadEntity Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean Daten der ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 17.03.2007 um 11:23 Uhr (0)
Hallo Stelli1,innerhalb der letzten 70h Arbeit waren nicht viele Erfolgsmeldungen zu verbuchen. Nun ist es wieder so weit. Bin dazu übergegangen kleine Programme zu schreiben, um mich auf den entsprechenden Fehler zu konzetrieren. Hätte ich vielleicht schon früher machen sollen. Über den ersten Teil habe ich es nicht hin bekommen, der Workaround klappt. Hier der Code:Sub Beispiel()Dim NeuesElement As AcadEntityDim AnzahlEntity As LongDim AcadApp As AcadApplicationSet AcadApp = CreateObject("autocad.applica ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Farbe ändern
Sagu am 05.08.2009 um 11:47 Uhr (0)
Hallo Forum,nachdem 40 Zeichnungen erstellt wurden, ist festgestellt worden, dass die "True-Color" Farben von ca. 500 Objekten in jeder Zeichnung geändert werden müssen. Ich hab bereits gelesen, dass es hierzu ein Programm gibt, wollte es aber selbst mit einem kleinen Makro ausprobieren-Auszug:Code:Set AcadApp = GetObject(, "autocad.application") With ThisWorkbook.Worksheets("Temp") RotAlt = .Range("E7") GrünAlt = .Range("E8") BlauAlt = .Range("E9") RotNeu = .Range("E10") GrünNeu = .Range ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
