Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  iLogic um Biegelinien unsichtbar zu schalten

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PDM ERP Integration: 4 Wege für jede Anforderung
Autor Thema:  iLogic um Biegelinien unsichtbar zu schalten (347 mal gelesen)
Canadabear
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Canadabear an!   Senden Sie eine Private Message an Canadabear  Schreiben Sie einen Gästebucheintrag für Canadabear

Beiträge: 921
Registriert: 30.06.2010

Inventor 2020
SolidWorks 2020

erstellt am: 27. Okt. 2021 15:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2428
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 27. Okt. 2021 21:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Canadabear 10 Unities + Antwort hilfreich

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

Canadabear
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Canadabear an!   Senden Sie eine Private Message an Canadabear  Schreiben Sie einen Gästebucheintrag für Canadabear

Beiträge: 921
Registriert: 30.06.2010

Inventor 2020
SolidWorks 2020

erstellt am: 27. Okt. 2021 23:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz