Помогите адаптировать Lisp код с 2011A-Cad'a на 2015 A-Cad

d.mOnII · 08.08.2014, 17:28

Добрый день.
Я пользовался кодом лисп на акаде 2007-2011, но с переходом на новое место работы и формировании проектного отдела столкнулся с такой от проблемой.
преобретая акад, мы можем приобрести только последнюю версию, а это 2015 кад (либо 2014 еще можно найти), с одной стороны и клучшему, поюзал кад 2014 вроде поприятнее интерфейс ну и пару полезных фичЪ есть, НО ни один код на лиспе теперь не работает, выдает от такое сообщение:

Цитата:

Function is not available in AutoCAD Version 19.1s (LMS Tech). для када 2014
Function is not available in AutoCAD Version 20.0s (LMS Tech). для када 2015

что можно сделать? посоветуйте, пожалуйста
код такой подгрузка ссылок массивом

Код:

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

 
(defun c:xrm ( / actlayer AcadVersion dvbFile StartMacro AcadApp xrefLayerName)

   (setvar "cmdecho" 0)

   (setq xrefLayerName NIL)
   (if (tblsearch "LAYER" "XREF")         (setq xrefLayerName "XREF") )
   (if (tblsearch "LAYER" "LL_STDL_XREF") (setq xrefLayerName "LL_STDL_XREF") )  ;15.03.04
   (if (tblsearch "LAYER" "AW_STDL_XREF") (setq xrefLayerName "AW_STDL_XREF") )  ;31.01.08
      
   (setq dvbFile (findfile "XREFS_#x.dvb"))
(princ "\n xrefLayerName:'")
(princ xrefLayerName)
(princ "'found!!!")
(princ)

   (if dvbFile
     (progn
        (setq actlayer (getvar "clayer"))
        (if xrefLayerName
           (progn
             (command "_layer" "_thaw"   xrefLayerName "")
             (command "_layer" "_unlock" xrefLayerName "")
             (command "_layer" "_on"     xrefLayerName "")
        
             (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))
             (vla-loadDVB   AcadApp dvbFile)
             (Command "_-vbarun" StartMacro)

;             (vla-unloadDVB AcadApp dvbFile)   => 21.09.2011 The unload command causes in AutoCAd 2012 an "Execution error
           )
           (progn
             (alert "ERROR: Layer XREF and NN_STDL_XREF not found !!")
           )
        );fi xrefLayerName   
     )
     (progn
       (princ "\n ** Program XREFS_#x.DVB not found !")
       (c:xa)  ;
     )  
   );fi dvb_name

   (princ)
   
); ende xrm

Do$ · 08.08.2014, 18:22

1. Обратиться к разработчику программы и узнать у него, нет ли версий под 2014 и 2015 автокады.
2. Если нет - узнать, не мог бы он адаптировать.
3. Если нет - разобраться самому в исходниках и исправить.
4. Если не хватает знаний - найти того, кто это мог бы сделать за спасибо и/или другие виды благодарности.

В представленном коде проблем нет, надо смотреть модуль, написанный на VBA и подгружаемый этим кодом (XREFS_#x.dvb).

d.mOnII · 11.08.2014, 14:37

Цитата:

Сообщение от Do$

адо смотреть модуль, написанный на VBA и подгружаемый этим кодом (XREFS_#x.dvb).

небыло такого модуля.
просто подгружал лисп и все работало при вызове команд xr (подгрузка одного файла) либо xrm (подгрузка нескольких ссылок)
подкружались лиспы на чистый кад

Кулик Алексей aka kpblc · 11.08.2014, 14:50

Был. По коду видно - был:

Код:

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

(findfile "XREFS_#x.dvb")

----- добавлено через ~1 мин. -----
Ошибка необязательно именно в приведенном коде. Запускай пошаговую отладку и смотри, где и что происходит

d.mOnII · 11.08.2014, 14:59

Цитата:

Сообщение от Кулик Алексей aka kpblc

Был. По коду видно - был:

это конечно интересно ) но еще раз) на личный ноут ткнул просто голый кад 2011 подгрузил лисп, запустил команду - все работает, без доп настроек в VBA

Do$ · 11.08.2014, 19:15

Просто из комстроки запусти

Код:

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

(findfile "XREFS_#x.dvb")

, какой будет результат?
Первый код с командой XRM без этого файла ну никак не может работать, если мне глаза не изменяют.

d.mOnII · 12.08.2014, 09:52

Да, действительно, без этого файла xmr на 11 каде работает как xr, прошу прощения, не обратил внимания на этот момент(((

но вопрос пока не в этом, вопрос в том что на 15 и 14 кады вообще не запускаются эти коды, ошибки, которые выбрасывает кад в посте с вопросом

Цитата:

Сообщение от d.mOnII

Function is not available in AutoCAD Version 19.1s (LMS Tech). для када 2014
Function is not available in AutoCAD Version 20.0s (LMS Tech). для када 2015

Do$ · 12.08.2014, 10:30

Запустил XR в AutoCAD 2014 x64. В комстроку выдало:

Код:

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

Команда: XR
Xref-Layer not found!!! Choose the proper 'file' and try again!!!

Что я делаю не так? Может, надо какой-то тестовый файл приложить?

trir · 12.08.2014, 10:50

Всё

Слоёв нет нужных!

Do$ · 12.08.2014, 12:19

Я понимаю, но вот абсолютно нет желания тратить время на их создание

.

d.mOnII · 12.08.2014, 12:20

Цитата:

Сообщение от Do$

Запустил XR в AutoCAD 2014 x64. В комстроку выдало:

Код:

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

Команда: XR
Xref-Layer not found!!! Choose the proper 'file' and try again!!!

Что я делаю не так? Может, надо какой-то тестовый файл приложить?

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

Лиспер · 12.08.2014, 12:41

d.mOnII, это говорит только о том, что выполнение кода пошло по ветке "отсутствия слоев". И не более того.

d.mOnII · 12.08.2014, 13:08

Цитата:

Сообщение от d.mOnII

Добрый день.
Я пользовался кодом лисп на акаде 2007-2011, но с переходом на новое место работы и формировании проектного отдела столкнулся с такой от проблемой.
преобретая акад, мы можем приобрести только последнюю версию, а это 2015 кад (либо 2014 еще можно найти), с одной стороны и клучшему, поюзал кад 2014 вроде поприятнее интерфейс ну и пару полезных фичЪ есть, НО ни один код на лиспе теперь не работает, выдает от такое сообщение:

Цитата:
Function is not available in AutoCAD Version 19.1s (LMS Tech). для када 2014
Function is not available in AutoCAD Version 20.0s (LMS Tech). для када 2015

Суть вопроса в том что бы для начала хотя бы решить вопрос с ЗАПУСКОМ, у меня он даже не запускается(((

gomer · 12.08.2014, 13:28

Из кода #1 вырезана проверка версии автокада. Такая проверка видимо использована из-за заскоков автодеска насчет VBA. Вообще за такой код нужно бить по рукам...

Do$ · 12.08.2014, 13:33

А у вас версия AutoCAD не LT случаем?

Лиспер · 12.08.2014, 13:35

Было же предложено:

Цитата:

Сообщение от Кулик Алексей aka kpblc

Запускай пошаговую отладку и смотри, где и что происходит

Каков результат?

d.mOnII · 12.08.2014, 15:35

"M:\\ACAD_Std_2010\\x_system\\mw_std2010\\layer"

Сбой в одном из блоков лиспа от в этом

Команда: ; ошибка: сбой при выполнении LOAD: "M:\\ACAD_Std_2010\\x_system\\mw_std2010\\layer"

наверно что-то надо в этом пути поменять?

Лиспер · 12.08.2014, 15:41

Возможно. Может быть, файл не существует. Или ошибка в коде.

d.mOnII · 12.08.2014, 15:44

прошу прощения, но обнаружил еще один блок из-за которого вылетает ошибка указанная впервом посте:

Код:

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

 (/ acad_ver ver_14 ver_15
			  sys_cmd sys_ucsf sys_rmod
			  dat_nam dat_nam_new file
			  dat_help
			  undo_count
			  lay_lst lay_nam)
	(setq
		
		acad_ver (getvar "ACADVER")
		
		ver_14 (wcmatch acad_ver "14.*")
		ver_15 (or (wcmatch acad_ver "15.*")
		(wcmatch acad_ver "16.*")   ;; ACAD 2004-2006
                (wcmatch acad_ver "17.*") ;; ACAD 2007-2009
		(wcmatch acad_ver "18.*")) ;; ACAD 2010-2012

Do$ · 12.08.2014, 15:56

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

gomer · 12.08.2014, 15:57

так и будешь огрызки свои бросать?

d.mOnII · 12.08.2014, 16:05

сделал так
тупо дописал в код две строчки

Код:

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

 		(wcmatch acad_ver "19.*")
		(wcmatch acad_ver "20.*"))

все заработало но! при исполнении кода я наблюдаю в командной строке сообщения "неизвестная команда", но все так быстро происходит что не могу понять, что не выполняет код...
пошаговую отладку запустить не получается/ не знаю как пользоваться, а гугл не помогает, интуитивно не разобрался(
запускаю accoreconsole.exe а что дальше не понимаю, на команду кода пишет следующее: неизвестная команда, читай по F1

а что там читать ?...

так что правильность работы кода проверить не получается, но вижу что файл формируется и вижу что файл прикрепляется согласно всех требований

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от gomer

так и будешь огрызки свои бросать?

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

Кулик Алексей aka kpblc · 12.08.2014, 16:25

Цитата:

Сообщение от d.mOnII

пошаговую отладку запустить не получается/ не знаю как пользоваться

http://autolisp.ru/2009/09/10/vlide-misc-01/
http://autolisp.ru/2009/09/12/vlide-misc-02/

Цитата:

Сообщение от d.mOnII

запускаю accoreconsole.exe

О как, начинается самое веселое! Про что еще не рассказано?
http://autolisp.ru/2014/03/04/accoreconsole-lisp-debug/

----- добавлено через 54 сек. -----
Добавлю: консольный ACAD вообще-то не предназначен для ооочень многих вещей.

d.mOnII · 12.08.2014, 16:49

Цитата:

Сообщение от Кулик Алексей aka kpblc

О как, начинается самое веселое! Про что еще не рассказано?
http://autolisp.ru/2014/03/04/accoreconsole-lisp-debug/

именно по этой ссылке я и вышел на консоль, но методом тыка не смог с ним справиться) спасибо за ваше терпение, господа, ща поизучаю

Цитата:

Сообщение от Кулик Алексей aka kpblc

http://autolisp.ru/2009/09/10/vlide-misc-01/
http://autolisp.ru/2009/09/12/vlide-misc-02/

и, надеюсь, пролью свет на свою темень

----- добавлено через ~14 мин. -----
открыл окно VLIDE
открыл проект LISP
нажимаю F8 - глухо, ищу в меню отладку, нахожу, но половина команд из выпадающего списка меню "отладка" неактивна, в том числе и шаг с заходом

----- добавлено через ~20 ч. -----
Так как выполнить пошаговую отладку? если меню неактивно(

d.mOnII · 28.09.2014, 16:25

Добрый день.
В общем по-находил я все файлы и этот #.DVB

пытаюсь теперь впринципе разобраться в кодах

Код:

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

    (if dvbFile
     (progn
        (setq actlayer (getvar "clayer"))
        (if xrefLayerName
           (progn
             (command "_layer" "_thaw"   xrefLayerName "")
             (command "_layer" "_unlock" xrefLayerName "")
             (command "_layer" "_on"     xrefLayerName "")
        
             (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))
             (vla-loadDVB   AcadApp dvbFile)
             (Command "_-vbarun" StartMacro)

;             (vla-unloadDVB AcadApp dvbFile)

помогите, пожалуйста, разобраться с этим (setq AcadApp (vlax-get-acad-object))
где эта функция должна присутствовать? и что она делает?

----- добавлено через ~4 мин. -----
все чем порадовал гугл http://docs.autodesk.com/MAP/2014/RU...=ACDd30e620190
небольшой справкой из када (но что-то все равно не понятно(((( )

gomer · 28.09.2014, 17:07

Цитата:

Сообщение от d.mOnII

где эта функция должна присутствовать? и что она делает?

в коде, это не функция, а выражение, присваивает переменной AcadApp ссылку на текущий экземпляр автокада

d.mOnII · 28.09.2014, 21:29

хммм, тогда не понятна ошибка када error: no function definition: vlax-get-acad-object при запуске команды

Кулик Алексей aka kpblc · 28.09.2014, 22:05

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

d.mOnII · 30.09.2014, 15:00

Спасибо, но я так и не понял куда добавлять команду VL-Load-com
Между этих двух строк?

Код:

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

              (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))

но тогда я вижу ошибку: xrefLayerName:'AW_STDL_XREF'found!!!Ошибка при выполнении

p.s. весь блок прописан в посте вопроса defun c:xrm

данный слой есть
AW_STDL_XREF присутствует
локальная функция для прикрепления ссылок по команде ХА работает исправно, а вот xrm что-то выпендривается(((

Кулик Алексей aka kpblc · 30.09.2014, 15:31

Цитата:

Сообщение от d.mOnII

я так и не понял куда добавлять команду VL-Load-com

В самое начало лиспа.

d.mOnII · 30.09.2014, 17:03

покрутил повертел

Код:

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

         (vl-load-com)
             (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))
             (vla-loadDVB   AcadApp dvbFile)
             (Command "_-vbarun" StartMacro)

Команда: XRM
xrefLayerName:'AW_STDL_XREF'found!!!Инициализация системы VBA...Ошибка при выполнении

если я правильно понимаю - проблема в самом файле VBA?

Добавил и так

Код:

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

         (vl-load-com)
(defun c:xrm

и так

Код:

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

 (defun c:xrm ( / actlayer AcadVersion dvbFile StartMacro AcadApp xrefLayerName)
        (vl-load-com)

результат такой же:
xrefLayerName:'AW_STDL_XREF'found!!!Инициализация системы VBA...Ошибка при выполнении

Кулик Алексей aka kpblc · 30.09.2014, 17:04

Вполне легко.

gomer · 30.09.2014, 17:51

Ошибка скорей всего в модуле VBA. Возможно он не адаптирован под новый автокад...

d.mOnII · 01.10.2014, 15:19

Блин, а VBA не посмотреть( запаролен((((((((

gomer · 01.10.2014, 15:24

ну, тогда в Поиск

d.mOnII · 01.10.2014, 18:39

? чем поиск может помочь?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Какой язык перспективен для инженера-конструктора с условием	The_Mercy_Seat	Программирование	705	17.03.2021 14:19
Использование чужого кода в своих программах	Golem-iq	Программирование	31	02.09.2013 14:33
Уменьшение времени выполнения кода на VBA	Vladmart	Программирование	1	11.12.2009 14:35
Жаль, что у ЛИСПа нет генератора кода :(	Малявка	Разное	3	16.07.2009 14:20
Перенос кода лисп программ в Persistant Reactors	Torino	LISP	2	06.12.2004 14:54