Параметрические изображения объектов проектирования на основе использования языка АВТОЛИСП в среде АВТОКАД. Притыкин Ф.Н. - 52 стр.

UptoLike

ВУЗ: 

ОмГТУ | Омск

Составители: 

Рубрика: 

52
Рис. 4.1. Создание набора примитивов с использованием рамки
Пример: пусть создан набор duga, состоящий из всех дуг окружно-
стей, имеющихся в рисунке, а их число равно 5. Применяя функцию
(sslength duga), мы получим результат 5.
• (ssname <набор> <индекс>) устанавливает в <наборе> по задан-
ному <индексу> имя примитива и возвращает его. Причем, если устанав-
ливается имя примитива с номером, большим 32767, то <индекс> должен
записываться как действительное число. Первому примитиву соответству-
ет индекс 0.
Пример: пусть создан набор nabor, состоящий из всех примитивов,
имеющихся на рис. 4.1 и расположенных в некоторой рамке:
(setq nabor (ssget "Р" pr1 pr2)), rдe pr1 и pr2 − координаты нижнего ле-
вого и верхнего правого углов рамки соответственно. Тогда
(setq nb1 (ssname nabor 0)) − возвращает имя первого примитива, яв-
ляющегося окружностью, например, в виде (60000048);
(setq nb2 (ssname nabor 1) − возвращает имя второго примитива, яв-
ляющегося текстом, например, в виде (60000030). 
       Рис. 4.1. Создание набора примитивов с использованием рамки

    Пример: пусть создан набор duga, состоящий из всех дуг окружно-
стей, имеющихся в рисунке, а их число равно 5. Применяя функцию
(sslength duga), мы получим результат 5.
    • (ssname <набор> <индекс>) устанавливает в <наборе> по задан-
ному <индексу> имя примитива и возвращает его. Причем, если устанав-
ливается имя примитива с номером, большим 32767, то <индекс> должен
записываться как действительное число. Первому примитиву соответству-
ет индекс 0.
    Пример: пусть создан набор nabor, состоящий из всех примитивов,
имеющихся на рис. 4.1 и расположенных в некоторой рамке:
(setq nabor (ssget "Р" pr1 pr2)), rдe pr1 и pr2 − координаты нижнего ле-
вого и верхнего правого углов рамки соответственно. Тогда
(setq nb1 (ssname nabor 0)) − возвращает имя первого примитива, яв-
ляющегося окружностью, например, в виде (60000048);
(setq nb2 (ssname nabor 1) − возвращает имя второго примитива, яв-
ляющегося текстом, например, в виде (60000030).


                                   52

Страницы