[sdv79]

Lisp. Добрые люди помогите. Как программно создать мультивыноску (от безысходности соглашусь на мультитекст) по ГОСТу вида
0000000 4х18
8-AOT 0--------
0000000 2,5

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

Сначала сюда

[sdv79]

Кулик Алексей aka kpblc спасибо, обязательно вникну. Если есть у кого готовые наработки, буду благодарен.

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

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

[bargool]

Сообщение от sdv79 соглашусь на мультитекст

А почему бы не блок? 3 атрибута, немного динамичности. И можно будет использовать в подсчёте для спецификации

[sdv79]

bargool решение хорошее, но блоки уже есть, сами светильники, для спецификации они считаются через БД (Access). А вот возможности создавать мультивыноску по ГОСТу, после расчета освещенности, для пользоватетелей будет клево. Закрыв глаза и сделать убого, можно, из простых трех фрагментов текста. Хочется эстетики. Часто бывает что надпись закрывает светильники. Куда удобнее и быстрее в другое помещение вынести выноску со светильниками чем блок или фрагменты текста (брр).

[bargool]

sdv79, вот здесь я приложил блок "GroupLeader" (во вложениях), он у меня служит в качестве выноски обозначения групп кабелей. Заполняется программно, вставляется тоже (взаимодействие с пользователем). Как вариант, можно сделать нечто подобное. Работу с динамикой в лиспе я видел в теме от Supermax, как минимум

[sdv79]

C# .net пока нет. Админы сороний софт на работе не ставят, даже Access и того нет приходится через Libre работать, OpenDCL начал изучать и тот удалили, СУ... ,на win 7 х64 не хотят бесплатный модуль Microsoft Access Database Engine 2010 Redistributable_x64.exe для работы с БД поставить.
Работа с групповыми линиями для электриков - моя тема, удивил в Win ELSO очень давно, понравилась, сам хочу сделать такой модуль, не сейчас.
Создание дополнительных параметров Visibility Set в динамических блоках изучал, когда работал с OpenDCL (редактировал автомат-менял видимость).
Ребята, мне нужна мультивыноска с надписью по ГОСТу (как в заголовке), худший вариант мультитекст, помогите на LISP, блоки и тексты-это компромисс от безысходности.

[Олег (jr.)]

Скинь скриншот или чертеж с выноской (А 2010)
или с образцом мультитекста в слоях и высотой по ГОСТУ

[sdv79]

Чертеж с выноской

[pan]

А если поставить в настройках стиля мультивыноски Присоединение слева/справа - Подчеркивание последней строки, это не решит вашу пробему?

[sdv79]

pan твой вариант тоже подходит, только мне необходимо программно на Lisp формировать мультивыноску, а не руками. Нужен код

[hwd]

Если это поможет - могу выложить .NET код, решающий данную задачу. Возможно кто-нибудь по аналогии воссоздаст LISP вариант обозначенной логики.

[sdv79]

hwd милости просим, с упованием на модератора и ГУРУ( откликнетесь).

[hwd]

Исходный код на .NET:

Код:

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

using System;
using cad = Autodesk.AutoCAD.ApplicationServices.Application;
using AppSrv = Autodesk.AutoCAD.ApplicationServices;
using DbSrv = Autodesk.AutoCAD.DatabaseServices;
using Geom = Autodesk.AutoCAD.Geometry;
using Rtm = Autodesk.AutoCAD.Runtime;

[assembly: Rtm.CommandClass(typeof(AndreyBushman.CAD.Sample))]

namespace AndreyBushman.CAD {

    public sealed class Sample {

        [Rtm.CommandMethod("netTextMLeader")]
        public static void netTextMLeader() {
            AppSrv.Document doc = cad.DocumentManager.MdiActiveDocument;
            DbSrv.Database db = doc.Database;

            using (DbSrv.Transaction tr = db.TransactionManager.StartTransaction()) {
                DbSrv.BlockTableRecord csp = tr.GetObject(
                    db.CurrentSpaceId, DbSrv.OpenMode.ForWrite) as DbSrv.BlockTableRecord;

                DbSrv.MLeader mLeader = new DbSrv.MLeader();
                mLeader.SetDatabaseDefaults();

                mLeader.ContentType = DbSrv.ContentType.MTextContent;

                mLeader.SetTextAttachmentType(
                    DbSrv.TextAttachmentType.AttachmentBottomLine,
                    DbSrv.LeaderDirectionType.LeftLeader);

                DbSrv.MText mText = new DbSrv.MText();
                mText.SetDatabaseDefaults();
                mText.Width = 1.5;
                mText.Height = 2;
                mText.Contents = "\\pxse 1;8-AOT\\A1;{\\H0.7x;\\S4x18/2,5;}";
                mText.Location = new Geom.Point3d(200.0, 200.0, 0);
                mText.TextStyle = db.Textstyle;
                mLeader.MText = mText;

                Int32 idx = mLeader.AddLeaderLine(new Geom.Point3d(190.0, 190.0, 0));

                Geom.Matrix3d transfo = Geom.Matrix3d.Displacement(new Geom.Vector3d(0, 0, 10));
                mLeader.TransformBy(transfo);

                csp.AppendEntity(mLeader);
                tr.AddNewlyCreatedDBObject(mLeader, true);

                tr.Commit();
            }
        }
    }
}

Результат:

[Олег (jr.)]

Пробуй, добавил немного изменений

[hwd]

Сообщение от Олег (jr.) Пробуй

Не знаю как у других, а у меня, в AutoCAD 2009 Enu SP3 x64 этот LISP код создаёт вот такую порнографию:



Если начинаю перетаскивать ручки, то Jig показывает текст:



Но стоит только завершить редактирование, как всё (кроме ручек) исчезает.

UPD

Сообщение от Олег (jr.) добавил немного изменений

1. Не решена проблема "прилипания" текста к полке выноски (в приведённом мною коде, я решал это путём добавления "\\pxse 1;").
2. По выполнению построения, команда не завершается, а автоматом запускается по новой - приходится лишний раз жать Esc. Может это конечно и "так задумано"...
3. Настройки созданного объекта мультивыноски не полностью соответствуют настройкам текущего стиля мультивыноски:
3.1. Неправильные значения свойств Left Alignment и Right Alignment).
3.2. Неправильное значение используемого текстового стиля - оно не читается из текущего стиля мультивыноски (как логично ожидается), а принудительно назначается как Standard.
Это то, что сразу бросается в глаза. Другие свойства не сверял.

[sdv79]

hwd хочу поблагодарить за код. Ваша строка \\pxse 1;8-AOT\\A1;{\\H0.7x;\\S4x18/2,5;}" натолкнула на мысль извлечь сущность выноски или мтекста. В итоге получилось создать мтекст по ГОСТу, один компромисс есть.
Олег (jr.) ваш вариант еще не смотрел, на работе нет инета (usb, CD закрыто), спасибо. Завтра посмотрю.

[Олег (jr.)]

Сообщение от sdv79 Олег (jr.) ваш вариант еще не смотрел, на работе нет инета (usb, CD закрыто), спасибо. Завтра посмотрю

Не забудь изменить имя текстового файла стиля,
я использовал "Standard" как в твоем чертеже
и слой тоже как там

[hwd]

Сообщение от Олег (jr.) текстового файла,

скорее подразумевался стиль, а не файл...