To
byranЕсли Вы интересуетесь операторами LISP'а, то я могу прокомментировать
приведённый листинг по-русски, но боюсь, что Вам этого будет маловато
(и к тому же подобный ликбез
здесь может быть принят за флейм
)
(setq stars ;
setq объявление переменной [stars];
(list ; эта переменная есть список
list 11-ти подсписков,
; которые могут состоять как из атомов — " SUN" "yellow",
; так и из списков — '( 0.00 0.00 0.00)
(list " SUN" "yellow" '( 0.00 0.00 0.00))
(list " Proxima" "red" '( -1.57 -1.16 -3.74))
(list " Barnard" "red" '( -0.20 -5.90 0.40))
(list " Wolf_359" "red" '( -7.40 2.20 1.00))
(list " Sirius" "white" '( -1.60 8.10 -2.50))
(list " E_Eridan" "red" '( 6.46 8.46 -1.81))
(list " 61_Cygnus" "red" '( 6.20 -6.00 6.80))
(list " T_Cetus" "yellow" '( 10.10 4.80 -3.30))
(list " Procyon" "yellow" '( -4.70 10.30 1.00))
(list " Captain" "red" '( 1.90 8.70 8.90))
(list " Maanen" "white" '( 13.30 2.70 1.20))
)
) ; все скобки в LISP-выражении должны быть сбалансированы
(foreach attr stars ; начало цикла для каждого
foreach ; элемента [attr] списка [stars]
; при каждой итерации на место [attr] один за другим будут
; подставляться подсписки, составляющие список [stars]
(command "_sphere" (nth 2 attr) "0.3") ; команда "сфера", тройка координат центра
; [2-й элемент подсписка], радиус
(command "change" "l" "" "p" "c" (nth 1 attr) "") ; команда "изменить", последний введенный примитив,
; завершение выбора, свойства, цвет, 1-й элем. подсписка,
; завершение команды
(command "line" "0,0,0" (nth 2 attr) "") ; команда "линия", начало, конец [2-й элем. подсписка],
; завершение команды
(command "text" (nth 2 attr) "0.5" "0" (nth 0 attr)) ; команда "текст", точка вставки [2-й элем. подсп.],
; высота, угол отрисовки, сам текст [0-й элем. подсп.]
(command "change" "l" "" "p" "c" (nth 1 attr) ""); команда "изменить", последний введенный примитив,
; завершение выбора, свойства, цвет, 1-й элем. подсписка,
; завершение команды
)
Сохраняете файл "ххх.lsp", в командную строку AutoCad вводите выражение
(load "xxx"), enter и ви'дите картинку, что приложена (снова у публики прошу
прощения за повторение, но просят же, а мне не жалко
).
AutoCad — это целая вселенная, и требует постепенного и вдумчивого освоения,
но Он всесилен! Походите по Инету, имеются целые сайты Его друзей, которые
Его любят за мощь и изящество, и не зря
!
P.S. site
www.babylon5.incoma.ru на самом деле сдох, но Google-то жив.
