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

Попробуйте запустить следующий код:

Код:

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

  (vlax-safearray->list
    (vlax-variant-value
      (vla-intersectwith
	(vla-adddimaligned
	  (vla-get-modelspace
	    (vla-get-activedocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-modelspace
	  (vlax-3d-point '(100. 100. 0.))
	  (vlax-3d-point '(300. 500. 0.))
	  (vlax-3d-point '(800. 900. 0.))
	  ) ;_ end of vla-adddimaligned
	(vla-addline
	  (vla-get-modelspace
	    (vla-get-activedocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-modelspace
	  (vlax-3d-point '(50. -70. 0.))
	  (vlax-3d-point '(580. 520. 0.))
	  ) ;_ end of vla-addline
	acextendnone
	) ;_ end of vla-IntersectWith
      ) ;_ end of vlax-variant-value
    ) ;_ end of vlax-safearray->list

Какие у кого результаты получаются? Потому как у меня полная лажа:
ACAD 2005 Eng + SP1 + мои лиспы : одна точка
ACAD 2005 Eng + SP1 чистый : две точки
ADT 2005 Eng + SP1 + мои лиспы : две точки
ADT 2005 End + SP1 чистый : две точки
ADT 2005 Eng As AutoCAD + SP1 + мои лиспы : одна точка
ADT 2005 Eng As AutoCAD + SP1 чистый : две точки
ADT 2006 Rus + SP1 + мои лиспы : две точки
ADT 2006 Rus + SP1 чистый : две точки
ADT 2006 Rus As AutoCAD + SP1 + мои лиспы: две точки
ADT 2006 Rus As AutoCAD + SP1 чистый : две точки
То есть ошибка "плавает". Лиспы одни и те же, грузятся с одного и того же места.
Чей это глюк - мой или ActiveX? Что может так подрубить эту функцию?

[Александр Ривилис]

wipeout начиная кажется с AutoCAD 2006 входит в состав самого AutoCAD (т.е. наличие ET не обязательно). Впрочем номер версии могу путать.

[VVA]

Сообщение от Tonic Express Tools для Wipeout'а может и не оказаться

Wipeout начиная с 2004 (по моему) Автокада уже стандартный примитив и ему Express'ы не нужны
*** Добавлено
Александр опередил. А версию можно уточнить

[Tonic]

Ну что ж, надо попробовать. Спасибо.

[VVA]

Команда WIPEOUT появилась в 2004 каде. Значит я был прав.