[Disney]

Столкнулся с тем что у одного пользователя AutoCAD 2014, вот на такой код

Код:

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

(vlax-for item (vla-get-layers
		   (vla-get-activedocument
		     (vlax-get-acad-object)
		   )
		 )
    (setq Layers_name_list
	   (cons (vla-get-name item)
		 Layers_name_list
	   )
    )
  )

выдаёт такую ошибку

ошибка: неверный тип аргумента: семейство объектов VLA: #<VLA-OBJECT 000000002ea60fb8>

Как понять, что конкретно ему не нравится?

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

Что-то прямо как эпидемия... http://forum.dwg.ru/showthread.php?t=104090

[Disney]

Кулик Алексей aka kpblc, ну в моём-то случаи, (vl-load-com) вроде как не причём, раз Lisp ожидает получить аргумент с типом "семейство объектов VLA" значит он уже знает про эти VLA. и он в принципе его и получает #<VLA-OBJECT 000000002ea60fb8>, но что-то ему в нём не нравится?

[TararykovDG]

Disney, так в каком месте кода ошибку-то выдает? Судя по "#<VLA-OBJECT 000000002ea60fb8>", ссылка на приложение, активный документ и коллекцию слоев нормально возвращается, а ошибка происходит где на уровне получения имени какого-то слоя. Попробуй не vlax-for пройтись по слоям, а вручную через vla-Item и посмотреть damp каждого слоя, на предмет, что записано в Name

[Do$]

Я бы попробовал поставить остановку по ошибке во VLIDE и посмотреть дамп этого объекта.
ЗЫ TararykovDG

[Disney]

Да проблема в том, что я не могу у себя такую ошибку воссоздать, мне человек пишет, что у него так, и в чистом файле и в старых, всё одно

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

Пускай попробует выполнить
(vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0")
(vlax-dump-object (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0") t)

[Do$]

Вообще автокад знает о типах своих объектов: #<VLA-OBJECT IAcadLayers 0000000035615838>, #<VLA-OBJECT IAcadApplication 00000001404ac910>, #<VLA-OBJECT IAcadDocument 00000000286a03f8>, #<VLA-OBJECT IAcadLayer 00000000356179f8>...
Уверен, что в этом куске кода ошибка?

[Disney]

Сообщение от Кулик Алексей aka kpblc Пускай попробует выполнить

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

Сообщение от Do$ Уверен, что в этом куске кода ошибка?

Да, я прям ему этот кусок уже в отдельный файл выделил и просил запустить.

[Do$]

Открыл с помощью Civil 2014, запустил код - порядок, отработал без ошибок. Похоже, требуется переустановка автокада.

[Disney]

Сообщение от Кулик Алексей aka kpblc Пускай попробует выполнить (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0") (vlax-dump-object (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0") t)

Команда: (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) #<VLA-OBJECT 000000002ea60fb8>
Команда: (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0") ; ошибка: ActiveX Server возвратил ошибку: Ошибка при загрузке библиотеки
Команда: (vlax-dump-object (vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) "0") t) ; ошибка: ActiveX Server возвратил ошибку: Ошибка при загрузке библиотеки

Предложил переустановить AutoCAD, хотя "куплен", он был в надёжном месте

[TararykovDG]

Сообщение от Disney Команда: (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) #<VLA-OBJECT 000000002ea60fb8>

Вообще-то странно, дожно быть что-то тип #<VLA-OBJECT IAcadLayers 000000003f1ce738>
Пусть попробуют посмотреть (vlax-dump-object (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) t)

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

TararykovDG, бесполезно. Слетела регистрация СОМ-серверов (и, возможно, vl.arx). Я бы переустанавливал.