Corel FORUM

[kemor]

Dzień dobry.
Dysponuję archaiczną wersją Corel Draw 9 i często mam potrzebę obliczenia długości krzywych w pliku.
Znalazłem na forum coś takiego (makro zamieszczone przez Shame) ,

Kod:

Sub getLineLen()  Dim sel As Shape  Set sel = Application.ActiveDocument.ActiveShape  Dim l, sl As Double  Dim seg As Segment  Dim prevu As cdrUnit  prevu = Application.ActiveDocument.Unit  Application.ActiveDocument.Unit = cdrMillimeter  For Each seg In sel.Curve.Segments  sl = seg.Length  l = l + sl  Next seg  MsgBox ("Length: " & l)  Application.ActiveDocument.Unit = prevu End Sub

co skopiowałem do notatnika, zapisałem z rozszerzeniem *.csc i dodałem do folderu "scripts". I co ? Nie działa.
Kiedyś posiadałem taki skrypt, ale po reinstalacji systemu i (niestety) zagubieniu pendriva wszystko diabli wzięli.
Bardzo proszę o pomoc w temacie, bo widzę że jest tu bardzo wielu fachowców od Corela.[/code]

[Cysorz]

Wpisz w guglarkę "corel makro długość krzywych" - nie wiem jak z 9-ką (nie mam możliwości sprawdzenia tak archaicznej wersji) bo to w końcu wersja sprzed 23 lat...