Отметка стены в AutoCAD Architecture

[Алексей Терно]

При формировании марок в AutoCAD Architecture столкнулись с проблемой: невозможно вывести отметку стены.
В атрибутах марки устанавливается ссылка на программную характеристику, но в предлагаемом списке отметки стены нет (во вложении).
Есть ли какой-нибудь способ вывести отметку стены?

[Александр Ривилис]

Алексей Терно
У нас пока нет специалистов по адаптации AA. Так что лучше спроси на специализированном форуме или задай вопрос через подписку.

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

Во-первых, что есть "отметка стены"? Отметка верха? Отметка низа?
Во-вторых, можно попробовать настроить стиль стены и создать в нем соответствующее свойство (насколько я помню, некое подобие VBS в АА было).

[Алексей Терно]

Ок. В понедельник проверю стиль стены. Если ничего не даст, буду писать на http://forums.autodesk.com/

[Алексей Терно]

Решение найдено!
В наборе характеристик для стен в формульной характеристике необходимо прописать формулу:

Код - 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

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

Настоятельно не рекомендую так делать. Потери памяти будут неимоверными.
Может, попробовать использовать в стиле стены новый PropertySet, с использованием Project Level Elevation?

[Алексей Терно]

Может, попробовать использовать в стиле стены новый PropertySet, с использованием Project Level Elevation?

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

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

Ну так и стили у них разные, наверное? Ну неразумно, мне кажется, на каждый объект стены задавать принудительное смещение...