[Джек]

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

(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)
)

Спасибо.

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

Никуда я не пропал, из отпуска второй день как вышел. Код:

Код:

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

(defun 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
    (vl-princ-to-string 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 atoi
	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 atoi
	) ;_ 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 Никуда я не пропал, из отпуска второй день как вышел. Код: Код: [Выделить все] (defun mt1 (/ loc:strcont loc:getvalue) ********

kpblc - спасибо тебе большое - заработало!!!!!
С меня ПИВО! 8)

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

Как запускать понятно? А то я там перед именем функции (пока тестил) снес c:

[Джек]

Сообщение от kpblc Как запускать понятно? А то я там перед именем функции (пока тестил) снес c:

Привет - да я понял как запускать!
Спасибо тебе за прогу!
Вот вопрос - как мне к тебе обратится к другим вопросам?

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

Ну я ж не один прогер-то на лиспе Либо форум, либо e-mail, либо приват