Beiträge: 51
Themen: 10
Danke erhalten: 0 in 0 Posts
Danke gesagt: 31
Registriert seit: 03.06.2020
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
•
Beiträge: 4.893
Themen: 198
Danke erhalten: 305 in 283 Posts
Danke gesagt: 65
Registriert seit: 14.12.2011
16.05.2023, 16:15
(Dieser Beitrag wurde zuletzt bearbeitet: 16.05.2023, 16:15 von norre.)
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:1 Benutzer bedankt Danke norre für diesen Beitrag
• Olaf
Beiträge: 51
Themen: 10
Danke erhalten: 0 in 0 Posts
Danke gesagt: 31
Registriert seit: 03.06.2020
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
•
Beiträge: 4.893
Themen: 198
Danke erhalten: 305 in 283 Posts
Danke gesagt: 65
Registriert seit: 14.12.2011
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:1 Benutzer bedankt Danke norre für diesen Beitrag
• Olaf
Beiträge: 51
Themen: 10
Danke erhalten: 0 in 0 Posts
Danke gesagt: 31
Registriert seit: 03.06.2020
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
•
Beiträge: 1.436
Themen: 11
Danke erhalten: 272 in 231 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
Hallo Olaf, Hallo Norre,
wie bei den Objekteigenschaften kann auch ein Makro (ohne Weiteres) nicht alle Objekttypen messen:
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:1 Benutzer bedankt Danke koter für diesen Beitrag
• Olaf
Beiträge: 4.893
Themen: 198
Danke erhalten: 305 in 283 Posts
Danke gesagt: 65
Registriert seit: 14.12.2011
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:1 Benutzer bedankt Danke norre für diesen Beitrag
• Olaf
Beiträge: 51
Themen: 10
Danke erhalten: 0 in 0 Posts
Danke gesagt: 31
Registriert seit: 03.06.2020
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
•