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

           LLK (cdr (reverse (cdr (reverse (assoc 11 LL0)))))
          PN0 (cons LLN PN0) PK0 (cons LLK PK0) i (+ i 1)
      )
  )
  )
  (setq i 0 PC0 (list) PC0_R (list))
; Цикл, предназначенный для проверки правильности построений фронтальной и
; горизонтальной проекции прямых А2В2 и А1В1
  (IF (/= LL nil)
    (while (< i (sslength LL))
      (setq PN (nth i PN0) PK (nth i PK0))
; Определение прямой, проходящей через точку А2 и являющейся горизонталью
  (IF (cond
           ((and (equal PN A2) (= (nth 1 PK) (nth 1 A2)))
                   (setq FRON (cons 1 FRON) PR_FRON_PN PN PR_FRON_PK PK))
           ((and (equal PK A2) (= (nth 1 PN) (nth 1 A2)))
                   (setq FRON (cons 1 FRON) PR_FRON_PN PN PR_FRON_PK PK))
         )
        (setq FRON (cons 0 FRON))
       )
; Определение прямой, проходящей через точку А1 и имеющей наклон 45° к
; фронтальной плоскости проекций
   (IF (cond
           ((and (equal PN A1) (equal (ANGLE PN PK) 5.49779 0.01))
                    (setq GOR (cons 1 GOR) PR_GOR_PN PN PR_GOR_PK PK))
           ((and (equal PK A1) (equal (ANGLE PN PK) 2.35619 0.01))
                   (setq GOR (cons 1 GOR) PR_GOR_PN PN PR_GOR_PK PK))
         )
        (setq GOR (cons 0 GOR))
       )
    (setq i (+ i 1))
    )
  ) ;======================== конец – prov-t1-z1 ========================


                    7.4. Вопросы и задачи для самопроверки

    1. Какая функция языка АВТОЛИСП используется для создания на-
боров примитивов из прямых при оценке правильности графических по-
строений?
    2. Какие функции необходимо использовать при создании списков,
задающих координаты начальных и конечных точек прямых?


                                             99