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

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

[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)
)
  )