---

Hallo an alle Hab ein kleines Problem möchte einfach wieder dei Assoziativität einer Schraffur Wiederherstellen und habs wie unten probiert
Zuerst klick ich die alte Schraffur an (Lies die Eigenschaften aus)
und dann die Polylinien (sind geschlossene Polylinien)
Bekomme falsche Eingabe??
PS Wenn ich nur ein Objekt anklicke gehts schon!
Was mache ich falsch?

Sub Reassoz_Schraffur()
    Dim hatchObj 'As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    Dim outerLoop() As AcadEntity, a, Innerloop()
    Dim ssetx
Call Autocad_Tools.InitSset
Set ssetx = Autocad_Tools.SSETG
  ' Define the hatch
    patternName = ssetx(0).patternName '"ANSI31"
    PatternType = ssetx(0).PatternType '0
    bAssociativity = True
   
    ' Create the associative Hatch object
    Set hatchObj = ThisDrawing.Modelspace.AddHatch(PatternType, patternName, bAssociativity)
Call Autocad_Tools.InitSset
Set ssetx = Autocad_Tools.SSETG
    ReDim Preserve outerLoop(0 To ssetx.count - 1) As AcadEntity
    Debug.Print ssetx.count
    For a = 0 To ssetx.count - 1
        Set outerLoop(a) = ssetx.Item(a)
    Next a

    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
Update
    ThisDrawing.Regen True
             
End Sub

[Diese Nachricht wurde von c.schojer am 09. Apr. 2008 editiert.]

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

---

Arg habs selbst gelöst

Autocad......find die Hilfe zum_

Sub Reassoz_Schraffur()
    Dim hatchObj 'As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    Dim outerLoop() As AcadEntity, a, Innerloop()
    Dim ssetx
Call Autocad_Tools.InitSset
Set ssetx = Autocad_Tools.SSETG
  ' Define the hatch
    patternName = ssetx(0).patternName '"ANSI31"
    PatternType = ssetx(0).PatternType '0
    bAssociativity = True
   
    ' Create the associative Hatch object
    Set hatchObj = ThisDrawing.Modelspace.AddHatch(PatternType, patternName, bAssociativity)
Call Autocad_Tools.InitSset
Set ssetx = Autocad_Tools.SSETG
    ReDim Preserve outerLoop(0 To 0) As AcadEntity
    Debug.Print ssetx.count
    For a = 0 To ssetx.count - 1
        Set outerLoop(0) = ssetx.Item(a)
        hatchObj.AppendOuterLoop (outerLoop)
    Next a
 
    hatchObj.Evaluate
Update
    ThisDrawing.Regen True
             
End Sub

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

---

Hallo nochmals manchmal bekomme ich ne Fehlermeldung nicht eindeutige Ausgabe beim Hatch.evaluate Befehl???

[Diese Nachricht wurde von c.schojer am 09. Apr. 2008 editiert.]

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

---

Hi Chris,

Was sagt die Fehlermeldung genau aus?!

Lade doch einfach deine DVB und eine Zeichnung hoch und man kann das mal testen.

Gruß, Carsten

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

---

Hmm Seltsamerweise gehts jetzt.
habe die position von hatchObj.Evaluate
woanders hingesetzt und dann gings....

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