---

Hallo,

ich moechte in allen Blaettern in einer Zeichnungsdatei die eine Abwicklung enthalten die Biegelinien ausschalten so dass sie nicht in der DXF datei auftauchen.

Das jeweilige Abwicklungs-Zeichnungblatt wird erkannt weil es kein Zeichnungskopf und Rand enthaellt.

das iLogic Programm scanned dann durch die Ansicht nach Biegelinien und soll sie dann unsichtbar schalten.
Leider passiert genau diese nicht.

Kann mir einer helfen was in dem Programm falsch ist:

Dim oDoc As Document = ThisApplication.ActiveDocument

Dim sSheetName As String

If oDoc.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub

For Each oSheet As Sheet In oDoc.Sheets
ActiveSheet = ThisDrawing.Sheet(oSheet.Name)
    If oSheet.DrawingViews.Count = 0 Then
        MsgBox("The sheet (" & oSheet.Name & ") does not contain any views!")
        Continue For
    End If
    Dim oView As DrawingView = oSheet.DrawingViews(1)
    Dim oModelDoc As Document = oView.ReferencedDocumentDescriptor.ReferencedDocument
Dim oTitleBlock As TitleBlock  = oSheet.TitleBlock
    Dim oName As String = iProperties.Value(oModelDoc.DisplayName, "Project", "Part Number")
Dim oDescription As String = iProperties.Value(oModelDoc.DisplayName, "Project", "Description")

    If oName = vbNullString Then
        MsgBox("The sheet's (" & oSheet.Name & ") model's part number is empty!")
        Continue For
    End If

If oTitleBlock Is Nothing Then
    sSheetName = "DXF " & oDescription & " " & oName
oSheet.ExcludeFromCount = True
oSheet.ExcludeFromPrinting = True
ActiveSheet.ChangeSize(48, 96, moveBorderItems := True)

For Each oCurve As DrawingCurve In oView.DrawingCurves
    If (oCurve.EdgeType = DrawingEdgeTypeEnum.kBendExtentEdge) Or (oCurve.EdgeType = DrawingEdgeTypeEnum.kBendUpEdge) Or (oCurve.EdgeType = DrawingEdgeTypeEnum.kBendUpEdge) Then
            For Each oSegment As DrawingCurveSegment In oCurve.Segments
                oSegment.Visible = False
            Next
    End If
Next

    Else
      sSheetName = oName
    End If

    oSheet.Name = sSheetName
Next

Danke schon mal im voraus fuer jedwelche Hilfe.
Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

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

---

Hallo

Außer das du in der Zeile

Code:

---

  If (oCurve.EdgeType = DrawingEdgeTypeEnum.kBendExtentEdge) Or (oCurve.EdgeType = DrawingEdgeTypeEnum.kBendUpEdge) Or (oCurve.EdgeType = DrawingEdgeTypeEnum.kBendUpEdge) Then

---

vermutlich im letzten Teil kBendUpEdge statt kBendDownEdge geschrieben hast, fällt mir nichts auf das die Funktion verhindert. Bleiben alle zu den Biegungen gehörenden Linien sichtbar oder nur einige? Kannst du ein Demoteil samt Zeichnung hochladen?

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Hallo Ralf,

vielen dank fuer den hinweis, das wars.
ich habs einfach uebersehn.

Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

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