[Зойберг]

Здравствуйте. Проблема такая.

Нужно импортировать в Дельфи все объекты из Автокада и потом их обработать. И при обработке нужно знать, что за тип объекта - линия, квадрат и т.д. В хелпах вот не могу найти свойство, возвращающее тип.

P. S.
Можно, конечно, работать "вслепую", заключив работу в try...except. Но это извращение... по всем законам логики, свойство вроде "ClassType" или "ClassName" должно быть.

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

ObjectName

[skkkk]

Что-то никак не могу сообразить, как на LISP получить список всех типов объектов, присутствующих в чертеже (размеры, тексты, блоки...)?
Например, если в чертеже есть полилинии, отрезки и мультивыноски, то список должен быть '("POLYLINE" "LINE" "MULTILEADER"). Можно, конечно, получить его посредством (ssget "_X") с фильтрами, и я знаю, как. Но что-то мне подсказывает, что его можно как-то вытащить из свойств объекта Document или ModelSpace одним махом. Или нет?

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

Сообщение от skkkk Или нет?

Нет. Только просканировать весь чертеж.

[skkkk]

Спасибо, Александр.
А как в таком случае правильней поступить? Пройтись по каждому объекту, и при появлении нового типа добавлять его в список, или запускать
(ssget "_X" '((0 . <ТипОбъекта>))) с фильтром по каждому из типов и добавлять в список, если не nil?

[gomer]

через entnext

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

Думаю что первый вариант предпочтителен.
1) Не все примитивы фильтруются через (ssget "_X" '((0 . <ТипОбъекта>))) - насколько мне не изменяет память была проблема с объектами СПДС GraphiCS.
2) Нужно пройтись по всем блокам. В том числе Пространство Модели, Листы и т.д.
На lisp никак иначе. На ObjectARX/.NET можно напрямую просканировать чертеж. А можно получить и список классов всех объектов примитивов чертежа. Но не обязательно, что для каждого класса будут экземпляры.

[nolte]

[quote=skkkk;1305615]... то список должен быть '("POLYLINE" "LINE" "MULTILEADER"). ...
ежли поможет. Одно из первых "творений"

Код:

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

 
(defun c:802 ( / ss_1 ss_len i lst_pr obj pr)
(setq	ss_1 (ssget "_X")
		ss_len (sslength ss_1)
		i 0
)
(repeat ss_len
	(setq	obj (ssname ss_1 i)
			pr (cdr (assoc 0 (entget obj)))
	)
	(if (not (member pr lst_pr)) (setq lst_pr (cons pr lst_pr)))
	(setq i (1+ i))
)
(foreach n lst_pr (print n))
(princ)
)

[skkkk]

nolte, хотел садиться писать, хорошо на форум заглянул. Благодарствую премного - самое то!

[gomer]

Другой алгоритм:

Код:

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

 (vl-remove-if-not
  '(lambda (x) (ssget "_x" (list (cons 0 x))))
  '("LINE"
    ...
    )
)