superficie

jesicadel92
over 1 year ago

Hola a todos! alguien sabe si con Corel se puede ver la superficie de un vector? necesito estimar un costo y de la manera que mejor lo solventaría es si se que cantidad de pintura en este caso voy a consumir, sabiendo los cm2 de lo que voy a estampar. 

  • +1 over 1 year ago

    Code for All Shapes on Active Page

    Private Sub CommandButton74_Click()
    ActiveDocument.Unit = cdrMillimeter
    For Each bhbp_shape In ActiveDocument.ActivePage.Shapes
    BhBp_Area = BhBp_Area + Round(bhbp_shape.DisplayCurve.Area, 2)
    Next
    'MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " mm2" 'only selected shape area
    MsgBox BhBp_Area & " mm2"
    End Sub

    OR

    Code for All Selected Shapes

    Private Sub CommandButton72_Click()
    ActiveDocument.Unit = cdrMillimeter
    'For Each bhbp_shape In ActiveDocument.ActivePage.Shapes
    For Each bhbp_shape In ActiveSelectionRange.Shapes
    BhBp_Area = BhBp_Area + Round(bhbp_shape.DisplayCurve.Area, 2)
    Next
    'MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " mm2" 'only selected shape area
    MsgBox BhBp_Area & " mm2"
    End Sub

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.