[Borikv]

Помогите, пожалуйста, найти темы на форуме, где обсуждались переделки Lisp- файлов, созданных в версиях до 2000. Конвертация и т.п

[Profan]

По-моему, никакой конвертации не требуется. У меня полно Lisp-файлов, написанных еще для AutoCAD 13 и 14 и они нормально работают в 2009.
Другое дело, если программы писались в DOS, тогда надо сконвертировать тексты из DOS 866 в ANSI 1251.

[Alan]

Сообщение от Borikv Помогите, пожалуйста, найти темы на форуме, где обсуждались переделки Lisp- файлов, созданных в версиях до 2000. Конвертация и т.п

Чаще возникала проблема работы в локализованной версии. Например, в русской.
В остальном полностью согласен с Profan
Вы опубликуйте здесь какой-то небольшой текст (или кусок оттуда, чтобы не раскрыть секретов ), особенно там где есть COMMAND и всё определиться довольно быстро.

[Borikv]

Не всё так просто. Некоторые команды и переменные аннулированы и не поддерживаются новыми версиями.
Для примера небольшая программка


(defun C:LW (/ POLY S P X Y $XY PT H)
;Write LENGTH x WIDTH of Polyline
(setq *ERROR* STOP)
(princ "\nSelect Polylines for Length x Width: ")
(setq SS (ssget)
N 0
L (sslength SS)
)
(initget 1)
(setvar "cmdecho" 0)
(if (tblsearch "LAYER" "TXT")
(command "layer" "s" "txt" "")
(command "layer" "m" "txt" "c" "14" "txt" "")
)
(if (not (tblsearch "STYLE" "S"))
(command "style" "S" "txt" "" "1" "" "" "" "")
)
(command "text" "style" "S" command)
(setq H (getvar "LTSCALE"))
(repeat L
(setq NAME (ssname SS N)
P1 (cdr (assoc 10 (entget (entnext NAME))))
P2 (cdr (assoc 10 (entget (entnext (entnext (entnext NAME))))))
POLY (list (ssname SS N) P1)
)
(command "area" "e" POLY)
(setq PT (MIDPT P1 P2)
A (getvar "AREA")
P (getvar "PERIMETER")
X (/ ( + P (sqrt (- (* P P) (* 16 A)))) 400)
Y (/ ( - P (sqrt (- (* P P) (* 16 A)))) 400)
$XY (strcat (rtos X 2 2) " x " (rtos Y 2 2))
)
(command "text" "c" PT H "0" $XY)
(setq N (1+ N))
)
(setvar "cmdecho" 1)
(princ)
)
;
(defun MIDPT (PT1 PT2)
(mapcar '(lambda (x y) (/ (+ x y) 2)) PT1 PT2)
)
;
(defun STOP (msg)
(cond
((or (eq msg "console break")
(eq msg "Function cancelled")
(eq msg "quit / exit abort")
)
(terpri)
)
(T
(princ "error: ")
(princ msg)
)
)
(setq *error* nil)
(PrinC)
)
;
(C:LW)


[Makswell]

От версии к версии могет меняться логика работы некоторых команд Автокада, а также их опций. Поэтому, ИМХО, в большинстве случаев вся адаптация сводится к корректировке конструкций Command. А это делается весьма быстро.

Добавлено:
Пока это писал, код уже выложили. Будем смотреть...

[Makswell]

По коду:
Borikv, если у тебя Автокад русский, то всё ясно с первого взгляда...

[Profan]

Ну, переделку кода нельзя назвать конвертацией.

[Profan]

Помню, лиспы для AutoCAD 10 рус я писал с написанием команд на русском языке. Потом пришлось переделывать на английский. А вот когда появился подчерк "_" как-то и не помню уже.

[Borikv]

Автокад английский

[ShaggyDoc]

"Небольшая программка для примера" написана некорректно и для Автокада любой ранней версии. Хотя бы (command "text" "c" PT H "0" $XY).

Она просто обязана не работать, а работать может только случайно. При сочетании положения небесных тел. Дело не в конвертировании. Правильные программы работают во всех версиях. Это обратной совместимости может не быть.

Но, если непременно хочется испытать процесс, начиная с 2000 поставлялась специальная утилита для конвертирования LISP. Суть её работы заключалась в простановке дополнительных комментарияев в подозрительных местах. Толку от этого мало было, сейчас, наверное и нет такой.

[KAI]

Сообщение от Makswell От версии к версии могет меняться логика работы некоторых команд Автокада, а также их опций. Поэтому, ИМХО, в большинстве случаев вся адаптация сводится к корректировке конструкций Command. А это делается весьма быстро.

Не нужно забывать и о системных переменных, хоть и весьма редко, но они тоже меняются.

Правильные программы работают во всех версиях.

Это точно! Особенно если программы написаны на языке Lisp. Если мне не изменяет память, для программ, написанным в Acad10, пришлось изменить всего ничего (помню команду Insert, и еще какую-то переменную, забыл какую).

[Profan]

Конечно, если вы писали программ для буржуев (на английском языке).

[ShaggyDoc]

Сообщение от Profan Конечно, если вы писали программ для буржуев (на английском языке).

Он писал программы для мальчишей-кибальчишей, но писал правильно. Специальные варианты программ, с использованием именно русских имен команд в функции command надо было делать только в Автокад-10. Там были два разных ядра - в аглийской и локализованной версии. Начиная с R12 следует использовать "родное" имя команды (английское) с префиксом "_". То же относится к опциям команд.

Грешить на AutoCAD можно при использовании пиратски "русифицированных" версий, когда уроды, занимающиеся русификацией правили dll. При этом, были случаи, когда русифицировали и опции SSGET. Вот это делало Автокад непригодным для программирования.

Напомню самые распространённые "детские" ошибки, при которых кажется, что "виноват Автокад":

1. Неотключение объектной привязки при рисовании через command. Программа может "всегда работала", но перестанет, если у какого-то пользователя включена постоянная привязка.

2. Использование постоянного количества ответов при рисвовании текста. Если программа была заточена на текст с фиксированной высотой (или наоборот), она не будет работать при других параметрах текущего стиля.

3. Использование русских имен команд и опций.

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

[Profan]

Так речь и шла именно об AutoCAD 10. Как раз у нас использовался русский вариант и программировать приходилось на русском языке. Но я имел в виду не только названия команд, но и запросы и сообщения в коде. Видимо, до сих пор еще существуют индивиды, которые предпочитают в лиспах все писать на английском языке, черт бы их побрал. Крутые, блин.

[KAI]

Сообщение от Profan Видимо, до сих пор еще существуют индивиды, которые предпочитают в лиспах все писать на английском языке, черт бы их побрал. Крутые, блин.

А вы знаете, существуют! И даже стараются, чтобы английский не мешал русскому (конечно Великому и Mогучему). Слава богу Acad предусмотрел эту ситуацию (см. в командах и опциях "_.").

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

Мне кажется, имелись в виду выводимые сообщения (в ком.строку и в диалоги)