[Джек]

Всем привет
Вот решиол написать прожку вставка блока по двум запрашиваемым значениям, но что то не получается Появляется одна и та же фраза "Слишком много аргументов"
вот сам лисп

(defun c:t1 ();переход вид2

(if (null (setq a (vl-bb-ref 'diam1:a)))
(setq a "45")
);if

(initget "45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420")

(if (setq aa (getkword "\nВведите проходной диаметр тройника <"a">: "))
(setq a (atoi aa))
);if

;;*************************************************

(if (null (setq b (vl-bb-ref 'diam2:b)))
(setq b "45")
);if

(initget "25 45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420")

(if (setq bb (getkword "\nВведите проходной диаметр отвода тройника <"b">: "))
(setq b (atoi bb))
);if

(cond
((and( = a 45)( = b 45))
(command "_.insert" "t1-1" pause "1" "1" pause )
)
((and( = a 57)( = b 45))
(command "_.insert" "t3-1" pause "1" "1" pause )
)
((and( = a 57)( = b 57))
(command "_.insert" "t2-1" pause "1" "1" pause )
)
((and( = a 76)( = b 76))
(command "_.insert" "t4-1" pause "1" "1" pause )
)
((and( = a 76)( = b 45))

(command "_.insert" "t6-1" pause "1" "1" pause )
)
);конец конд

;;****************************

(vl-bb-set 'diam1:a a)
(vl-bb-set 'diam2:b b)

;;****************************

(princ)
)

Спасибо.

[mmax]

Никогда не использовал COND, но мне кажется
(cond
((and( = a 45)( = b 45))
(command "_.insert" "t1-1" pause "1" "1" pause )
)

должно быть так

Код:

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

(cond 
(and( = a 45)( = b 45)
) ;and
(command "_.insert" "t1-1" pause "1" "1" pause ) 

(and( = a 76)( = b 76)
) ;and
(command "_.insert" "t4-1" pause "1" "1" pause ) 
);cond

перед and лишняя скобка и соответственно после command лишняя

((and( = a 45)( = b 45))
(command "_.insert" "t1-1" pause "1" "1" pause )
);это один аргумент

[ытя]

С cond как раз всё верно. Ошибка в

(getkword "\nВведите проходной диаметр тройника <"a">: ")

должно быть:
(getkword (strcat"\nВведите проходной диаметр тройника <" a ">: "))

[Геннадий aka PG]

Должно быть

(getkword (strcat"\nВведите проходной диаметр тройника <a>: "))

Кавычки у буковок a b тут не надо, если хоца тогда надо через слэш как то писать

[ытя]

Если я правильно понял автора темы, то на месте a и b должно стоять текущее значение, поэтому стоят кавычки.

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

Вот только интересно, зачем используется vl-bb-set функции, когда можно просто обойтись глобальными переменными?

Код:

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

(defun c:mt1 (/)
  (initget "45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420")
  (if (not (setq a (getkword (strcat "\nВведите проходной диаметр тройника <"
				     (if (not a)
				       "45"
				       (vl-princ-to-string a)
				       ) ;_ end of if
				     "> : "
				     ) ;_ end of strcat
			     ) ;_ end of GETKWORD
		 ) ;_ end of setq
	   ) ;_ end of not
    (setq a 45)
    ) ;_ end of if
  (initget "25 45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420")
  (if
    (not (setq
	   b (getkword (strcat "\nВведите проходной диаметр отвода тройника <"
			       (if (not b)
				 "45"
				 (vl-princ-to-string b)
				 ) ;_ end of if
			       ) ;_ end of strcat
		       ) ;_ end of GETKWORD
	   ) ;_ end of setq
	 ) ;_ end of not
     (setq b 45)
     ) ;_ end of if
  (cond
    ((and (= a 45) (= b 45))
     (command "_.insert" "t1-1" pause "1" "1" pause)
     )
    ((and (= a 57) (= b 45))
     (command "_.insert" "t3-1" pause "1" "1" pause)
     )
    ((and (= a 57) (= b 57))
     (command "_.insert" "t2-1" pause "1" "1" pause)
     )
    ((and (= a 76) (= b 76))
     (command "_.insert" "t4-1" pause "1" "1" pause)
     )
    ((and (= a 76) (= b 45))
     (command "_.insert" "t6-1" pause "1" "1" pause)
     )
    (t (princ "\nЭто сочетание не работает!"))
    ) ;_ end of cond
  (princ)
  ) ;_ end of defun

Поскольку не очень понимаю идеи, проверить работу не могу.

[vk]

Сообщение от kpblc Вот только интересно, зачем используется vl-bb-set функции, когда можно просто обойтись глобальными переменными?

Значения глобальных переменных нельзя прочитать из другого чертежа.

[Геннадий aka PG]

Сообщение от ытя Если я правильно понял автора темы, то на месте a и b должно стоять текущее значение, поэтому стоят кавычки.

Твоя правда, тока пустой ввод тогда должен работать наверное (ИМХО для удобства может еще сделать выбор из списка...)

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

Сообщение от vk Значения глобальных переменных нельзя прочитать из другого чертежа.

Это я знаю. Вопрос в необходимости такого хода.

[vk]

Сообщение от kpblc Сообщение от vk Значения глобальных переменных нельзя прочитать из другого чертежа. Это я знаю. Вопрос в необходимости такого хода.

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

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

Ххе. В таком случае надо побеспокоиться об уникальности имен, как я понимаю. А то найдется такая сволочь, как я, свои данные туда засунет (вообще строки или списки, во весело будет!)

[Эдуард]

Значения глобальных переменных можно импортировать во все отрытые и открываемые в текущем сеансе рисунки функцией
vl-propagate

[Джек]

Сообщение от kpblc Вот только интересно, зачем используется vl-bb-set функции, когда можно просто обойтись глобальными переменными? Код: [Выделить все] (defun c:mt1 (/) (initget "45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420") (if (not (setq a (getkword (strcat "\nВведите проходной диаметр тройника <" (if (not a) "45" (vl-princ-to-string a) ) ;_ end of if "> : " ) ;_ end of strcat ) ;_ end of GETKWORD ) ;_ end of setq ) ;_ end of not (setq a 45) ) ;_ end of if (initget "25 45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420") (if (not (setq b (getkword (strcat "\nВведите проходной диаметр отвода тройника <" (if (not b) "45" (vl-princ-to-string b) ) ;_ end of if ) ;_ end of strcat ) ;_ end of GETKWORD ) ;_ end of setq ) ;_ end of not (setq b 45) ) ;_ end of if (cond ((and (= a 45) (= b 45)) (command "_.insert" "t1-1" pause "1" "1" pause) ) ((and (= a 57) (= b 45)) (command "_.insert" "t3-1" pause "1" "1" pause) ) ((and (= a 57) (= b 57)) (command "_.insert" "t2-1" pause "1" "1" pause) ) ((and (= a 76) (= b 76)) (command "_.insert" "t4-1" pause "1" "1" pause) ) ((and (= a 76) (= b 45)) (command "_.insert" "t6-1" pause "1" "1" pause) ) (t (princ "\nЭто сочетание не работает!")) ) ;_ end of cond (princ) ) ;_ end of defun Поскольку не очень понимаю идеи, проверить работу не могу.

Спасибо всем большое и kpblc в том числе - все работает!!!!!

[Джек]

Всем привет!!!
kpblc - а программа то не коректно радотает :-( , она не сохраняет последние введенные значения и блоки не ставит!!
Помогите пожалуйста!

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

Код:

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

(defun c:mt1 (/ loc:strcont loc:getvalue)

  (defun loc:strcont (str replacer new / res)
    (while (vl-string-search replacer str)
      (setq str (vl-string-subst new replacer str))
      ) ;_ end of while
    str
    ) ;_ end of defun

  (defun loc:getvalue (msg str def / res)
    (initget (strcat str " _ " str))
    (if	(not (setq res (getkword (strcat "\n"
					 (vl-string-trim " \n" msg)
					 " ["
					 (loc:strcont str " " (chr 47))
					 "] <"
					 (vl-princ-to-string def)
					 "> : "
					 ) ;_ end of strcat
				 ) ;_ end of getkword
		   ) ;_ end of setq
	     ) ;_ end of not
      (setq res def)
      ) ;_ end of if
    res
    ) ;_ end of defun

  (setq	inside_diam_main (atoi
			   (loc:getvalue
			     "Введите проходной диаметр тройника"
			     "45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420"
			     (if (not inside_diam_main)
			       45
			       inside_diam_main
			       ) ;_ end of if
			     ) ;_ end of loc:getvalue
			   ) ;_ end of rtos
	inside_diam_add	 (atoi
			   (loc:getvalue
			     "Введите проходной диаметр тройника"
			     "25 45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420"
			     (if (not inside_diam_add)
			       45
			       inside_diam_add
			       ) ;_ end of if
			     ) ;_ end of loc:getvalue
			   ) ;_ end of rtos
	) ;_ end of setq
  (cond
    ((and (= inside_diam_main 45) (= inside_diam_add 45))
     (command "_.insert" "t1-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 57) (= inside_diam_add 45))
     (command "_.insert" "t3-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 57) (= inside_diam_add 57))
     (command "_.insert" "t2-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 76) (= inside_diam_add 76))
     (command "_.insert" "t4-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 76) (= inside_diam_add 45))
     (command "_.insert" "t6-1" pause "1" "1" pause)
     )
    (t (princ "\nЭто сочетание не работает!"))
    ) ;_ end of cond
  (princ)
  ) ;_ end of defun

Специально проверил. Все работает.
1. Блоки должны лежать в путях поддержки када.
2. У тебя обрабатываются не все возможные варианты сочетаний внутреннего диаметра и диаметра отвода.

[ShaggyDoc]

У тебя обрабатываются не все возможные варианты сочетаний внутреннего диаметра и диаметра отвода.

И это верно, и вообще поход к структуре программы плохой.

1. Тройников может быть много, но сочетания - ограничены. Значит и выбираться должны не по отдельности два диаметра, а сразу тройник, как изделие. Например "57х45". Тем более, что предусмотрено использование блоков с заранее известными именами и номенклатурой, а не рисование тройников программно (что вообще-то гораздо "гибше", особенно если данные не зашиты в программу).

Сейчас требуется два ввода, да еще и не гарантированно правильных - может обнаружиться, что "это сочетание не предусмотрено". А откуда "тетка" знает, что предусмотрено, а что нет?

2. Как правило, надо нарисовать сразу несколько изделий. То есть программа должна быть зациклена на этапе после выбора типоразмера.

3. Как правило, применяются повторяющиеся изделия. Предыдущий выбранный типоразмер должен запоминаться, а при следующем запуске программы предлагаться по умолчанию. При этом должна выводиться информация о примененном типоразмере и сразу запрашиваться точка вставки. А изменение типоразмера в опции. Т.е. командная строка типа:

"Тройник 108х89. Точка вставки [Меню]<Выход>:

Здесь можно:

а) Сразу указать точку и нарисовать тройник 108х89.

б) Выбрать опцию Меню и там выбрать другой типоразмер. Выбранный типоразмер должен запомниться в подходящем месте для использования по умолчанию в следующий раз.

в) Нажать Enter и выйти без рисования, или когда надоест.

По такому же принципу надо делать и прочие детали (отводы, переходы и т.д.).

Про vl-propagate и vl-bb-set уж молчу - такие фокусы совершенно здесь не нужны. Как это "вдруг пространство кончилось?" Но если и предположить такой "коллапс вселенной", то настройки должны сохраняться вне любого документа и между сеансами. То есть в подходящем месте.

[Джек]

Сообщение от kpblc Код: [Выделить все] (defun c:mt1 (/ loc:strcont loc:getvalue) (defun loc:strcont (str replacer new / res) (while (vl-string-search replacer str) (setq str (vl-string-subst new replacer str)) ) ;_ end of while str ) ;_ end of defun (defun loc:getvalue (msg str def / res) (initget (strcat str " _ " str)) (if (not (setq res (getkword (strcat "\n" (vl-string-trim " \n" msg) " [" (loc:strcont str " " (chr 47)) "] <" (vl-princ-to-string def) "> : " ) ;_ end of strcat ) ;_ end of getkword ) ;_ end of setq ) ;_ end of not (setq res def) ) ;_ end of if res ) ;_ end of defun (setq inside_diam_main (atoi (loc:getvalue "Введите проходной диаметр тройника" "45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420" (if (not inside_diam_main) 45 inside_diam_main ) ;_ end of if ) ;_ end of loc:getvalue ) ;_ end of rtos inside_diam_add (atoi (loc:getvalue "Введите проходной диаметр тройника" "25 45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420" (if (not inside_diam_add) 45 inside_diam_add ) ;_ end of if ) ;_ end of loc:getvalue ) ;_ end of rtos ) ;_ end of setq (cond ((and (= inside_diam_main 45) (= inside_diam_add 45)) (command "_.insert" "t1-1" pause "1" "1" pause) ) ((and (= inside_diam_main 57) (= inside_diam_add 45)) (command "_.insert" "t3-1" pause "1" "1" pause) ) ((and (= inside_diam_main 57) (= inside_diam_add 57)) (command "_.insert" "t2-1" pause "1" "1" pause) ) ((and (= inside_diam_main 76) (= inside_diam_add 76)) (command "_.insert" "t4-1" pause "1" "1" pause) ) ((and (= inside_diam_main 76) (= inside_diam_add 45)) (command "_.insert" "t6-1" pause "1" "1" pause) ) (t (princ "\nЭто сочетание не работает!")) ) ;_ end of cond (princ) ) ;_ end of defun Специально проверил. Все работает. 1. Блоки должны лежать в путях поддержки када. 2. У тебя обрабатываются не все возможные варианты сочетаний внутреннего диаметра и диаметра отвода.

Kpblc спасибо за лисп , но – данный код программы работает не корректно, т.к. при повторном вызове команды (программы) не дает возможность сделать пустой ввод. При пустом вводе программа выдает ошибку: «Введите проходной диаметр тройника
[45/57/76/89/108/133/159/219/273/325/377/426/530/720/1020/1420] <76> :
; ошибка: не верный тип аргумента: stringp 76».
Получается, пользователю требуется всегда вводить число (значение).
Можно сделать, так чтоб программа давала возможность делать «пустой ввод»?
:roll:

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

Сорри, запутался

Код:

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

(defun c:mt1 (/ loc:strcont loc:getvalue)

  (defun loc:strcont (str replacer new / res)
    (while (vl-string-search replacer str)
      (setq str (vl-string-subst new replacer str))
      ) ;_ end of while
    str
    ) ;_ end of defun

  (defun loc:getvalue (msg str def / res)
    (initget (strcat str " _ " str))
    (if	(not (setq res (getkword (strcat "\n"
					 (vl-string-trim " \n" msg)
					 " ["
					 (loc:strcont str " " (chr 47))
					 "] <"
					 (vl-princ-to-string def)
					 "> : "
					 ) ;_ end of strcat
				 ) ;_ end of getkword
		   ) ;_ end of setq
	     ) ;_ end of not
      (setq res def)
      ) ;_ end of if
    res
    ) ;_ end of defun

  (setq	inside_diam_main (itoa
			   (loc:getvalue
			     "Введите проходной диаметр тройника"
			     "45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420"
			     (if (not inside_diam_main)
			       45
			       inside_diam_main
			       ) ;_ end of if
			     ) ;_ end of loc:getvalue
			   ) ;_ end of rtos
	inside_diam_add	 (itoa
			   (loc:getvalue
			     "Введите проходной диаметр тройника"
			     "25 45 57 76 89 108 133 159 219 273 325 377 426 530 720 1020 1420"
			     (if (not inside_diam_add)
			       45
			       inside_diam_add
			       ) ;_ end of if
			     ) ;_ end of loc:getvalue
			   ) ;_ end of rtos
	) ;_ end of setq
  (cond
    ((and (= inside_diam_main 45) (= inside_diam_add 45))
     (command "_.insert" "t1-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 57) (= inside_diam_add 45))
     (command "_.insert" "t3-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 57) (= inside_diam_add 57))
     (command "_.insert" "t2-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 76) (= inside_diam_add 76))
     (command "_.insert" "t4-1" pause "1" "1" pause)
     )
    ((and (= inside_diam_main 76) (= inside_diam_add 45))
     (command "_.insert" "t6-1" pause "1" "1" pause)
     )
    (t (princ "\nЭто сочетание не работает!"))
    ) ;_ end of cond
  (princ)
  ) ;_ end of defun

Так работает?

[Джек]

Сообщение от kpblc Так работает?

Привет всем!!!! И kpblc в том числе!!!!!! :wink:

Программа снова не работает
при вводе числа или в пустом вводе - пишет одно и тоже:

:ошибка, не верный тип аргумента: fixnump: "76"

:roll:

[Джек]

kpblc - пропал! :-(, а вопрос так и не решен :-(