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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Не загружается файл DCL.

Не загружается файл DCL.

Ответ
Поиск в этой теме
Непрочитано 04.07.2016, 08:13 #1
Не загружается файл DCL.
AndroiD
 
Урал
Регистрация: 06.01.2008
Сообщений: 144

При использовании много раз приведенной на этом форуме функции

Код:
[Выделить все]
(defun show_tpos (/ dcl_id)
  (if (< (setq dcl_id (load_dialog "c:\\Users\\Оля\\Documents\\ACad\\Test\\d_tpos.dcl")) 0)
    (progn
      (alert "Error 1")
      (exit)
      ) ;_ end of progn
    ) ;_ end of if
  (if (not (new_dialog "np_tpos" dcl_id))
    (progn
      (alert "Error 2")
      (exit)
      ) ;_ end of progn
    ) ;_ end of if
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
  ) ;_ end of defun
появляется сообщение Error 1 - т.е. файл DCL не загружен, но если в командную строку скопировать (load_dialog "c:\\Users\\Оля\\Documents\\ACad\\Test\\d_tpos.dcl"), то возвращается значение 1, т.е. DCL загружен. Я в замешательстве, почему функция show_tpos возвращает сообщение об ошибке?
Использую AutoCad 2013.
Просмотров: 1766
 
Непрочитано 04.07.2016, 08:43
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Приведи заодно и код dcl.
И проверь - а находится ли сам файл dcl, проверь его кодировку - может быть, и там какие-то проблемы есть.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 04.07.2016, 08:51
#3
AndroiD


 
Регистрация: 06.01.2008
Урал
Сообщений: 144


Код:
[Выделить все]
np_tpos: dialog {label="Sample";
   :edit_box {label="Width Table"; key="kShir"; value="750";edit_width=6;}
   :spacer {height=1;}
   ok_cancel;
}
AndroiD вне форума  
 
Непрочитано 04.07.2016, 09:16
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Я проверил (у меня, конечно, другие каталоги, но тем не менее):
Код:
[Выделить все]
np_tpos: dialog {label="Sample";
   :edit_box {label="Width Table"; key="kShir"; value="750";edit_width=6;}
   :spacer {height=1;}
   ok_cancel;
}
Код:
[Выделить все]
 (defun show_tpos (/ dcl_file dcl_id)
  (cond ((not (findfile (setq dcl_file "c:\\d_tpos.dcl"))) (alert "Err0"))
        ((< (setq dcl_id (load_dialog dcl_file)) 0) (alert "Err1"))
        ((not (new_dialog "np_tpos" dcl_id)) (alert "Err2"))
        (t (start_dialog) (unload_dialog dcl_id))
        ) ;_ end of cond
  (princ)
  ) ;_ end of defun
Все сработало.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 04.07.2016, 09:45
#5
AndroiD


 
Регистрация: 06.01.2008
Урал
Сообщений: 144


Хм... приведенный лисп работает и у меня... Спасибо за помощь, сейчас буду разбираться.
AndroiD вне форума  
 
Непрочитано 04.07.2016, 11:30
#6
Alan

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


Из моего опыта работы с DCL...
Для себя уяснил, что на стадии отладки необходимо размещать файл DCL в рабочей папке, т.е. в той где находится файл чертежа.
Код:
[Выделить все]
  (setq dcl_id (load_dialog "d_tpos.dcl"))
Тогда пропадают в LISP-тексте все эти пути и нет никакого геморроя. Тем более, что потом DCL я компилирую в VLX, т.е. путь перестаёт быть диско-зависимым
__________________
По теории майский жук летать не может.
Но он этого не знает. И летает...
Alan вне форума  
 
Непрочитано 04.07.2016, 12:19
1 | 1 #7
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Из моего опыта: http://autolisp.ru/2010/03/15/dcl-dialogs-create/
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Не загружается файл DCL.

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Autolisp Как в текстовый файл записать переменную в кавычках mikls LISP 8 06.12.2013 20:31
Почему Файл так много весит mvart AutoCAD 40 07.11.2013 13:02
Долго загружается файл. uri AutoCAD 11 06.08.2009 19:56
"Файл рисунка испорчен" - не та версия Акад или реально нерабочий файл? Ернат Разное 3 17.06.2009 09:56
непонятный "битый" файл gvs AutoCAD 6 22.02.2007 23:09