|
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
|
|