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

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

[Кулик Алексей 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-клиенте выполняем клонирование репа, используя полученную ссылку. Учитывая, что клиентов немного больше чем овердофига, советую почитать документацию под собственный клиент.