Есть какая нибудь программа для перевода лисп программ

zebs · 08.03.2005, 20:01

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

vk · 08.03.2005, 20:46

А нафига оно надо то????...
Тут как то уже мелькало сообщение о программе которая сама сочиняет Лисп-программы в соответствии с "ценными указаниями"

)) И что? От этого программистов стало меньше или их производительность труда возрасла?

)))

Уж лучче ручками... Чтоб Лисп-программа заработала в русской версии АКАД, нужно пробежаться по коду и везде в функциях (command) и (vl-cmdf) проверить наличие "_." перед именем команды и "_" перед опцией.
Тоесть должно быть так

Код:

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

(vl-cmdf "_.break" pts "_f" ...

а не так

Код:

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

(vl-cmdf "break" pts "f"....

Что касается адаптации старых программ под новые версии - чаще всего не требуется, потому как все таки какая то совместимость есть. Однако, есть ньюансы! Например в каких то редчайших случаях функцию (defun) придется заменить на (defun-q).
Чаще может встретиться ситуация, когда команда в новой версии работает не так как в старой или упразднена... То же касается и системных переменных. Это только ручками править, разбирая по шагам алгоритм....

{Smirnoff} · 08.03.2005, 21:46

VK прав. После предварительного просмотра кода, запускаешь отладчик и смотришь на какой строке программа "вылетает". Обычно это не занимает много времени...

zebs · 08.03.2005, 22:06

знать бы все коды и переменные тогда быстро, а для простых пользователей как быть?

{Smirnoff} · 08.03.2005, 23:30

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

zebs · 09.03.2005, 01:04

мне нужна программа для рисования профиля металлопроката, по этой ссылке http://www.kulichki.com/cadhlp/old/c...adhlp40105.exe
есть то, что мне нужно, там программа прокат, но работает только на английской версии акада, а у меня 2005 rus. помогите.

vk · 09.03.2005, 08:53

Fantomas прав. Выкладывай на форум проблему. Укажи, какой именно файл из этого пакета не идет, на каком месте вылетает, как ругается... Пробежался по некотолым лиспам из этого пакета... мдя... там под русскую версию править да править... К сожалению, сам не могу протестировать, так как пользуюсь английской версией. Могу только подсказать где править....

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

{Smirnoff} · 09.03.2005, 10:16

При беглом просмотре я криминала в файле PROKAT.LSP не нашел. На английском AutoCAD 2005 все работает, русского к сожалению нет.

Извините конечно за вопрос, я просто не в курсе вашей квалификации. А на "путях поддержки" Tools>Options>Support File Search Path (незнаю как в русской версии называется) директория с программой прописана :?: Кроме *.LSP файла она использует еще *.DCL диалог и библиотеку слайдов, AutoCAD не сможет найти эти файлы если они не прописаны в путях поддержки.

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

Кулик Алексей aka kpblc · 09.03.2005, 10:28

Там где-то (глубоко не искал, но напрямую в prokat.lsp и prokat_old.lsp команды не увидел) вызывается "pline", соответственно в русском требуется "_pline", а по-хорошему - "_.pline".

Рашит · 09.03.2005, 10:51

Как то всё это дело ( кадхелп и довески) переводил под русский акад, если откопаю в анналах, размещу. Боюсь только, что затёр.

zebs · 09.03.2005, 11:03

найди пожалуйста очень нужно

{Smirnoff} · 09.03.2005, 12:53

>zebs

Ты все таки объясни, про какой файл идет речь. PROKAT.LSP или PROKAT_OLD.LSP :?:

vk · 09.03.2005, 13:30

И выложи текст сообщения об ошибке.

Цитата:

А на "путях поддержки" Tools>Options>Support File Search Path (незнаю как в русской версии называется) директория с программой прописана

Это обязательно надо ручками прописать!

zebs · 09.03.2005, 13:37

PROKAT.LSP

zebs · 09.03.2005, 13:39

PROKAT.LSP странно работает открывается диалоговое окно с программой и после выбора профиля ничего не работает

Кулик Алексей aka kpblc · 09.03.2005, 14:26

Все прописано. Текст ошибки на официально локализованной версии:

Код:

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

Неправильное ключевое слово

либо

Код:

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

Неизвестная команда "LINE".  Для вызова справки нажмите F1.

Ессно, вместо "LINE" могут быть и "ARC", и "PLINE" и т.д.
В общем, там весь код надо шерстить на предмет команд и установок переменных.
Проверялось на ADT 2005 Rus

zebs · 09.03.2005, 14:45

да я это тоже понял какраз я не знаю как переделать там много команд.

{Smirnoff} · 09.03.2005, 14:51

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

И еще. Я там встретил использование типа линии DASHED, не подскажешь ли она в русской версии называется также или название тоже русифицировано? Если да то скажи какое название нужно, потому как его тоже надо поменять, либо создать дополнительно тип линии с таким названием :!:

Кулик Алексей aka kpblc · 09.03.2005, 15:00

> Fantomas: Dashed (по крайней мере, в ADT Rus) нет, есть пунктир.
Может, имеет смысл просто приложить туда файл со своими типами линии, назвав их соответственно "Fantomas_Dashed", например?

{Smirnoff} · 09.03.2005, 17:45

Думаю что проще, скопировать ПУНКТИР в *.lin файле и там же сделать двойника DASHED.

Alan · 09.03.2005, 19:52

Эти праздники я проводил на работе, вот такие уж дела. И отвечал на письмо одного User"a c аналогичными вопросами по программе Procat. Дело в том, что я обычно работаю в русском Автокаде (даже лицензионном) и чужие программы проверяю на их работоспособность. Василий Кондрат мне присылал в своё время последнюю версию (конец 2000 года) своей программы и я её причёсывал под рашу. Этот вариант я 7.03.2005 отослал этому User"у и Г.Поспелову. Так что думаю Геннадий поменяет Procat у себя на сайте.

{Smirnoff} · 09.03.2005, 22:16

>zebs

Я исправил файлы. Воможна только проблема с типом линии DASHED. Только куда отсылать :?:

zebs · 09.03.2005, 22:23

отошли пожалуйста на [email protected]

{Smirnoff} · 10.03.2005, 00:14

Отослал. Если проблемы с DASHED, открой файлы в редакторе AutoLISP, там в меню Search есть одновременная замена одного текста на другой. Сообщи как работает.

zebs · 12.03.2005, 16:49

>Fantomas
я ничего не получил, отошли пожалуйста еще

zebs · 12.03.2005, 17:31

да я все нашел на сайте
http://www.kulichki.com/cadhlp/1-make/procat_ru.zip
но теперь не работают цвета

Неизвестная команда "COLOR". Для вызова справки нажмите F1.
Неизвестная команда "BYL". Для вызова справки нажмите F1.
Тип линий "dashed" не найден в acad.lin.
Используйте опцию "Загрузить" для загрузки его из другого файла.
Функция отменена
Задайте опцию [?/Создать/Загрузить/Установить]:

zebs · 12.03.2005, 17:33

А как научится самому создавать ARX преложения на каких сайтах почитать? дайте ссылочку

{Smirnoff} · 12.03.2005, 18:22

Отослал еще раз. "COLOR" и "BYL" там точно исправлены. C "DASHED" пользуйся рекомендацией в предыдущем постинге или сообщи мне название линии которая катит в русском КАДе. Тут говорили что "ПУНКТИР", но лучше уточни.

Насчет ARX. Хорошее знаие C++ +Объетной Модели AutoCAD+ Технический Английский + Куча Времени + Желание. Ссылки на русском: www.arxmaster.by.ru b и соответствующий раздел форума на www.autocad.ru Остальное на английском.

Если не получишь почту, сообщи. Мне пора менять адрес

Уже много раз убеждался что что многие письма не доходят ко мне и многие от меня :? :? :? Тут с один товарищь безрезультатно пытался три раза отослать мне письмо с безобидным аттачментом. На рабочий адрес прошло потом сразу, правда я стараюсь его меньше светить.

zebs · 12.03.2005, 22:37

>Fantomas
да теперь получил, по ссылке есть ошибки с цветом, твои lispы работают, как ты и говорил, кроме DASHED
в 2005 это
Штриховая

;;
;; Файл типов линий AutoCAD
;; Версия 3.0
;; Copyright (C) 1991, 1992, 1993, 1994, 1996, 2003, 2004 by Autodesk, Inc.
;;
;; Замечание: Для того чтобы упростить перенос этого файла в будущие
;; версии AutoCAD, рекомендуется добавлять новые типы линий только
;; в раздел "Пользовательские типы линий". Этот раздел расположен
;; в конце файла.
;;
*рант,Рант __ __ . __ __ . __ __ . __ __ . __ __ .
A,.5,-.25,.5,-.25,0,-.25
*рант2,Рант (.5x) __.__.__.__.__.__.__.__.__.__.__.
A,.25,-.125,.25,-.125,0,-.125
*рантX2,Рант (2x) ____ ____ . ____ ____ . ___
A,1.0,-.5,1.0,-.5,0,-.5

*осевая,Осевая ____ _ ____ _ ____ _ ____ _ ____ _ ____
A,1.25,-.25,.25,-.25
*осевая2,Осевая (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___
A,.75,-.125,.125,-.125
*осеваяX2,Осевая (2x) ________ __ ________ __ _____
A,2.5,-.5,.5,-.5

*штрихпунктирная,Штрихпунктирная __ . __ . __ . __ . __ . __ . __ . __
A,.5,-.25,0,-.25
*штрихпунктирная2,Штрихпунктирная (.5x) _._._._._._._._._._._._._._._.
A,.25,-.125,0,-.125
*штрихпунктирнаяX2,Штрихпунктирная (2x) ____ . ____ . ____ . ___
A,1.0,-.5,0,-.5

*штриховая,Штриховая __ __ __ __ __ __ __ __ __ __ __ __ __ _
A,.5,-.25
*штриховая2,Штриховая (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A,.25,-.125
*штриховаяX2,Штриховая (2x) ____ ____ ____ ____ ____ ___
A,1.0,-.5

*линия_сгиба,Ш/пунктирная с двумя точками ____ . . ____ . . ____ . . ____ . . ____
A,.5,-.25,0,-.25,0,-.25
*линия_сгиба2,Ш/пунктирная с двумя точками (.5x) __..__..__..__..__..__..__..__.._
A,.25,-.125,0,-.125,0,-.125
*линия_сгибаX2,Ш/пунктирная с двумя точками (2x) ________ . . ________ . . _
A,1.0,-.5,0,-.5,0,-.5

*пунктирная,Пунктирная . . . . . . . . . . . . . . . . . . . . . . . .
A,0,-.25
*пунктирная2,Пунктирная (.5x) ........................................
A,0,-.125
*пунктирнаяX2,Пунктирная (2x) . . . . . . . . . . . . . .
A,0,-.5

*невидимая,Невидимая __ __ __ __ __ __ __ __ __ __ __ __ __ __
A,.25,-.125
*невидимая2,Невидимая (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A,.125,-.0625
*невидимаяX2,Невидимая (2x) ____ ____ ____ ____ ____ ____ ____
A,.5,-.25

*фантом,Фантом ______ __ __ ______ __ __ ______
A,1.25,-.25,.25,-.25,.25,-.25
*фантом2,Фантом (.5x) ___ _ _ ___ _ _ ___ _ _ ___ _ _
A,.625,-.125,.125,-.125,.125,-.125
*фантомX2,Фантом (2x) ____________ ____ ____ _
A,2.5,-.5,.5,-.5,.5,-.5

;;
;; Типы линий ISO 128 (ISO/DIS 12011)
;;
;; Размер линейного сегмента для каждой линии ISO определен для
;; применения с пером шириной 1 мм. Для использования линий с другими
;; перьями, необходимо соответствующим образом изменить их масштаб
;; (например, ширина пера 0.5 мм -> лмасштаб 0.5).
;;
*ACAD_ISO02W100,ISO штриховая __ __ __ __ __ __ __ __ __ __ __ __ __
A,12,-3
*ACAD_ISO03W100,ISO штриховая (дл. промежутки) __ __ __ __ __ __
A,12,-18
*ACAD_ISO04W100,ISO ш/пункт. (дл. штрихи) ____ . ____ . ____ . ____ . _
A,24,-3,0,-3
*ACAD_ISO05W100,ISO ш/пункт. (дл. штрихи, 2 точки) ____ .. ____ .. ____ .
A,24,-3,0,-3,0,-3
*ACAD_ISO06W100,ISO ш/пункт. (дл. штрихи, 3 точки) ____ ... ____ ... ____
A,24,-3,0,-3,0,-3,0,-3
*ACAD_ISO07W100,ISO пунктирная . . . . . . . . . . . . . . . . . . . .
A,0,-3
*ACAD_ISO08W100,ISO штриховая (дл. и кор. штрихи) ____ __ ____ __ ____ _
A,24,-3,6,-3
*ACAD_ISO09W100,ISO штриховая (дл. и 2 кор. штриха) ____ __ __ ____
A,24,-3,6,-3,6,-3
*ACAD_ISO10W100,ISO ш/пункт. __ . __ . __ . __ . __ . __ . __ .
A,12,-3,0,-3
*ACAD_ISO11W100,ISO ш/пункт. (2 штриха) __ __ . __ __ . __ __ . __ _
A,12,-3,12,-3,0,-3
*ACAD_ISO12W100,ISO ш/пункт. (2 точки) __ . . __ . . __ . . __ . .
A,12,-3,0,-3,0,-3
*ACAD_ISO13W100,ISO ш/пункт. (2 штриха и 2 точки) __ __ . . __ __ . . _
A,12,-3,12,-3,0,-3,0,-3
*ACAD_ISO14W100,ISO ш/пункт. (3 точки) __ . . . __ . . . __ . . . _
A,12,-3,0,-3,0,-3,0,-3
*ACAD_ISO15W100,ISO ш/пункт. (2 штриха и 3 точки) __ __ . . . __ __ . .
A,12,-3,12,-3,0,-3,0,-3,0,-3

;; Сложные типы линий
;;
;; В этот файл были добавлены сложные типы линий.
;; В Release 13 эти типы линий определялись в файле LTYPESHP.LIN
;; и были внесены в файл ACAD.LIN в Release 14.
;;
;; Эти типы линий используют LTYPESHP.SHX.
;;
*ограждение1,Ограждение с кружками ----0-----0----0-----0----0-----0--

A,.25,-.1,[CIRC1,ltypeshp.shx,x=-.1,s=.1],-.1,1
*ограждение2,Ограждение с квадратиками ----[]-----[]----[]-----[]----[]---
A,.25,-.1,[BOX,ltypeshp.shx,x=-.1,s=.1],-.1,1
*пути,Пути -|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-|-
A,.15,[TRACK1,ltypeshp.shx,s=.25],.15
*изоляция,Изоляция SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,.0001,-.1,[BAT,ltypeshp.shx,x=-.1,s=.1],-.2,[BAT,ltypeshp.shx,r=180,x=.1,s=.1],-.1
*горячая_вода,Горячее водоснабжение ---- ГВ ---- ГВ ---- ГВ ----
A,.5,-.2,["ГВ",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.2
*газопровод,Газопровод ----Г----Г----Г----Г----Г----Г--
A,.5,-.2,["Г",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.25
*зигзаг,Зигзаг /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
A,.0001,-.2,[ZIG,ltypeshp.shx,x=-.2,s=.2],-.4,[ZIG,ltypeshp.shx,r=180,x=.2,s=.2],-.2

;; Пользовательские типы линий
;;
;; Все вновь описываемые типы линий рекомендуется добавлять
;; именно в этот раздел. Это гарантирует корректность переноса
;; их в будущие версии AutoCAD. Если в процессе переноса в файле
;; будут обнаружены повторяющиеся описания типов линий, приоритет
;; будет иметь то из них, которое расположено последним.
;;

{Smirnoff} · 13.03.2005, 02:28

Допиши это в любом месте этого файла, сохрани, перезагрузи AutoCAD...

Код:

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

*DASHED,Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _
A,.5,-.25

zebs · 13.03.2005, 13:02

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

{Smirnoff} · 13.03.2005, 16:01

Я поступил по другому. Дописал в PROKAT.LSP небольшую функцию которая в зависимости от наличия DASHED и Штриховая загружает одну или другую. При наличии обоих типов преоретет отдается русскому названию. Функция создает глобальную переменную с названием линии, которую потом "пользуют" вспомогательные *.LSP файлы. Может кому пригодится:

Код:

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

(defun RUS-ENG_LType(rusLineType engLineType / ltCol ltypeList)
  (vl-load-com)
 (if
   (and rusLineType engLineType)
    (progn
      (setq ltCol
	     (vla-get-LineTypes
                (vla-get-ActiveDocument
	             (vlax-get-Acad-object)))
	    ltypeList '()
	    ); end setq
      (vlax-for lin ltCol
	(setq ltypeList(append ltypeList(list(vla-get-Name lin))))
	); end vlax-for
      (setq ltypeList(mapcar 'strcase ltypeList))
      (if
	(member (strcase rusLineType) ltypeList)
	(setq lt:linetype rusLineType)
	 (progn
	   (if
	     (member (strcase engLineType) ltypeList)
	     (setq lt:linetype engLineType)
	     (setq lt:linetype nil)
	     ); end if
	   ); end progn
	); end if   
      (if(not lt:linetype)
   (progn
(if
  (not
    (vl-catch-all-error-p 
      (vl-catch-all-apply 'vla-load(list ltCol rusLineType "acad.lin"))))
  (setq lt:linetype rusLineType)
  (progn
     (if
      (not
       (vl-catch-all-error-p 
      	 (vl-catch-all-apply 'vla-load(list ltCol engLineType "acad.lin"))))
      (setq lt:linetype engLineType)
      (progn
      (alert
	(strcat
 	     "Function RUS-ENG_LType Error\n"
	     "Unsuccesfull loading linetypes:\n"
	     rusLineType " and " engLineType ".\n"
	     "Current linetype selected."
	     ); end strcat
	); end alert
      (setq lt:linetype(getvar "CELTYPE"))
      ); end progn
      ); end if
    ); end progn
  ); end if
  ); end progn
   ); end if
      ); end progn
      (progn
       (alert
	(strcat
 	     "Function RUS-ENG_LType Error\n"
	     "Argument passed!"); end strcat
	); end alert
     (setq lt:linetype(getvar "CELTYPE"))
     ); end progn   
   ); end if
     lt:linetype
  (princ)
  ); end of RUS-ENG_LType

(RUS-ENG_LType "Штриховая" "DASHED")

Попробуй, Генадию ака ПК потом отошлём... Если не дойдет письмо, сообщи.

zebs · 13.03.2005, 22:29

не пашет пишет
; ошибка: no function definition: RUS-ENG_LTYPE
Команда:
Неизвестная команда "PROKAT". Для вызова справки нажмите F1.

{Smirnoff} · 13.03.2005, 23:39

>zebs

Твоя правда, немного накосорезил. Открой этот многострадальный PROKAT. LSP и найди в самом начале строку (RUS-ENG_LType "Штриховая" "DASHED") и сотри её нафиг, а в конце файла её стирать не надо!

Я функцию эту в первый раз вначале файла влепил, потом перенес в конец, а запуск функции стереть забыл. Вот она несчастная и пытается стартануть, незагруженной...

Когда сделаешь это, усЁ должно работать :!:

08.03.2005, 20:01		#1
Есть какая нибудь программа для перевода лисп программ zebs Регистрация: 14.09.2003 Сообщений: 804 Есть какая нибудь программа для перевода лисп программ из старых версий в новую, и из английской версии в русскую автокада
Просмотров: 10177