[Kirill_Ja]

В компонент image не грузятся слайды и даже к свойствам компонента доступ получить не удается.

ad_about : dialog { label="Î ïðîãðàììå"; width=100;

:image {label="image1"; width=7; height=8; color=-15;}
:image {label="image2"; width=7; height=4; color=-15;}
ok_button;

}//êîíåö äèàëîãà

Код:

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

 (defun ad_about_dialog (/ dialog)
;;;
;;;  Ïðîöåäóðà îòðàæàåò îêíî Î ïðîãðàììå
;;;
(setq dialog (load_dialog (findfile "about2.dcl")))
(new_dialog "ad_about" dialog)
(start_image "image1")
(slide_image 0 0 (dimx_tile "image1") (dimy_tile "image1") "tggroup.sld")
;;;(VECTOR_IMAGE 0 0 (dimx_tile "image1") (dimy_tile "image1") 1)
(end_image)
(start_image "image2")
(slide_image 0 0 (dimx_tile "image2") (dimy_tile "image2") "tggroup.sld")
;;;(fill_image 1 1 20 20 1)
(end_image)
(start_dialog)
(unload_dialog dialog)
)

Пробовал не проставлять расширения у файлов слайдов - результат тот же.
Более того:

(setq dialog (load_dialog (findfile "about2.dcl")))
4
_$ (new_dialog "ad_about" dialog)
T
_$ (start_image "image1")
"image1"
_$ (slide_image 0 0 (dimx_tile "image1") (dimy_tile "image1") "tggroup.sld")
"tggroup.sld"
_$ (end_image)
nil
_$ (DIMX_TILE "image1")
0
_$ (DIMY_TILE "image1")
0
_$ (start_image "image1")
"image1"
_$ (DIMY_TILE "image1")
0
_$ (END_IMAGE)
nil
_$ (GET_ATTR "image1" "color")
""
_$ (done_dialog)
(0 0)
_$ (unload_dialog dialog)
nil
_$ (findfile "tggroup.sld")
"C:\\Users\\Êè\\Google Äèñê\\TG_Group\\AD_Project\\Ðàçðàáîòêà\\tggroup.sld"
_$

Не читаются атрибуты компонентов (в примере выше - color). Все попытки изменить содержимое картинки функциями fill_image vectir_image тоже не привели ни к чему.
Не могу разобраться что я делаю не так?

[gomer]

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

[Kirill_Ja]

Целиком код ну очень длинный. Я пробовал оформить функцию отдельным файлом.
Я даже dcl сократил до 2-х компонентов (как в архиве). Все равно не работает.
В архиве dcl+слайд.
AutoCad Civil 3D 2014, AutoCad Arhitecture 2014.

[gomer]

кажется я уже старею... атрибут label у image поменяй на key

[Kirill_Ja]

Похоже, это не ты, а я)))