[молодой человек]

Здравствуйте! Я в программировании делаю только первые шаги и столкнулся со следующей проблемой:
Как проверить есть ли расширенные данные у примитива? Мне это нужно для отлова ошибок. Нашел только команду, которая проверяет,есть ли заданное свойство- vlax-property-available-p, но расширенных данных нет в свойствах (смотрел с помощью функции vlax-dump-object).
Заранее спасибо.

[Makswell]

Код:

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

(assoc -3 (entget (car (entsel)) '("*")))

если возвратит nil, то расширенных данных нет. Если не nil, то можно будет проанализировать далее, что за данные.

Или тебе надо через ActiveX?

[молодой человек]

Агромное спасибо! То что надо было! Ответ был перед носом, а я его не заметил. Если не трудно, а как через ActiveX?

[Makswell]

Я просто увидел, что ты использовал vlax-property-available-p и vlax-dump-object и подумал, что тебе надо имеено через объектную модель. Вот и спросил. Но через ActiveX вряд ли будет лучше.
Я вот так придумал. Изврат, конечно, зато чистый ActiveX

Код:

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

(progn
  (vl-load-com)
  (setq	adoc	   (vla-get-ActiveDocument (vlax-get-acad-object))
	lst	   '()
	res	   nil
  )
  (vla-GetEntity (vla-get-Utility adoc) 'ent 'point "\nВыбери объект: ")
  (vlax-for f_item (vla-get-RegisteredApplications adoc)
    (setq lst (cons (vla-get-Name f_item) lst))
  )
  (foreach item	lst
    (if	(not res)
      (progn
	(vla-GetXData ent item 'XDataType 'XDataValue)
	(if XDataValue
	  (setq res t)
	)
      )
    )
  )
  (setq	adoc nil
	lst nil
	XDataType nil
	XDataValue nil
	ent nil
	point nil
  )
  res
)

Возвращает t, если расширенные данные есть, и nil, если их нет.

Короче, первый способ лучше. Как минимум код короче на порядок

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

Сообщение от Makswell Короче, первый способ лучше. Как минимум код короче на порядок

Что-то ты переусложнил. vla-GetXdata позволяет получить сразу все расширенные данные.

[Makswell]

Сообщение от Александр Ривилис Что-то ты переусложнил. vla-GetXdata позволяет получить сразу все расширенные данные.

Не знал. Опытнам путём было выяснено, что можно вместо имени зарегестрированного приложения поставить "". Что ж, буду иметь это ввиду на будущее.
В итоге через ActiveX видимо можно так:

Код:

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

(progn
  (setq res nil
        XDataValue nil
  )
  (vla-GetEntity
    (vla-get-Utility (vla-get-ActiveDocument (vlax-get-acad-object)))
    'ent
    'point
    "\nВыбери объект: "
  )
  (vla-GetXData ent "" 'XDataType 'XDataValue)
  (if XDataValue
    (setq res t)
  )
  (setq	XDataType nil
	XDataValue nil
	ent nil
	point nil
  )
  res
)