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

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

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

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

|Система координат:

'''0''' — «По схеме»

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

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

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

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

|
<center>INT</center>

|-
|
<center>21</center>

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

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

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

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

|
<center>LOGICAL</center>

|-
|
<center>22</center>

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

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

'''1''' — Полярные координаты (R, A, Z)

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

|
<center>LOGICAL</center>

|-
|
<center>23</center>

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

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

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

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

|
<center>LOGICAL</center>

|-
|
<center>24</center>

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

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

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

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

|
<center>LOGICAL</center>

|-
|
<center>25</center>

|
Шаг округления координат. 

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

|
<center>DOUBLE</center>

|-
|
<center>26</center>

|
Шаг округления углов. 

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

|
<center>DOUBLE</center>

|-
|
<center>27</center>

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

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

'''1''' — Сетка включена

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

|
<center>LOGICAL</center>

|-
|
<center>28</center>

|
Шаг сетки.

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

|
<center>DOUBLE</center>

|-
|
<center>29</center>

|Текущая привязка 

'''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''' — Привязка параллельно оси

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

|
<center>INT</center>

|-
|
<center>30</center>

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

'''0''' — Выключен

'''1''' — Включен

Если '''Привязка к продолжению объекта''' включена, то при попытке привязаться к пересечению двух отрезков мы привяжемся к точке их пересечения, двже если она не лежит на одном или обоих отрезках.

Устанавливается в умолчаниях (команда '''''Установки/Параметры''''', закладка '''Интерфейс/Ввод/Автопривязки''') (см. ниже рис. 3)

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

|Текущая схема видов. 

''В текущей версии программы доступна только схема видов с четырьмя видовыми окнами (2х2)''

|
<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''' — настраиваемое отображение видимых и невидимых линий

'''5''' — по отклонению нормали от вертикали ('''К3-Тент''')

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

|
Количество миллиметров в текущей единице измерения. 

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

|
<center>DOUBLE</center>

|-
|
<center>72</center>

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

|
<center>DOUBLE</center>

|-
|
<center>73</center>

|
Количество меридианов.

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

|
<center>INT</center>

|-
|
<center>74</center>

|Параметры аппроксимацииТочность аппроксимации для твердых тел, построенных с помощью операций выдавливания.

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

|
<center>DOUBLE</center>

|-
|
<center>75</center>

|
Угол гладкого сопряжения.

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

|
<center>DOUBLE</center>

|-
|
<center>76</center>

|
Общий графический коэффициент

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

|
<center>DOUBLE</center>

|-
|
<center>77</center>

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

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

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

<center>
{| class="prettytable"
|-
|[[Файл:sysvar20.png|thumb|center|рис. 1]]
|[[Файл:sysvar27.png|thumb|center|рис. 2]]
|[[Файл:sysvar30.png|thumb|center|рис. 3]] 
|-
|[[Файл:sysvar73.png|thumb|center|рис. 4]]
|[[Файл:sysvar76.png|thumb|center|рис. 5]]
|}
</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==
[[Файл:infinitepb.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 нужен при выполнении длительных процессов, чтобы показать, что выполняется работа и система не "зависла". Показывается в центре экрана поверх экрана задачи (см. рисунок).
----
{{Макро}}