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

UptoLike

ВУЗ: 

ОмГТУ | Омск

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

Рубрика: 

104
Ответы к задачам главы 7
• Задача 7.1
− (setq i 0 PN1 (list) PK1 (list)) ; создание нулевых списков
(IF (/= LNL nil)
(while (< i (sslength LNL))
(setq LL0 (entget(ssname LNL i))
LLN (cdr (reverse (cdr (reverse (assoc 10 LL0)))))
LLK (cdr (reverse (cdr (reverse (assoc 11 LL0)))))
PN1 (cons LLN PN0) PK1 (cons LLK PK0) i (+ i 1)
)
)
) −
• Задача 7.2
− (setq N2 (ssget "W" '(200 150) '(120 130))) − 
                       Ответы к задачам главы 7
• Задача 7.1
− (setq i 0 PN1 (list) PK1 (list)) ; создание нулевых списков
 (IF (/= LNL nil)
   (while (< i (sslength LNL))
     (setq LL0 (entget(ssname LNL i))
         LLN (cdr (reverse (cdr (reverse (assoc 10 LL0)))))
         LLK (cdr (reverse (cdr (reverse (assoc 11 LL0)))))
         PN1 (cons LLN PN0) PK1 (cons LLK PK0) i (+ i 1)
     )
   )
 )−
• Задача 7.2
     − (setq N2 (ssget "W" '(200 150) '(120 130))) −




                                 104

Страницы