[МишаИнженер]

Существует ли код Lisp или ActiveX программа для отрисовки флажка (несколько строк текста на полочках прикрепленных к вертикальной черточке)?

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

Может, и существует. А может, и нет. А что?

[ShaggyDoc]

Сообщение от Кулик Алексей aka kpblc Может, и существует. А может, и нет. А что?

Конечно существует, во многих вариантах. Всем ведь надо было.
Как раз "мишам_инженерам" начальная задачка для самостоятельной работы.

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

Offtop: Я вот точно не помню, но, кажется, в ruCAD'e что-то подобное было.

[Ingpro]

Сообщение от ShaggyDoc Как раз "мишам_инженерам" начальная задачка для самостоятельной работы.

Для начальной задачки не сложновато ли?
Скорее всего эта задача, на лисп не решается, нужно использовать .NET или ARX или .FAS или .VLX.
Были такие темы, но засохли... к сожалению...

[ShaggyDoc]

Сообщение от Ingpro Скорее всего эта задача, на лисп не решается, нужно использовать .NET или ARX или .FAS или .VLX.

Это детская задачка, как раз для лисп. А FAS и VLX это просто откомпилированные Лисп.

[Ingpro]

Сообщение от ShaggyDoc Это детская задачка

С детской задачкой пока никто не справился, нужны профи...
Справились разработчики СПДС. Есть у них МНОГОСЛОЙНАЯ ВЫНОСКА, только СПДС есть не у всех...

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

Читаем внимательно:

Сообщение от МишаИнженер Существует ли код Lisp или ActiveX программа для отрисовки флажка (несколько строк текста на полочках прикрепленных к вертикальной черточке)?

Создать только надо, дальнейшая судьба никого не интересует

[МишаИнженер]

Сообщение от Ingpro СПДС есть не у всех...

СПДС для нормальной работы требует установки своих модулей, а без модулей объекты СПДС не редактируются и даже не "взрываются". Поэтому СПДС я не использую.
Хотелось бы на примерные коды программ посмотреть, которые могут работать без особых усилий по установке и запуску программы

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

Сообщение от МишаИнженер Хотелось бы на примерные коды программ посмотреть

Ты свои-то попытки покажи

[Сергей812]

или хотя бы ссылки на коды программ, которые требуют значительных усилий

Сообщение от МишаИнженер по установке и запуску программы

[МишаИнженер]

Пока у меня таких нет. Начертил полку используя команду массив. Перед этим провел черточку и сверху разместил МТекст. Затем поднял вверх все это массивом. Сбоку добавил вертикальную черточку.
Программу пока делать времени нет, извините!

[АлексЮстасу]

Пардон, что, не программист, здесь напишу.
Если буквально описанное, то это же делается блоком с атрибутами?

[Ingpro]

Сообщение от АлексЮстасу это же делается блоком с атрибутами

Динамические блоки выносок многополочных здесь https://dwg.ru/dnl/15374
Но это полумера, нужен полноценный лисп (или .NET или .ARX). Может кто попробует создать?

Сообщение от ShaggyDoc Это детская задачка, как раз для лисп.

ShaggyDoc, а Вы справитесь?

[Сергей812]

Offtop:

Сообщение от Ingpro Но это полумера, нужен полноценный лисп (или .NET или .ARX). Может кто попробует создать?

в разделе поиска исполнителей можно заказать себе любую выноску) Хватит пытаться из себя тут горе-манипулятора изображать во всех подходящих темах подряд)

[engngr]

Сообщение от МишаИнженер Пока у меня таких нет. Начертил полку используя команду массив. Перед этим провел черточку и сверху разместил МТекст. Затем поднял вверх все это массивом. Сбоку добавил вертикальную черточку. Программу пока делать времени нет, извините!

Зачем такие сложности? - несколько мультивыносок можно сделать.

[ShaggyDoc]

Сообщение от Ingpro ShaggyDoc, а Вы справитесь?

У меня давно "детство ушло вдаль".
Подобные программки (сотни) и я, и некоторые другие форумчане, делали еще в 89-90 году, в Автокад-10, когда только появился Автолисп.

Без ARX, .Net, динамических блоков.

Потом описал опыт в книге "САПР на базе AutoCAD...". Но это для тех, кто умеет и хочет читать.

[Ingpro]

Сообщение от ShaggyDoc Подобные программки (сотни) и я, и некоторые другие форумчане, делали еще в 89-90 году

Что-нибудь из сотни не выложите, для примера...

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

Offtop: (setq ent (_ru-draw-mline-leader string-list))
Простите, не сдержался

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Offtop: (setq ent (_ru-draw-mline-leader string-list))

А дальше?

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

А дальше - "САПР на базе". Читать, анализировать, думать.

[МишаИнженер]

Сообщение от Ingpro Динамические блоки выносок многополочных здесь https://dwg.ru/dnl/15374

Очень крутая штука! Прямо то, что доктор прописал! Спасибо большое!

[Ingpro]

Алексей, может попробуем?

Код:

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

 ;| ********************************************
* Построение мультивыноски многострочной
***********************************************|;
(vl-load-com)
(defun c:MLdrMstr (/???)
(setvar "MULTILEADER"
 (setq ent (_ru-draw-mline-leader string-list))
  ((and obj1 (= obj2 nil) (= obj3 nil))
         (princ "\n Построение мультивыноски: укажите 1-ю и 2-ю точки.")
         (vl-cmdf "_mleader" pause pause строка1)
         (vl-cmdf "_ERASE" obj1 "")
       ) ; cond1
      
    (princ "\nНе выбрана строка 1.")
) ; if 

Какой функцией можно клонировать строки, т. е. добавлять к mleader текст с полкой?

Можно применить для описания текста mleader этот код?
kpblc
9 декабря 2005г.

Код:

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

 (defun temp ( / text_height)
  (setq    text_height
     (cdr
       (assoc 40 (entget (tblobjname "style" (getvar "textstyle"))))
       ) ;_ end of cdr
    ) ;_ end of setq
  (if (= text_height 0)
    (progn
      (setq text_height (getreal ("\nУкажите высоту текста <3.0> : ")))
      (if (not text_height)
    (setq text_height 3.0)
    ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  (command "_.dtext"
       pause
       text_height
       0.0
                (_kpblc-conv-value-to-string dd)
           ) ;_ end of strcat
       ) ;_ end of command
  ) ;_ end of defun
(defun _kpblc-conv-value-to-string (value / item result)
  (cond
    ((= (type value) 'str) value)
    ((= (type value) 'int) (itoa value))
    ((= (type value) 'real) (rtos value 2 16))
    ((= (type value) 'list) (VL-PRINC-TO-STRING value))
    ((= (type value) 'sym)
     (vl-symbol-value 'value)
     )
    (t "")
    ) ;_ end of cond
  ) ;_ end of defun

[МишаИнженер]

Первая функция это набросок необходимых действий получается. При проверке ошибка со скобками появляется.
Высоту текста спрашивать не надо. Высота текста берётся из настроек текущего стиля текста. Масштаб линий берётся из настроек текущего размерного стиля.

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

Сообщение от МишаИнженер Высота текста берётся из настроек текущего стиля текста

... и - удивительное дело! - может быть равна 0.

Сообщение от Ingpro Какой функцией можно клонировать строки, т. е. добавлять к mleader текст с полкой?

Так все таки - клонировать строки или добавлять текст с выноской? По первому вопросу вариантов масса - от ввода новых переменных до организации списка. По второму - в текущих реалиях, когда есть уже решение проблемы в виде дин.блока - на фига еще какие-то костыли придумывать?

Offtop: Ориентировочное время на разработку - 20-30 минут не спеша, с постоянными проверками. Команда для вызова - multiflag. Для работы понадобится моя библиотека.

[Ingpro]

Алексей, спасибо большое за multiflag, но пока у меня не получилось протестировать.
Добавляю папку KpblcLispLib-master в Support, загружаю autostart-load-sources.lsp и multiflag.fas, добавляю в автозагрузку
Команда: ЗАГПРИЛ
multiflag.fas успешно загружено.
autostart-load-sources.lsp успешно загружено.
Пишет в КС:
Отсутствует автостартер
Вызываю multiflag
Команда: MULTIFLAG
Start point <Cancel> :
End point <Cancel>
Enter new string <Stop> : *Прервано*
; ошибка: неверный тип аргумента: VLA-OBJECT nil
И на экране ничего не вырисовывается...

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

Offtop: Ну я же даже ролик снял, как скачивать, устанавливать и все вот это вот! На 10:07

[МишаИнженер]

А где ролик?

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

В описании к репозиторию.

[МишаИнженер]

Сообщение от Кулик Алексей aka kpblc В описании к репозиторию.

Ничего не понятно. А ссылку можно?

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

Мою подпись прочти. Хотя бы раз.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Ну я же даже ролик снял

Алексей, а можно обойтись без LispLib, GitHub и не создавать доп. ярлык для AutoCAD, честно говоря, видео немного мутное, не всё можно разобрать (что там пишется мелким шрифтом).
Если просто добавить в "Доверенные местоположения"
C:\Program Files\Autodesk\AutoCAD 2015\Support\KpblcLispLib-master, не срабатывает.
Или, если можно, выложите код, попробую добавить только нужные функции.
; ошибка: неверный тип аргумента: VLA-OBJECT nil
Оч. хочется протестировать программу...

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

Сообщение от Ingpro а можно обойтись без LispLib, GitHub

Может, и можно. Но я не стану.

Сообщение от Ingpro не создавать доп. ярлык для AutoCAD

Бога ради.

Сообщение от Ingpro видео немного мутное, не всё можно разобрать

Там - какой-никакой - а голос есть. А если и этого мало - то прочитать один readme (оно же описание репозитория) - сложно, я понимаю. Но придется.

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

[МишаИнженер]

Сообщение от Кулик Алексей aka kpblc Мою подпись прочти. Хотя бы раз

Что-то я там ничего не пойму. Можно просто ссылку, чтобы нажать и посмотреть?

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

Что ты там никак понять не можешь? Процитируй.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Код команды не выложу, поскольку а) делал дома... б) его удалил за ненадобностью.

Алексей, как-то страшновато создавать доп. папки, переименовывать и т.д.
Может Вы недоудалили файл, может валяется в корзине, и его можно восстановить,
или есть список необходимых функций для multiflag?..

[Ingpro]

Очень интересно протестировать... но установка библиотеки и клиентов (на видео не очень понятно)?..

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

Качество не пробовал поставить не авто, а что-то от 720 и выше?

[Ingpro]

Да, на 720 немного получше, буду пробовать... Но, имхо, скриншотами всё же удобнее...

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

Что за git-клиент пользуешь? Я ж специально уточнил в https://autolisp.ru/2022/10/31/custo...ions-autolisp/ :

Теперь в своем любимом git-клиенте выполняем клонирование репа, используя полученную ссылку. Учитывая, что клиентов немного больше чем овердофига, советую почитать документацию под собственный клиент.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc есть уже решение проблемы в виде дин.блока

После установки нового репозитария (от 16.01.23) появилась возможность проверить MULTIFLAG.fas.
Флажок создается блоком (и выносные линии пересекают полки), без возможности правки, хотелось бы, чтобы выноска-флаг была подвижная, как мультивыноска, с выбором стрелка-точка-нет и возможностью редактирования...

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

Код был ориентирован только на создание, без вариантов. Для динамики есть блок. Ну или платные варианты типа СПДС

----- добавлено через ~1 мин. -----
Насколько я помню по крайней мере

[Сергей812]

Сообщение от Ingpro хотелось бы, чтобы выноска-флаг была подвижная, как мультивыноска, с выбором стрелка-точка-нет и возможностью редактирования...

ну были какие то попытки создать динблок, имитирующий мультивыноску. Только все равно дотянуть до уровня ObjectARX (на чем реализован отечественный СПДС) не получиться. Можно попытаться в мультивыноску закинуть блок с разными видимостями количества строк - но вроде управлять вложенным блоком тоже не получиться: так как выноска сама блок по сути.