[alicesmagic]

Можно ли при задании пользовательского параметра каким-то образом указать адрес ячейки конкретного файла Excel и вытащить из нее данные? И если можно, то как это сделать?

[trir]

может вы подробно разъясните, что хотите в итоге получить - а я расcкажу как это проще реализовать?

[alicesmagic]

В "Диспетчере параметров" автокада можно создать пользовательскую переменную. Ее значением может быть конкретное число или математическое выражение.
Таких переменных у меня используется много. Все они изначально собраны в файле ексель. Некоторые из них получены через вычисления сложных формул в ексель (таких, каких в автокаде без программирования я не могу реализовать).
При создании переменных в "Диспетчере параметров" автокада приходится вручную дублировать данные. Нельзя ли упростить процедуру и загружать данные в автокад непосредственно из указанных ячеек ексель?

[IMG] [/IMG]

[Сергей812]

Не совсем из экселя

[alicesmagic]

Сообщение от Сергей812 Не совсем из экселя

В том то и дело, что нужно из экселя. Данные в нем считаются по формулам и оттуда идут на построения в автокаде

[trir]

с такой постановкой задачи - проще использовать программирование

[Сергей812]

Сообщение от alicesmagic В том то и дело, что нужно из экселя.

Ну и подключайтесь из экселя по COM интерфейсу - можно начать изучение программирования для акада и с этого, благо VBA в экселе всегда под рукой (не надо бегать за админом и просить его еще что-нибудь поставить типа бесплатной студии или VBA Enabler для самого акада). Набросал пример кода:

Код:

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

' Обновление пользовательских свойств чертежа AutoCAD с листа Excel
Public Sub UpdateCustomProperties()
  ' Подключаемся к акаду
  Dim lAcadObj As AcadApplication
  Set lAcadObj = GetObject(, "AutoCAD.Application")
  ' Получаем SummaryInfo активного чертежа
  Dim lSummaryInfo As AcadSummaryInfo
  Set lSummaryInfo = lAcadObj.ActiveDocument.SummaryInfo
  ' Забираем данные с листа из именованного диапазона CustomProperties
  Dim lData As Variant
  lData = InputData.Range("CustomProperties")
  ' Получаем количество параметров
  Dim lNumParams As Integer: lNumParams = UBound(lData, 1)
  ' В цикле заносим или обновляем пользовательские свойства в чертеже
  Dim I1 As Integer
  On Error Resume Next
  For I1 = 1 To lNumParams
    lSummaryInfo.SetCustomByKey CStr(lData(I1, 1)), CStr(lData(I1, 2))
    If (Err.Number <> 0) Then
      Err.Clear
      lSummaryInfo.AddCustomInfo CStr(lData(I1, 1)), CStr(lData(I1, 2))
    End If
  Next I1
  ' Очищаем переменные и освобождаем объекты
  Erase lData
  Set lSummaryInfo = Nothing
  Set lAcadObj = Nothing
End Sub

Он берет диапазон из двух смежных столбцов с листа экселя (в первом столбце - имя свойства, в втором значение) и пытается построчно установить эти значения в чертеже. Если данное свойство не найдено - то добавляет его в чертеж. Код рабочий, только в него еще надо добавить обработку ошибок - акад может быть не запущен, или нет открытых чертежей и т.д.

p.s. Если будете продолжать в этом направление - попросите администрацию форума перенести ветку в раздел программирования.

[alicesmagic]

В целом ситуация ясна. Спасибо большое за информацию!
За код отдельное спасибо! Будет для меня отправной точкой в программировании

[trir]

когда начинаешь программировать, то понимаешь, что проще программно всё нарисовать, без заморочек со всякой параметризацие и т. п.

[Сергей812]

Offtop:

Сообщение от trir когда начинаешь программировать, то понимаешь, что проще программно всё нарисовать,

а потом приходит некоторый опыт, становиться лень.. и сначала смотришь - а можно ли заставить программу часть работы взять на себя)