Редактирование: Функции работы с системой

[[Категория:Макро]]
{{Макро}}
----
В данном разделе собраны функции, которые сами ничего не вычисляют и не работают с объектами. Данные функции предназначены для хранения и запроса различной системной информации.

== Сохранение и восстановление текущего состояния сцены ==

<code>INT '''GetSnap'''()</code>

Функции '''GetSnap''' запоминает текущее состояние системы. А именно:

* Положение системы координат;
* Текущую привязку;
* Текущую работу с координатами (в абсолютных единицах или в приращениях, декартовы или цилиндрические координаты);
* Режим «Орто» включен или нет;
* Текущее расположение окон;
* Текущее состояние при создании/редактировании размеров (графический коэффициент);
* Текущий фильтр;
* Текущий слой;
* Текущий цвет;
* Текущий тип линии;
* Текущая толщина линии;
* Текущее состояние привязок.
* Текущий графический коэффициент
* Текущий масштаб измеряемых величин

Свойства создаваемого структурного объекта

* Цвет не определен
* Слой не определен
* Тип линии не определен
* Толщина линии не определена

Функция возвращает количество запомненных положений.

<code>INT '''ReSnap'''<nowiki>([INT </nowiki>''&lt;Num&gt;''])</code>

Функция '''ReSnap''' восстанавливает запомненное функцией <code>GetSnap</code> состояние системы. После вызова функции количество запомненных состояний системы уменьшается.

Необязательный параметр <code>''&lt;Num&gt;''</code> указывает, к какому, начиная с конца, состоянию системы надо вернуться. Если он не указан, происходит возвращение к последнему запомненному состоянию. Функция возвращает количество запомненных состояний системы

Например, функция <code>GetSnap</code> была вызвана дважды и в памяти находятся два запомненных состояния системы. Первый вызов функции <code>ReSnap</code> без параметра восстановит последнее запомненное состояние системы, второй вызов без параметра – предпоследнее состояние системы. 

Для восстановления сразу предпоследнего состояния достаточно выполнить 

 ReSnap(2);

== Точность сравнения расстояний ==
<code>double '''SetEpsD'''(double ''&lt;NewEps&gt;'')</code>

Функция '''SetEpsD''' устанавливает новое значение для точности сравнения расстояний (см '''[[Функции работы с системой#Запрос у системы различной информации|sysvar(32)]]'''). Функция возвращает предыдущее значение точности сравнения расстояний или -1 при попытке установить не положительное значение.

== Запрос у системы различной информации ==
===SysVar===
<code>VARIANT '''SysVar'''(INT ''&lt;Varcode&gt;'')</code>

Функция '''SysVar''' возвращает различную системную информацию, в зависимости от значения параметра <code>''&lt;Varcode&gt;''</code> (см. таблицу).
{| class="wikitable"
|+Системная информация
!
<center>''&lt;Varcode&gt;''</center>

!
'''Возвращает'''

!
<center>'''Тип данных'''</center>

|-
|
<center>0</center>

|
Версия системы

|
<center>STRING</center>

|-
|
<center>1</center>

|
Папка, откуда запущена задача

|
<center>STRING</center>

|-
|
<center>2</center>

|
Полное имя файла текущей сцены

|
<center>STRING</center>

|-
|
<center>3</center>

|
Имя файла конфигурации системы

|
<center>STRING</center>

|-
|
<center>4</center>

|
Полное имя последнего добавленного файла

|
<center>STRING</center>

|-
|
<center>5</center>

|
Папка последнего импорта

|
<center>STRING</center>

|-
|
<center>6</center>

|
Папка последнего экспорта

|
<center>STRING</center>

|-
|
<center>7</center>

|
Полное имя последней запущенной макропрограммы

|
<center>STRING</center>

|-
|
<center>8</center>

|
Полное имя последнего файла шрифта

|
<center>STRING</center>

|-
|
<center>9</center>

|
Путь к последнему текстовому файлу

|
<center>STRING</center>

|-
|
<center>10</center>

|
Комментарий загруженного файла сцены

|
<center>STRING</center>

|-
|
<center>11</center>

|
Имя текущей исполняемой макропрограммы

|
<center>STRING</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>20</center>

|
[[Файл:sysvar20.png|thumb|350px|right|down|Выбор текущей системы координат]] 
<br><br>Система координат:

0 – «По схеме»

1 - Видовая система координат (ВСК)

2 - Пользовательская система координат(ПСК)

3 – Глобальная система координат (ГСК)

Устанавливается в умолчаниях (команда '''''Установки/Параметры''''', закладка '''Система/Привязки''')

|
<center>INT</center>

|-
|
<center>21</center>

|
Текущее задание координат

0 – Абсолютные координаты (задаются координаты в текущей системе координат)

1 – Приращения (задаются величины сдвига от последней введенной точки)

Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»)

|
<center>LOGICAL</center>

|-
|
<center>22</center>

|
Текущее задание координат

0 – Декартовы координаты (X, Y, Z)

1 – Цилиндрические координаты (R, A, Z)

Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»)

|
<center>LOGICAL</center>

|-
|
<center>23</center>

|
Текущее режим ортогональности

0 – Режим ортогональности выключен

1 – Режим ортогональности включен

Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»)

|
<center>LOGICAL</center>

|-
|
<center>24</center>

|
Текущий режим округления координат и углов

0 – Округление выключено

1 – Округление включено

Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»). Величины округления устанавливаются там же

|
<center>LOGICAL</center>

|-
|
<center>25</center>

|
Шаг округления координат. Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»)

|
<center>DOUBLE</center>

|-
|
<center>26</center>

|
Шаг округления углов. Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»)

|
<center>DOUBLE</center>

|-
|
<center>27</center>

|
Текущий режим работы с сеткой

0 – Сетка выключена

1 – Сетка включена

Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»).

|
<center>LOGICAL</center>

|-
|
<center>28</center>

|
Шаг сетки. Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»).

|
<center>DOUBLE</center>

|-
|
<center>29</center>

|
[[Файл:sysvar29.png|thumb|350px|right|Привязки]] 
Текущая привязка 

0 – Привязка отсутствует ('''None''')

1 - Автопривязка ('''AutoSnap''')

2 – Привязка к концу отрезка или дуги ('''Endpoint''')

3 – Привязка к центру окружности или дуги ('''Centerpoint''')

4 – Привязка к середине отрезка ('''Midpoint''')

5- Привязка к пересечению объектов ('''Intersect''')

6- Привязка к перпендикуляру ('''Perpend''')

7 – Привязка к ближайшей точке объекта ('''Near''')

8 – Привязка по касательной к дуге или окружности ('''TangentPoint''')

9 – Привязка к квадранту окружности или дуги ('''Quadrant''')

10 –Привязка к концу контура ('''Endpath''')

11 – Привязка к узлу ('''Node''')

12 – Привязка к пересечению контуров ('''Pathinter''')

Устанавливается в пользовательских умолчаниях (команда '''''Установки/Параметры''''', закладка '''Система/Привязки''')

|
<center>INT</center>

|-
|
<center>30</center>

|
Режим привязки к продолжению объекта.

0 – Выключен

1 – Включен

Устанавливается по команде «Установки» «Привязки» (см. ниже рисунок «Привязки»)

|
<center>LOGICAL</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>32</center>

|
Текущее значение точности сравнения расстояний

|
<center>double</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>40</center>

|
Номер текущего цвета (0...239)

|
<center>INT</center>

|-
|
<center>42</center>

|
Имя текущего слоя

|
<center>STRING</center>

|-
|
<center>50</center>

|
[[Файл:sysvar50.png|thumb|right|200px|Схема видов]] 
<br><br><br>Текущая схема видов. Номера идут от одного до десяти слева направо сверху вниз. <br>Команда '''''Вид/Выбрать схему окон'''''

|
<center>INT</center>

|-
|
<center>51</center>

|
Текущий вид. Зависит от схемы окон. Может принимать значение от одного до четырех

|
<center>INT</center>

|-
|
<center>52</center>

|
Развернут ли текущий вид во весь экран? 

0 – Не Развернут

1 - Развернут

|
<center>LOGICAL</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>58</center>

|
Режим отображения (RendMode) на текущем видовом окне:

0 - векторное

1 - растровое удаление невидимых линий

2 - полутоновое

3 - заливка цветом объекта

4 - настраиваемое отображение видимых и невидимых линий

|
<center>INT</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>60</center>

|
Количество объектов верхнего уровня в сцене

|
<center>INT</center>

|-
|
<center>61</center>

|
Количество выбранных объектов в сцене

|
<center>INT</center>

|-
|
<center>62</center>

|
Общее количество всех объектов на всех уровнях

|
<center>INT</center>

|-
|
<center>63</center>

|
Общее количество невидимых объектов

|
<center>INT</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>70</center>

|
Устарело. Не используется.

|
<center></center>

|-
|
<center>71</center>

|
[[Файл:Sysvar71A.png|thumb|350px|right|Выбор текущей единицы измерения]]
<br><br><br>Количество миллиметров в текущей единице измерения. Допускается изменять, если в сцене не создавалось ни одного объекта

''В текущей версии программы по умолчанию в качестве единицы измерения доступны только миллиметры''

|
<center>DOUBLE</center>

|-
|
<center>72</center>

|
Величина стрелки прогиба при отображении плоских кривых (дуг или окружностей).

|
<center>DOUBLE</center>

|-
|
<center>73</center>

|
Количество меридианов (см. ниже рисунок «Параметры аппроксимации»).

|
<center>INT</center>

|-
|
<center>74</center>

|
[[Файл:sysvar74.png|thumb|350px|right|Параметры аппроксимации]] 
Точность аппроксимации для твердых тел, построенных с помощью операций выдавливания.

Устанавливается в пользовательских умолчаниях (команда '''''Установки/Параметры''''', закладка '''Система/Аппроксимация''')

|
<center>DOUBLE</center>

|-
|
<center>75</center>

|
Угол гладкого сопряжения (см. выше рисунок «Параметры аппроксимации»).

|
<center>DOUBLE</center>

|-
|
<center>76</center>

|
[[Файл:sysvar76.png|thumb|350px|right|Параметры отображения]]
Общий графический коэффициент (см. рисунок).

Устанавливается в пользовательских умолчаниях (команда '''''Установки/Параметры''''', закладка '''Система/Режим отображения''')

|
<center>DOUBLE</center>

|-
|
<center>77</center>

|
Количество меридианов при гибке

|
<center>INT</center>

|-
|
<center>78</center>

|
Текущее состояние вывода диагностических сообщений и трассировки макропрограмм:

0 - трассировка макропрограмм отключена, вывод сообщений отключен, режим разработчика отключен;

1 - трассировка макропрограмм включена, вывод сообщений отключен, режим разработчика отключен;

2 - трассировка макропрограмм отключена, вывод сообщений включен, режим разработчика отключен;

3 - трассировка макропрограмм включена, вывод сообщений включен, режим разработчика отключен;

4 - трассировка макропрограмм отключена, вывод сообщений отключен, режим разработчика включен;

5 - трассировка макропрограмм включена, вывод сообщений отключен, режим разработчика включен;

6 - трассировка макропрограмм отключена, вывод сообщений включен, режим разработчика включен;

7 - трассировка макропрограмм включена, вывод сообщений включен, режим разработчика включен.

|
<center>INT</center>

|-
|
<center>84</center>

|
Флаг, сигнализирующий, произошли ли изменения в сцене со времени последнего сохранения или открытия файла

0 – не произошли

1 - произошли

|
<center>LOGICAL</center>

|-
|
<center>86</center>

|
путь к папке %COMMONAPPDATA%\GeoS\&lt;App&gt;\&lt;AppVer&gt;

|
<center>STRING</center>

|-
|
<center>87</center>

|
путь к папке %APPDATA%\GeoS\&lt;App&gt;\&lt;AppVer&gt;

|
<center>STRING</center>

|-
|
<center>88</center>

|
Имя провайдера базы данных. Он зависит от разрядности приложения.

|
<center>STRING</center>
|-
|
<center>89</center>

|
Выдавать предупреждение при поднятии версии K3-файлов (во время их перезаписывания)?
:'''1''' — выдавать
:'''0''' — не выдавать

:<code>ret=SysVar(89)</code> — возвращает '''1''', если предупреждение выдается и '''0''' – если не выдается
:<code>ret=SetSysVar(89,1)</code> — включает выдачу предупреждения
:<code>ret=SetSysVar(89,0)</code> — выключает выдачу предупреждения

В обоих случаях '''SetSysVar''' возвращет 1

|
<center>LOGICAL</center>
|-
|
<center>91</center>

|
полный путь к файлу с журналом (<app>.jou).

|
<center>STRING</center>
|-
|
<center>92</center>

|
HWND главного окна приложения (добавлено 12.04.2023)

|
<center>Указатель</center>
|}

Пример:
 <nowiki>=SysVar(0);</nowiki>
 <font color="008800">"Система \"K3-Mebel PKM\" Версия 7.4.971 RC  14 декабря 2016г."</font>
 <nowiki>=SysVar(1);</nowiki>
 <font color="008800">"C:\\Program Files\\Geos\\К3 Мебель ПКМ 7.4\\Bin\\"</font>
 <nowiki>=SysVar(28);</nowiki>
 <font color="008800">10</font>

===SysArr===
<code>INT '''SysArr'''(INT ''&lt;Varcode&gt;'', VARIANT ARRAY ''&lt;Info&gt;'')</code>

Функция заполняет массив <code>''&lt;Info&gt;''</code> различной системной информацией, в зависимости от значения параметра <code>''&lt;Varcode&gt;''</code>. Функция возвращает количество заполненных элементов массива, если не указано иное (см. таблицу).

{| class="wikitable"
|+Системная информация
!
<center>''&lt;Varcode&gt;''</center>

!
<center>'''Назначение'''</center>

!
<center>'''Количество элементов массива'''</center>

|-
|
<center>31</center>

|
Заполняет массив координатами базовой точки в ГСК

|
<center>3</center>

|-
|
<center>33</center>

|
Заполняет массив координатами последней сколотой точки в ГСК. Следует однако, иметь в виду, что в процессе работы некоторых команд координаты последней сколотой точки могут отличаться от координат точки, где была мышь.

|
<center>3</center>

|-
|
<center></center>

|


|
<center></center>

|-
|
<center>41</center>

|
Заполняет массив значениями цветов служебных элементов окна сцены.

1 - цвет фона;

2 - цвет разделительных линий;

3 - цвет выделение текущего вида;

4 - цвет резины;

5 - цвет курсора;

6 - цвет сетки; 

7 - цвет базовой точки;

8 - цвет оси репера “на нас”; 

9 - цвет оси репера “от нас”.

|
<center>9</center>

|-
|
<center>43</center>

|
Заполняет массив значениями текущих свойств:

1 - тип линии для создаваемого объекта, 

2 - толщина линии для создаваемого объекта,

3 - графический коэффициент для создаваемого объекта



свойства для создаваемого структурного объекта (1-«да»; 0-«нет»):

4 -слой не определен 

5 - цвет не определен

6 - тип линий не определен

7 - толщина линий не определена

8 - графический коэффициент не определен



при извлечении объекта из составного объекта (1-«да»; 0-«нет»):

9 - наследовать слой родителя

10 - наследовать цвет родителя

11 - наследовать тип линий родителя

12 - наследовать толщину родителя

13 - наследовать графический коэффициент родителя

|
<center>От 1 до 13</center>

|-
|
<center>53</center>

|
Заполняет массив информацией о статусе камеры

1 - Аксонометрия/Перспектива (0/1);

2 - Есть/Нет вращение вокруг вектора проецирования (1/0);

3 - Есть/Нет дальний предел отображения (1/0);

4 - Есть/Нет ближний предел отображения (1/0);

|
<center>4</center>

|-
|
<center>54</center>

|
Заполняет вектор координатами (в ГСК) начала вектора проецирования текущего вида (точка расположения (to) камеры).

|
<center>3</center>

|-
|
<center>55</center>

|
Заполняет вектор координатами (в ГСК) конца вектора проецирования текущего вида (точка направления (from) камеры).

|
<center>3</center>

|-
|
<center>56</center>

|
Заполняет массив информацией о текущей камере

1 - Угол раствора камеры;

2 - Угол поворота камеры;

3 - Значение ближнего предела видимости;

4 - Значение дальнего предела видимости;

|
<center>4</center>

|-
|
<center>57</center>

|
0 Заносит в массив пределы отображения в окне текущего вида в видовой системе координат.

1 – Xmin

2 – Ymin

3 – Xmax

4 – Ymax

|
<center>4</center>

|-
|
<center>80</center>

|
Заполняет массив длиной до 21 элемента, содержащий параметры текста для четырех типов размеров (линейный, угловой, радиус, диаметр):

1 - Высота символа

2 - Отношение ширины к высоте (в процентах)

3 - Угол наклона шрифта (в градусах)

4 - Разрядка между символами по горизонтали (в процентах)

5 - Разрядка между символами по вертикали (в процентах)

21-й элемент - величина отступа между размерами от базы

|
<center>до 21</center>

|-
|
<center>81</center>

|
Заполняет массив информацией о текущей дате и времени.

1 - Число

2 – Месяц (1 – январь; 12 – декабрь)

3 - Год

4 - День недели (1 – понедельник; 7 – воскресенье)

5 - Часы

6 - Минуты

7 - Секунды

8 - Номер дня с начала года

Возвращает время в секундах с полуночи (00:00:00), 1 января 1970 года, по согласованному универсальному времени (UTC) (полезно для вычисления временного интервала).

|
<center>8</center>

|-
|
<center>82</center>

|
Заполняет массив длиной 9 элементов информацией о системе и ее версии. Ниже представлено назначение и тип параметров по порядку.

1 - Число: Код приложения 

* 0 - К3-Конструктор

* 3 – K3-Ship

* 7 - K3-Mebel

* 8 - K3-Коттедж (Сруб) K3-Cottage

* 10 - K3-Тент

* 13 - K3-Коттедж (Каркас) K3-Domus


2 - Число: Конфигурация системы. Зависит от кода приложения. Для Мебель:

* 0 - ПКМ

* 1 - Салон

* 3 - АМБИ

* 4 - Фасад

* 5 - ПКМ генератор состава

* 6 - ПКМ для тестирования

* 7 - Бесплатная версия

3. - Число: Номер версии приложения 

* 1 -  "5.5"

* 2 -  "5.6"

* 3 -  "6.0"

* 4 -  "6.1"

* 5 -  "6.2"

* 6 -  "6.3"

* 7 -  "6.4"

* 8 -  "6.5"

* 9 -  "6.6"

* 10 -  "7.0"

* 11 -  "7.1"

* 12 -  "7.2"

* 13 -  "7.3"

* 14 -  "7.4"

* 15 -  "7.5"

* 16 -  "8.0"

* 17 -  "8.1"

* 18 -  "9.0"

* 19 -  "8.2"

* 20 -  "8.3"

* 21 -  "9.1"

* 22 - "10.0"

4. - Число: Уровень пользования 

* 0 - рабочая версия

* 1 - демонстрационная версия

* 3 - свободно-распространяемая версия

* 4 - преподавательская версия

* 5 - студенческая версия

* 6 - открытая версия

5 - Строка: Номер версии системы(«7.1»)

6 - Строка: Дата компиляции (“2013.07.23”)

7 – Строка: Авторское право ("Группа компаний ГеоС")

8 - Разрядность Windows 32|64

9 - Разрядность приложения 32|64

|
<center>7</center>

|-
|
<center>85</center>

|
Заполняет массив длиной до четырех элементов параметрами текущей штриховки:

1 - тип штриховки (от 0 до 189)
2 - масштаб штриховки
3 - угол наклона штриховки в градусах
4 - режим зависимости параметров штриховки от графического коэффициента сцены: 
* 0 - не зависит; 
* 1 - зависит

Возвращает количество заполненных элементов

|
<center>4</center>

|-
|
<center>90</center>

|
Заполняет массив длиной до 5 элементов, содержащий параметры стиля текста:

1 - Высота символа

2 - Отношение ширины к высоте (в процентах)

3 - Угол наклона шрифта (в градусах)

4 - Разрядка между символами по горизонтали (в процентах)

5 - Разрядка между символами по вертикали (в процентах)

|
<center>до 5</center>
|-
|
|
|
|-
|
<center>92</center>
|Информация о CmContainer (Доступно с версии 8.1 от 24 октября 2023г.)

# - Тип ключа
# - Номер ключа
# - Системное время ключа (PC)
# - Системное время (CmContainer)
# - Сертифицированное время (CmContainer)
|
<center>5</center>
|-
|
|
|
|}
Пример:
  BPoint 100 200 300;
  Defarrays a[9];
  =SysArr(31,a);
 <font color="008800">3</font>
  =a[1];
 <font color="008800">100</font>
  =a[2];
 <font color="008800">200</font>
 =SysArr(41,a);
 <font color="008800">9</font>
 =a[1];
 <font color="008800">7</font>
 =a[9];
 <font color="008800">0</font>

== Бесконечный ProgressBar ==
[[Файл:ProgressBar.png|thumb|right|Бесконечный ProgressBar]]

Для доступа из макросов  к бесконечному градуснику (чтобы показать, что мы ещё живы) добавлена функция '''infinitepb'''(code, text). Синтаксис:

:<code>void '''infinitepb'''(''1, "Текст на градуснике"'')</code> — запустить бесконечный ProgressBar. 
:<code>void '''infinitepb'''(2'', ""'')</code> — шаг бесконечного ProgressBar'а. Второй параметр игнорируется.
:<code>void '''infinitepb'''(3'', ""'')</code> — завершить бесконечный ProgressBar. Второй параметр игнорируется.

Бесконечный ProgressBar нужен при выполнении длительных процессов, чтобы показать, что выполняется работа и система не "зависла". Показывается в центре экрана поверх экрана задачи (см. рисунок).
----
{{Макро}}