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