[МишаИнженер]

В данной функции перебираются названия стилей мультивыносок и как только название найдено, надо выйти из цикла просмотра названий.
Как это можно сделать?
Данная функция при проверке говорит об ошибке: "; ошибка: завершить / выйти прервать"

Код:

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

 
(defun 	mLeaderstyleExist (styl / dict result)
	(setq i 0)
	(if (setq dict (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))
		(foreach x dict
			(if (and (= (car x) 3) (eq (strcase (cdr x)) (strcase styl)))
				(progn (setq i (+ i 1)) (setq result (entget (cdr (nth i dict)))) (vl-exit-with-value))
				(setq i (+ i 1))
			)
		 ) ;_ конец if
	) ;_ конец foreach
)

Почему команда exit не подходит для этой задачи? Какую другую команду можно для этого использовать?

[Сергей812]

т.е. книжка Полещука про AutoLisp уже забыта?) Вот реально, автор проделал большую работу по систематизации сведений о лиспе на русском языке - и все коту под хвост...

[МишаИнженер]

Нашел в книге Полищука вот такую информацию: оказывается функция Exit в Lisp всегда при срабатывании выдает ошибку. Будто бы без ошибки из программы выйти нельзя?
Как тогда вообще надо выходить из циклов на Лиспе?
Даже новая функция vl-exit-with-value не помогает. Что вообще за тугопродуманый язык такой Лисп?
Похоже разработчки Лиспа подумали: "надо нам придумать функцию которая бы возвращала элемент списка по заданному названию".
Потом дальше подумали: "однако если мы в цикле найдем этот элемент у нас нет функции выхода из цикла. Да ну нафиг эти проблемы! Не будем придумывать такую функцию".
Так и остался Лисп без нормальных функций выходов из циклов и без функции нахождения элемента в списке по названию.
Ещё похоже Лисп придумали "недалекие простаки". Они думали примерно так: "не будем делать функции выхода из циклов. Чем больше будут работать циклы на нашем языке программирования тем дольше и шумнее будет звучать гул в наших ушах от работы компьютеров на нашем языке программирования! И тем больше будет слава везде про нашу изобретательность и мудрость!". А на самом деле люди мучаются из-за этих славолюбливых, ленивых и боязливых изобретателей.

[Сергей812]

например, ввести в условие цикла дополнительное условие.

Сообщение от МишаИнженер тугопродуманый язык такой Лисп?

просто изначально альтернативы не было.. либо Lisp, либо ObjectARX. Потом сбоку прикрутили среду VBA от MS, сейчас уже давно .Net есть для "любительских" надстроек. Зависимость от версии - да ерунда, раньше вообще было четко по 3 версии акада на одном "ядре" подряд (такой труд, раз в три года перекомпилить приложение), потом началось некоторое "брожение" - но ничто не мешает иметь откомпилированные версии программы (в виде файлов *.dll, куда включено все - коды, диалоги) под разные акады (и не только) и запускать нужную.

[МишаИнженер]

Сообщение от Сергей812 например, ввести в условие цикла дополнительное условие.

У меня есть такое условие:

Код:

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

 (if (and (= (car x) 3) (eq (strcase (cdr x)) (strcase styl)))

И как дальше выходить из этого условия?
Никто не знает? Даже разоаботчики Лиспа наверное не знают?
Я помню лет 10-15 назад изучал Лисп и этот "Exit" с ошибкой доводил меня до иступления и тогда я бросил изучать Лисп.
Похоже ситуация с тех пор не поменялась, или есть решение?

[Сергей812]

вот как бы примерно выглядело на .Net (писал в блокноте)

Код:

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

 
 public bool IsExistMLeaderStyle(string aNameMLStyle)
 {
       // Получаем БД текущего чертежа    
       Database lDb = Application.DocumentManager.MdiActiveDocument.Database;
       // Флаг существования стиля	
       bool lIsExists = false;
        // Открытие транзакции 
	using(Transaction lTr = lDb.TransactionManager.StartTransaction())
	{
		// Получаем словарь существующих стилей ML
                DBDictionary lMLStyles = (DBDictionary)lTr.GetObject(lDb.MLeaderStyleDictionaryId, OpenMode.ForRead);
                // Собственно проверка существования стиля с сохранением в флаге
		lIsExists = lMLStyles.Contains(aNameMLStyle);
                // Подтверждение транзакции
		lTr.Commit();
	}
        // Возвращаем значение флага 
	return lIsExists;
 }

никаких циклов и сложновывернутого набора круглых скобок) А лисп мне тоже в свое время не зашел - хотя, наверно, больше из-за своих "урезанных" возможностей из коробки.

[МишаИнженер]

Сообщение от Сергей812 DBDictionary lMLStyles = (DBDictionary)lTr.GetObject(lDb.MLeaderStyleDictionaryId, OpenMode.ForRead); lIsExists = lMLStyles.Contains(aNameMLStyle); lTr.Commit();

А где в этой строке "проверка условия" и команда "выхода" если условие выполняется?

[Сергей812]

Сообщение от МишаИнженер А где в этой строке "проверка условия" и команда "выхода" если условие выполняется?

добавил комментарии в код.

[МишаИнженер]

// Собственно проверка существования стиля с сохранением в флаге
lIsExists = lMLStyles.Contains(aNameMLStyle); Если здесь все нашлось и записалось в флаг, тогда почему выполняется следующая строка? Почему здесь нет выхода из функции?
// Подтверждение транзакции
lTr.Commit(); Как программа попадает сюда, если в предыдущей строке все нашлось и записалось? Это что точка выхода?
Не понятно как можно без циклической проверки записей?
Мне это очень сложно. Мой уровень VBA, VB. А можно делать Net приложения для AutoCAD на Visual Basic?

[trir]

Почему здесь нет выхода из функции?

нужно закрыть транзакцию

Не понятно как можно без циклической проверки записей?

Linq

А можно делать Net приложения для AutoCAD на Visual Basic?

можно, но не нужно

[Сергей812]

Сообщение от МишаИнженер А можно делать Net приложения для AutoCAD на Visual Basic?

можно на Vb.Net - чтобы синтаксиса не пугаться) В конечном итоге все преобразуется в один вид - MSIL.

Про выход уже выше написали - хотя в транзакции ничего не делали в плане изменения БД чертежа - но если не выполнить Commit, то автоматически будет вызван более ресурсоемкий метод Abort.

----- добавлено через ~11 мин. -----
только потом все равно на C# придется перейти - большинство годных примеров на нем всетаки)

[===AAA===]

О чем вообще спор?

(foreach ...) программист использует тогда, когда
понимает, что ему нужно обязательно перебрать
все элементы списка.

Нужно выйти из цикла по условию?

Тогда к вашим услугам функция (while ...)

(exit) порождает "ошибку" ?

Ну и что за беда - переопредели *error*, назначь
там вывод сообщений, возврат на место временно
изменённых системных переменных или просто
"тихий выход без сообщений" и радуйся жизни. :-)

[Сергей812]

Сообщение от ===AAA=== (foreach ...) программист использует тогда, когда понимает, что ему нужно обязательно перебрать все элементы списка. Нужно выйти из цикла по условию? Тогда к вашим услугам функция (while ...) (exit) порождает "ошибку" ? Ну и что за беда - переопредели *error*, назначь там вывод сообщений, возврат на место временно изменённых системных переменных или просто "тихий выход без сообщений" и радуйся жизни. :-)

и как скучно в .Net - внутри тела любого из видов цикла (for, foreach, while или do) просто вызвал оператор break и вывалился из цикла)

[===AAA===]

Ага, я тоже в 80-е годы прошлого века на Фортране
программы фигачил - на 50 строк кода с десяток
операторов перехода. И ведь работало!

Но нас тогда учили, что они, операторы эти, есть
зло и самые правильные ЯП содержать их не должны.

:-)

[Сергей812]

хотя если ТС будет "изучать" .Net таким же способом, как лисп - неизвестно, что лучше: лисп или .Net) В лиспе (как и в VBA) все-таки достаточно много вещей спрятано от разработчика - никаких транзакций, приведений типа и т.д. В .Net несколько раз в начале обучения умудрился "уронить" сам акад своим кодом

[trir]

несколько раз в начале обучения умудрился "уронить" сам акад своим кодом

я его ронял его кодом

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

Сообщение от МишаИнженер Нашел в книге Полищука вот такую информацию: оказывается функция Exit в Lisp всегда при срабатывании выдает ошибку. Будто бы без ошибки из программы выйти нельзя? Как тогда вообще надо выходить из циклов на Лиспе? Даже новая функция vl-exit-with-value не помогает. Что вообще за тугопродуманый язык такой Лисп? Похоже разработчки Лиспа подумали: "надо нам придумать функцию которая бы возвращала элемент списка по заданному названию". Потом дальше подумали: "однако если мы в цикле найдем этот элемент у нас нет функции выхода из цикла. Да ну нафиг эти проблемы! Не будем придумывать такую функцию". Так и остался Лисп без нормальных функций выходов из циклов и без функции нахождения элемента в списке по названию. Ещё похоже Лисп придумали "недалекие простаки". Они думали примерно так: "не будем делать функции выхода из циклов. Чем больше будут работать циклы на нашем языке программирования тем дольше и шумнее будет звучать гул в наших ушах от работы компьютеров на нашем языке программирования! И тем больше будет слава везде про нашу изобретательность и мудрость!". А на самом деле люди мучаются из-за этих славолюбливых, ленивых и боязливых изобретателей.

Ну да, ну да. Offtop: А если вообще даже не пытаться думать, то и любая CAD-система станет "непродуманной, медленной, кривой и глючной". И ваще, карандаш рулит!

Код:

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

 (defun mleaderstyleexists1 (stylename)
  (setq stylename (strcase stylename))
  (vl-remove-if-not
    (function
      (lambda (x)
        (and (= (car x) 3)
             (= (strcase (cdr x)) stylename)
        ) ;_ end of and
      ) ;_ end of LAMBDA
    ) ;_ end of function
    (dictsearch (namedobjdict) "acad_mleaderstyle")
  ) ;_ end of vl-remove-if-not
) ;_ end of defun

(defun mleaderstyleexists2 (stylename)
  (= (type
       (vl-catch-all-apply
         (function
           (lambda ()
             (vla-item (vla-item (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object)))
                                 "acad_mleaderstyle"
                       ) ;_ end of vla-item
                       stylename
             ) ;_ end of vla-item
           ) ;_ end of LAMBDA
         ) ;_ end of function
       ) ;_ end of vl-catch-all-apply
     ) ;_ end of type
     'vla-object
  ) ;_ end of =
) ;_ end of defun

Ну и сравнение по скорости:

Код:

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

_$ (BENCHMARK '((MLEADERSTYLEEXISTS2 "asdf") (MLEADERSTYLEEXISTS1 "asdf")))
Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):

    (MLEADERSTYLEEXISTS1 "asdf").....1391 / 5.3 <fastest>
    (MLEADERSTYLEEXISTS2 "asdf").....7375 / 1 <slowest>
_$ (BENCHMARK '((MLEADERSTYLEEXISTS2 "asdf") (MLEADERSTYLEEXISTS1 "asdf")))
Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):

    (MLEADERSTYLEEXISTS1 "asdf").....1359 / 4.81 <fastest>
    (MLEADERSTYLEEXISTS2 "asdf").....6532 / 1 <slowest>

Код написан "на отцепись", просто как иллюстрация, что помимо 3-4 известных инструментов есть еще несколько встроенных функций. Которые тоже стоит использовать.
Миша, тебе давно пора в тему "Научите на примере", сколько можно?

[SetQ]

Сообщение от МишаИнженер В данной функции перебираются названия стилей мультивыносок и как только название найдено, надо выйти из цикла просмотра названий. Как это можно сделать?

Этого не надо делать, лисп - это функциональный язык, а не процедурный. Приложите пример dwg для тестирования, или попробуйте такое выражение:

Код:

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

 (defun mLeaderstyleExist (styl / dict result)
  (if (setq dict (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))
    (vl-some
      '(lambda (x)
	 (if
	   (and (= (car x) 3) (eq (strcase (cdr x)) (strcase styl)))
	    (entget styl)
	 )
       )
      dict
    )
  )
)

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

Да, про vl-some я как-то не подумал

[SetQ]

Сообщение от Кулик Алексей aka kpblc Да, про vl-some я как-то не подумал

vl-some - это первое, что мне встретилось, когда я сейчас открыл сайт Lee Mac. Либо пишите на лиспе, как lee Mac, либо не мучайте ни себя, ни других, ни Вселенную.