[h6784rfg6]

Здравтсвуйте форумчане,

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

Дело в том, что есть параметры для каждого примитива (например тип линии, или цвет шрифта), но создать пользовательский стиль не умею.

Заранее благодарен

[gomer]

команда help и от корки до корки

[h6784rfg6]

Уточни чего именно хелп? Автокада? Но там нету ни слова о ARX. Лучше бы скинул примерчик

[Дима_]

Сообщение от h6784rfg6 Но там нету ни слова о ARX

У Вас тоже нет ни слова, что это надо сделать в ARX.

[h6784rfg6]

Моя промашка) Стиль надо создать средствами .NET

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

h6784rfg6, ты попробуй задавать вопросы так, чтобы поменьше гадать пришлось. Это раз. Второе: скачиваешь ObjectARX SDK соответствующей версии и разрядности, устанавливаешь. Смотришь примеры - их там полно.

[Boxa]

help

[h6784rfg6]

Вот конкретика:


создаю пользовательский стиль:

Код:

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

'' Get the current document and database
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database

        '' Start a transaction
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            '' Open the Block table for read
            Dim acBlkTbl As BlockTable
            acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
                                         OpenMode.ForRead)


            Dim ed As Editor = acDoc.Editor
            Dim st As TextStyleTable = CType(acTrans.GetObject( _
                            acCurDb.TextStyleTableId, _
                            OpenMode.ForWrite, False),  _
                                             TextStyleTable)
            Dim TextStyle As TextStyleTableRecord = _
                                    New TextStyleTableRecord()
            TextStyle.Name = "MyStyle"
            st.Add(TextStyle)

            'default text style properties
            'str.FileName = "txt.shx"
            'str.PriorSize = 0.2               
            'str.ObliquingAngle = 0.0
            'str.XScale = 1.0
            'str.TextSize = 0.0
            'str.IsVertical = False
            'str.IsShapeFile = False

            'using the font descriptor to set the new font style
            'Imports Autodesk.AutoCAD.GraphicsInterface
            TextStyle.Font = New FontDescriptor("RomanC", True, True, Nothing, Nothing)
            acTrans.AddNewlyCreatedDBObject(TextStyle, True)

создаю примитив

Код:

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

'' Open the Block table record Model space for write
            Dim acBlkTblRec As BlockTableRecord
            acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                            OpenMode.ForWrite)
            '' Create Text Entities
            For CollectionCount = 0 To Text_Collection.Count - 1
                '' Create a single-line text object
                Dim acText As DBText = New DBText()
                acText.Position = New Point3d(Text_Collection(CollectionCount).PKT_X(0), Text_Collection(CollectionCount).PKT_Y(0), 0)
                acText.Height = Text_Collection(CollectionCount).HOHE
                acText.WidthFactor = Text_Collection(CollectionCount).X_SKAL
                acText.Rotation = Text_Collection(CollectionCount).DREHUNG
                acText.TextString = Text_Collection(CollectionCount).TEXT
                acBlkTblRec.AppendEntity(acText)
                acTrans.AddNewlyCreatedDBObject(acText, True)
            Next

не важно, откуда примитив берет координаты.

Как мне заставить принять acText параметры MyStyle?

[Boxa]

2 h6784rfg6
Уважаемый, Вы справку не читаете по религиозным соображениям?
Ответ на Ваш вопрос: Создать стиль текста и Тексту назначить этот стиль.

[h6784rfg6]

Сообщение от Boxa Тексту назначить этот стиль.

интересует только этот момент. В справке его не отобразили должным образом

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

Да ну??? А свойства созданного примитива посмотреть? Типа TextStyle или TextStyleID (в зависимости от версии)?

[Boxa]

Код:

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

            'Dim acText As DBText = New DBText()
            'Dim acTextTbl As TextStyleTable = acTrans.GetObject(acCurDb.TextStyleTableId, OpenMode.ForRead)
            'Dim acTextTblRec As TextStyleTableRecord = acTrans.GetObject(acTextTbl.Item("Standard"), OpenMode.ForRead)
            'acText.TextStyleId = acTextTblRec.ObjectId

[Do$]

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

Нет в автокаде стилей для кривых, дуг... Стили есть только для аннотаций: текстов, размеров, таблиц, мультивыносок. В зачаточном состоянии стиль есть у мультилинии, но его сменить у уже нарисованной мультилинии нельзя.

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

Стили есть, например, у AEC-объектов.

[Do$]

О, это я прекрасно знаю! Уже вторую неделю настраиваю стили и т.п. в шаблоне для Civil 3D.
Но речь идет о голом автокаде, как я понимаю.