Schöck
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Autolisp многократный запуск функции

Autolisp многократный запуск функции

Ответ
Поиск в этой теме
Непрочитано 11.09.2015, 12:57 #1
Autolisp многократный запуск функции
protorgovec
 
газо- нефтепереработка
 
Уфа
Регистрация: 22.07.2015
Сообщений: 98

Добрый день! Есть в моей функции вот такие строчки
Код:
[Выделить все]
 (command (c:KorpusKolonni)
	 (c:DnicheKolonni))
(setq Sh (getstring "\n Рисовать следующий штуцер? y/n Sh >: "))
(if (= Sh "y") (command (c:flsoedgost12821-80)))
(command (c:c:flsoedgost28759-90))
с первых двух функции выполняются однократно. А вот функция (c:flsoedgost12821-80) должна выполняться столько раз, пока пользователь не задаст переменной Sh "n". Иными словами, если пользователь вводит "y" то выполняется функция (c:flsoedgost12821-80). После ее завершения нужно что бы снова у пользователя был запрос на переменную Sh. Если снова "y" повторяется функция. А если "n" то дальше выполняется функция (c:c:flsoedgost28759-90)
надеюсь кто нибудь поможет.
Просмотров: 960
 
Непрочитано 11.09.2015, 13:31
#2
trir


 
Регистрация: 18.12.2010
Сообщений: 3,430


while
trir на форуме  
 
Непрочитано 11.09.2015, 14:28
#3
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Как-то так
Код:
[Выделить все]
 (c:KorpusKolonni)
(c:DnicheKolonni)

(setq sh "Да")

(while (= sh "Да")

  (initget "Да Нет")
  (setq Sh (getkword "\nРисовать следующий штуцер? [Да/Нет]<Нет>: "))

  (if (= Sh "Да")
     (c:flsoedgost12821-80)
   )
)

(c:flsoedgost28759-90)
gomer вне форума  
 
Автор темы   Непрочитано 14.09.2015, 08:31
#4
protorgovec

газо- нефтепереработка
 
Регистрация: 22.07.2015
Уфа
Сообщений: 98


Цитата:
Сообщение от gomer Посмотреть сообщение
Как-то так
Код:
[Выделить все]
 (c:KorpusKolonni)
(c:DnicheKolonni)

(setq sh "Да")

(while (= sh "Да")

  (initget "Да Нет")
  (setq Sh (getkword "\nРисовать следующий штуцер? [Да/Нет]<Нет>: "))

  (if (= Sh "Да")
     (c:flsoedgost12821-80)
   )
)

(c:flsoedgost28759-90)
Вот спасибочки! А то уже кучу вариатнтов перепробывал, не работало!!!!!
protorgovec вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Autolisp многократный запуск функции

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
AutoLisp. Можно использовать компилированные функции на других диалекта? Kirill_Ja LISP 8 03.05.2013 13:52
Autolisp функция как аргумент другой функции xsakabsx LISP 9 17.12.2010 14:15
Функции AutoLISP из ... DLL! Supermax LISP 21 27.06.2010 14:18
Повторный запуск функции "разорвать в точке"- удаление части линии Lars AutoCAD 7 10.02.2010 18:08
Функции в AutoLISP Briz06 LISP 4 14.10.2006 13:25