[AlexSheep]

Добрый день!
Есть функция по созданию окна диалога из временного файла (взял у LM)

Код:

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

 (defun sks:PopupList (title data / file tmp dch return)
  (cond
    (
     (not
       (and
	 (setq
	   file	(open (setq tmp (vl-filename-mktemp nil nil ".dcl"))
		      "w"
		) ;_ end of open
	 ) ;_ end of setq
	 (write-line
	   (strcat
	     "PopupList : dialog { label = \""
	     title
	     "\";"
	     ": popup_list { key = \"plst_Layers\"; label = \"Выберите:\"; fixed_width = false; }"
	     "spacer; ok_cancel;}"
	    ) ;_ end of strcat
 ;_ end of strcat
 ;_ end of strcat
	   file
	 ) ;_ end of write-line
	 (not (close file))
	 (< 0 (setq dch (load_dialog tmp)))
	 (new_dialog "PopupList" dch)
       ) ;_ end of and
     ) ;_ end of not
    )
    (
     t
     (start_list "plst_Layers")
     (mapcar 'add_list data)
     (end_list)

     (setq return (set_tile "plst_Layers" "0"))
     (action_tile "plst_Layers" "(setq return $value)")
     (action_tile "accept" "(done_dialog 1)")

     (setq return
	    (if	(= 1 (start_dialog))
	      (mapcar '(lambda (x) (nth x data))
		      (read (strcat "(" return ")"))
	      ) ;_ end of mapcar
	      nil
	    ) ;_ end of if
     ) ;_ end of setq
    )
  ) ;_ end of cond

  (if (< 0 dch)
    (unload_dialog dch)
  ) ;_ end of if
  (if (setq tmp (findfile tmp))
    (vl-file-delete tmp)
  ) ;_ end of if

  return
)

для удобства чтения временный DCL-файл выглядит так:
PopupList : dialog
{
label = "Выберите";
: popup_list
{ key = "plst_Layers";
label = "Выберите:";
fixed_width = false;
}
spacer;
ok_cancel;
}

на всех компьютерах (штук 10) код срабатывает нормально, кроме одного (Win10, AutoCAD 2016). Вылетает ошибка "Ошибка в файле диалога "C:\Users\123\AppData\Local\Temp\$VL~~00o.dcl", строка 1: внимание: неопределенный объект. Символ: "PopupList"".
Как так? Да, символ неопределен. Я его и определяю.
Подумал что, возможно, имя диалога пересекается с каким-нибудь другим. Добавил 1 к имени - "PopupList1". В итоге получил "ошибка: Возникло исключение: 0xC0000005 (Нарушение доступа)".
Что это? У AutocCADа нет доступа к папке temp? Подскажите, пожалуйста, как побороть эту ошибку.

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

Проверь файл base.dcl в каталогах AutoCAD

[AlexSheep]

В base.dcl ничего похожего на PopupList нет.

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

А ты свой никакой "определитель" случайно не предоставлял? Потому что в штатном dcl, насколько я помню, есть :popup_list, но не :popuplist.

----- добавлено через ~4 мин. -----
Тьфу, запутал... Тогда не знаю.
Я бы все же записывал в dcl через цикл, чтобы уж точно знать - каждый элемент гарантированно в своей строке. Потому что, если я не ошибаюсь, у тебя dcl должен выглядеть так:

Код:

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

PopupList : dialog{label = "Выберите";: popup_list{ key = "plst_Layers";label = "Выберите:";fixed_width = false;}spacer;ok_cancel;}

----- добавлено через ~4 мин. -----
Кстати, а на spacer разве необязательно задавать параметры?

[===AAA===]

Добрый день.

А параметр типа

list = "";

для

Код:

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

 :popup_list

точно не пропущен?

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

Да он вроде бы необязателен.

[AlexSheep]

Странно что на остальных "подопытных кроликах" эта конструкция работает без проблем... и со spacer без параметров и без параметра list для popup_list... В редакторе Lisp можно просмотреть через Сервис->Инструменты интерфейса->Просмотр DCL из редактора

[Сергей812]

я вообще не понимаю, что так на лиспе в эти формируемые на лету диалоги вцепились - вместо статичных файлов диалогов...

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

Предоставлять проще, компилировать можно функциями lisp (а vlx только руками), динамически можно поменять количество контролов и еще до фига плюсов. Сугубо ИМХО, как обычно.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Предоставлять проще, компилировать можно функциями lisp (а vlx только руками), динамически можно поменять количество контролов и еще до фига плюсов.

только с последним согласен однозначно. Распространение - в случае внутрикорпоративного софта (судя по ветке) это не столь актуально, а в лиспе код создания диалогов тоже сам себя не напишет)

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

Сообщение от Сергей812 а в лиспе код создания диалогов тоже сам себя не напишет)

Ты не поверишь - код вообще сам себя не напишет