Аннотации, где они сидят

Аннотации, где они сидят · 11.01.2009, 12:02

Вообщем, как программно определить что, например, текстовый стиль есть аннотативный?

DEM · 11.01.2009, 12:15

Krieger
dxf смотрел????

Makswell · 11.01.2009, 12:22

Возращает t, если стиль аннотативный или nil, если наоборот (а также, если такого стиля нет)

Код:

(defun test (name)
  (if (tblsearch "STYLE" name)
    (setq ent (entget (tblobjname "STYLE" name) '("*")))
    (if	(assoc -3 ent)
      (if (member "AcadAnnotative" (cadr (assoc -3 ent)))
	t
      )
    )
  )
)

Примеры использования:

Цитата:

_$ (test "Annotative")
T
_$ (test "Standard")
nil

Krieger · 11.01.2009, 13:44

Спасибо, ступил, не работал я еще с расширенными данными...

Еще вопрос. Как добраться до списка масштабов определенного аннотативного объекта. Чтобы этот список откорректировать.

11.01.2009, 12:02		#1
Аннотации, где они сидят Krieger инженер (КМ) Красноярск Регистрация: 30.10.2004 Сообщений: 3,837 Вообщем, как программно определить что, например, текстовый стиль есть аннотативный? __________________ Делай хорошо, плохо само получится.
Просмотров: 3000

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Где задается формат бумаги	Torino	AutoCAD	14	01.03.2007 09:34
Где скачать Exspress 2002?	Алексеевич	AutoCAD	2	10.11.2004 15:35
Где найти готовые интерьеры для аутокада?	Serge-spb 1	Прочее. Архитектура и строительство	2	13.10.2004 13:15

	Реклама i