[macros55]

в чертежа есть многих точки, многих линии и многих других объектов. Нарисуйте многоугольник линию края, выберите линию и автоматические выбрать все точки, многих линии и многих других объектов. Есть ли у вас такое Lisp? Пожалуйста, помогите

[macros55]

письма ошибки ; error: AutoCAD.Application: Not applicable

[VVA]

macros55, Выложи файл с примером

[macros55]

Никаких проблем по установке, но LISP принадлежит ей ошибка

Command: NS
; error: AutoCAD.Application: Not applicable
Command:

[VVA]

macros55, Мне нужен dwg файл, в котором возникает данная ошибка. У меня все работает. Сообщи так же версию и разрядность Автокада
I need a dwg file in which the error occurs. Please attach it.

[macros55]

Это мой проект http://forum.dwg.ru/attachment.php?a...1&d=1452493226

[VVA]

Update #20 Try again

[macros55]

VVA большой спасибо lisp super...ещё маленький проблем

Что происходит?

VVA ещё второй маленький проблем

[VVA]

macros55, Потому что метод IntersectWith для блока ищет пересечение не с примитивами, входящими в блок, а с его ограничивающим прямоугольником (bounding box)

Код:

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

(defun C:TEST ()
  ;;;Command Test draw block's bounding box
  (vl-load-com)
(and
  (setq tmp_blk (car(entsel "\nselect Block : ")))
  (or (vla-GetBoundingBox (vlax-ename->vla-object tmp_blk) 'MinPt 'MaxPt) t) ;_Границы блока
  (setq	MinPt (vlax-safearray->list MinPt)
       MaxPt (vlax-safearray->list MaxPt)
	)
  (vl-cmdf "_Rectang" "_none" (list(car MinPt)(cadr MinPt)) "_none" (list(car MaxPt)(cadr MaxPt)))
  )
  )

[macros55]

VVA (bounding box) ладно большой спасибо..но почему выбрали OFF LAYER (второй картинке)

[VVA]

Сообщение от macros55 но почему выбрали OFF LAYER (второй картинке)

Потому что не было сказано, что этого делать не следует
Завтра посмотрю, что можно сделать

----- добавлено через ~13 ч. -----
Обновил #20
Update #20 Try again

[macros55]

VVA большой спасибо..lisp

----- добавлено через ~1 ч. -----
VVA можно следующий вопрос?

[macros55]

new lisp

[macros55]

извини первая картинке (0.50) это неправильно как, удалить ее ...правильно второй картинке (0.05)

[macros55]

VVA ?