[sdv79]

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

[skkkk]

Как вообще все это дело запустить? Сразу же при загрузке lsp вылетает ошибка "неверный тип аргумента: stringp nil". И затем ни одна из определенных в лиспе функций не отрабатывает. Все файлы на пути поддержки сложил. Что-то делаю не так? Разбираться почему так, нет ни времени ни желания.

[sdv79]

Нужно по умолчанию распаковать по пути (setq adres_db "d:\\DB\\"), или отредактировать данную переменную. В ACADе Сервис-Настройка-Файлы
добавить путь к папке в разделе "Путь доступа к вспомогательным файлам"

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

Скажем так: попытки слету разобраться в коде как-то у меня не увенчались успехом. Основная проблема в формате данных и чтении оттуда.

[sdv79]

Данные из светотехнических файлов читаются без проблем - это финальная стадия. Сначала необходимо заставить модуль понимать обновление Изготовитель и Монтаж. Я полагаю в strcat что то должно быть добавлено, т.к это отвечает за выбор пользователя. Как это сделать?

Код:

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

 
(start_list "Izgotovit") ; Изготовитель
  (mapcar 'add_list *izgotov) ;/ mapcar
 (end_list)
 (set_tile "Izgotovit" Izgotovit)
 (action_tile "Izgotovit"
              (strcat "(setq Izgotovit $value)"
		      "(setq Izgotovit_name (nth (atoi $value) *izgotov))"
		   
		      ) ;/  strcat
 ) ;/ action_tile

[trushev]

Сообщение от sdv79 (action_tile "Izgotovit"06 (strcat "(setq Izgotovit $value)"07 "(setq Izgotovit_name (nth (atoi $value) *izgotov))"08 09 ) ;/ strcat10 ) ;/ action_tile

strcat лишнее

(action_tile "Izgotovit"
"(setq Izgotovit $value Izgotovit_name (nth (atoi $value) *izgotov) (done-dialog 2)"
) ;/ action_tile

Зациклить открытие, закрытие окна. Думаю поможет.

[sdv79]

Выдает- ошибка: no function definition: DONE-DIALOG, вероятно вы забыли вторую скобку у *izgotov)), это не помогло.

[trushev]

Сообщение от sdv79 no function definition: DONE-DIALOG

Давно не писал, забыл - done_dialog

----- добавлено через ~5 мин. -----
(setq k 2)
(while (> k 1)
.......
.......
(setq k (start_dialog))
....
);while

[sdv79]

Спасибо, для первых двух условий подходит, работает и со strcat))
Остался третий вопрос

Код:

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

 
 (start_list "Tip_OP") ; тип ОП
  (mapcar 'add_list *name_LDT_IES) ;/ mapcar
 (end_list)
 (set_tile "Tip_OP" Tip_OP)
 (action_tile "Tip_OP"
              (strcat "(setq Tip_OP $value)"
		      "(setq Tip_OP_name (nth (atoi $value) *name_LDT_IES))"
		      "(c:diiip)"                 ; ВОЗМОЖНО ЭТО НЕ НУЖНО
		       "(done_dialog 2)"   ; ВОЗМОЖНО ЭТО НЕ НУЖНО
	      ) ;/  strcat
 ) ;/ action_tile

Выдает имя файла который нужно считать, далее (c:diiip) считывает все данные и происходит заполнение ячеек.

Код:

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

  (set_tile    "Pol_M_OP" Pol_M_OP) ; "Полная мощность ОП"
 (action_tile "Pol_M_OP" "(setq Pol_M_OP $value)")

Отработал первый код, потом (c:diiip) выдает новую переменную в соответствии с выбором программы, новую Pol_M_OP записываем в ячейку
Что сюда вставить, чтобы была актуальная информация.
Пробовал

Код:

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

 (action_tile "Cosf" "(setq Cosf $value) (c:diiip")  

не получилось

[Alan]

К сожалению отладка преобразований в DCL крайне неприятна и непонятна.
Давно не брал я в руки шашки...
Помнится мне, что обычно сложные конструкции в action_tile я обкладывал (progn .... ).
Типа так:

Код:

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

	(action_tile
	  "DSA5"
	  "(progn (setq bzn5 $value)(set_tile \"DK1\" (setq zn1 (rtos (* (atof bzn4) (atof (if (= 0.0 (atof bzn6)) bzn5 bzn6))) 2 2)))
		(setq spk1 (subst-i (atoi nstr) zn1 spk1))(setq sp5 (subst-i (atoi nstr) bzn5 sp5))
		(set_tile \"DK13\" (setq zn13 (rtos (if (= 0.0 (atof bzn6)) 0.0 (* (atof bzn45) (- (atof bzn5) (atof bzn6)))) 2 2)))(setq spk13 (subst-i (atoi nstr) zn13 spk13))
		)"
	) ;_ конец action_tile

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

Offtop: Я так понимаю, что надо написать статейку, каким манером я для своих задач решаю проблемы с dcl

http://autolisp.ru/2015/02/05/dcl-develop/

[sdv79]

Заработало, были лишние условия для констант.