---

Hallo mit dem unten stehenden Code kann ich alle Flächenkörper einschließen (kann händisch unter Doppelklick Ansicht >> Wiederherstellungsoptionen >> Flächenkörper einschließen gemacht werden).

Frage hierzu. Kann ich in der Zeichnung alle Flächenkörper mit
Farbe, Linienart und Linienstärke versehen? Das muss ich nun händisch machen. Ist das möglich?

Code:

---

Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheet = oDoc.ActiveSheet

For Each oView As DrawingView In oSheet.DrawingViews
    ' Enable inclusion of surface bodies in the drawing view
    oView.IncludeSurfaceBodies = True
Next

oDoc.Update

---

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

---

mit Bitverbiegen  hab ich nichts am Hut

manuell gehts am leichtesten so:

• Layer mit gewünschten Eigenschaften anlegen (vorzugsweise gleich im Template)
• nach dem Einblenden des Flächenkörpers auf das Menü Mit Anmerkung versehen wechseln
• im Browser den Flächenkörper markieren -> RMK Auswahl als Kanten
• beim Layer Drop Down rechts oben auf den gewünschten Layer umschalten

alle Linien markieren und deren Eigenschaften ändern ist die Pechvogellösung

------------------

------------------
Das Leben ist ein Beta-Test ohne Release-Datum

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

---

Hallo, wieder was gelernt. Danke dafür.

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

---

Moin

Man kann DrawingView.DrawingCurves benutzen, um auf die DrawingCurves einer Ansicht zuzugreifen. Das Objekt bietet die Möglichkeit ein Filterobjekt mitzugeben, dann werden nur die Curves dieses Objektes als Enumerator zurückgegeben. Als Filterobjekt könnte je eine Fläche des SurfaceBody benutzt werden. Ganze SurfaceBodies funktionieren glaub ich nicht. In einer Schleife durch alle SurfaceBodies und in jedem SurfaceBody in einer Schleife durch alle Faces laufen und sich jeweils die DrawingCurves ausgeben lassen. Die Rückgabe dann in einer Schleife durchlaufen und jedes sichtbare (visible=true) und nicht verdeckte (hidden=false) DrawingCurveSegment in einer ObjectCollection einsammeln. Ist man damit fertig, kann man die die ObjectCollection in der Sheet.ChangeLayer Methode nutzen, um alle auf einmal dem neuen Layer zuzuweisen.

------------------
MfG
Ralf

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

---

schön wäre wenn in den Objektvorgaben die Flächenkörper separat angeführt wären, so wie Arbeitsebenen
aber das ist halt nicht (zumindest nicht bis 2020)

------------------

------------------
Das Leben ist ein Beta-Test ohne Release-Datum

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