[mikmiron]

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

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

По-моему, LASTPOINT - это координаты последней точки. А дальше только математика...

[mikmiron]

Нет, изменение LASTPOINT никак не влияет на "выход" дуги из последнего примитива.

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

Простейший вариант:

Код:

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

(command "_.arc" "_tan" (getvar "lastpoint"))
(while (/= (getvar "cmdactive") 0)
(command pause)
)

Код не проверял (и вообще написал "насухую" - кад не запустить)

[mikmiron]

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

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

Значит

Код:

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

(command "_.arс" "")
(while (/= (getvar "cmdactive") 0)
(command pause)
)

[Disney]

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

А тупо, при запросе начальной точки, указать конец нужного примитива, кстати не факт, что он окажется концом, вполне возможно, что это будет начало. Или в этом и смысл, чтоб найти именно конец, тогда что же считать концом той же дуги Можно ли "поменять местами" StartPoint и EndPoint в дуге?
А про LASTPOINT, не понятно:
задаём новое значение

Команда:LASTPOINT Новое значение LASTPOINT <971.1140,3719.3525,0.0000>: 0,0,0

проверяем

Команда:LASTPOINT Новое значение LASTPOINT <0.0000,0.0000,0.0000>:

всё нормально изменили, а вот при рисовании, по правому клику, начинает опять с 971.1140,3719.3525,0.0000

[mikmiron]

Я все решил. Написал программу, которая при клике на конец отрезка или дуги рисует поверх него такой-же примитив с последней точкой, ближайшей к указаной. Причем "рисовать" пришлось тупо в команде command, так как другие способы не оставляют информацию о последней точке ( не путайте с LASTPOINT). И в конце програмки стоит (entdel(entlast)). Всё. Лет 6 руки не доходили автоматизировать этот момент, хотя требуется это раз 10 в день.
P.S. А переменная LASTPOINT тут вообще не причем. Решение можно упростить, только если найти переменные(если они есть) которые используются при рисовании дуги или отрезка при нажатии на пр. кнопку или ENTER.

[Do$]

Сообщение от mikmiron При рисовании дуги, если нажать на правую клавишу мышки, то она начинает рисоваться как продолжение последнего нарисованного примитива(линии или дуги) по касательной к конечной точке.

Что-то у меня так не получается. По ПКМ контекстное меню выскакивает.

[mikmiron]

Тогда нажмите ENTER. У меня на правой кнопке enter висит, даже забыл, что может быть по другому.

[Disney]

mikmiron,
придумал... главное работает, тока зачем рисовать в случаи дуги дугу, всё так же как и для линии прокатит.
И много кнопкотыканий, надо в конец твоей проги добавить
(vl-cmdf "_.arc" "" pause)

[mikmiron]

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