[Макс_Кунгур]

Добрый день. Подскажите, пожалуйста, как в autolisp написать, чтобы при нажатии на точку в чертеже AutoCad-а, появлялось новое окно, а в этом новом окне - открытие lisp-приложения.

[Profan]

открытие lisp-приложения

в Блокноте, что ли?

[Holon]

В точку попасть наверное сложно, а в прямоугольник наверное
будет проще. Для примера построй прямоугольник:

Код:

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

Command: _rectang
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]: 0,0
Specify other corner point or [Area/Dimensions/Rotation]: 10,10

Ты можеш построить его програмно если захочешь.
И вот к нему код:

Код:

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

(defun c:clik (/ lst x y)
        (setq lst(getpoint "\Select point <Quit> : \n") x(car lst) y(cadr lst))
(if (and(> x 0)(< x 10)(> y 0)(< y 10))(alert "OK!")(alert "CANCEL!"))
  (princ)
  )

По такому принципу наверно можно сделать игру "крестик нолик" например :-)

[Макс_Кунгур]

Вот у меня как выглядит чертеж (ris.jpg). Кружки в нем - это точки, и например при нажатии на одну из них открывается новое окно, и в нем , например строится линия (построение линии взято из lisp-приложения). Но можно конечно еще сделать так, чтобы это все находилось в одном lisp- приложении. Просто чтобы построение линии открывалось в новом окне

[Макс_Кунгур]

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

[Макс_Кунгур]

Конкретнее это все должно выглядеть так (ris1.jpg). У меня есть карта. На ней множество точек с координатами (y1,x1), (y2,x2) .....Например, при открытии lisp-приложения выводится сообщение в командной строке "Выберите точки". Мы на карте выбираем две точки, они закрашиваются в красный цвет при выборе, нажимаем, предположим, F12, открывается новое окно, и там нарисована линия между двумя точками (y1,x1) и (y2,x2).

[Profan]

О каком новом окне речь идет? О новом чертеже?

[Макс_Кунгур]

В новом чертеже, или в этом же чертеже, но в другом окне, если конечно это возможно, главное сохранить привязку к координатам.

[Profan]

Про окно путаница какая-то. Разве нельзя соединить точки просто в том же чертеже без упоминаний о каких-то окнах?

[Макс_Кунгур]

В чертеже у меня более 1000 точек, а линия нужна между двумя выбранными точками (чтобы новый чертеж содержал в себе только 2 точки и линию)

[Profan]

Значит, получится огромное (миллиарды, квадриллионы) количество новых файлов с одним только нарисованным отрезком...

[Макс_Кунгур]

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

[Profan]

Так что, из этого множества точек надо выбрать ВРУЧНУЮ всего две точки и соединить их отрезком? И для этого еще какой-то лисп нужен?

[Макс_Кунгур]

Profan, ты или издеваешься, или не допонимаешь, что мне нужно. Линия, это для примера, результат должен быть таков: из чертежа, на котором нарисованы тысяча точек, мы выбираем 2, выделяем их, нажимаем любую кнопку, на выходе не должно быть основного чертежа, а должен быть пустой чертеж с 2 точками, а то что будет делаться впоследствии с этими точками, у меня есть lisp-приложение, которое это будет делать. НА ВЫХОДЕ МНЕ НУЖЕН ПУСТОЙ ЭКРАН С ЭТИМИ 2 ТОЧКАМИ, КОТОРЫЕ Я ВЫБРАЛ. ТОЛЬКО С НИМИ. КООРДИНАТЫ ТОЧЕК НА СТАРОМ ЧЕРТЕЖЕ И НА НОВОМ ДОЛЖНЫ СОВПАДАТЬ. И ВСЕ. А ты мне предлагаешь на этом же чертеже выделит две точки и нарисовать линию между ними, а остальные точки и графика сами что-ли пропадут?.

[Profan]

Могут и сами пропасть, если в программе предусмотреть выключение слоя, на котором они нарисованы.

[CB]

>Макс_Кунгур
Да ты не нерничай, просто нормально объясни.
Указали две точки, открылся новый чертеж, на нем отрисовались эти 2 точки, что-то с ними сделали (например построили по ним линию). Ну а дальше то что?
Открываешь первый чертеж, указываешь снова 2 точки и куда их дальше - снова в новый чертеж или в тот, в который вставлялись первые две точки???

[VVA]

Макс_Кунгур,
1. Ты знаешь что такое слои?
2. Ты знаешь команду _wblock и _-wblock

[Макс_Кунгур]

CB, дальше ничего делать не надо, только если распечатать, возвращаться в основной чертеж не нужно

VVA,
мне нужно именно в новом окне (чертеже) чтобы все нарисовалось. старый можно закрыть

[VVA]

Макс_Кунгур, После того как выделил нужные тебе 2 точки делаешь
1. Save AS
2. Удаляешь все точки кроме выбранных
3. Запускаешь свой лисп

[Макс_Кунгур]

VVA, мне так не надо. подскажи, знаешь ты или нет, как при выделении некоторой области с точками, открывалось новое окно autocad с этими же точками, которые выбрали, без потери координат.