[Zaghim]

Поискал на форуме, точного ничего не нашел.
Подскажите чайнику, как нужно создавать DCL и как его потом запустить (это самое важное). Ничего не пойму...везде сразу коды коды...а как и куда ничего нету...Что еще важней, как все запустить, если создавать окно в ObjectDCL.
Хотелось бы сделать окошко в котором был бы комбо бокс...в нем выбрав нужную деталь показывались бы 4 картинки с различными ее видами...к каждой картинке был бы прикреплен файл... и ткнув на картинку я мог бы вставить это в чертеж. Такое реально сделать?

[alex8888]

E-degtyarev,теперь он не .com, a .net

[Zaghim]

На английском тяжко(((

[alex8888]

Offtop: Zaghim, и не говори Было б хотя бы на немецком.
Правда, на Зулу было бы еще хуже

[E-degtyarev]

Я тоже аглицкого не знаю, но в таких ситуациях мне помогает машинный перевод - разобраться можно.

[gomer]

Сообщение от Disney Так же очень не удобно выражение action_tile писать в виде строки, т.е. в кавычках, по-этому гораздо удобнее записывать так:

ИМХО для вывода ошибок в дилогах есть errtile вместо alert,
а то задолбает, если ума нет,
а с vl-prin1-to-string хорошо придумано,
хотя можно тип ООП с отдельными функциями,
а в action_tile только название функции отклика забивать

[alex8888]

gomer

хотя можно тип ООП с отдельными функциями, а в action_tile только название функции отклика забивать

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

[gomer]

Вот наваял как-то но не закончил... ток без смеха, а критику пожалуйста

[Sad Dog]

1. Всё правильно делаешь.
Есть ещё один вариант, когда определяется через defun функция без аргументов и передается в третий аргумент функции new_dialog

Код:

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

(defun common-handler () ...здесь будут доступны $key, $value, $reason, $x, $y
.....используя $key можно определять, в каком из контролов произошло событие.....)

(new_dialog "ibutton" id "(common-handler)")

Иногда так может оказаться удобнее.

2. Offtop: (lambda nil ....) - это стильно!

3. Один старый перец по кличке Пастух с сайта autocad.ru (ныне caduser.ru), как то выкладывал зело-мудрёную библиотеку под названием FreshDCL. Она как раз написана в объектно-ориентированном стиле. Посмотри картинки в прикрепленном архиве.
Кстати, коды открыты, так что при желании... Только можно в психушку загреметь, да и шкурка выделки не стоит. Лучше освоить WindowsForms или WPF, да научиться вязать lisp и .NET, и будет тебе счастье на долгие годы вперед.

Как выполнить открытие диалог. окна в самом автокаде?
Я написал код диалог. окна и код на его вызов из книги Н.Полещука "AutoLISP & Viisual LISP в среде AutoCAD",а куда дальше-не знаю и не понимаю.
Заранее благодарю.

Код окна

Код:

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

np_tpos: dialog{label="Настройка данных постели и таблицы";
 :edit_box{label="Ширина таблицы";key="kshir";value="750";edit_width=6; }
 :edit_box{label="Высота таблицы";key="kVys";value="300";edit_width=6; }
 :edit_box{label="Высота букв";key="kHbuk";value="180";edit_width=6; }
 :spacer{height=1; }
 :edit_box{label="Количество балок";key="kNumbalk";
           value="8";edit_width=6; }
 :edit_box{label="Количество коксов в балках";key="kNumkoks";
           value="17";edit_width=6; }
 :spacer {height=1; }
 :radio_row{label="Балки распологаются в таблице";
   :radio_button{label="по столбцам";key="kPoStolb";value="1";}
   :radio_button{label="по строкам";key="kPoStrok";value="0";}
 }
 :spacer{heigth=1; }
 ok_cancel;
}// конец np_tpos

Код вызова

Код:

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

(defun show_tpos ( / dcl_id)
  (if (< (setq dcl_id (load_dialog "C:\Temp\d_tpos.dcl")) 0) (exit))
  (if (not (new_dialog "np_tpos" dcl_id)) (exit))
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
);defun show_tpos

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

dcl-файл сохранен в c:\temp\d_tpos.dcl?
И обрати внимание на разницу строк:

Код:

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

(if (< (setq dcl_id (load_dialog "C:\Temp\d_tpos.dcl")) 0) (exit))

Код:

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

(if (< (setq dcl_id (load_dialog "C:\\Temp\\d_tpos.dcl")) 0) (exit))

Да.dcl-файл сохранен в c:\temp\d_tpos.dcl.
С двойными "\"-понял
Ещё здесь моя самодеятельность-изивиняюсь.
В коде примера из книги записано

Код:

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

(defun show_tpos ( / dcl_id)
  (if (< (setq dcl_id (load_dialog "d_tpos.dcl")
	       ) 0) (exit))
  (if (not (new_dialog "np_tpos" dcl_id)) (exit))
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
);defun show_tpos

Но,я всё одно не знаю как окно запустить из акада.

[gomer]

Сообщение от Владимир Егорьев всё одно не знаю как окно запустить из акада.

С:\\temp в пути поддержки када, срочно!!!
потом в ком. строке (show_tpos) и Enter

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

Диалог запускается функцией (start_dialog), которая в коде присутствует.
P.S. http://dwg.ru/pub/9 - читался?

Спасимбо.
Когдато читал.И у меня под рукой книга В.Свет,но не могу сосредоточиться на прочтение кода.Вот видите я не вник в суть кодов.Обещаю стараться.

[gomer]

Сообщение от Владимир Егорьев И у меня под рукой книга В.Свет

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

потом в ком. строке (show_tpos) и Enter

Путь прописал.
Правильноли я делаю:

1.Запускаю DCL в редакторе лиспа.
2.Сервис->приложения-> *.lsp
3.В ком.строке (start_dialog)->Enter ?


Добавлено:

Получилось.Загрузил lsp файл в редакторе лиспа и добавил C:

[gomer]

Сообщение от Владимир Егорьев Путь прописал. Правильноли я делаю: 1.Запускаю DCL в редакторе лиспа. 2.Сервис->приложения-> *.lsp 3.В ком.строке (start_dialog)->Enter ? Добавлено: Получилось.Загрузил lsp файл в редакторе лиспа и добавил C:

Вообще ничего не понятно...
Чтобы лисп загрузить в кад достаточно его перетащить (файл а не текст) в окно автогада...
Дальше#32 и получаете окошко

Спасибо.Разобрал со всех позиций.И перетаскивал и со скобками в ком.строке вводил и без скобок-всё работает.
Буду осваивать дальше.

p.s.Хотел узнать такую вешь:почему интерфейс (или как правильно это называется) редактора лиспа в акаде 2008 имеет вот такое

[E-degtyarev]

почему интерфейс (или как правильно это называется) редактора лиспа в акаде 2008 имеет вот такое

А что именно Вас смущает?

[Do$]

Да он и в 2006 такое имел, и в 2010 такое же