• На форуме с 30 октября 2006г.
  • Сообщений: 70
  • Спасибо: 0

Тема: Получение свойств 3DОбъектов, выделением их на экране (связь с Excel)

Мне нужна программа, которая бы получала свойства 3DОбъектов: объём и координаты центра тяжести, выделением их на экране. Самый простой способ, который мне представляется это:
1)выделить 3DОбъект
2)Вызвать команду _massprop
3)Записать полученные свойства в файл
4)Прочитать эти свойства из файла
Может быть кто предложит алгоритм попроще?
А может есть такая функция, которая сама отслеживает изменния 3DОбъекта в AutoCAD и записывает нужные свойства в ячейки Excel. В этом случае чтобы посчитать конструкцию надо её правильно нарисовать в объёме, это просто здорово!

  • На форуме с 30 октября 2006г.
  • Сообщений: 70
  • Спасибо: 0

Re: Получение свойств 3DОбъектов, выделением их на экране (связь с Excel)

Почему после того как я выделяю 3DОбъект в чертеже и вызываю команду "_massprop   " AutoCAD просит меня снова выделить объекты и не обращает внимания на то, что я указал 3 пробела после команды в данном коде:

Private Sub CommandButton2_ПолучитьVИКоордЦТПС_Click()
Dim obj3DОбъект As Object, vТочка As Variant
On Error GoTo ОбработкаОшибок
'Получим объекты Excell и AutoCAD
   Call ПолучитьОбъектыExcellИAutoCAD
'Сделаем видимым AutoCAD
   Call СделатьВидимымAutoCAD
'Выделим 3DОбъект
   gobjДокументAutoCAD.Utility.GetEntity obj3DОбъект, vТочка, "Выдели 3D объект подпорной стенки:"
   gobjДокументAutoCAD.SendCommand "_massprop  "
   gobjДокументAutoCAD.SendCommand Chr(27) & Chr(27) & Chr(27)
   Exit Sub
ОбработкаОшибок:
   Call СделатьВидимымExcel
   MsgBox "Ошибка при получении V и координат ЦТ подпорной стенки!" & vbLf & vbLf & _
      "Номер ошибки=" & Err.Number & vbLf & vbLf & _
      "Описание: " & Err.Description, vbExclamation, gstrНазваниеПрограммы
   Resume Next
End Sub

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Получение свойств 3DОбъектов, выделением их на экране (связь с Excel)

> Миша
Вместо того чтобы запускать команду _MASSPROP посмотри в сторону свойств объекта 3DSolid в AutoCAD 200X Developer Help->ActiveX and VBA Reference->Objects->3DSolid

  • На форуме с 30 октября 2006г.
  • Сообщений: 70
  • Спасибо: 0

Re: Получение свойств 3DОбъектов, выделением их на экране (связь с Excel)

> Александр Ривилис
Спасибо! А в свойствах выделенного объекта "Watch" я их не заметил и подумал, что получить их из свойств нельзя.