[studentarh]

В Автокаде сохраняется ввод (последняя введенная команда, координаты нескольких последних точек, указанных на чертеже). Как получить этот ввод средствами autolisp (для использования в программе)?

[Alan]

"Огласите пожалуйста весь список!" (с) Операция Ы и др. приключения Шурика
Препод поставил задачу вот так, как ты написал?

[gomer]

где вы такие беретесь

[studentarh]

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

Вручную можно получить координаты последних указанных точек через меню правой кнопки в процессе выполнения команды, например при черчении отрезка (пункт "Последний ввод"), по крайней мере так в 2012 автокаде. Последние команды тоже нужны, только для других целей (их можно получить вручную также после завершения команды).

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

[gomer]

Сообщение от studentarh для себя нужно

Они растворяются в предзакатном тумане...
Но скажу тебе по секрету, о, мой юный падаван, чтоб ты смог постичь дзен рисования палочек и кружочков на забытом языке автолисп, некоторые из них хранятся в созданных тобой же объектах
Offtop: сорри

[studentarh]

Ну, мне нужны именно те точки, которые я указывал при черчении.
Иногда понимаешь, что чертишь не то, уже после того как начертил. При этом ошибка может быть, например, только в настройках инструмента, а надо все отменять, перенастраивать и потом чертить заново. Вот повторное вычерчивание после перенастройки (указание тех же точек) хотелось бы автоматизировать. Как бы "применить", но с новыми настройками и без завершения команды черчения. Если для этого есть стандартные средства в автокаде, хотелось бы знать, какие именно.

[mamuk]

Что имеете ввиду под настройками инструмента?

[studentarh]

Его параметры.
Например, при создании окна в архитектурном автокаде или других подобных объектов через настройки инструмента (в командной строке или в меню свойств) можно изменить размеры будущего объекта и другие его свойства (для окна - высота подоконника, процент открывания и т. п.). Конечно, можно сначала вычертить "не то", потом это выделить и отредактировать по тем же свойствам, но это неудобно, а в некоторых случаях вообще не подходит (например, параметр смещения привязки по свойствам уже созданного объекта не изменить, а это важный параметр).

Наверное можно воспроизводить макрос для "применения", но такой макрос должен быть сначала записан а потом запущен в нужный момент автоматически (иначе проще будет вычертить заново вручную, чем работать с макросами).

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

Вообще-то получить список точек по указанию пользователя совсем не сложно:

Код:

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

 (defun getpoints (/ pt lst)
  (while (and (not (vl-catch-all-error-p
                     (setq pt (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getpoint "\nSelect point <Cancel> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                           ) ;_ end of setq
                     ) ;_ end of vl-catch-all-error-p
                   ) ;_ end of not
              pt
              ) ;_ end of and
    (setq lst (cons pt lst))
    ) ;_ end of while
  (reverse lst)
  ) ;_ end of defun

[Александр Ривилис]

Сообщение от studentarh Если для этого есть стандартные средства в автокаде, хотелось бы знать, какие именно.

Нет. Во всяком случае на lisp'е ты к ним доступа не получишь.

[john644]

Сообщение от Александр Ривилис Нет. Во всяком случае на lisp'е ты к ним доступа не получишь.

Почему нет? Можно использовать расширенные данные примитива.

[Александр Ривилис]

john644, Какое отношение имеют расширенные данные примитива к имени последней введенной команды или последним введенным точкам?
Впрочем ТС (IMHO) совершенно не понимает ни что ему нужно, ни как можно работать в AutoCAD.

[john644]

Александр Ривилис
Просто нумеруете примитивы. Я в свое время так и делал, а насчет ТС согласен Они сами не знают, чего они хочят(с)

[studentarh]

Надо получить точки, которые пользователь уже ввел, функция, предлагающая указать точки на экране не подходит.
Насчет расширенных данных примитива и нумерации примитивов не понял. Как именно через эти данные получить последние введенные точки?

[gomer]

Сообщение от studentarh Например, при создании окна в архитектурном автокаде или других подобных объектов через настройки инструмента (в командной строке или в меню свойств) можно изменить размеры будущего объекта и другие его свойства (для окна - высота подоконника, процент открывания и т. п.). Конечно, можно сначала вычертить "не то", потом это выделить и отредактировать по тем же свойствам, но это неудобно, а в некоторых случаях вообще не подходит (например, параметр смещения привязки по свойствам уже созданного объекта не изменить, а это важный параметр).

Мне кажется или речь о динамических блоках?

[Александр Ривилис]

Сообщение от studentarh Насчет расширенных данных примитива и нумерации примитивов не понял. Как именно через эти данные получить последние введенные точки?

Никак. Перечитай мой ответ #10

[john644]

Сообщение от studentarh Надо получить точки, которые пользователь уже ввел, функция, предлагающая указать точки на экране не подходит.

Уважаемый студент!
Вы сейчас написали, что хочу работать в Автокаде, НО АВТОКАД МЕНЯ НЕ УСТРАИВАЕТ( в Автокаде существует функция ssget в различных вариациях и другой нет)

Насчет расширенных данных примитива и нумерации примитивов не понял. Как именно через эти данные получить последние введенные точки?

Ну для начала надо знать, что это такое расширенные данные(это было написано для Александр Ривилис, поскольку он это знает.)
Поэтому чтобы не получать глупых ответов, не задавайте глупых вопросов. Объясните задачу полностью, тогда те незнания Автокада будут заметны, но некритичны.

Сообщение от Александр Ривилис Никак. Перечитай мой ответ #10

Ну Вы неправы. Порядок команд и номер ввода точек при помощи расширенных данных сделать можно. Другой вопрос зачем

[studentarh]

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

[Александр Ривилис]

Сообщение от studentarh А задачу, как мне кажется, я полностью объяснил в своих первых сообщениях.

Еще раз (но уже последний) повторюсь: "в том виде, как задача поставлена средствами lisp она не имеет решения."

[gomer]

studentarh, ты б хоть файлик приложил что там рисуешь

[studentarh]

Да, это я наконец понял (что решения нет на лиспе). Ну, значит, другими средствами надо попробовать решить. Я просто думал, что мне здесь помогут.
Насчет файла с чертежом: ну я ведь не про определенный чертеж писал, только старался приводить конкретные примеры, как в случае с окном.

[john644]

Сообщение от studentarh что именно не понятно в том, что я уже писал.

Что именно Вас не устраивает в выборе точек?

[studentarh]

Какой выбор точек? Если это про функцию (getpoints), так я же говорю, она предлагает указать точки на экране, а надо получить уже указанные при черчении.
Предполагается так:
1) черчу (при этом указываю точки)
2) замечаю, что начертил не то, отменяю (при этом подсчитывается количество отмен)
3) перенастраиваю инструмент
4) автоматически указываю те же точки, что в пункте 1), количество точек определяется по количеству отмен из пункта 2), а координаты точек должны сохраняться при черчении в пункте 1).
Так вот, я думал, раз точки сохраняются автоматически в последнем вводе, их можно просто оттуда взять. Но раз нельзя, значит надо их при черчении сохранить, то есть программа должна это выполнять. Но если использовать (getpoints) еще при черчении, то вместо черчения я буду указывать точки для этой функции. И даже если функция будет передавать точки автокаду (чтобы в автокаде все-таки создавались объекты при указании точек), все равно не подходит, так как при выполнении такой функции у меня простой курсор на экране и отсутствует изображение будущего объекта (которое есть при обычном черчении) - получается черчение вслепую, что очень плохо.

[john644]

Я говорил о выборе точек( функция ssget), а не задании точек ( функция getpoint) Теперь выясняется, что Вы не чертите точки, Вы чертите различные примитивы ( линии, трехмерные фигуры и т.д.) Это соверiенно разные вещи. Выбор последнего введенного примитивы (enget (entlast)), а из него уже извлекаете точки.

[Александр Ривилис]

Сообщение от studentarh 1) черчу (при этом указываю точки)

Допустим.

Сообщение от studentarh 2) замечаю, что начертил не то, отменяю (при этом подсчитывается количество отмен)

Допустим. Только некоторые команды имеют внутренние средства отмены, а некоторые нет.

Сообщение от studentarh 3) перенастраиваю инструмент

Чего-чего?

Сообщение от studentarh 4) автоматически указываю те же точки, что в пункте 1)

Это как ты себе представляешь? Если это делаешь ты сам, то каким образом? Если это делает программа, то как она должна знать какую команду и с какими опциями запустить?

Резюме: Незнание возможностей AutoCAD и средств программирования под него приводит к таким вот темам на форуме.

[studentarh]

Извлечение точек из созданного примитива не всегда поможет, так как точки, указанные при его создании, могут не совпадать ни с одной точкой самого примитива. Если я что-то неправильно понял насчет этого, объясните пожалуйста подробнее.

Сообщение от mamuk Что имеете ввиду под настройками инструмента?

- Этот вопрос (насчет перенастройки) уже был, я пытался объяснить подробно на примере с созданием окна в архитектурном автокаде.

Автоматически указывает точки программа (запускаемая вручную когда нужно), при этом программа не должна запускать команду с опциями, так как команда эта (команда черчения) уже запущена в самом первом пункте (точнее перед первым пунктом, до начала самого черчения) и продолжает работать без завершения, а ее опции задаются (точнее меняются на те, которые нужны) как раз при "перенастройке инструмента" (вручную). То есть программа должна именно указать точки и все.

[john644]

Сообщение от studentarh так как точки, указанные при его создании, могут не совпадать ни с одной точкой самого примитива.

Это как? Что Вы имеете ввиду? Если имеете ввиду, что существует формула перевода от заданной точки к точки примитива, так что Вас смущает. Что человек сделал, то человек завсегда и разломать может (С)

[studentarh]

При создании некоторых объектов их положение автоматически уточняется в соответствии с положением существующих объектов, расположенных рядом с указанной точкой (например, то же окно привязывается к стене автоматически, даже если указать не на саму стену, а рядом с ней). Чтобы учесть это автоматическое уточнение, надо получать данные не только самого примитива, но и всех соседних, а формула расчета точки указания будет очень сложной (мне так кажется).

[john644]

Сообщение от studentarh Чтобы учесть это автоматическое уточнение,

А зачем Вам нужно это уточнение? Вам шашечки или ехать?

[studentarh]

Действительно, соседние объекты наверное не нужны и уточнение тоже, я как-то не подумал. Но все-таки при работе разных инструментов будут разные формулы расчета. То есть придется понять принцип построения каждого объекта отдельно, затем это описать в программе и еще включить в программу функцию определения того, какой объект в данном случае создан (чтобы она выбрала нужный способ построения в зависимости от объекта). Ну это тоже, мне кажется, довольно сложно, и, главное, есть вероятность, что не все будет учтено, и в программе будут ошибки, которые сложно найти и устранить.

[Profan]

Про "настройку инструмента" - это да, это лихо. До этого даже Гаврила не додумался.

[Александр Ривилис]

studentarh,

[gomer]

studentarh, хватит мурочку водить, скажи что конкретно тебе надо

[mamuk]

Offtop: интерессно просто невозможно!!!!

[studentarh]

Да я говорил, что надо конкретно, в самом первом сообщении. Мне пояснили, что это невозможно (только почему-то не сразу). Затем предложили другой вариант, который сложный, так что польза от самой программы не стоит работы над ней. Понял, что лучше этим делом не заниматься. Все.

[john644]

Сообщение от studentarh Да я говорил, что надо конкретно, в самом первом сообщении

Вы так особенно ничего и не сказали. Программирование конечно делается некоторое время. Но то что Вы хотите делается легко и при чем несколько вариантов. Для того чтобы решить Вашу задачу напишите программку для прилагаемого примера из набора линии 1 сделать 4 2 - это укоротить одну линию 3 красные перенести и 4 красные повернуть на угол 30 градусов Многие из здесь присутствующих сделают это за пару часов. Вам понадобиться несколько суток, но выбирать вариант Вам. А если хотите пришел на работу шелкнул пальцами и сказал Чертеж, то это на 3 круга ада а не на приличные форумыф.

[Do$]

Сообщение от Profan Про "настройку инструмента" - это да, это лихо. До этого даже Гаврила не додумался.

Есть такая возможность в вертикальных решениях.

[Profan]

Есть, конечно. Да и в самом AutoCAD'е можно настроить инструмент, расположенный на палитре. Но здесь-то о каком инструменте идет речь? О таком, который еще надо выдумать?

[mamuk]

А можно с помощью Lisp создать объект как на ARX!!? хотя бы чтоб объект работал пока сам lisp работает? Что то типа динамического блока?

[Do$]

Offtop: Вопрос очень в тему

[Дима_]

Сообщение от mamuk хотя бы чтоб объект работал пока сам lisp работает?

можно что-то подобное при помощи реакторов.

[mamuk]

Попытался представить чего автор хочет, вот подумал что инструмент в его понимании это некий объект который формируется с помощью программы например Лисп становится статическим блоком и его надо отредактировать с помощью того же лиспа, а чтоб его отредактировать нужны прежние введенные данные, о которых говорил автор.

[mechos]

Понимаю, что рискую быть названным некропостером, но всё-же не вижу смысла создавать целую новую тему и спрошу здесь:
Есть ли возможность через макросы или lisp ввести еще раз уже введенную в команде точку именно в процессе выполнения команды ?

Объясняю, зачем мне это нужно: Есть команда Rotate, она запрашивает базовую точку, потом опции [Copy][Reference] и при выборе референс - начальный и желаемый угол. Угол я задаю графически между направлениями линий, причем в 90% случаев первая линия начинается как раз с той базовой точки, что я выбирал в начале команды.
То есть хотелось бы добиться поведения команды rotate, как в Архикаде, если кто в курсе (выделяем объект, нажимаем кнопку/хоткей команды Rotate - она уже по-умолчанию идет с опцией Reference и запрашивает опорный и конечный угол, выделяем точку вокруг которой крутить, далее - "тык" откуда крутить и "тык" куда - Всё !)

По-идее, экономия всего в один клик, но очень назойливый..

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

[gomer]

так?

Код:

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

 (if (and (setq ss (ssget))
	 (setq pt (getpoint "\nБазовая точка: "))
	 (setq an (getangle pt "\nБазовый угол: ")))
	   (command "_rotate" ss "" pt "_r" (/ (* an 180.0)pi) pause))

[mechos]

Да ! Именно так. Спасибо огромное !

Не с той стороны я пытался зайти и про существование "getangle" забыл совершенно

[VVA]

Сообщение от mechos Макросы предпочтительнее, но скорее всего через них это невыполнимо.

Я бы так не сказал. Можно это забить на кнопку

Код:

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

(command "_rotate" (ssget) "" PAUSE "_r" "@" PAUSE PAUSE)

[mechos]

Сообщение от VVA Я бы так не сказал. Можно это забить на кнопку Код: [Выделить все] (command "_rotate" (ssget) "" PAUSE "_r" "@" PAUSE PAUSE)

Ухты ! Вообще прекрасно ! Интересный ход с собачкой, спасибо .

[gomer]

имхо, макросы -- это то, что работает в ЛТ, если применяются лисп-выражения, то лучше использовать все преимущества лиспа

[mechos]

Сообщение от gomer имхо, макросы -- это то, что работает в ЛТ, если применяются лисп-выражения, то лучше использовать все преимущества лиспа

Ну для меня разница еще и в том, что при работе на нескольких разных компьютерах, не объединенных сетью, надо следить не только за переносом cui файлов, но еще и не забывать держать на всех компах все актуальные *.lsp файлы, поэтому предпочитаю чтобы lsp файлов было как можно меньше..

[Эдуард]

Привет.

Сообщение от Александр Ривилис Нет. Во всяком случае на lisp'е ты к ним доступа не получишь.

Не согласен.
1.Создаем Vlr-SysVar-reactor
2.Пишем функцию отклика на изменение переменной Lastpoint
3.Записываем в словарь или объект координаты точки (далее по желанию - можно добавить дату и время указания , хендл примитива (если он создан) и т.д.)
Основной вопрос - А зачем это надо ?

[samos]

Пожалуйста, подскажите. Не могу врубиться.
Хочу чертить ломанную линию:
(vl-cmdf "_.line")
(vl-cmdf pause)
В этот момент ожидается щелчок мышью.
Делаю щелчок.
Как определить координаты точки щелчка?
Это необходимо для того, чтобы проверить привязку к другим примитивам и принятия решения - чертить или нет

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

(getvar "lastpoit"), кажется

[samos]

Работает. Спасибо!