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

     После формирования изображения тестовой задачи студент выпол-
няет графические построения на заданном рисунке зоны №3. Графиче-
ские построения выполняются с использованием панелей инструментов
системы САПР ACAD. При этом на рабочем столе размещаются только
необходимые панели и необходимые изображения пиктограмм панелей
(см. рис. 7.2). После окончания построений пользователь с помощью па-
дающего меню выбирает процедуру проверки текущей проверочной за-
дачи.
     Четвертый блок программ тестирующей системы содержит набор
файлов, позволяющих осуществлять проверку правильности построений
студентов. Каждый отдельный файл (prov-t1-z1.lsp, prov-t1-z2.lsp, … )
соответствует той или иной тестовой задаче (tema1-zad1.lsp, tema1-
zad2.lsp, …). При выполнении процедуры проверки тестовой задачи
программа вначале создает наборы из отдельных примитивов, построен-
ных студентом. Далее происходит сортировка списка наборов примитивов
по различно заданным признакам. При этом используются функции для
обработки данных о примитивах (см. гл. 4).
    В пятом блоке результаты тестирования заносятся в базу данных (в
файлы rezul-А11. txt, …).

 7.2. Методика формирования изображений исходных данных
  задач с помощью текстовых программ на языке АВТОЛИСП

    Программа, осуществляющая формирование изображения текста и
рис. 7.2 исходных данных проверочной задачи, имеет следующий вид:

;======================= начало – tema1-zad1 =========================
; Программа предназначена для формирования изображения текста и рисунка
;исходных данных задачи tema1-zad1
(DEFUN tema1-zad1 ()
; Загрузка вспомогательных программ
  (load "D:/Testing/Help-programs.lsp")
  (sapka) ; команда загрузки среды черчения
  (command "Limits" "0,0" "295,245" "GRID" "ON" "GRID" "10" "SNAP" "ON" "SNAP"
"TYPE" "GRID" "SNAP" "10")
; Блок задания координат точек исходных данных (см. рис. 7.3)
  (Sl0) (Ramka) ; команда загрузки чертежа прототипа рабочего поля задачи
  (setq P_L (LIST 110 93)        P_L1 (LIST 110 207)    P_C (POLAR P_L (* PI 1.5) 3)
       P_C1 (POLAR P_L1 (/ PI 2) 3)
       P_T (LIST 95.5 87.5)       P_T1 (LIST 95.5 209)   P_T2 (POLAR P_T 0 6)
       P_T3 (POLAR P_T1 0 6) P_T4 (LIST 362 280)         P_T5 (LIST 160 280)


                                        96