Copyright (c) 1998-2021 Alexander Rivilis

Area, Length and Volume of selected entities in Properties Panel

Added new group 'Geometrical Properties (Total)' with fields 'Area (total)', 
'Length (total)', 'Volume (total)' and group 'Geometrical Properties (setting)'
with field 'Linear scale factor'

With help of _APPLOAD command you can load arx-file only once (arx-file self-registered for autoload):

GeomProps2006.arx     - for AutoCAD 2006
GeomProps2007.arx     - for AutoCAD 2007...2009 (only x86 - 32-bits)
GeomProps2009x32.arx  - for AutoCAD 2009 (only x86 - 32-bits)
GeomProps2009x64.arx  - for AutoCAD 2009 (only x64 - 64-bits)
GeomProps2010x32.arx  - for AutoCAD 2010...2012 (only x86 - 32-bits)
GeomProps2010x64.arx  - for AutoCAD 2010...2012 (only x64 - 64-bits)
GeomProps2013x32.arx  - for AutoCAD 2013...2014 (only x86 - 32-bits)
GeomProps2013x64.arx  - for AutoCAD 2013...2014 (only x64 - 64-bits)
GeomProps2015x32.arx  - for AutoCAD 2015...2016 (only x86 - 32-bits)
GeomProps2015x64.arx  - for AutoCAD 2015...2016 (only x64 - 64-bits)
GeomProps2017x32.arx  - for AutoCAD 2017        (only x86 - 32-bits)
GeomProps2017x64.arx  - for AutoCAD 2017        (only x64 - 64-bits)
GeomProps2018x32.arx  - for AutoCAD 2018        (only x86 - 32-bits)
GeomProps2018x64.arx  - for AutoCAD 2018        (only x64 - 64-bits)
GeomProps2019x32.arx  - for AutoCAD 2019        (only x86 - 32-bits)
GeomProps2019x64.arx  - for AutoCAD 2019...2020 (only x64 - 64-bits)
GeomProps2021x64.arx  - for AutoCAD 2021...2024 (only x64 - 64-bits)
GeomProps2025x64.arx  - for AutoCAD 2025...     (only x64 - 64-bits)



Command GeomPropsScale allow set 'Linear scale factor'.


Call from AutoLISP:

(GeomPropsGetArea <Entity name>) ;; Entity Area
(GeomPropsGetVolume <Entity name>) ;; Entity Volume
(GeomPropsGetPerimiter <Entity name>) ;; Entity Length

Call from VBA:

' For AutoCAD 2006
' Private Declare Function GeomPropsGetArea Lib "GeomProps2006.arx" (ByVal id As Long) As Double
' Private Declare Function GeomPropsGetVolume Lib "GeomProps2006.arx" (ByVal id As Long) As Double
' Private Declare Function GeomPropsGetPerimiter Lib "GeomProps2006.arx" (ByVal id As Long) As Double
' For AutoCAD 2007+
' Private Declare Function GeomPropsGetArea Lib "GeomProps2007.arx" (ByVal id As Long) As Double
' Private Declare Function GeomPropsGetVolume Lib "GeomProps2007.arx" (ByVal id As Long) As Double
' Private Declare Function GeomPropsGetPerimiter Lib "GeomProps2007.arx" (ByVal id As Long) As Double

For AutoCAD 2019 и 2020:
Private Declare PtrSafe Function GeomPropsGetArea Lib "GeomProps2019x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetVolume Lib "GeomProps2019x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetPerimiter Lib "GeomProps2019x64.arx" (ByVal id As LongPtr) As Double
For AutoCAD 2021:
Private Declare PtrSafe Function GeomPropsGetArea Lib "GeomProps2021x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetVolume Lib "GeomProps2021x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetPerimiter Lib "GeomProps2021x64.arx" (ByVal id As LongPtr) As Double
For AutoCAD 2025:
Private Declare PtrSafe Function GeomPropsGetArea Lib "GeomProps2025x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetVolume Lib "GeomProps2025x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetPerimiter Lib "GeomProps2025x64.arx" (ByVal id As LongPtr) As Double



' Sample for getting Area
Public Sub TestArea()
Dim o As AcadObject
Dim p As Variant
ThisDrawing.Utility.GetEntity o, p, "Select entity: "
Dim id As LongPtr
id = o.ObjectID
Dim ar As Double
ar = GeomPropsGetArea(id)
MsgBox "Area=" + CStr(ar), , "GetArea Example"
End Sub


========================================================================
P.S.: If you like this application - you can send me some moneys: 

MasterCard: 5169-3600-2782-1770
Visa:       4731-1856-6165-3904
PayPal:  Alexander.Rivilis@gmail.com
It wiil be a stimul to extend my work with this application
========================================================================
e-mail: rivilis@ukr.net
Skype:  rivilis
GTalk:  Alexander.Rivilis@gmail.com
MSN:    rivilis@hotmail.com
тел.:   +380(50)332-21-26