[Positron]

Помогите с макросом?
Незнаю как зделать чтоб макрос начинался с
^C^C_arc;
и заканчивался цыклом
*^C^C_arc;@;

В результате первый радиус делается с любой точки, а последующий по последним координатам с автоповтором до отмены Esc'ом

Пробывал так ^C^C_arc;*^C^C_arc;@; и понял шо неправ... непашет

[Profan]

Звездочка зацикливает макрос, только если находится на первом месте.

[Positron]

Сообщение от Positron В результате первый радиус делается с любой точки, а последующий по последним координатам с автоповтором до отмены Esc'ом

а как тогда оформить правильно макрос?

[Positron]

Возможно надо лисп файлик ? может кто поможет, если в не напряг

[Profan]

Можно использовать команду "_MULTIPLE" ("МНОГОРАЗ"), но она не запоминает опции...

Грубоватая программа построения последовательных дуг только по 3-м точкам:

Код:

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

 
(defun C:arcrep ( / echo flag dn)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 1)
(setq flag T)
(vl-cmdf "_arc" pause pause pause)
(initget "Д Н")
(While flag
(setq dn (getstring "\n Продолжить? [Да/Нет] <Да>: "))
(if (or (= dn "д") (= dn ""))
    (vl-cmdf "_arc" "@" pause pause)
    (setq flag nil)
)
)
(setvar "CMDECHO" echo)
(princ)
)

[Positron]

Сообщение от Profan Грубоватая программа построения последовательных дуг только по 3-м точкам:

...
Покашто только такая идея в голову пришла:
^C^C_arcrep;\\\;\\;\\;\\;\\;\\;\\;\\; и ещо много \\;

[Profan]

Да рисуй полилинию дуговыми сегментами, а потом расчлени.
А что это за команда _arcrep?

[Do$]

Сообщение от Profan А что это за команда _arcrep?

#5

[Profan]

Да, вот что значит несерьезно отнесся к своему труду. Я теперь и не сразу вспомнил, а почему arcrep? Видимо, так: ARC+REPeat.

[sbi]

Сообщение от Profan Да, вот что значит несерьезно отнесся к своему труду. Я теперь и не сразу вспомнил, а почему arcrep? Видимо, так: ARC+REPeat.

DO$ Тут 5 не обойдешся надо

[Krieger]

Может так:

Код:

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

^C^C(command "_arc" pause pause pause)(while (vl-cmdf "_arc" (getvar "lastpoint") pause pause))

[Positron]

Сообщение от Krieger Может так: Код: [Выделить все] ^C^C(command "_arc" pause pause pause) (while (vl-cmdf "_arc" (getvar "lastpoint") pause pause))

непашет
через 2 мин...
^C^C(command "_arc" pause pause pause)(while (vl-cmdf "_arc" (getvar "lastpoint") pause pause)) ... убрал пробел между командами и зарабатоло

Огромное СПАСИБО!

[Positron]

А возможно заменить (Esc) отмену команды клавишей Enter?
какбы 2-й клавишей мышки будет, тогда будет вообще быстрая штука
шото типа if "Enter"
и как ето в коде выглядеть будет интересно...

[Krieger]

Попробуй так:

Код:

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

^C^C(if (setq p1 (getpoint)) (while (setq p2 (getpoint p1)) (vl-cmdf "_arc" p1 p2 pause) (setq p1 (getvar "lastpoint"))))

[Positron]

Сообщение от Krieger Попробуй так: Код: [Выделить все] ^C^C(if (setq p1 (getpoint)) (while (setq p2 (getpoint p1)) (vl-cmdf "_arc" p1 p2 pause) (setq p1 (getvar "lastpoint"))))

супер, спасибо!