Сообщество программистов Autodesk в СНГ

ADN Club => Адаптация AutoCAD и вертикальных приложений => Тема начата: Алексей Терно от 09-10-2015, 15:43:26

Название: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Терно от 09-10-2015, 15:43:26
При формировании марок в AutoCAD Architecture столкнулись с проблемой: невозможно вывести отметку стены.
В атрибутах марки устанавливается ссылка на программную характеристику, но в предлагаемом списке отметки стены нет (во вложении).
Есть ли какой-нибудь способ вывести отметку стены?

Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Александр Ривилис от 09-10-2015, 18:42:08
Алексей Терно
У нас пока нет специалистов по адаптации AA. Так что лучше спроси на специализированном форуме или задай вопрос через подписку.
Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Кулик от 09-10-2015, 21:02:24
Во-первых, что есть "отметка стены"? Отметка верха? Отметка низа?
Во-вторых, можно попробовать настроить стиль стены и создать в нем соответствующее свойство (насколько я помню, некое подобие VBS в АА было).
Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Терно от 09-10-2015, 22:37:44
Ок. В понедельник проверю стиль стены. Если ничего не даст, буду писать на http://forums.autodesk.com/
Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Терно от 12-10-2015, 12:25:32
Решение найдено!
В наборе характеристик для стен в формульной характеристике необходимо прописать формулу:
Код - Visual Basic [Выбрать]
  1. Set acadApp = GetObject(,"AutoCAD.Application")
  2. acadVerString = acadApp.ActiveDocument.GetVariable("ACADVER")
  3.  
  4. Select Case acadVerString
  5.         Case "20.1s (LMS Tech)"
  6.                 aecBaseVer = "AecX.AecBaseApplication.7.8"
  7.         Case Else
  8.                 aecBaseVer = "Unknown"
  9. End Select
  10.  
  11. If aecBaseVer = "Unknown" Then
  12.         RESULT =  "Unknown"
  13. Else
  14.         Set aecBase = acadApp.GetInterfaceObject(aecBaseVer)
  15.         aecBase.Init acadApp
  16.         Set wallObj = acadApp.ActiveDocument.ObjectIDToObject( [ObjectID] )
  17.         Set utilObj = aecBase.ActiveDocument.Utility
  18.         wallStart = utilObj.ConvertToVariantArray(wallObj.StartPoint)
  19.         RESULT = wallStart(2)
  20. End If

PS: для версии 2016
Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Кулик от 12-10-2015, 13:01:42
Настоятельно не рекомендую так делать. Потери памяти будут неимоверными.
Может, попробовать использовать в стиле стены новый PropertySet, с использованием Project Level Elevation?
Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Терно от 12-10-2015, 14:47:28
Цитировать
Может, попробовать использовать в стиле стены новый PropertySet, с использованием Project Level Elevation?

Дело в том, что в одном чертеже могут быть разноуровневые стены, отметка которых отличается от отметки уровня проекта.
Название: Re: Отметка стены в AutoCAD Architecture
Отправлено: Алексей Кулик от 12-10-2015, 14:57:29
Ну так и стили у них разные, наверное? Ну неразумно, мне кажется, на каждый объект стены задавать принудительное смещение...