[ASLYS]

Как сделать чтобы во время выполнения функции, например рисование кружков

Код:

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

(defun c:Ax(/ p)(while(setq p(getpoint "\nPoint :"))(command "_circle" p 10)))

в "прозрачном" режиме выполнить другую функцию, например поменять цвет

Код:

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

(defun bx()(vla-put-color(vlax-ename->vla-object(car(entsel "\nSelect a circle:")))1))

есть подозрения, что это делается с помощью vlax-add-cmd, но не могу понять как она работает
И еще вопрос. В Visual LISP Editor, программа распознаёт стандартные функции-они выделяются синим цветом. Eсли установить DOSLib, то его функции тоже распознаются. Можно ли сделать так, что бы моя функция, например bx или Ax тоже распознавалась (выделялась синим цветом), и каждый раз мне не надо было ее прописывать заново

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

Лишнее это, лишнее. Веришь?
[ATTACH]1180694604.rar[/ATTACH]

[ASLYS]

Лишнее это, лишнее. Веришь?

может быть, но
плюсы:
-на панельке Object Snap (и вCtrl (или Shift) + правый пинок) можно включить только одну привязку, у меня можно включить несколько (меньше кликов)
-drafting setings-Object Snap нужно открыть, у меня на экране видно какие привязки включены (меньше кликов)
минусы:
??? (экран большой-места не жалко)

если забыть про Object Snap
главное что это lisp, который выполняется во время выполнения другого lisp. это можно использовать для других случаев