Copyright (c) 1998-2025  

============================================================================
  , , ,   
     ( 
 " "),  
  ,   
 , , , , ,
,  /   
,    ,   
 ,    :
         
      .

    < >,   
,    , ,  
   ,   
    .      
        ,
      ,  
,  ,      
      
   .
============================================================================


,       
.     
   (), (),
()     ()
   arx-
(   )    _APPLOAD
( _ARX)

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


  AutoCAD     _APPLOAD  _ARX
    !   
  AutoCAD.
  Design Center ( _adcenter)  
GeomProps    AutoCAD  
(   AcObjClassImp.arx).  
    dwg-,   , ..
     .   
    .


 GeomPropsScale   
.


  AutoLISP:

(GeomPropsGetArea < >) ;;  
(GeomPropsGetVolume < >) ;;  
(GeomPropsGetPerimiter < >) ;; / 

  VBA:

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

 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
 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
 AutoCAD 2025-2026:
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
 AutoCAD 2027:
Private Declare PtrSafe Function GeomPropsGetArea Lib "GeomProps2027x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetVolume Lib "GeomProps2027x64.arx" (ByVal id As LongPtr) As Double
Private Declare PtrSafe Function GeomPropsGetPerimiter Lib "GeomProps2027x64.arx" (ByVal id As LongPtr) As Double


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


========================================================================
P.S.:          
       
     -  ,    
      :

MasterCard: 5169-3600-2782-1770
Visa:       4731-1856-6165-3904
PayPal: Alexander.Rivilis@gmail.com

       .
========================================================================
e-mail: rivilis@ukr.net
Skype:  rivilis
GTalk:  Alexander.Rivilis@gmail.com
MSN:    rivilis@hotmail.com
.:   +380(50)332-21-26
