[Nica_019]

Нужно написать параметаризацию детали. При попытки загрузить код программы в autocad выдает ошибку: неправильно сформированный список на входе. Где ошибка, подскажите, пожалуйста!

Код:

[Выделить все]

( DEFUN show ( x y L / tmp lst R1 d1 R2 R3 R4 R5)
 ; x, y, L - параметры
 ; tmp, lst - локальные переменные
 
; зададим параметры
(SETQ R1 (* 0.15 L))
(SETQ d1 (* 0.45 L))
(SETQ R2 (* 0.35 L))
(SETQ R3 (* 0.25 L))
(SETQ R4 (* 0.11 L))
(SETQ R5 (* 2 R4))

; координата x точки p2 записывается в переменную tmp
 ( SETQ tmp x )
 ; в переменную lst записывается список координат
 ; точки p2
 ( SETQ lst ( LIST tmp ( + y ( - ( / L 2 ) R5 ) ) ) )
 ; координата x точки p3 записывается в переменную tmp
 ( SETQ tmp x )
 ; в переменную tmp записывается список координат
 ; точки p3
 ( SETQ tmp ( LIST tmp ( + y ( - ( / L 2 ) R4 ) ) ) )
 ; в список lst добавляется точка p3
 ( SETQ lst ( LIST lst tmp ) )

 ( SETQ tmp x )
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p4
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( - x R4 )
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p5
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( - x R5)
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p6
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) R2 ) ) )
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p7
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) ( / d1 2 ) ) ) )
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p8
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) R1 ) ) )
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p9
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( / L 2 ) )
 ( SETQ tmp ( LIST tmp ( + y ( / L 2 ) ) ) )
 ; в список lst добавляется точка p10
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( / L 2 ) )
 ( SETQ tmp ( LIST tmp ( + y ( - ( / L 2 ) R1 ) ) ) )
 ; в список lst добавляется точка p11
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) ( / d1 2 ) ) ) )
 ( SETQ tmp ( LIST tmp ( + y ( - ( / L 2 ) ( / d1 2 ) ) ) ) )
 ; в список lst добавляется точка p12
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) R3 ) ) )
 ( SETQ tmp ( LIST tmp ( + y ( - ( / L 2 ) ( / d1 2 ) ) ) ) )
 ; в список lst добавляется точка p13
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( / L 2 ) )
 ( SETQ tmp ( LIST tmp ( + y ( - ( / L 2 ) ( / d1 2 ) ) ) ) )
 ; в список lst добавляется точка p14
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) R5 ) ) )
 ( SETQ tmp ( LIST tmp ( + y ( - ( / L 2 ) R5 ) ) ) )
 ; в список lst добавляется точка p15
 ( SETQ lst ( LIST lst tmp ) )

( SETQ tmp ( + x ( - ( / L 2 ) R3 ) ) )
 ( SETQ tmp ( LIST tmp y ) )
 ; в список lst добавляется точка p16
 ( SETQ lst ( LIST lst tmp ) )

); конец функции


( COMMAND "ПЛИНИЯ"
 ( NTH 0 lst ) ; p2
 ( LIST x y ) ; точка p1
 ( NTH 14 lst ) ; точка p16
 ( NTH 11 lst ) ; p13
  "" ) ; прерывание команды "ПЛИНИЯ"

( COMMAND "ЗЕРКАЛО"
 ( CAR lst ) ; выбрали объект, указав точку p2
 "" ; прервали выбор объектов
 ( NTH 4 lst ) ; первая точка осевой линии  
 ( NTH 8 lst ) ; вторая точка осевой линии
  "Н" ) ; старые объекты не удалять
 
( COMMAND "ПОКАЖИ" "ВСЕ" )
); конец функции

( DEFUN getdim ( / L )
; ввод длины 
; возвращаемый список: ( длина )
( SETQ L ( GETREAL "\nВведите длину : " ) )
( LIST L ) ; возвращаемое значение
) ; конец функции getdim

( DEFUN C:main ( / L x y )
 
  ( SETQ L ( getdim ) x 10 y 10 )
  ( show x y ( CAR L ) )
  ( PRIN1 )
)

[gomer]

Код:

[Выделить все]

; в список lst добавляется точка p13
( SETQ lst ( LIST append lst  (list tmp ) ) )

( SETQ tmp ( + x ( / L 2 ) ))<-- скобку забыл :)

Для объединения списков есть функция append, а не list
И выше... Акад какой? Мрак короче...

[Дима_]

Сообщение от gomer Для объединения списков есть функция append, а не list

добавлю - есть еще и "первообразующая" функция cons

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

Ошибка

Сообщение от Nica_019 неправильно сформированный список на входе

как правило, означает несоответствие открывающих и закрывающих скобок.

[Li6-D]

Сообщение от Кулик Алексей aka kpblc Ошибка как правило, означает несоответствие открывающих и закрывающих скобок.

Так и есть - не хватает закрывающихся скобок в 31,36,56,61,76 строках, может и еще где...

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

Li6-D, мне как-то сейчас некогда построчно проверять код. И вникать в то, что он должен делать - тоже...

[Li6-D]

Алексей, я не хотел, чтобы кто-нибудь считал скобки в проблемном коде, кроме самого автора. Мое мнение такое, что эту несложную работу должен делать только автор до публикации кода на форуме. Даже если автор - новичок. Может принять за правило не рассматривать код, в котором баланс скобок и кавычек не соблюдается?

[Павел Котелевец]

У меня это ошибка означала символ кавычек (") в читаемой строке.
если задать
(setq xx "f\"5"); допустим, если строка читается с текстового файла, то символ кавычек " заменяется на \"

то
(read (strcat "(" xx ")"))
вернёт такую же ошибку - потому что в списке кавычек быть должно не ^_^

[gomer]

Сообщение от Павел Котелевец У меня это ошибка означала символ кавычек (") в читаемой строке. если задать (setq xx "f\"5"); допустим, если строка читается с текстового файла, то символ кавычек " заменяется на \" то (read (strcat "(" xx ")")) вернёт такую же ошибку - потому что в списке кавычек быть должно не ^_^

Попробуйте переосмыслить концепцию хранения данных в текстовом файле и такие глупости у вас перестанут возникать...

[Павел Котелевец]

Попробуйте переосмыслить концепцию передачи данных съёмки тахеометра Nikon TRIMBLE M3 3",5" в автокад и тогда глупости перестанут возникать у всех геодезистов.

Кроме того, моё сообщение - пока что - единственное по сабжу

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

Сообщение от Павел Котелевец Кроме того, моё сообщение - пока что - единственное по сабжу

Нда? Павел Котелевец, ты ничего не путаешь? Тему-то посмотри с самого начала...

[Павел Котелевец]

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

Потому что я не нашёл в данном треде ни одного поста, объясняющего прямую причину этой ошибки, или расписывающего ситуации её возможного появления ^^

[Do$]

Сообщение от Павел Котелевец Потому что я не нашёл в данном треде ни одного поста, объясняющего прямую причину этой ошибки, или расписывающего ситуации её возможного появления ^^

Вото оно как, оказывается...

Сообщение от Кулик Алексей aka kpblc Ошибка как правило, означает несоответствие открывающих и закрывающих скобок.

[Павел Котелевец]

У человека рушится дом. Он спросил, что у него с фундаментом.
Десять человек сказали "у тебя чтото с фундаментом"
Один сказал "Скорее всего, изза просадки фундаментов вследствии эрозии грунтов".

Человек не спрашивал почему не работает его код. Он спросил

Сообщение от Nica_019 При попытки загрузить код программы в autocad выдает ошибку: неправильно сформированный список на входе. Где ошибка

Верно?

Тоесть люди, упомянувшие несоответствие скобок указали её как ошибку. ^^
Пришлось продемонстрировать, что скобки к ошибке отношение имеют весьма посредственное...

И ещё - такой ошибки как Незакрытая Скобка - Unmatching Parenthesis официально нет.
Она не входит в список 85 Error Codes, обозначеных в автолиспе, поскольку код с незакрытыми скобками просто не считается полноценным.
Поэтому, ошибку может вызвать неправильная простановка, а не "несоответствие открывающих и закрывающих скобок."

[Do$]

Сообщение от Павел Котелевец Поэтому, ошибку может вызвать неправильная простановка, а не "несоответствие открывающих и закрывающих скобок."

Что за неправильная простановка? Что за бред вообще?

[Павел Котелевец]

(setq k2 "_abcd" k3 (strlen k2))
(if (< k3 3)(setq k3 0)(setq k3 (/ (ascii (substr k2 3 1)) 100.0))) ;правильная простановка возвращает 0.98
(if (< k3 3)(setq k3 0)(setq k3 (/ (ascii (substr k2 3 1))) 100.0)) ;неправильная простановка парных скобок вызывает синтакс. ошибку
(if (< k3 3)(setq k3 0)(setq k3 (/ (ascii (substr k2 3 1) 100.0)) ;неполноценный, свободноинтерпретируемый код (несоответствие открывающих и закрывающих скобок), который не вызывает ошибок не загружаясь до конца. Как детектив без развязки.

Люди... это же азы

Кстати, повторюсь - вы в топе гуглопоиска.
Соостветственно, каждый, кто будет искать "неправильно сформированный список на входе" попадёт сюда.
Предлагаю прекратить оффтоп и посвятить тред входящим спискам =)

[Do$]

Сообщение от Павел Котелевец (if (< k3 3)(setq k3 0)(setq k3 (/ (ascii (substr k2 3 1) 100.0)) ;неполноценный, свободноинтерпретируемый код (несоответствие открывающих и закрывающих скобок), который не вызывает ошибок не загружаясь до конца

Вот это вот сохраняем в файл .lsp и загружаем в автокад. Какая ошибка выскакивает?
Вот именно, что это азы - несоответствие скобок вызывает ошибку "ошибка: неправильно сформированный список на входе", в английской версии "error: malformed list on input".

[Павел Котелевец]

Сообщение от Do$ Вот это вот сохраняем в файл .lsp

Теперь это годится в протокол Резюмирую:

• "Ошибка: неправильно сформированный список на входе" ("error: malformed list on input") появляется если загрузить неполноценный лисп-код через *.lsp файл.
  Вставка кода в комстроку ошибку не даёт.
• Также возможны частные случаи возникновения ошибки при формировании списков из текстов с символом \"

^_^

[Do$]

Сообщение от Павел Котелевец Ошибка появляется если сохранить неполноценный лисп-код в файл и загрузить. Вставка кода в комстроку ошибку не даёт.

Ну а какой смысл в коде, если его вручную забивают в комстроку?
Ошибки со скобками легко отлавливаются еще в процессе написания кода во встроенном редакторе VLIDE.
Для гуглпоиска - варианты ошибок при лишней открывающей и лишней закрывающей скобке (английская версия):

Код:

[Выделить все]

(alert "Test")) ; error: extra right paren on input
((alert "Test") ; error: malformed list on input

[Павел Котелевец]

Сообщение от Do$ Ну а какой смысл в коде, если его вручную забивают в комстроку?

Эээ... зачем вручную?

• Выделить код
• Ctrl+C
• Перейти в комстроку автокада
• Ctrl+V

Акад недовольно проворчит:
((((_>

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

Для справки: в командную строку невозможно ввести команду (она же - код) длиной более 255 символов, насколько я помню. По крайней мере пару раз на такие грабли я наступал.

[Li6-D]

Ясно дело, что если при загрузке кода в командную строку были выданы сообщения: ((_>, ("_> или
; ошибка: лишняя закрывающая скобка на входе,
код не сбалансирован.
Сам так иногда проверяю, не заботясь о вычислениях, которые надо выполнить перед выполнением подозреваемого куска кода.
Это метод, правда, не всегда работает. В несбалансированном коде прежде, чем будут проверены скобки
могут вылезти и другие ошибки, например:
Команда: (nofun)))
; ошибка: no function definition: NOFUN
Команда: (defun fun () (1+ 2))(fun 2)))
; ошибка: слишком много аргументов
Команда: (if (< k3 3)(setq k3 0)(setq k3 (/ (ascii (substr k2 3 1))) 100.0)))
; ошибка: синтаксическая ошибка
Последняя ошибка вылезла из-за того, что из-за неправильной простановки скобок у setq получилось 3 аргумента.
Чтобы подавить вредное влияние вычислений можно в командной строке ввести "(quote(", вставить проверяемый код и добавить "))". Или ничего не добавлять, это дело вкуса.
А в командную строку можно копипастить достаточно большой код, при этом каждая строчка кода должна содержать не больше 256 символов. Код автора темы в сумме содержит больше символов, но полностью грузится, выдавая нехватку 4 закрывающихся скобок. Добавьте туда длинную строку и при вставке кода произойдет ее обрезка (в отличие от загрузки функцией load).