[BBLainer]

В принципе делала на примере рабочего кода.
Но при загрузке выдает ошибку
Плохо сформированный список на входе.
Данные берутся из файла, путь в коде присан, файл есть.
Почему не работает.

[Do$]

Проверяй все скобки в коде, где-то не хватает.

[Дима_]

не закрыты progn, while и ;;;R2 размер длина

[Кулик Алексей aka kpblc]

В коде не хватает скобок. Похоже, ты просто не все скопировал...

[gomer]

Команда vlide и будет тебе счастье) Если конечно Автокад, иначе Notepad++ тоже скобки не забудешь...

[Кулик Алексей aka kpblc]

Notepad++ поддерживает lisp По крайней мере в отношении скобок

[BBLainer]

Проверила, нашла ошибки в скобках. Но у меня проблема в том что чертит только один круг. в основании. Вообще-то надо бы вместо кругов квадраты (но мне бы хоть с кругами сделать). Так вот пробывала и через цикл while чертить до тех пор не достигнет оступа по ширине основания. И пробывала в массиве. Не получается

[Дима_]

BBLainer давай попробуем по другому - понять, что тебе нужно по программе которая этого не делает - достаточно проблематично - ты опиши подробно задачу - включи все необходимые данные - я так вижу она у тебя не сильно большая, а добрые люди с этого форума напишут тебе "правильную" программу так как это надо делать на лиспе, а если тебе не хватит сил в ней разобраться, а интерес будет - то и подскажут что к чему.

[BBLainer]

Есть конкретное задание: для наглядности приложен файл (преподаватель начертил от руки).
Нужно сделать чертеж с рамкой и штампом A3 формата решето с квадратными отверстиями. Отверстия (судя по рисунку) будут чертиться в цикле. Исходя из этого: размеры будут считываться из файла *.txt
ширина основания
длина основания
сторона отверстия
расстояние между центрами отверстий.
Я так думаю что отступы между стороной основания и стороной отв. можно сделать по умолчанию 5мм.
Вторым что мне нужно будет сделать это интерфейс на делфике. Где будут заводиться размеры и чертеж дожен чертиться на нажатию на кнопку. сразу с рамкой и теми размерами которыми ввел пользователь.
Пример такого курсового приложен.

[Дима_]

А тебе нужно чтоб работало, или чтоб как учили? Если первый вариант - возможно понять сразу будет не просто, если второй то описывай конкретный пункт - например не получается там-то сделать то-то. В любом случае интерфейс за тебя вряд-ли кто придумывать будет - про ширину основания, длину основания и сторону отверстия ничерта не понял - где они на твоем рисунке? И какой формат текстового файла (csv?).

[Victor]

Судя по её примеру файл .txt
Приятнее, когда начинает работать сделаное своими руками.
BBlainer зайди в редактор лиспа и выполни две строчки
(command "_circle" '(0 0) 5 )
(command "_-ARRAY" (entlast) "" "_R" 2 4 20 20)
И если тут всё понятно, остальное ещё проще.

[Кулик Алексей aka kpblc]

Victor, про привязки забыл...

[Victor]

Спросонья забыл. Но это даже хорошо. Она бы поняла, что чего-то не хватает.

[Do$]

Сообщение от BBLainer Пример такого курсового приложен.

Offtop:
Это уже готовый курсач? За такое поставили зачет??

[BBLainer]

Интерфейс буду делать сама. Вот именно что делаю с нуля. А что за привязки. Он всё равно чертит одну окружность.

[Victor]

Может быть _zoom _all не хватает. Похоже надо готовую программу делать.

[BBLainer]

Люди добрые я уже не могу, ну помогите сделать код на лиспе. Это решето с квадратными дырками в страшных снах сниться...
Получается только отверстия круглые и то в один ряд , а нужно чтобы все основание заполнилось квадратными дырками. Если делать через array то зазоров нет между отверстиями. КАК.КАК?????

[Do$]

Круглые? Значит, такими ты их рисуешь. В один ряд? Значит, так задаешь. Зазоров нет между дырками? Значит, так задано в программе. Программа "сама" ничего не делает - только то, что в ней задано.
Тебе тут готовую программу написали вроде...

[BBLainer]

Ты думаешь я не знаю что я рисую, и что в программе задано.
Я пробывал и с окружностями и квадратами. Не надо делать из меня совсем уж дурака. Если вы уж такие умные, так попробуйте сами сделать этот код.
Я в принципе с лиспой разобрался, единственное что не получается это работа с циклами.
"Тебе тут готовую программу написали вроде..." я по этой теме выложил то что получилось с использованием этого кода. Причем что я его еще подравил иии Ну понятно значит никто не может существенно помочь. Только отдельные фразы, которые не пришьешь к программе.

[Do$]

Во вложенном архиве три файла:

• lsp файл с кодом
• txt файл с исходными данными
• dwg файл с получившимся чертежом

В lsp файле вместо C:\LISP\Development\Current нужно указать свою папку.
В txt структура такая:

• Длина заполняемого прямоугольника
• Ширина заполняемого прямоугольника
• Сторона квадрата "отверстия"
• Шаг сетки вдоль длины (шаг сетки по X)
• Шаг сетки вдоль ширины (шаг сетки по Y)
• Отступ от края заполняемого прямоугольника

Проверок на указанные данные никаких нет, только рисование - я видел в примере, что все проверки делаются в Delphi-диалоге.
Enjoy