Zobacz temat - Jak policzyć krawedź

Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

CorelDRAW - grafika wektorowa - Jak policzyć krawedź

arczi1987 - 11 Sierpień 2016, 17:36
Temat postu: Jak policzyć krawedź

Jak w temacie mam plik tak jak w załaczniku, lewa strona oznaczona literą A z wypukłoscią, druga strona prosta, i potrzebuje dowiedzieć się jak mogę zmierzyć długość tego elementu A jak bym wyprostował.

bidon184 - 11 Sierpień 2016, 17:49

nie to zebym sie czepial ,ale zalacznika to nie dales :-)

arczi1987 - 11 Sierpień 2016, 18:36

wstawiam

bidon184 - 11 Sierpień 2016, 19:28

w corelu to np mozna sprawdzic tak o to ,okno dokowane i wlasciwosci ,zaznaczasz obiekt i we wlasciwosciach na samym dole masz dlugosc krzywej ,w twoim przypadku to 558,216,nastepnie klikasz narzedziem ksztalt wezel na luku i na pasku narzedzi klikasz przeksztalc w odcinek i masz znow wymiar 550,004 od tego odejmujesz wymiar pierwszy,bedziesz mial dlugosc przyrostu,czyli 8,212,nastepnie usuwasz dwa wezly i znow klikasz przeksztalc w prosta i znow masz wymiar jednej prostej czyli 460,041 no i do tego dodajecz przyrost czyli 8,212 to bedzie 468.253 i to wlasnie bedzie wymiar tego luku po wyprostowaniu,to taki sposob zeby za duzo nie kombinowac z matematyka

Shame - 11 Sierpień 2016, 19:29

Trzymaj:

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

To nie moje makro, przyznaję się bez bicia. Jednak robi to co potrzebujesz. Kształt krzywej nie ma znaczenia.

bidon184 - 11 Sierpień 2016, 19:37

aa makrem pojechales :-)

ja to wiesz taki chlopski sposob zapodalem az mi wstyd :-D

arczi1987 - 11 Sierpień 2016, 21:15

Kurcze widocznie jestem za słaby w corelu, siedze od godziny i nie mogę znaleźć tych opcji, uruchomiłem te makra ale nic mi to nie daje, jak by mógł ktoś mi pomóc i powiedział ile jest z punktu a do b w poniższym pliku będę wdzięczny, bo tak wymiar całego policyło mi 1112,2708, potem rozłączyłem, klikam prostuj i znowu jest 500mm więc coś jest nie tak....

Cysorz - 11 Sierpień 2016, 21:18

510,9751 mm.
Musisz wcześniej rozłączyć węzły tych puntach i rozdzielić obiekt (ctrl+K).

bidon184 - 11 Sierpień 2016, 22:05

a widzisz ja tez zapomnialem o tym napisac ze trzeba rozlaczyc krzywa i usunac krzywa pod spodem mea culpa :poklon

ale to bylo tak zbiegu :-)