|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 15:37 Uhr (0)
Soweit die TheorieAch so zu den Berechnungen,mein erster Schritt war ein Berechnungsalgorithmus in Excel. Der funktioniert auch ganz gut. Bis auf eine bestimmte Prozentzahl lassen sich die fehlenden Flächen ermitteln. Bei Veränderung der Eingangsparameter lässt sich der Fehler durch die unbetrachteten Kreise nicht abschätzen. Hier fand ich als beste Alternative: die Verbindung zwischen ACAD und Excel. Der Nachteil in Excel lassen sich nur eine bestimmte Anzahl an benachbarten Kreisen gleichzeitig analysier ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Füllen eines Kreises aus Excel
Sagu am 14.03.2007 um 11:53 Uhr (0)
Das hat super funktioniert. Ich habe wohl nicht richtig gesucht. Wieder mal Vielen Dank.Wie sieht es mit meiner zweiten Überlegung, zu Punkt x,y zu gehen und dessen Eigenschaft Solid zu ermitteln aus? ist das über getXData möglich? Wie spreche ich den Punkt x,y an?
|
| 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 |
|
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 15.03.2007 um 15:14 Uhr (0)
Ich dachte, ich hätte es beschrieben. Mein Fehler. Das Makro dient zum Erstellen eines Modells mit abweichenden Parametern. Diese verursachen in der überwiegen mit "Solid" gefüllten Fläche einige nicht gefüllte Bereiche. Sie werden jeweils von n Kreisausschnitten begrenzt. Mein Algorithmus sollte über ein Raster die gesamte Fläche scannen und feststellen ob es an dem gerade zu betrachtenden Punkt eine gefüllte Fläche gibt. Ist das der Fall springt er zum nächsten Punkt. Ist es nicht der Fall, soll er von d ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Schrittweise Auswertung der Zeichnung mit SelectAtPoint
Sagu am 15.03.2007 um 08:23 Uhr (0)
Hallo Forum, neues Problem, alte Baustelle!Habe ne Fläche mit kleinen Schraffurflächen Excel 2003 in ACAD 2004 erstellt. In diesem Bereich füllen die Einzelflächen (Solid, schwarz dargestellt) nicht den gesamten Bereich aus. Nun möchte ich die Restfläche (weiß )in einem bestimmten Rahmen ermitteln. Laufe hierfür in Rasterschritten über den Bereich und ermittle die Eigenschaften jedes Rasterpunktes. Ist der Typenname eine Schraffur (AcDbHatch ) soll er zum nächsten Rasterpunkt gehen, findet er etwas anderes ...
|
| 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 |
