---

Hallo,
ich suche eine Funktion die aus einer Schraffur bzw. aus dessen Umgrenzung eine Polylinie erstellt.

Thx chris

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

---

nimm den Befehl _Hatchedit und da den Punkt "umgrenzung neu erstellen"

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke für den Tipp,
Aber:
Wie bekomme ich die Geschichte in eine VBA Funktion?

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

---

Hi,

am leichtesten geht's mit ThisDrawing.SendCommand("_-hatchedit" .....

HTH, - alfred -

------------------
www.hollaus.at

---

Public Sub UmgrenzungenNeuErstellen()
    Dim objEntity As AcadEntity
   
    Dim SelSet1 As AcadSelectionSet

    Set SelSet1 = ThisDrawing.SelectionSets.Add(clsTools.GenID("S1"))
    SelSet1.SelectOnScreen
       
    If SelSet1.Count = 0 Then
        SelSet1.Delete
        Exit Sub
    End If
   
    For Each objEntity In SelSet1
        If objEntity.ObjectName = "AcDbHatch" Then
            ThisDrawing.SendCommand ("_-hatchedit" & vbCr & "(handent " & Chr(34) & objEntity.Handle & Chr(34) & ")" & vbCr & "_b" & vbCr & "_p" & vbCr & "_n" & vbCr)
        End If
    Next
   
    SelSet1.Delete
End Sub

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