Функція int ()

num_expr - чисельне вираження.

Величина, отримана в результаті:

Ціле число. Величина типу Integer.

Функція відсікає дробову частину від дійсного числа, отриманого в результаті обчислення виразу num_expr. і повертає цілу частину.

Функція Int () схожа на функцію Fix (). але не ідентична. Функції відрізняються способом видалення дробової частини від'ємного числа. Коли num_expr представляє негативне число, функція Fix () повертає найближче ціле, яка дорівнює або перевищує оригіналу. наприклад:

повертає значення L2. У разі функції Int () результатом буде найближчим ціле, менше або рівне оригіналу. наприклад:

повертає значення L3.

Dim whole As Integer whole = Int (5.999)

'Whole зараз має значення 5. whole = Int (7.2)

'Whole зараз має значення 8.

Обчислює точки перетинання об'єктів і повертає полілінію, що має вузли в точках перетину.

IntersectNodes (object1. Object2. Points_to_include)

object1 і object2 - об'єктні вираження, які можуть представляти об'єкти будь-якого типу, крім точкового і текстового;

points_to_include - один з таких кодів:

INCL_CROSSINGS - функція повертає вузли, в яких сегменти обох об'єктів перетинаються;

INCL_COMMON - функція повертає вузли відрізків, на які накладаються сегменти обох об'єктів;

INCL_ALL - функція повертає вузли, в яких сегменти перетинаються і накладиваютс я.

Величина, отримана в результаті:

Полилиния. Величина типу Object.

Функція IntersectNodes () повертає об'єкт типу "полілінія", вузли якого лежать в точках перетину об'єктів object1 і object2.

Функція IsPenWidthPixels ()

Функція IsPenWidthPixels визначає в яких величинах вимірюється ширина лінії L в пікселах або в пунктах.

penwidth L це мале ціле, що визначає ширину лінії.

Істинно, якщо ширина лінії задана в пікселах, помилково, якщо ширина задана в пунктах.

Функція IsPenWidthPixels () возвраніт справжнє значення, якщо ширина лінії задана в пікселах. Ширина лінії може бути визначена використанням функції StylAttr ().

Dim CurPen As Pen

Dim Width As Integer

Dim PointSize As Float

Width = StyleAttr (CurPen, PEN_WIDTH)

If Not IsPenWidthPixels (Width) Then

Схожі статті