Как получить имена стилей мультилиний в чертеже с помощью VBA?

annt · 12.10.2009, 11:48

В Lisp'e имена стилей получают (пример из Книги Полещука):
(setq od (namedobjectdict))
(dictsearch od "ACAD_MLINESTYLE")

На VBA получил словарь с помощью:
Set dictObj = ActiveDocument.Dictionaries(ACAD_MLINESTYLE)

Количество стилей равно значению dictObj.Count
А как прочитать имена стилей?

Сергей Богатов · 12.10.2009, 13:30

наверное name?

annt · 12.10.2009, 14:00

Name - это имя словаря "ACAD_MLINESTYLE"
см. http://exfile.ru/64179
В окне Watches видно, что в чертеже 8 стилей мультилиний, больше ничего.

Александр Ривилис · 12.10.2009, 15:10

Код:

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

Sub PrintMlineStyles()
    Dim oDict As AcadDictionary
    Set oDict = ThisDrawing.Dictionaries.Item("ACAD_MLINESTYLE")
    For i = 0 To oDict.Count - 1
      ThisDrawing.Utility.Prompt "Name = " + oDict.GetName(oDict.Item(i)) + Chr$(10)
    Next i
End Sub

annt · 12.10.2009, 15:17

Спасибо.

12.10.2009, 11:48		#1
Как получить имена стилей мультилиний в чертеже с помощью VBA? annt программист Москва Регистрация: 24.06.2008 Сообщений: 49 В Lisp'e имена стилей получают (пример из Книги Полещука): (setq od (namedobjectdict)) (dictsearch od "ACAD_MLINESTYLE") На VBA получил словарь с помощью: Set dictObj = ActiveDocument.Dictionaries(ACAD_MLINESTYLE) Количество стилей равно значению dictObj.Count А как прочитать имена стилей?
Просмотров: 3136

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как получить Список файлов в директории (поддиректорий) VBA	sf	Программирование	2	17.12.2010 12:06
Мониторы LCD CRT		Разное	94	17.06.2008 10:51
VBA, как просканировать окружности на чертеже?	basboy	Программирование	6	13.04.2005 16:58
Как получить таблицу свойств объектов такую же как в OrCad	passat	AutoCAD	1	08.12.2004 01:12
Как получить статистику по блокам	Артём	AutoCAD	5	02.03.2004 15:30