GoldenLine
Zaloguj się
Tomasz G.

Tomasz G. Dyrektor Działu
Marketingu

Temat: Kalkulacja powierzchni kształtów

Cześć czy można jakoś łatwo wyświetlić/policzyć powierzchnię dowolnego kształtu w Corel Draw XV? Ewentualnie jakiś plugin/dodatkowy soft?
Link do wypowiedziLink
Dominik Mikiewicz

Dominik Mikiewicz maps made easy,
www.cartomatic.pl ||
cartoninjas.net

Temat: Kalkulacja powierzchni kształtów

Tak na szybko, żeby pokazać kierunek :


Sub MeasureArea()

    ActiveDocument.Unit = cdrCentimeter

    Dim OrigSelection As ShapeRange

    Set OrigSelection = ActiveSelectionRange

    If OrigSelection.Count = 1 Then

            Dim s As Shape

            Set s = OrigSelection(1)

        If s.Type = cdrCurveShape Then

            MsgBox ("Area: " & s.Curve.Area & " sq cm")

        Else

            MsgBox ("Sorry mate, I deal with curves only")

        End If

    Else

        If OrigSelection.Count > 1 Then

            MsgBox ("Too many objects selected")

        Else

            MsgBox ("Nothing selected")

        End If

    End If

End Sub
Link do wypowiedziLink
Wojtek Kowalewski

Wojtek Kowalewski współwłasciciel,
Strefa 10 sc

Temat: Kalkulacja powierzchni kształtów

Pobierz wersję czasową Corela Designer'a. Uruchom jako Micrografx Designer. Kliknij Object-Area, Volume, Perimetr... i masz.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj