---

Hallo liebe Solidgemeinde

Bei der Zeichnungserstellung habe ich Mittelkreuze automatisch erstellen eingeschaltet(soll auch so bleiben). Bei der Abwicklung werden natürlich auch Mitelkreuze erzeugt. Diese Zeichnung mit der Abwicklung muss ich dann als DXF unserem Blechlieferanten zu verfügung stellen. Der hat das Problem das er die Mittellinien alle entfernen muss.

Gibt es einen Weg die Mittelkreuze in den Voreinstellungen einem Layer zu zuordnen, oder weiß jemand eine andere Möglichkeit, wie ich dieses Problem behebe?

------------------
Danke für die Antworten und einen Gruß vom Niederrhein

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

---

Mittelkreuze-Filter an, Auswahl über alles, Layer im Eigenschaftenfenster wählen, fertig.

------------------
mfg uc

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

---

Danke für das Wecken

Manchmal sieht man halt den Wald vor lauter Bäumen nicht

------------------
Danke für die Antworten und einen Gruß vom Niederrhein

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

---

Aus Übersichtsgründen lege ich alle Mittellinien und Mittelkreuze auf einen Layer "rot".
Leider läßt sich das nicht voreinstellen.
Da die Tätigkeit über den Filter relativ mühselig ist, hab ich mir dafür mal ein Makro geschrieben, das mir das dann auf Tastendruck für das gesammte Blatt erledigt (Der Layer "rot" muß allerdings schon vorhanden sein):

' ******************************************************************************
' macro written on 08/14/05 by Stefan Giehl
' ******************************************************************************
Dim swApp As Object
Dim Part As Object

Dim swDrView As SldWorks.View
Dim swDrawing As SldWorks.DrawingDoc
Dim swModel As SldWorks.ModelDoc2
Dim curann As SldWorks.Annotation
Dim AnnArray As Variant
Dim vObj As Variant
Dim CurrAnn As SldWorks.Annotation

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc
Set swDrawing = swApp.ActiveDoc
Set swModel = swDrawing

Set swDrView = swDrawing.GetFirstView      'erste Ansicht holen
While Not swDrView Is Nothing
    AnnArray = swDrView.GetAnnotations      'Alle Annotations holen
    If Not IsEmpty(AnnArray) Then
        For Each vObj In AnnArray
            Set CurrAnn = vObj
            If CurrAnn.GetType = 13 Then    'Centermarks sollen auf den Layer "rot"
                CurrAnn.Layer = "red"
            End If
            If CurrAnn.GetType = 15 Then    'Centerlines sollen auf den Layer "rot"
                CurrAnn.Layer = "red"      'und auf den Linientyp "default"
                CurrAnn.Color = -1
            End If
        Next vObj
    End If
    Set swDrView = swDrView.GetNextView
Wend

End Sub

------------------
S. Giehl
TDG Technische Dienstverlening Giehl

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

---

Hallo,

wenn du die Layer in der SolidWorks Zeichnung eigentlich nicht brauchst, sondern nur in der dxf, würde ich das ganze über eine Abbildungsdatei machen.... Dabei werden beim Export in das dxf die Mittelkreuze auf einen Layer gelegt. Funktioniert übrigens nicht nur mit den Mittelkreuzen sondern auch mit anderen Elementen. Die Abblidungsdatei kannst du abspeichern und immer wieder verwenden.

Gruß
KoQ

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