---

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 ein Buch  über VBA in AutoCad erhältlich ist (dieses hab ich mir schon in ner Bibo besorgt).
Mein Makro sieht wie folgt aus:

Sub x()
    Dim I As Integer
    Dim kx As Double
    Dim ky As Double
    Dim r As Double
    Dim AcadApp As Object
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
       
    ‘Dim hatchObj As AcadHatch
    ‘Dim outerLoop(0 To 0) As AcadEntity

    ‘Dim patternName As String
    ‘Dim PatternType As Long
    ‘Dim bAssociativity As Boolean
   
    ‘patternName = "Solid"
    ‘PatternType = 0
    ‘bAssociativity = True

    Set AcadApp = CreateObject("autocad.application")
    AcadApp.Visible = -1
       
    For I = 8 To 508
    kx = Range("AG" & I)    'X-Koordinate vom Kreismittelpunkt
    ky = Range("AH" & I)    'Y-Koordinate vom Kreismittelpunkt
    r = Range("AI" & I)        'Radius vom Kreis
    centerPoint(0) = kx: centerPoint(1) = ky: centerPoint(2) = 0#
    radius = r
    AcadApp.ActiveDocument.ModelSpace.Addcircle centerPoint, radius
    ‘Set outerLoop(0) = AcadApp.ActiveDokument.ModelSpace.Addcircle(centerPoint, radius)
    ‘Set hatchObj(0) = AcadApp.ActiveDocument.ModelSpace.AddHatch(patternName, PatternType, bAssociativity)
    ‘hatchObj.Evaluate
    ‘ThisDrawing.Regen True
    Next I
    AcadApp.ZoomExtents
   
End Sub

Die in Kommentarzeichen stehenden Zeilen waren mein kläglicher Versuch die Kreisflächen zu füllen. Das funktioniert nicht so richtig. Wie kann ich die Schraffur dem Kreis anhängen?

Ich möchte danach die Fläche rasterweise abtasten und überprüfen ob jeder Rasterpunkt auch mit Solid gefüllt ist. Geht das mit GetXData der Punkte und mit welchem Zahlencode? Und wie spreche ich jeden der Rasterpunkte aus einer Schleife an?

Vielen Dank für die Hilfe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Sagu,

ganz kurz nur, hilft Dir ggf. das etwas weiter: http://ww3.cad.de/foren/ubb/Forum259/HTML/000498.shtml#000005

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hast du doch den Weg ins VBA Forum gefunden  

Probier es doch mal so:

Code:

---

Sub donut()

    Dim Kreis(0) As AcadCircle
    Dim InnenKreis(0) As AcadCircle
    Dim Hatch As AcadHatch
    Dim InsPkt(0 To 2) As Double
    Dim Radius As Double
   
    InsPkt(0) = 5: InsPkt(1) = 5: InsPkt(2) = 0: Radius = 5
    Set Kreis(0) = ThisDrawing.ModelSpace.AddCircle(InsPkt, Radius)
    Kreis(0).Update
   
    InsPkt(0) = 5: InsPkt(1) = 5: InsPkt(2) = 0: Radius = 3
    Set InnenKreis(0) = ThisDrawing.ModelSpace.AddCircle(InsPkt, Radius)
    InnenKreis(0).Update
   
    Set Hatch = ThisDrawing.ModelSpace.AddHatch(0, "Solid", True)
    Hatch.AppendOuterLoop Kreis
    Hatch.AppendInnerLoop InnenKreis
    Hatch.Evaluate
    Hatch.color = acMagenta
    Hatch.Update
End Sub

---

Bei dir fehlt SET HATCH. Sonst kannst du die Eigenschaften(color) und Methoden(Evaluate) für dieses Objekt nicht anwenden.
Ausserdem ist die Reihenfolge von Patternname und -type vertauscht.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

das kannt du mit SelectAtPoint machen.
Dazu brauchst du ein Selectionset. Am Besten gleich noch für den Punkt einen Filter für Hatch mitgeben. Dazu gibt es einige Beiträge

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP