[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]

В зачем использовать ком.методы, когда можно без них обойтись? Например, так:

Код:

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

(defun c:ax (/ pt)
  (vl-load-com)
  (while
    (and (not (vl-catch-all-error-p
                (vl-catch-all-apply
                  '(lambda () (setq pt (getpoint "\nУкажите точку <Отмена> : ")))
                  ) ;_ end of VL-CATCH-ALL-APPLY
                ) ;_ end of VL-CATCH-ALL-ERROR-P
              ) ;_ end of not
         pt
         ) ;_ end of and
     (entmakex (list (cons 0 "CIRCLE")
                     (cons 10 pt)
                     (cons 40 10.)
                     (cons 62 1) ; это назначение цвета
                     ) ;_ end of list
               ) ;_ end of entmakex
     ) ;_ end of while
  ) ;_ end of defun

Можно и через vla, но там писать просто больше надо будет

[ASLYS]

Я написал простой пример, в данном случае, конечно можно сделать просто, но для других случаев нужен именно ПРОЗРАЧНЫЙ lisp (как OSNAP или ORTHO)

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

Честно говоря, я пока не могу представить необходимость "прозрачного" лиспа. Можно примерчик?

[Krieger]

Ну дык поставь vla-put-color в свой прогу у всего делов...

Код:

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

(defun c:Ax(/ p)
  (while(setq p(getpoint "\nPoint :"))
    (command "_circle" p 10)
    (vla-put-color(vlax-ename->vla-object (entlast))1)
    )
  )

[AY]

В зачем использовать ком.методы, когда можно без них обойтись?

Ну, например, для нормальной работы "отката" ;)

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

> AY: Для этого достаточно в начале и конце поставить соотвтственно vla-startundomark и vla-endundomark.

[VVA]

Так?

Код:

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

(vl-load-com)
(defun rd ()(setvar "CECOLOR" "1"))
(defun grn ()(setvar "CECOLOR" "3"))
(defun blay ()(setvar "CECOLOR" "Bylayer"))
(vlax-add-cmd "RD1" 'rd "RD1" ACRX_CMD_TRANSPARENT)
(vlax-add-cmd "GRN" 'grn "GRN" ACRX_CMD_TRANSPARENT)
(vlax-add-cmd "BL" 'blay "BL" ACRX_CMD_TRANSPARENT)

Команда: _line Первая точка: Следующая точка или [Отменить]: Следующая точка или [Отменить]: 'rd1 Возобновляется команда ОТРЕЗОК. Следующая точка или [Отменить]: Следующая точка или [Замкнуть/Отменить]: Следующая точка или [Замкнуть/Отменить]: 'grn Возобновляется команда ОТРЕЗОК. Следующая точка или [Замкнуть/Отменить]: Следующая точка или [Замкнуть/Отменить]: Следующая точка или [Замкнуть/Отменить]: 'bl Возобновляется команда ОТРЕЗОК. Следующая точка или [Замкнуть/Отменить]: Следующая точка или [Замкнуть/Отменить]:

[ASLYS]

Пример
У меня висит панелька, похожая на Object Snap, которая показывает какие привязки включены в данный момент. Если при отключенных привязках запустить Ax, выбрать привязку в стандартной панеле Object Snap, вставить круг, то для следующего круга надо опять щелкать на панель Object Snap. Моя панель сохраняет привязку, и для следущего круга не надо повторно нажимать на панель, всегда видно какие привязки включенны, и одним кликом можно выбирать нужную. Проблема в том, что я не могу кликнуть на моей панельке, пока не закончу выполнять Ax

[AY]

Сообщение от Кулик Алексей aka kpblc > AY: Для этого достаточно в начале и конце поставить соотвтственно vla-startundomark и vla-endundomark.

Ну так, а я о чем - учишь как надо, а откат пропустил - выходит у автора был более функциональный вариант ;)

[Alaspher]

Код:

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

(defun test ()
  (alert "Проба прозрачного режима.")
)

(vlax-remove-cmd "mycom")
(vlax-add-cmd "mycom" 'test "моякоманда" ACRX_CMD_TRANSPARENT)

Будут доступны команды "mycom" и "моякоманда", в том числе в прозрачном режиме. Вызываться будет функция "test".

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

Сообщение от AY Сообщение от Кулик Алексей aka kpblc > AY: Для этого достаточно в начале и конце поставить соотвтственно vla-startundomark и vla-endundomark. Ну так, а я о чем - учишь как надо, а откат пропустил - выходит у автора был более функциональный вариант

Я не знаю, но подобные цикличные вещи (ИМХО) все же лучше отменять по шагам, а не чохом все. Хотя это зависит от задачи
Правда, посты VVA и Alaspher'a уде проблему решили...
Завидую я им и их уровню - они где прошли, там воевать уже нечего

[AY]

>крыс
А кто говорил про чох?

Кстати, если вызывать функцию не именем команды 'ax, а как лисп-функцию вроде (c:ax), то обрабатываться она будет прозрачно и без (vlax-add- ...). Это может не очень красиво если команды вводятся в командной строке вручную, но если ввод из меню, то вполне "прокатит".

[ASLYS]

спасибо за помощь, идея примерно такая

Код:

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

;включает osmode --> j.                                                
;необходимо создать соответствующие "OSMODE" иконки макрос 'act-osm-1 'act-osm-128...
(defun act-osm(j) 
 (if(=(logand (getvar "osmode")j) 0)(setvar "osmode" (+ (getvar "osmode")j))(setvar "osmode" (- (getvar "osmode")j)))
)

;создать прозрачные команды "act-osm-1" = (act-osm 1) ... "act-osm-8192" = (act-osm 8192)                       
(setq i 1)
(repeat 13
 (vlax-add-cmd
   (strcat "act-osm-"(itoa i))
   (eval(read (strcat "(defun act-osm-"(itoa i)"(/)(act-osm "(itoa i)"))")))
   (strcat "act-osm-"(itoa i))
   ACRX_CMD_TRANSPARENT
 )  
 (setq i(* 2 i))  
)

[mmax]

http://dwg.ru/forum/viewtopic.php?t=12478

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

> ASLYS : По-моему, во-первых, того же эффекта можно добиться простым выполнением

Код:

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

'osmode

либо Ctrl (или Shift) + правый пинок либо нажатием на соответствующие кнопки панели Object Snap. ИМХО ты закошмариваешь ситуацию...

[ShaggyDoc]

Сообщение от Кулик Алексей aka kpblc Ctrl (или Shift) + правый пинок либо нажатием на соответствующие кнопки панели Object Snap. ИМХО ты закошмариваешь ситуацию...

Согласен. Плюс F3 в момент ожидания ввода точки. Это же стандартные способы, которым просто надо научить. Должны выполняться на уровне инстинкта.

А вообще тема прозрачного вызова "LISP из LISP" интересна, но для других случаев. Или даже для привязки, но нестандартной, а определенной в какой-то функции.

[Alaspher]

Сообщение от Кулик Алексей aka kpblc они где прошли, там воевать уже нечего

Ты сильно преувеличиваешь, по крайней мере в части меня - я так много не знаю в АКАДе, что аж обидно!

На счёт стандартных средств - полностью согласен.

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

Сообщение от Alaspher Ты сильно преувеличиваешь, по крайней мере в части меня - я так много не знаю в АКАДе, что аж обидно!

Хороший шутк. Мой сознаний в ступоре.

[ASLYS]

ИМХО ты закошмариваешь ситуацию...

я только начинаю изучать lisp
прикрепил наглядный пример к посту N9
[ATTACH]1180693603.rar[/ATTACH]

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

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

[ASLYS]

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

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

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