Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Есть какая нибудь программа для перевода лисп программ

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

Ответ
Поиск в этой теме
Непрочитано 08.03.2005, 20:01
Есть какая нибудь программа для перевода лисп программ
zebs
 
Регистрация: 14.09.2003
Сообщений: 804

Есть какая нибудь программа для перевода лисп программ из старых версий в новую, и из английской версии в русскую автокада
Просмотров: 10130
 
Непрочитано 09.03.2005, 19:52
#21
Alan

CAD
 
Регистрация: 28.08.2003
Киев
Сообщений: 1,835
<phrase 1=


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

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


>zebs

Я исправил файлы. Воможна только проблема с типом линии DASHED. Только куда отсылать :?:
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 09.03.2005, 22:23
#23
zebs


 
Регистрация: 14.09.2003
Сообщений: 804


отошли пожалуйста на [email protected]
zebs вне форума  
 
Непрочитано 10.03.2005, 00:14
#24
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Отослал. Если проблемы с DASHED, открой файлы в редакторе AutoLISP, там в меню Search есть одновременная замена одного текста на другой. Сообщи как работает.
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 12.03.2005, 16:49
#25
zebs


 
Регистрация: 14.09.2003
Сообщений: 804


>Fantomas
я ничего не получил, отошли пожалуйста еще
zebs вне форума  
 
Автор темы   Непрочитано 12.03.2005, 17:31
#26
zebs


 
Регистрация: 14.09.2003
Сообщений: 804


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

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


 
Регистрация: 14.09.2003
Сообщений: 804


А как научится самому создавать ARX преложения на каких сайтах почитать? дайте ссылочку
zebs вне форума  
 
Непрочитано 12.03.2005, 18:22
#28
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


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

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

Если не получишь почту, сообщи. Мне пора менять адрес Уже много раз убеждался что что многие письма не доходят ко мне и многие от меня :? :? :? Тут с один товарищь безрезультатно пытался три раза отослать мне письмо с безобидным аттачментом. На рабочий адрес прошло потом сразу, правда я стараюсь его меньше светить.
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 12.03.2005, 22:37
#29
zebs


 
Регистрация: 14.09.2003
Сообщений: 804


>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. Если в процессе переноса в файле
;; будут обнаружены повторяющиеся описания типов линий, приоритет
;; будет иметь то из них, которое расположено последним.
;;
zebs вне форума  
 
Непрочитано 13.03.2005, 02:28
#30
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Допиши это в любом месте этого файла, сохрани, перезагрузи AutoCAD...
Код:
[Выделить все]
*DASHED,Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _
A,.5,-.25
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 13.03.2005, 13:02
#31
zebs


 
Регистрация: 14.09.2003
Сообщений: 804


так будет не очень верно, тогда этот файл нужно будет включать вместе с довеском, поставь лучше ты везде штриховая и отправь разработчику чтобы все пользовались. ОК
zebs вне форума  
 
Непрочитано 13.03.2005, 16:01
#32
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


Я поступил по другому. Дописал в 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")
Попробуй, Генадию ака ПК потом отошлём... Если не дойдет письмо, сообщи.
{Smirnoff} вне форума  
 
Автор темы   Непрочитано 13.03.2005, 22:29
#33
zebs


 
Регистрация: 14.09.2003
Сообщений: 804


не пашет пишет
; ошибка: no function definition: RUS-ENG_LTYPE
Команда:
Неизвестная команда "PROKAT". Для вызова справки нажмите F1.
zebs вне форума  
 
Непрочитано 13.03.2005, 23:39
#34
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


>zebs

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

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

Когда сделаешь это, усЁ должно работать :!:
{Smirnoff} вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Есть какая нибудь программа для перевода лисп программ

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск