[Dmitry AD]

Коллеги! Каким образом можно сделать автоматическую нумерацию объектов (оборудования) по спцификации (спецификация с нумерацией в формате Excel).
Желательно нумерация блоков должна быть мобильной (можно было бы менять расположение цифр на чертеже, для создания читаемого чертежа)
з.ы. AutoCAD 2005

[Dmitry AD]

Vildar,
Нарыл такой макрос, он вроде по смыслу похож на твой, по крайней мере в описании так было написано.
Посмотри...

[Vildar]

Щас буду искать как библиотеку для 2003 Excelя подключить.
Может здесь кто-нибудь поможет?

[Vildar]

Dmitry AD, попробуй так:
В редакторе VBA (где скрин снимал) подключи библиотеку Екселя. Tools->References->Microsoft Excel 11.0 Object Library

PS Это хорошо еще что Фатал еррор не выходит.

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

Лучше тогда уж использовать позднее связывание (ИМХО, как всегда)

[Vildar]

Через Object
Типа:

Код:

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

Dim ExcelApp As Object

А потом:

Код:

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

Set ExcelApp = GetObject(, "Excel.Application")

[Dmitry AD]

Vildar,
Происходит следующее:
Заменил макрос.
Снова вылетела ошибка, только в след. строке.
Окно References не активно.

[Dmitry AD]

Приложеный файл с ошибкой:

[Vildar]

Не подумал, извентиляюсь.

Workbook и Worksheet тоже на Object заменил.

[Dmitry AD]

Еще какая то ошибочка...

[Vildar]

Непонял!
LCase же стандартная функция VBA.
Посмотри версию VBA, опять же в редакторе: Help->About
У меня 6.5.
Можно просто, убрать её

Код:

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

If LCase(ExcelSheet.Cells(intRow, intColСоde)) = "код" Then

на

Код:

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

If ExcelSheet.Cells(intRow, intColСоde) = "КОД" Then

Тогда в Екселе должно быть именно КОД (большими буквами) в шапке для кодов.
Продолжаем!

[Dmitry AD]

Стоит версия Версия 6.3 !
А по поводу "КОД" -он и есть большими буквами-всегда!

[Vildar]

Сообщение от Dmitry AD Стоит версия Версия 6.3 ! А по поводу "КОД" -он и есть большими буквами-всегда!

Это я хотел привнести больше универсальности

А насчет 6.3, низнай должна быть там эта функция, ёпрст. Чё делать то?

[Dmitry AD]

Может попробуем спросить у кого нибудь из "продвинутых программистов".....

[Vildar]

Да давай спросим!

Ну а ты эту строчку заменил? Дальше опять косяки прут?

[Dmitry AD]

нет, не менял еще, щас попробую...

[Dmitry AD]

Еще косячок вылетел..

[Vildar]

Эту строчку можно удалить:

Код:

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

ReDim strNameBlocks(0)

Забыл убрать.

Подозреваю, что с Екселя он сведения не собрал!
Ладно, пробуй дальше.

[Dmitry AD]

Ура!
Работает!!!!
Но когда пробую сделать нумерацию в другом чертеже он пишет "Должна быть установлена мировая система координат"

[Dmitry AD]

Нумерация липнет к атрибутам...
Ориентировать нумерацию на блок не получится?

[Vildar]

Урааа...!!!
А с системами координат я не разобрался ..
Ты теперь сам почти программёр. Закомментируй в начале:

Код:

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

'c UCSами не разобрался????
   If ThisDrawing.GetVariable("UCSNAME") <> "" Then
      MsgBox "Должна быть установлена Мировая система координат!"
      End
   End If

т.е. перед каждой строчкой поставь апостроф '
И заводи по новой, может проканает и в другой системе координат. Кстати в какой? Кто, что, зачем, создал её? Если не секрет. А лучше файлик. Может чёнибудь придумаю.

Да и еще, можно не трогать эту часть кода, а установить МСК