diff --git a/GeomProps2006.arx b/GeomProps2006.arx new file mode 100644 index 0000000..537a678 --- /dev/null +++ b/GeomProps2006.arx Binary files differ diff --git a/GeomProps2007.arx b/GeomProps2007.arx new file mode 100644 index 0000000..15a24db --- /dev/null +++ b/GeomProps2007.arx Binary files differ diff --git a/GeomProps2009x32.arx b/GeomProps2009x32.arx new file mode 100644 index 0000000..2552cdf --- /dev/null +++ b/GeomProps2009x32.arx Binary files differ diff --git a/GeomProps2009x64.arx b/GeomProps2009x64.arx new file mode 100644 index 0000000..32c1a87 --- /dev/null +++ b/GeomProps2009x64.arx Binary files differ diff --git a/GeomProps2010x32.arx b/GeomProps2010x32.arx new file mode 100644 index 0000000..fddf0c4 --- /dev/null +++ b/GeomProps2010x32.arx Binary files differ diff --git a/GeomProps2010x64.arx b/GeomProps2010x64.arx new file mode 100644 index 0000000..06571cf --- /dev/null +++ b/GeomProps2010x64.arx Binary files differ diff --git a/GeomProps2013x32.arx b/GeomProps2013x32.arx new file mode 100644 index 0000000..9d3e1bd --- /dev/null +++ b/GeomProps2013x32.arx Binary files differ diff --git a/GeomProps2013x64.arx b/GeomProps2013x64.arx new file mode 100644 index 0000000..4528e44 --- /dev/null +++ b/GeomProps2013x64.arx Binary files differ diff --git a/GeomProps2015x32.arx b/GeomProps2015x32.arx new file mode 100644 index 0000000..dfef529 --- /dev/null +++ b/GeomProps2015x32.arx Binary files differ diff --git a/GeomProps2015x64.arx b/GeomProps2015x64.arx new file mode 100644 index 0000000..94b8b01 --- /dev/null +++ b/GeomProps2015x64.arx Binary files differ diff --git a/GeomProps2017x32.arx b/GeomProps2017x32.arx new file mode 100644 index 0000000..d78d971 --- /dev/null +++ b/GeomProps2017x32.arx Binary files differ diff --git a/GeomProps2017x64.arx b/GeomProps2017x64.arx new file mode 100644 index 0000000..e5b098c --- /dev/null +++ b/GeomProps2017x64.arx Binary files differ diff --git a/GeomProps2018x32.arx b/GeomProps2018x32.arx new file mode 100644 index 0000000..18675aa --- /dev/null +++ b/GeomProps2018x32.arx Binary files differ diff --git a/GeomProps2018x64.arx b/GeomProps2018x64.arx new file mode 100644 index 0000000..4c6c708 --- /dev/null +++ b/GeomProps2018x64.arx Binary files differ diff --git a/GeomProps2019x32.arx b/GeomProps2019x32.arx new file mode 100644 index 0000000..f7384f1 --- /dev/null +++ b/GeomProps2019x32.arx Binary files differ diff --git a/GeomProps2019x64.arx b/GeomProps2019x64.arx new file mode 100644 index 0000000..1f6546b --- /dev/null +++ b/GeomProps2019x64.arx Binary files differ diff --git a/GeomProps2025x64.arx b/GeomProps2025x64.arx new file mode 100644 index 0000000..dafb794 --- /dev/null +++ b/GeomProps2025x64.arx Binary files differ diff --git a/GeomProps2027x64.arx b/GeomProps2027x64.arx new file mode 100644 index 0000000..4d6711a --- /dev/null +++ b/GeomProps2027x64.arx Binary files differ diff --git a/README.md b/README.md new file mode 100644 index 0000000..aa2673c --- /dev/null +++ b/README.md @@ -0,0 +1,41 @@ +# GeomProps + +Площадь, длина и объём выбранных примитивов — прямо в панели свойств AutoCAD. + +Добавляется новая группа свойств **«Геометрические свойства»** с полями +`Площадь (сумма)`, `Длина (сумма)`, `Объём (сумма)` и группа +**«Геометрические свойства (настройка)»**. + +## Установка + +Однократно загрузить arx-файл под вашу версию AutoCAD командой `_APPLOAD` (или `_ARX`). + +## Файлы по версиям AutoCAD + +| Файл | AutoCAD | Разрядность | +|---|---|---| +| GeomProps2006.arx | 2006 | 32 | +| GeomProps2007.arx | 2007...2009 | x86 (32) | +| GeomProps2009x32.arx | 2009 | x86 (32) | +| GeomProps2009x64.arx | 2009 | x64 (64) | +| GeomProps2010x32.arx | 2010...2012 | x86 (32) | +| GeomProps2010x64.arx | 2010...2012 | x64 (64) | +| GeomProps2013x32.arx | 2013...2014 | x86 (32) | +| GeomProps2013x64.arx | 2013...2014 | x64 (64) | +| GeomProps2015x32.arx | 2015...2016 | x86 (32) | +| GeomProps2015x64.arx | 2015...2016 | x64 (64) | +| GeomProps2017x32.arx | 2017 | x86 (32) | +| GeomProps2017x64.arx | 2017 | x64 (64) | +| GeomProps2018x32.arx | 2018 | x86 (32) | +| GeomProps2018x64.arx | 2018 | x64 (64) | +| GeomProps2019x32.arx | 2019 | x86 (32) | +| GeomProps2019x64.arx | 2019...2020 | x64 (64) | +| GeomProps2025x64.arx | 2025...2026 | x64 (64) | +| GeomProps2027x64.arx | 2027... | x64 (64) | + +## API + +- AutoLISP: `GeomPropsGetArea`, `GeomPropsGetVolume`, `GeomPropsGetPerimiter`. +- VBA: `Declare ... Lib "GeomPropsXXXX.arx"`. + +Подробности — в `Readme.txt` / `Readme-Eng.txt`. diff --git a/Readme-Eng.txt b/Readme-Eng.txt new file mode 100644 index 0000000..ef76cfa --- /dev/null +++ b/Readme-Eng.txt @@ -0,0 +1,92 @@ +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 Area +(GeomPropsGetVolume ) ;; Entity Volume +(GeomPropsGetPerimiter ) ;; 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 diff --git a/Readme.txt b/Readme.txt new file mode 100644 index 0000000..c115099 --- /dev/null +++ b/Readme.txt @@ -0,0 +1,135 @@ +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