[Raznouh]

Здравствуйте.
Например,такой код:

Код:

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

 (defun c:cr ()
(setq a (entsel "Select circle:"))
(if (=(cdr(assoc 0(entget( car a)))) "CIRCLE")
(command "_circle" (cdr(assoc 10(entget( car a)))) (- (cdr(assoc 40(entget( car a)))) 1) "")
(????????????)
  ))

Хотелось бы ,чтоб если указанный объект оказался не окружностью,вернуться к выполнению функции entsel,и так далее пока не выберу окружность или не нажму Enter,чтобы выйти.Как это реализовать - не знаю.Подскажите кто может.

[Дима_]

Сообщение от Raznouh можно поинтересоваться :где можно найти файл xml с ключевыми словами языка AutoLISP

Есть замечательная функция - (atoms-family...) - которая возвращает все объявленные имена - как их перевести в XML нужного формата - это Вам интресное домашнее задание. Помните что vla-имена подгружаются после (vl-load-com) - то есть можете загрузить все имена, либо сравнить списки до загрузки и после, и загрузить только vla.

[Raznouh]

Дима_ сделал,может топорно,но так

Код:

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

 (read(acad_strlsort(atoms-family 1 )
  ))

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

[Raznouh]

Дима_ ,очень извиняюсь.Удалил и снова установил программу,прописал файл подсветки синтаксиса - работает,подсвечивает.Еще раз спасибо за помощь!

[Дима_]

Сообщение от Raznouh Дима_ ,очень извиняюсь

За что?

[Raznouh]

Все равно не подсвечивает.

За это:второй раз по невнимательности или недосоображовывания пишу неверную инфу.