Juergens-Workshops.de Forum
Strecke von Umriss ermitteln - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Strecke von Umriss ermitteln (/showthread.php?tid=38520)

Strecke von Umriss ermitteln - Olaf - 16.05.2023

Hallo,

wir nutzen corel um Laserdateien zu erstellen.

Für die Ermittlung der Laserzeit wäre es eine sehr große Hilfe wenn es möglich wäre die Strecke des Umrisses eines markierten Objekts zu ermitteln......

Vielleicht hat ja jemand eine Idee wie man das umsetzten könnte oder weiß ob es die Möglichkeit schon in Corel gibt?


Gruß

Olaf

RE: Strecke von Umriss ermitteln - norre - 16.05.2023

Hallo,
ich hab nur die X6 aber schau mal bei ausgewähltem Objekt im Andockfenster "(Objekt)Eigenschaften" dort unter dem Reiter "Kurve"

Gruß
Norre

RE: Strecke von Umriss ermitteln - Olaf - 16.05.2023

Hallo Norre,

vielen Dank für Deine Megschnelle Hilfe, genau das benötige ich. Ginge die Längenermittlung auch mit mehreren Objekten die zusammen markiert werden?

Gruß

Olaf

RE: Strecke von Umriss ermitteln - norre - 16.05.2023

Hallo,
 nicht mit Bordmitteln, eventuell über ein Makro?
Dazu müßtest du vielleicht unseren Makrospezialisten @Koter anschreiben ob das möglich wäre.

Gruß
Norre

RE: Strecke von Umriss ermitteln - Olaf - 16.05.2023

Hallo Norre,

das werde ich machen, vielen Dank für Deine Hilfe.

Einen schönen Abend

Gruß

Olaf

RE: Strecke von Umriss ermitteln - koter - 21.05.2023

Hallo Olaf, Hallo Norre,

wie bei den Objekteigenschaften kann auch ein Makro (ohne Weiteres) nicht alle Objekttypen messen:

[Bild: zwischenablage01pgi76.jpg]

Bei Bitmaps oder Hilfslinien wäre das wahrscheinlich auch nicht sinnvoll.
 
Code:
Sub WieLang()
   On Error GoTo Fehler
   Dim vbM As Integer
   Dim M1 As String, M2 As String
   Dim s As Shape
   Dim sr As ShapeRange
   Dim tempC As Curve
   ActiveDocument.Unit = cdrMillimeter
   vbM = 64
   M2 = ""
   Set tempC = New Curve
   Set sr = ActiveSelectionRange
   For Each s In sr
       tempC.AppendCurve s.DisplayCurve
   Next
   M1 = Round(tempC.Length, 2) & " mm" & vbCrLf
   MsgBox M1 & M2, vbM, "Länge"
   Set tempC = Nothing
   Exit Sub
Fehler:
   M2 = "(Messung unvollständig)"
   vbM = 16
   Resume Next
End Sub

Wenn bestimmte Objekttypen in die Messung einbezogen werden sollen, müsste ich wissen welche.
Ich könnte dann versuchen, das Makro zu erweitern.

Gruß

Koter

RE: Strecke von Umriss ermitteln - norre - 21.05.2023

Hallo

(16.05.2023, 17:27)norre schrieb: nicht mit Bordmitteln...

ich muss mich korrigieren, es ist doch möglich die Gesamtlänge mehrerer Kurven zu ermitteln.
Du musst nur alle Kurven kombinieren dann sollte dir die gesamte Länge angezeigt werden.

Gruß
Norre

RE: Strecke von Umriss ermitteln - Olaf - 30.05.2023

Ich Danke Euch beiden sehr für Eure Mühe, die Variante von Norre reicht für das was wir damit machen wollen bzw. wie selten wir diese Funktion benötigen aus.

Vielen Dank und Euche eine schöne Restwoche.

Gruß

Olaf Hansen