Нужно подправить макрос (разрыв линии с заменой)

dextron3 · 12.07.2007, 21:24

Разрывает линию между двумя точками и чертит там отрезок в текущем слое:

Код:

^C^C(setq A (ssget));_single;\(setq pt1 (getpoint));\(setq pt2 (getpoint pt1));\_break;!A;!pt1;!pt2;_line;!pt1;!pt2;;

Нашел баг:

При использовании повтора, команда не повторяется (при нажатии правой кнопки), приходится тыкать снова в кнопку

Как можно подправить макрос чтобы он повторялся при нажатии на ентер, или пробел, или правой кнопкой мыши.

Что в даном макросе не работает

Profan · 12.07.2007, 21:43

Возможны 2 варианта.
1. Настроить правую кнопку мыши на отображение контекстного меню.
2. Написать программу на AutoLisp c применением определения функции в виде (defun C:Имя_команды...).

dextron3 · 12.07.2007, 21:59

Цитата:

Сообщение от Profan

Возможны 2 варианта.
..).

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

ну чтобы макрос был зацыклен и выход из него осуществлялся посредством нажатие любимой кнопки ESC

Profan · 12.07.2007, 22:12

По Enter или при стандартной настройке правой кнопки мыши (повторение последней команды без контекстного меню) AutoCAD "вспоминает" только последнюю команду макроса.

Sleekka · 12.07.2007, 22:21

Код:

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

*^C^C(setq A (ssget));_single;\(setq pt1 (getpoint));\(setq pt2 (getpoint pt1));\_break;!A;!pt1;!pt2;_line;!pt1;!pt2;;

подправил

dextron3 · 12.07.2007, 22:22

А можно этот макрос в лисп загнать?

dextron3 · 12.07.2007, 22:25

Цитата:

Сообщение от Sleekka

Код:

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

*^C^C(setq A (ssget));_single;\(setq pt1 (getpoint));\(setq pt2 (getpoint pt1));\_break;!A;!pt1;!pt2;_line;!pt1;!pt2;;

подправил

тоже самое только звездочку впереди поставил

Кулик Алексей aka kpblc · 12.07.2007, 23:08

> dextron3 : оффтоп сплошняком, прошу без обид.
Слушай, а тебе не надоело на каждую свою необходимость напрягать других? Это VVA такой добрый, но он, похоже, остался один такой, а с него его работу никто не снимал.
Замены ProjectStudio ты вряд ли получишь.
Вот ты пишешь, "то же самое, только звездочку впереди поставил". Ну так разберись, что значит эта звездочка. Заодно и остальное изучишь.
Ведь посмотри - тебе ж все время чего-то "требуется". Лисп на то, лисп на се... Не, я понимаю, что некоторые вещи лучше делать лиспом, но ИМХО ты слишком вошел во вкус.
P.S. Еще раз говорю - это сугубо мое личное мнение, если что - мой ПМ открыт.

Sleekka · 12.07.2007, 23:12

сорри за оффтоп но топ у меня не получился. Крыс, просто ты не такой добрый как Perezzz, помнишь butiflet был на форуме. мне тут надо было одну темку найти поделу, дак ниодного сообщения от butifleta я найти не смог, и его акаунта тожа. 8)

Vova · 13.07.2007, 05:16

Если команду с макросом вложить в Tool pallete, то по правой кнопке будет повтор всего макроса

Krieger · 13.07.2007, 07:11

В Tool pallete запихай код и там же выставь слой в котором будет чертится отрезок. И тогда необязательно чтоб слой был текущий.

dextron3 · 13.07.2007, 07:31

Цитата:

Сообщение от Кулик Алексей aka kpblc

> dextron3 : оффтоп сплошняком, прошу без обид.
Слушай, а тебе не надоело на каждую свою необходимость напрягать других? Это VVA такой добрый, но он, похоже, остался один такой, а с него его работу никто не снимал.
Замены ProjectStudio ты вряд ли получишь.
Вот ты пишешь, "то же самое, только звездочку впереди поставил". Ну так разберись, что значит эта звездочка. Заодно и остальное изучишь.
Ведь посмотри - тебе ж все время чего-то "требуется". Лисп на то, лисп на се... Не, я понимаю, что некоторые вещи лучше делать лиспом, но ИМХО ты слишком вошел во вкус.
P.S. Еще раз говорю - это сугубо мое личное мнение, если что - мой ПМ открыт.

Интересно а для чего тогда форум вообще, если тут считают что задовать вопросы не прилично?

Если есть добрый человек то он же не только мне пишет, это всем нужно.

dextron3 · 13.07.2007, 07:40

Цитата:

Сообщение от Krieger

В Tool pallete запихай код и там же выставь слой в котором будет чертится отрезок. И тогда необязательно чтоб слой был текущий.

Tool pallete грузит автокад

shnn · 13.07.2007, 07:45

Поддерживаю модератора. dextron3 Вы просите готовые решения Ваших проблем, а вовсе не задаете вопросы. Вы почему-то не задаете вопросы "как сделать?" Вы пишите "сделайте, напишите на Lisp, исправьте". Один два раза это не сложно, но вы за 2 дня создали пяток тем с просьбой что либо Вам сделать, а это уже напрягает.

Krieger · 13.07.2007, 08:17

Цитата:

Сообщение от dextron3

Tool pallete грузит автокад

:shock:

Кулик Алексей aka kpblc · 13.07.2007, 08:28

Цитата:

Сообщение от dextron3

<...>Интересно а для чего тогда форум вообще, если тут считают что задовать вопросы не прилично?

Ох-ох-ох... А ты не боишься напороться на примерно следующее (полный текст можно посмотреть на http://my.opera.com/kpblc/blog/show.dml/245772):

Цитата:

Задавая вопрос, предоставляйте максимум информации, относящейся к теме. Покажите, что Вы нашли по теме, что - нет. Признание, что Вы, возможно, искали не то или не так, не страшно. Страшно показать, что Вы вообще ничего не искали. После 2-3 попыток получить все "на блюдечке с голубой каемочкой" Вас станут игнорировать.

Я в свое время испугался такому положению дел (кроме того, я четко понимал, что рано или поздно мне понадобится что-то поменять, а у автора исходного кода просто может не оказаться времени), отчего и начал изучать lisp. Ну ты мужик умный, до остального сам додумаешься

Цитата:

Сообщение от dextron3

Если есть добрый человек то он же не только мне пишет, это всем нужно.

Пишет на самом деле он тебе, у других - другие (как правило) задачи и условия, в которых эти задачи надо решать.
---
Добавлено:

Цитата:

Сообщение от dextron3

Tool pallete грузит автокад

"Бездоказательно, дорогой профессор, бездоказательно" (с) "Шерлок Холмс"

Sleekka · 13.07.2007, 09:00

Цитата:

Интересно а для чего тогда форум вообще, если тут считают что задовать вопросы не прилично?

Если есть добрый человек то он же не только мне пишет, это всем нужно.

бреееееед, это нужно только тебе!!!
например у меня арматура вообще не раскладывается line только дин блоки, тем более задачи которые ты ставишь - вообще не нужны по причине того что не надо охотится на муху с гранатометом, все что ты просишь чертится ручками, автоматизация нужна для другого.

dextron3 · 13.07.2007, 09:09

Да, а темы сколько стоит проект или как готовить пельмени наверное здесь самые ходовые.

Не могу понять почему когда допустим человек заходит в тему, вопрос сложный и он не знает на него ответа но все равно комментарий пишет, и еще с такой недоброжелательностью, ну не читай ты тогда, тут могут в теме участвовать только заинтересованные люди, и зачем нам 3 копейки

непонимаю...

Sleekka · 13.07.2007, 09:12

[sm2200]

Геннадий aka PG · 13.07.2007, 09:14

В сборнике "cadhlp" давно есть программка переноса части линии на другой слой (слой выбирается из текущих) при аттачил.
[ATTACH]1184303675.zip[/ATTACH]

12.07.2007, 21:24		#1
Нужно подправить макрос (разрыв линии с заменой) dextron3 проектировшик СССР Регистрация: 01.01.2007 Сообщений: 5,149 Разрывает линию между двумя точками и чертит там отрезок в текущем слое: Код: [Выделить все] ^C^C(setq A (ssget));_single;\(setq pt1 (getpoint));\(setq pt2 (getpoint pt1));\_break;!A;!pt1;!pt2;_line;!pt1;!pt2;; Нашел баг: При использовании повтора, команда не повторяется (при нажатии правой кнопки), приходится тыкать снова в кнопку Как можно подправить макрос чтобы он повторялся при нажатии на ентер, или пробел, или правой кнопкой мыши. Что в даном макросе не работает __________________ инженер проектировшик с опттом программа авто гад образование высшие
Просмотров: 6787

	Реклама i