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

Добрый день. Подскажите, пожалуйста, как в 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 с этими же точками, которые выбрали, без потери координат.

[VVA]

За стабильность работы не ручаюсь

Код:

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

(vl-load-com)
(defun C:TEST1 ()
(setq newdoc nil newdoc (vla-Add (vla-get-Documents (vlax-get-Acad-Object)) "acadiso.dwt"))
  )
(defun C:TEST2 ()
(and
(setq ss (ssget "_:L" '((0 . "POINT"))))
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(setq lst (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
;;;(setq newdoc (vla-Add (vla-get-Documents (vlax-get-Acad-Object))
;;;"acadiso.dwt"
;;;))
(or (vla-SetVariable newdoc "PDMODE" (getvar "PDMODE")) t)
(or (vla-SetVariable newdoc "PDSIZE" (getvar "PDSIZE")) t)
  (vla-copyobjects adoc
              (vlax-make-variant (vlax-safearray-fill
                  (vlax-make-safearray vlax-vbobject (cons 0 (1- (length lst))))
                  lst)) (vla-get-ModelSpace newdoc))
;;(or (vla-Activate newdoc) t)
(or (vlax-release-object newdoc) t)
(or (vlax-release-object adoc) t)
)
  )

1. Сначала вызываешь TEST1
2. Затем TEST2, выбираешь точки
3. Затем переключаешься в новый документ

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

спасибо сейчас попробую

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

VVA, попробовал, вроде бы работает, только в новом чертеже я не могу найти эти точки, хотя они вроде есть

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

в Text Window пишет:
Команда: TEST1
#<VLA-OBJECT IAcadDocument 0141f3e0>

Команда:
Команда: TEST2

Выберите объекты: Укажите противоположный угол: 2 found

[VVA]

Установи PDMODE и PDSIZE

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

VVA, а как их установить? Я начинающий лиспер, так что извини заранее за такие вопросы.

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

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

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

VVA, выкладываю dwg-файл с точками. Тебе будет болле понятно, что я хочу.

[VVA]

Сообщение от Макс_Кунгур VVA, Я разобрался, где это устанавливать, но их все-равно не видно. А как сделать zoom, чтобы эти точки отображались прямо, когда заходишь в новый чертеж, чтобы их не искать?

Меню Вид->Зуммирование->Границы

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

VVA, я знаю где в AutoCad это делается. Мне нужно как это будет выглядеть в lisp? Можешь в свой предыдущий lisp добавить zoom, я не знаю как это делается. Заранее благодарен.

[Holon]

Учим матчасть здесь в 53 посту я тебе писал про "ZOOM"

[VVA]

Zoom идет в активном документе. Пробуй так, хотя вариант довольно глючный

Код:

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

(vl-load-com)
(defun C:TEST1 ()
(setq newdoc nil newdoc (vla-Add (vla-get-Documents (vlax-get-Acad-Object)) "acadiso.dwt"))
  )
(defun C:TEST2 ()
(and
(setq ss (ssget "_:L" '((0 . "POINT"))))
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(setq lst (mapcar 'vlax-ename->vla-object(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
;;;(setq newdoc (vla-Add (vla-get-Documents (vlax-get-Acad-Object))
;;;"acadiso.dwt"
;;;))
(or (vla-SetVariable newdoc "PDMODE" (getvar "PDMODE")) t)
(or (vla-SetVariable newdoc "PDSIZE" (getvar "PDSIZE")) t)
  (vla-copyobjects adoc
              (vlax-make-variant (vlax-safearray-fill
                  (vlax-make-safearray vlax-vbobject (cons 0 (1- (length lst))))
                  lst)) (vla-get-ModelSpace newdoc))
;(or (vla-SendCommand newdoc "_.ZOOM _E") t)
(or (vla-Activate newdoc) t)
(or (vla-ZoomAll (vlax-get-Acad-Object)) t)
(or (vlax-release-object newdoc) t)
(or (vlax-release-object adoc) t)
)
  )