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

Makra - Oblicznie obwodu

Bartix - 12 Grudzień 2007, 16:27
Temat postu: Oblicznie obwodu
Witam serdecznie wszystkich forumowiczów!

Mam nielada kłopot. Zostałem poproszony o obliczenie obwodu poszczególnych liter w celu ustalenia długości taśmy, którą to każda z liter (przestrzennych) ma być oklejona wokół jej obwodu. Mam w związku z tym pytanie: czy istnieje jakiś sposób na wyliczenie obwodu, niekoniecznie za pomocą Corela? Wiem, że taką funkcję mają plotery, ale nie mam niestety póki co dostępu do tego urządzenia.

JarekDRAW - 12 Grudzień 2007, 20:32

Witam, słabo przeszukałeś forum było już o tym, tu znajdziesz info którego potrzebujesz...


Pozdrawiam

Bartix - 14 Grudzień 2007, 12:32

Dzięki, ale niestety nic mi to nie pomogło. Potrzebne mi jest narzędzie do oblicznia obwodu figury, a nie jego powierzchni. Natomiast narzędzie Wymiary w Corelu także w tym przypadku nie pomoże.
derado - 3 Styczeń 2008, 12:53

ano skoro moze byc inny program to może to:
wyeksportuj krzywe do formatu dwg albo dxf
i w AutoCADzie jest funkcja ZAPYTANIE/QUERY klikasz literke i masz
pozdr

vising - 12 Listopad 2010, 08:31

Może odświeżę termat..
Czytałem coś na innym forum, o patch perimeter? Słyszał ktoś coś takiego?
Bo liczenie ręczne obwodu każdej literki to nie jest za ciekawe zajęcię...
Może ktoś już doszedł jak to najszybciej zrobić?

wawel - 12 Listopad 2010, 09:19

perimeter
http://eng.e-cut.ru/index...&id=25&Itemid=8

A pozatym obwod sciezki obliczy progr. inkscape. Byl tu tez watek na forum o tym.
pozdr.

dark - 12 Listopad 2010, 09:43

jest jeszczee coś takiego choć nie sprawdzałem jeszcze tego:
http://www.printnet.pl/index.html?jak_mierzyc=1

lechnik - 15 Listopad 2010, 09:47

JarekDRAW napisał/a:
Witam, słabo przeszukałeś forum było już o tym, tu znajdziesz info którego potrzebujesz...


Pozdrawiam


ten srypt oblicz i pole i obwód wic nie ma po co szukac dalej

TomaszK - 3 Styczeń 2018, 08:27

Może komuś kiedyś się przyda...
http://www.azet-flex.com....maszyny/32.html

Martin Nez - 24 Listopad 2020, 15:41

Witam,
stary temat, ale może to komuś jeszcze ułatwi na przyszłość.
Kod:
Sub Bartix()
    ActiveDocument.Unit = cdrMillimeter
    Dim s As Shape
    Dim sr As ShapeRange
    Dim obwod As Double
    ActiveDocument.BeginCommandGroup
    Set sr = ActiveSelectionRange
    For Each s In sr
        If s.Type <> cdrCurveShape Then s.ConvertToCurves
        obwod = obwod + (s.Curve.Length)
    Next
    ActiveDocument.EndCommandGroup
    ActiveDocument.Undo
    MsgBox ("Obwód: " & Round(obwod, 2) & " mm")
End Sub


Pozdr,
MN


Powered by phpBB modified by Przemo © 2003 phpBB Group