Thema "iLogic: Layer zuweisen in idw" in Inventor - Deutsches Forum

iLogic: Layer zuweisen in idw

hmelmer — Tue, 12 Sep 2017 11:48:20 GMT

Hallo Zusammen,

ich habe folgendes Problem mit iLogic:

Ich würde gerne allen Bohrungen in einer idw je nach Durchmesser einem bestimmten Layer zuweisen.

In meiner Regel wird

If seg.Geometry.Radius <= 10/2 Then

leider nicht berücksichtigt. Es werden immer alle Bohrungen auf den neuen Layer gelegt. Auch wenn sie größer sind.

SyntaxEditor Code Snippet

Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    
    For Each oSheet In oDrawDoc.Sheets
        Dim oView As DrawingView
    Next
        For Each oView In oSheet.DrawingViews
            Call oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oView)
            Dim oLayers As LayersEnumerator = oView.Parent.Parent.StylesManager.layers
            ' Get layer
            Dim oLayer As Layer = oLayers.Item("Bohrung5mm")
            ' Get lines
            Dim oCurve As DrawingCurve
            For Each oCurve In oView.DrawingCurves
                If oCurve.CurveType = CurveTypeEnum.kCircleCurve Then
                    Dim seg As DrawingCurveSegment
                    For Each seg In oCurve.Segments
                        If seg.Geometry.Radius <= 10/2 Then
                            ' Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer
                        End If
                  Next
             End If
       Next
Next

Vielleicht kann mir hier jemand weiter helfen.

Vielen Dank

schöne Grüße

Helmut

Betreff: iLogic: Layer zuweisen in idw

Sofia.Xanthopoulou — Tue, 12 Sep 2017 19:11:18 GMT

Willkommen in der Community @hmelmer

Ich habe mich nun tatsächlich hier reingesteigert - und dann ließ es mich nicht mehr los

Obacht! Ich gehöre nicht zu den Programmierern - kann nur logische Rückschlüsse ziehen. Also meine Antwort bitte mit Vorsicht genießen

Folgendes habe ich festgestellt:

Wenn ich diesen Wert hier ändere - also von deinen 10/2 auf z.B. 0,5 setze

SyntaxEditor Code Snippet

If seg.Geometry.Radius <= 0.5 Then

dann werden mir alle Kreise selektiert, die einen Radius von 1 und kleiner haben.

Somit wäre für dich der richtige Wert, wenn du Bohrungen mit dem Durchmesser von 5 mm suchst "= 1.25".

Nun frag mich bitte nicht warum das so ist, dass der Radius nochmals halbiert wird. Es funktioniert auf jeden Fall.

Ich habe versucht das Objekt Geometry.Radius durch etwas anderes zu ersetzen, aber da bin ich gescheitert.

Vielleicht reicht dir ja dieser Hinweis, um noch an anderer Stelle zu korrigieren.

Lass mich und natürlich auch die anderen Leser wissen, ob du noch auf etwas gestoßen bist.

Viel Erfolg

Betreff: iLogic: Layer zuweisen in idw

hmelmer — Wed, 13 Sep 2017 10:45:41 GMT

Hallo Sofia,

vielen Dank für den Tipp.

Ich habe jetzt einige Tests gemacht. Bei mir ist es der Faktor 20 mit dem ich die Werte verkleinern muss, aber so funktioniert es zumindest.

Manche Werte funktionieren mit "=",bei den meisten aber scheint ein Rundungsproblem zu bestehen. Hier muss ich mit ">" und "<" arbeiten.

Vielleicht könntest Du mal nachforschen lassen woran das liegen könnte.

Hier noch einmal der Code: (Bögen für Gewindebohrungen habe ich jetzt auch dabei)

SyntaxEditor Code Snippet

Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    
    For Each oSheet In oDrawDoc.Sheets
        Dim oView As DrawingView
    Next
        For Each oView In oSheet.DrawingViews
            Call oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oView)
            Dim oLayers As LayersEnumerator = oView.Parent.Parent.StylesManager.layers
            ' Get layer
            Dim oLayer As Layer = oLayers.Item("Bohrung5mm")
            Dim oLayer1 As Layer = oLayers.Item("Bohrung6mm")
            Dim oLayer2 As Layer = oLayers.Item("Bohrung4mm")
            Dim oLayer3 As Layer = oLayers.Item("Bohrung3mm")
            Dim oLayer4 As Layer = oLayers.Item("Bohrung-M3")
            ' Get lines
            Dim oCurve As DrawingCurve
            For Each oCurve In oView.DrawingCurves
                If oCurve.CurveType = CurveTypeEnum.kCircleCurve Then
                    Dim seg As DrawingCurveSegment
                    For Each seg In oCurve.Segments
                        If seg.Geometry.Radius = 0.25 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer
                        End If
                        If seg.Geometry.Radius = 0.2 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer2
                        End If
                        If seg.Geometry.Radius >0.3 And seg.Geometry.Radius <0.301 Then
                            ' Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer1
                        End If
                        If seg.Geometry.Radius >0.15 And seg.Geometry.Radius <0.1501 Then
                            ' Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer3
                        End If
                        If seg.Geometry.Radius >0.2065 And seg.Geometry.Radius <0.21 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer4
                        End If
                    Next
                 End If
                If oCurve.CurveType = CurveTypeEnum.kCircularArcCurve Then
                    Dim seg As DrawingCurveSegment
                    For Each seg In oCurve.Segments
                        If seg.Geometry.Radius > 0.249 And seg.Geometry.Radius <0.251 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer4
                        End If
                    Next
                 End If
               Next
        Next

Vielen Dank

schöne Grüße

Helmut

Betreff: iLogic: Layer zuweisen in idw

Sofia.Xanthopoulou — Fri, 15 Sep 2017 14:21:40 GMT

Hm... komisch...

@hmelmer, kann ich bitte die Originaldaten zu dieser Regel haben, dann hab ich etwas in der Hand womit ich hausieren gehen kann

Danke dir

Betreff: iLogic: Layer zuweisen in idw

hmelmer — Mon, 18 Sep 2017 17:09:23 GMT

Hallo Sofia,

hier die Daten.

Gruß

Helmut

Betreff: iLogic: Layer zuweisen in idw

Sofia.Xanthopoulou — Tue, 19 Sep 2017 15:09:58 GMT

Danke schön @hmelmer,

nun ist etwas Geduld angesagt bis ich eine Rückmeldung bekomme.

Betreff: iLogic: Layer zuweisen in idw

TFoerst — Fri, 22 Sep 2017 08:01:11 GMT

Hi @hmelmer,

Inventor rechnet, wenn ich mich richtig erinner in Zentimeter, nicht Milimeter. Deshalb wird aus dem Radius 2,07mm die "Geometry radius" 0,2068 oder gerundet 0,207. Deshalb musst du immer durch 10 teilen (cm -> mm)

Dann musst du noch die Skalierung bedenken! oView.Scale. Das Maß bleibt zwar gleich aber er Kreis auf dem Blatt wird ja größer oder kleiner

Sonst nimmst du einen anderen Maßstab und dein Programmierung funktioniert gar nicht mehr

Also z.B. statt:

If seg.Geometry.Radius > 0.2065 And seg.Geometry.Radius < 0.21 Then

Musst du das hier machen, wenn du in mm die Werte angeben willst:

If seg.Geometry.Radius > (2.065 / 10 * oView.Scale) And seg.Geometry.Radius < (2.1 / 10 * oView.Scale) Then

Betreff: iLogic: Layer zuweisen in idw

hmelmer — Fri, 22 Sep 2017 11:02:37 GMT

Hallo Timon,

vielen Dank für deine Antwort. Es funktioniert so ganz gut. Vor allem habe ich den Maßstab nicht berücksichtigt.

Eine Frage habe ich trotzdem noch.

Wenn ich eine Bohrung mit genau 5 mm habe, warum muss ich dann mit < > arbeiten und nicht mit =

Bei 0.25 funktioniert es:

If seg.Geometry.Radius = 0.25 Then
' Change the layer
oCurve.Segments.Item(1).Layer = oLayer2

Bei 0.3 wiederum nicht:

If seg.Geometry.Radius >0.3 And seg.Geometry.Radius <0.301 Then
' Change the layer
oCurve.Segments.Item(1).Layer = oLayer1

Vielen Dank

Helmut

Betreff: iLogic: Layer zuweisen in idw

Sofia.Xanthopoulou — Mon, 25 Sep 2017 18:27:54 GMT

Danke @TFoerst,

meine Spezialisten haben sich leider noch nicht gemeldet, aber die Erklärung scheint mir logisch.

Wenn noch die Frage mit den Zeichen geklärt wird haben wir einen Gewinner

Tut mir leid @hmelmer, dass ich hier nicht so schnell an die Antworten gekommen bin

Betreff: iLogic: Layer zuweisen in idw

Dennis.Ossadnik — Wed, 11 Oct 2017 11:26:17 GMT

Hi @hmelmer,

wenn ich das richtig verstehe, dann wird dieser Effekt ausgelöst, da die Werte nicht vorher in einen bestimmten Datentyp konvertiert wurden. Bei den Vergleichen kann es vorkommen, dass .NET solche Zahlen dann als Text interpretiert und ob der Text dann größer ist als eine Zahl, ist dann eher vom Zufall bestimmt.

Daher würde ich zunächst vor dem Vergleichen den zu vergleichenden Radius in eine Variable des Datentype Double schreiben. Genau gegen diese Variable wird dann verglichen. Das ist der entscheidende Teil:

For Each seg In oCurve.Segments
						
'Vergleichswert erst in eine Zahl umrechnen, damit .NET keinen Text interpretiert
Dim dRadius as Double 
dRadius = seg.Geometry.Radius
							
'Vergleiche dann gegen die Zahl
If dRadius = 0.25 Then

Habe Deinen Code entsprechend geändert und nun scheint er zu funktionieren.

Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    
    For Each oSheet In oDrawDoc.Sheets
        Dim oView As DrawingView
    Next
        For Each oView In oSheet.DrawingViews
            Call oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oView)
            Dim oLayers As LayersEnumerator = oDrawdoc.StylesManager.layers
            ' Get layer
			            Dim oLayer As Layer = oLayers.Item("Bohrung5mm")
            Dim oLayer1 As Layer = oLayers.Item("Bohrung6mm")
            Dim oLayer2 As Layer = oLayers.Item("Bohrung4mm")
            Dim oLayer3 As Layer = oLayers.Item("Bohrung3mm")
            Dim oLayer4 As Layer = oLayers.Item("Bohrung-M3")
            ' Get lines
            Dim oCurve As DrawingCurve
            For Each oCurve In oView.DrawingCurves
                If oCurve.CurveType = CurveTypeEnum.kCircleCurve Then
                    Dim seg As DrawingCurveSegment
                    For Each seg In oCurve.Segments
						
						'Vergleichswert erst in eine Zahl umrechnen, damit .NET keinen Text interpretiert
						Dim dRadius as Double 
							dRadius = seg.Geometry.Radius
							
						'Vergleiche dann gegen die Zahl
                        If dRadius = 0.25 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer
                        End If
                        If dRadius = 0.2 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer2
                        End If
                        If dRadius >0.3 And seg.Geometry.Radius <0.301 Then
                            ' Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer1
                        End If
                        If dRadius >0.15 And seg.Geometry.Radius <0.1501 Then
                            ' Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer3
                        End If
                        If dRadius >0.2065 And seg.Geometry.Radius <0.21 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer4
                        End If
                    Next
                 End If
                If oCurve.CurveType = CurveTypeEnum.kCircularArcCurve Then
                    Dim seg As DrawingCurveSegment
                    For Each seg In oCurve.Segments
                        If seg.Geometry.Radius > 0.249 And seg.Geometry.Radius <0.251 Then
'                             Change the layer
                            oCurve.Segments.Item(1).Layer = oLayer4
                        End If
                    Next
                 End If
               Next
        Next

So sieht das dann aus:

Die Zeichnung mit der Regel habe ich Dir zum Testen auch angehängt.

Könntest Du das bitte einmal testen und uns dann hier eine Rückmeldung geben?

Bitte nutzt den "Als Lösung akzeptieren"-Button, wenn ein Beitrag euer Problem oder eure Frage löst. Für hilfreiche Posts könnt ihr auch gerne Kudos vergeben.