Strecke von Umriss ermitteln
#1
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

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren
#2
Hallo,
ich hab nur die X6 aber schau mal bei ausgewähltem Objekt im Andockfenster "(Objekt)Eigenschaften" dort unter dem Reiter "Kurve"

Gruß
Norre
[-] 1 Benutzer bedankt sich bei norre für diesen Beitrag:
  • Olaf
Zitieren
#3
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

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren
#4
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
[-] 1 Benutzer bedankt sich bei norre für diesen Beitrag:
  • Olaf
Zitieren
#5
Hallo Norre,

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

Einen schönen Abend

Gruß

Olaf

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren
#6
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
[-] 1 Benutzer bedankt sich bei koter für diesen Beitrag:
  • Olaf
Zitieren
#7
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
[-] 1 Benutzer bedankt sich bei norre für diesen Beitrag:
  • Olaf
Zitieren
#8
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

Betriebssystem / Grafik-Software: Corel Draw GS SE 2018
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Text mit innerem Umriss mtemp 2 452 16.03.2023, 07:35
Letzter Beitrag: Piet
  Bilddatei Vektorisieren (nur Umriss) anorak 6 626 10.02.2023, 09:25
Letzter Beitrag: Piet
  Farbe und Umriss auf Grafiktext ändern als Standard maine-coon 2 2.472 15.09.2019, 20:30
Letzter Beitrag: maine-coon
  Problem: Umriss in Objekt bei Elypsen Uckerschwan 18 3.972 09.09.2017, 21:07
Letzter Beitrag: koter
  CorelDraw - Umriss-Einstellung weschka 6 1.556 28.09.2016, 16:54
Letzter Beitrag: Hartmut
  Vektorisieren, aber nicht nach Mittellinie oder Umriss JTho 5 1.911 31.07.2016, 17:30
Letzter Beitrag: JTho
  Ansicht 'einfacher Umriss' Schrift ist rot Albert Schallenberg 1 1.039 27.04.2015, 16:34
Letzter Beitrag: norre
  Kalligraphie Umriss ffk 7 2.167 13.02.2015, 20:39
Letzter Beitrag: Jürgen
  Umriss in Form umwandeln Mike008 6 2.264 14.11.2014, 13:42
Letzter Beitrag: Mike008
  Pfeilspitze in der Mitte einer Strecke berti9999 13 2.584 10.08.2013, 19:02
Letzter Beitrag: norre