[Таня.]

Пожалуйста, помогите решить простенькую задачку.
Оформляю программу печати чертежей для наших сотрудников. Практически все, что задается в "Параметрах" вывожу на единое окошечко. Споткнулась на "Масштабе".
В DCL сформировала выпадающий список: "вписать; 1:1; 1:2;…" и т.д.
Блок масштаба не работает. При работе программа выдает сообщение " неверный тип аргумента: (or stringp symbolp)"
Как правильно сформировать правильные аргументы? DCL:

• mash:dialog {label = "Масштаб";
  :radio_column {label="";
  opup_list {label="";
  list="вписать\n1:1\n1:2\n2:1"; key="ms";}
  }
  ok_button;
  }

LISP

• (defun C:mash ()
  (setq okno_print (load_dialog "Масштаб_вопрос.dcl")); Загрузка диалогового окна печати
  (if (not (new_dialog "mash" okno_print)) (exit)); Если нет файла dсl, то выход из программы
  ;блок определения коэффициента масштаба
  (action_tile "ms" "(setq mas (read $value))");читает значение масштаба
  (start_dialog)
  (unload_dialog okno_print)
  (if (= mas вписать)
  (setq mas 'вписать)
  (setq mas (vl-string->list mas);преобразует строку в список буквенно-цифровых знаков
  ms1 (car mas);извлекает из списка первое значение
  ms1 (vl-list->string ms1);преобразует код в строку
  ms1 (atof ms1)
  ms2 (cddr mas);извлекает из списка третье значение
  ms2 (vl-list->string ms2)
  ms2 (atof ms2)
  
  mas (/ ms1 ms2);вычисляет коэффициент масштаба
  );конец if
  )
  )

[CB]

Вместо строки

Код:

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

ms1 (vl-list->string ms1);преобразует код в строку

вставить

Код:

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

ms1 (vl-list->string (list ms1));преобразует код в строку

[Zouss]

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

Код:

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

mash:dialog
{label
=
"Масштаб"				; 
:radio_column
{label=
""					; 
:popup_list
{label=
""					; 
key="ms";} 
}
ok_button				; 
}

Код:

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

(defun C:mash (/ okno_print llist mas p1 s1 s2)
  (vl-load-com)
  (setq okno_print (load_dialog "E:\\acad\\tmp.DCL"))
					; Загрузка диалогового окна печати 
  (if (not (new_dialog "mash" okno_print))
    (exit)
  )					; Если нет файла dсl, то выход из программы 
					;блок определения коэффициента масштаба
  (setq llist '("вписать" "1:1" "1:2" "2:1"))
  (start_list "ms")
  (mapcar 'add_list llist)
  (end_list)

  (action_tile "ms" "(setq mas (read $value))") ;читает значение масштаба 
  (start_dialog)
  (unload_dialog okno_print)
  (if (= mas 0)
    (setq mas 'вписать)
    (setq mas (nth mas llist)
	  p1  (vl-string-search ":" mas)
	  s1  (substr mas 1 p1)
	  s2  (substr mas (+ p1 2))
	  mas (/ (atof s1) (atof s2))
    ) ;_  setq
  ) ;_  if
  mas
) ;_  defun

[Таня.]

Просто замечательный форум. Не только подсказали, но и программку написали. Класс!
Спасибо, вы меня здорово выручили.
То, что вместо желаемой строки, программа выдает порядковый номер, я еще смогла понять. А, что именно с ним можно и нужно делать – нет. :roll:
Еще один вопрос. Честно говоря, не поняла необходимость выделения символа ":" и замены его на "1". Урезала программу, оставила только:
s1 (substr mas 1)
s2 (substr mas 3)
Работает, однако (что и смущает). Можно обойтись и без переменной р1? :shock:

[dextron3]

У меня вот что написал ЛИСП

Command: ; error: bad argument type: numberp: nil

[Таня.]

Сообщение от dextron3 У меня вот что написал ЛИСП Command: ; error: bad argument type: numberp: nil

Скорее всего, что-то намудрили с вводом аргументов. Проверьте, правильно ли сформировали список. У меня программа работает идеально.

[CB]

1. Здесь все дело в функции nth - она выдает элемент списка по его порядковому номеру в списке, причем первый элемент списка с порядковым номером 0. Например (nth 2 llist) возратит "1:2".
2.При данном списке

Код:

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

(setq llist '("вписать" "1:1" "1:2" "2:1"))

переменная p1 не нужна, но а если вдруг понадобится масштаб "10:1"?
Так что ничего в программе менять не стоит...

[CB]

Забыл добавить

Урезала программу, оставила только: s1 (substr mas 1) s2 (substr mas 3) Работает, однако (что и смущает). Можно обойтись и без переменной р1?

Работать не должна - нужно - s1 (substr mas 1 1), тогда можно обойтись без переменной p1 при данном списке...

[Zouss]

совершенно верно - p1 это позиция двоеточия в строке обозначающей выбранный масштаб, который может быть и 1:10 и 1:200, забавно еще то (vl-string-search и (substr по разному нумеруют символы в строке (substr начинает нумерацию с 1, в отличие от большинства других функций

[T-Yoke]

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

А вообще, зачем вашим сотрудникам понадобилась такая программа, можете растолковать. Чем стандартные установки печати в автокаде не устраивают. Или вы не с автокадом работаете?

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

Иииех, влезу-ка и я тож

Код:

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

(defun c:mash (/ okno_print llist mas p1 s1 s2)
  (vl-load-com)
  (setq okno_print (load_dialog "d:\\downloads\\dwg.ru\\таня\\main.DCL"))
  (if (not (new_dialog "mash" okno_print))
    (exit)
    ) ;_ end of if
  (setq llist (list (cons "вписать" 'вписать)
                    '("1:1" . 1.)
                    '("1:2" . 0.5)
                    '("2:1" . 2.)
                    ) ;_ end of list
        ) ;_ end of setq
  (start_list "ms")
  (mapcar 'add_list (mapcar 'car llist))
  (end_list)
  (action_tile "ms" "(setq mas (read $value))")
  (start_dialog)
  (unload_dialog okno_print)
  (cond
    ((or (not mas) (= mas 0)) (cdar llist))
    (t (cdr (nth mas llist)))
    ) ;_ end of cond
  ) ;_ end of defun

Работает? Я не проверял...

[Zouss]

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

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

> Zouss : я не про путь. Я про методику списка и выдачи конечного результата. По-моему, если в dcl сразу нажать Enter, то mas будет nil. Или нет?

[Zouss]

нет - все корректно работает, спицияльно, прежде чем предыдущий пост залепить проверил

[CB]

Ну если пошли варианты, то можно еще проще
DCL

Код:

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

mash:dialog {label = "Масштаб"; 
:radio_column {label=""; 
:popup_list {label=""; 
list="вписать\n1:1\n1:2\n2:1"; key="ms";}
} 
ok_button; 
}

LISP

Код:

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

(defun C:mash ( /)
  (setq okno_print (load_dialog "Масштаб_вопрос.dcl"))
  (if (not (new_dialog "mash" okno_print))
    (exit)
  )
  (action_tile "ms" "(setq mas (cadr (assoc (read $value) '((0 Вписать) (1 1.) (2 0.5) (3 2.)))))")
  (start_dialog)
  (unload_dialog okno_print)
  (if (not mas) (setq mas 'вписать) mas)
)

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

При достаточно длинных списках такой подход не гуд - лучше делать через add_list (см.Полещука)

[Таня.]

Сообщение от T-Yoke А вообще, зачем вашим сотрудникам понадобилась такая программа, можете растолковать. Чем стандартные установки печати в автокаде не устраивают.

Мои сотрудницы – просто умницы. Автокад освоили в кратчайшие сроки и успешно в нем работают. Для меня же по сей день остается загадкой, почему нечто сложное далось им легко, а не легком, спотыкаются. Настройки печати приходится время от времени менять – то на принтере (А3, А2), то на плоттере печатаем. И для них это сложно. А я все необходимое - принтер, формат, масштаб - вывела на одно окошко. Все просто и ясно.

[Zouss]

и появился инструмент для стандартизации процесса печати

[fixo]

Сообщение от CB Ну если пошли варианты, то можно еще проще DCL Код: [Выделить все] mash:dialog {label = "Масштаб"; :radio_column {label=""; :popup_list {label=""; list="вписать\n1:1\n1:2\n2:1"; key="ms";} } ok_button; } LISP Код: [Выделить все] (defun C:mash ( /) (setq okno_print (load_dialog "Масштаб_вопрос.dcl")) (if (not (new_dialog "mash" okno_print)) (exit) ) (action_tile "ms" "(setq mas (cadr (assoc (read $value) '((0 Вписать) (1 1.) (2 0.5) (3 2.)))))") (start_dialog) (unload_dialog okno_print) (if (not mas) (setq mas 'вписать) mas) )

radio_column я бы заменил на boxed_row
и обязательно значение масштаба в локальные
IMHO:

Код:

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

(defun C:mash ( / mas)...

~'J'~

[Таня.]

Сообщение от Zouss и появился инструмент для стандартизации процесса печати

Ну, что тут поделаешь. Я же обещала им, что Автокад будет проще и интереснее кульмана… Приходится отвечать за свои слова.