[Бали]

Добрый день уважаемые эксперты! В Vetcad+ есть удобный инструмент для работы с текстами и мультитекстами (команда tv). С однострочными текстами эта команда работает наизамечательнейшим образом. Все тексты она выводит в один список, последовательность строк формируется в жестком и определенном логическом порядке (сверху-вниз и слева-направо). Потом в EXCEL с этим списком можно творить чудеса, редактировать его , после чего вставлять обратно в чертеж с помощью той же команды Tv. Можно ли сделать такой лисп, который будет делать тоже самое с мульвыносками? (лисп, который будет собирать весь текст с выбранных мультивыносок, и складывать их для редактирования в список упорядоченный по логике указанной выше)

[Boxa]

Сообщение от Бали Можно ли сделать такой лисп, который будет делать тоже самое с мульвыносками?

Можно. Где Ваш код и что у Вас не получается?

[Бали]

Сообщение от Boxa Можно. Где Ваш код и что у Вас не получается?

Нету кода. Но есть команда Tv в Vetcad+

[Boxa]

Вас что-то останавливает от написания кода или Вы хотите что бы прилетел волшебник на голубом вертолете и написал Вам ПО?
Offtop: Может стоит обратить внимание на вот этот раздел форума: http://forum.dwg.ru/forumdisplay.php?f=33

[Бали]

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

[Boxa]

Сообщение от Бали С программирование у меня совсем плохо - навыков совсем нет. Но есть огромное желание поучаствовать в создании полезных, удобных и простых инструментов, которые в дальнейшем смогут использовать все!!

Поучаствовать, видимо, в качестве заказчика и потребителя... Ладно, раздел Lisp, так что умываю руки. Придет кто то из гуру или из неофитов, у которых руки чешутся, возможно помогут.

[Бали]

Весь объем лиспов, которыми пользуюсь я и все с кем я ими поделился, я нашел здесь на форуме, и лучшая их часть родилась именно вот в таких вот темах.

----- добавлено через ~38 мин. -----

Сообщение от Boxa Вас что-то останавливает от написания кода или Вы хотите что бы прилетел волшебник на голубом вертолете и написал Вам ПО? Offtop: Может стоит обратить внимание на вот этот раздел форума: http://forum.dwg.ru/forumdisplay.php?f=33

Бессовестный размах своей просьбы признаю, целый текстовый редактор - это уже серьезное ПО. Но ведь можно же сделать так, чтоб прога выгружала данные выбранных элементов сразу в тексовый файл, doc или xls.
А в обратку -заменяла бы данные выбранных элементов, на данные из отредактированного файла doc/xls.

[Boxa]

О, сарказм. Прикольно, но совершенно не уместно.

Сообщение от Бали Весь объем лиспов, которыми пользуюсь я и все с кем я ими поделился, я нашел здесь на форуме, и лучшая их часть родилась именно вот в таких вот темах.

Да, я посмотрел, Вы часто пишите, что Вам нужен какой-то инструмент для ускорения своей работы.

Сообщение от Бали Бессовестный размах своей просьбы признаю, целый текстовый редактор - это уже серьезное ПО. Но ведь можно же сделать так, чтоб прога выгружала данные выбранных элементов сразу в тексовый файл, doc или xls. А в обратку -заменяла бы данные выбранных элементов, на данные из отредактированного файла doc/xls.

Извините, но т.к. Вы не очень разбираетесь в написание программ, то сейчас похожи на мужчину из известного рассказа Шукшина...
1. Писать в doc и xls из AutoLisp, напрямую - я бы на это посмотрел (я знаю про COM, но тут предлагается СРАЗУ в doc/xls)
2. Мультивыноска может содержать мтекст или блок.
- Мтекст, в свою очередь может содержать форматирование и поля
- Блок может содержать текст, мтекст, атрибуты и др. и то же с форматированием и полями и их там может быть много
Как это обрабатывать и что со всем этим делать? Вот по пунктам, при каждом возможном варианте

А так, да, всё просто. Вот тут, Вы можете посмотреть объем кода, который потребовалось написать для экспорта/импорта свойств динамического блока (и то, программа еще не дописана, там еще до...на чего делать). В вашей затеи, если делать не на коленке, а по уму, количество кода будет не сильно меньше.

ЗЫ.
MS Word, Write от LiberOffice, vim, visual studio code - текстовые редакторы и да, это серьёзное ПО.

[Бали]

Может я неправильно выразился, но сарказма не было. Я понимаю, что с мтекстами есть какие-то сложности , форматирование и всё такое, ну а если эти форматирования удалять ? И вопрос касается только мтекстов в выносках. Никаких блоков

[ProjectMaster]

Зачем текст из выносок выводить в эксель?

В автокаде есть возможности автозамены. Нумераторы тоже есть.

[Boxa]

ProjectMaster, этакий ATTIN / ATTOUT, только для мультивыносок...

[Бали]

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

[ProjectMaster]

Сообщение от Бали Для того чтобы можно было редактировать нумерацию больших свайных полей например. Раньше я работал с однострочными текстами , но на днях открыл для себя мультивыноски и понял, что много упустил

Может тогда нужен нумератор мультивыносок?

[Boxa]

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

[Бали]

*1.*********** Исходные данные: имеем свайное поле, замаркированное позициями 69-300

2.*********** Копируем через Vetcad+ маркировки (это однострочный текст)

3.*********** Вставляем в Excel, в один столбец

4.*********** Закрепляем порядок расположения текстов добавлением рядышком нового столбца, нумеруем его 1,2,3...

5.*********** Сортируем номера свай по возрастанию значений

6.*********** Рядышком вставляем еще один столбец с новыми значениями позиций свай (также в порядке возрастания значений)

7.*********** Возвращаем порядок последовательности текстов сортировкой столбца по возрастанию (столбец из пункта 4)

8.*********** Копипастим в чертеж через Vetcad+ (выделяем весь текст командой Tv, заменяем копипастой)

9.*********** Вуаля! Волшебство! Колдовство!

*

ример моего использования команды Tv

[Setvar]

Ты бы чертеж привел с нумерацией до и после. А то "вуаля". Что вуаля? Ура, мы ломим, гнутся шведы? Это не волшебство, а хрень какая-то перенасыщенная манипуляциями.

[ProjectMaster]

Сообщение от Бали *1.*********** Исходные данные: имеем свайное поле, замаркированное позициями 69-300 2.*********** Копируем через Vetcad+ маркировки (это однострочный текст) 3.*********** Вставляем в Excel, в один столбец 4.*********** Закрепляем порядок расположения текстов добавлением рядышком нового столбца, нумеруем его 1,2,3... 5.*********** Сортируем номера свай по возрастанию значений 6.*********** Рядышком вставляем еще один столбец с новыми значениями позиций свай (также в порядке возрастания значений) 7.*********** Возвращаем порядок последовательности текстов сортировкой столбца по возрастанию (столбец из пункта 4) 8.*********** Копипастим в чертеж через Vetcad+ (выделяем весь текст командой Tv, заменяем копипастой) 9.*********** Вуаля! Волшебство! Колдовство! * ример моего использования команды Tv

Это не слишком сложно?

так не проще?
https://youtu.be/wMtlWTmD554

[Бали]

Вечером , доберусь до компа и скину чертеж. А может даже видео запилю

[ProjectMaster]

Сообщение от Бали Вечером , доберусь до компа и скину чертеж. А может даже видео запилю

Наверняка для решения Вашей задачи есть более простой и быстрый путь.

[Бали]

Я считаю это самый универсальный метод. Подходит для кучи задач. Работать в экселе с массивом значений - это очень универсально. Эксель для этого и предназначен.

[ProjectMaster]

Сообщение от Бали Я считаю это самый универсальный метод. Подходит для кучи задач. Работать в экселе с массивом значений - это очень универсально. Эксель для этого и предназначен.

Посмотрите:
https://youtu.be/wMtlWTmD554

Разве так не быстрее?

[Бали]

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

[ProjectMaster]

Сообщение от Бали Посмотрел, для частного случая вполне даже и быстрее. Но только для частного. А если позиции разбросаны по чертежу в рандомном порядке ?

При нумерации достаточно прощелкать позиции в нужном порядке по одной или группами. Я не понимаю смысла загонять данные в эксел. Есть куча автонумераторов.

Если нумерация сдвигается на единицу - можно к выделенным текстам прибавить число (программ куча).

Если Вы что-то делаете через ексель - это очень долго. Обычно есть вариант намного быстрее.

[kp+]

ATTIN / ATTOUT, только для мультивыносок... тут предлагается СРАЗУ в doc/xls... если делать не на коленке, а по уму, количество кода будет не сильно меньше

Мультивыноска может содержать мтекст или блок...Как это обрабатывать и что со всем этим делать? Вот по пунктам, при каждом возможном варианте

Вставлю дилетантские 5 коп.:
1) передача данных из Акада в сразу excel - дело непростое. Работа через COM или промежуточные файлы типа CSV - тоже. А сбор данных из мультивыносок в таблицу Акада, имеющую встроенные средства связи с Excel - вопрос решаемый. Во вторую колонку таблицы можно собрать handl'ы мультивыносок. Вот и получается колхозная версия ATTIN / ATTOUT;
2) создается впечатление, что автор и не ждет законченное решение "по уму", с обработкой всевозможных и невозможных вариантов, исключений и защитой от дурака. Вариант "сделано на коленке, как-то работает" вполне сойдет.

Сообщение от ProjectMaster Я не понимаю смысла загонять данные в эксел. Есть куча автонумераторов.

Все автонумераторы решают узкие задачи. Например, если есть в наличии автонумератор, с помощью которого решается задача нумерации, условно говоря, "от забора до обеда сплошняком", а надо "с обеда до забора через два; при двух нечетных через один", то не исключено, что автонумератор надо переделывать или даже писать заново. Excel же - более универсальный инструмент.

[Бали]

Вот вы прям в точку про коленку сказали. Мне главное шоб в эксель вставить.

----- добавлено через ~2 мин. -----
И не обязательно создавать файл экселя. Вполне удобно будет вставлять из буфера в уже открытый эксель

[kp+]

Всех с 1 апреля!
Вот мой колхозный панк лисп, то самое "решение на коленке". Написан низким штилем без каких-либо проверок и защит. Работает только с текстовыми мультивыносками.
В нем две команды:
ml_out - выписывает хендлы и текстовые строки мультивыносок в первый и второй столбец заранее созданной таблицы (мне было лень создавать ее программно). Еще раз, таблица должна быть создана заранее, в ней должно быть не менее двух столбцов. Количество строк подгоняется автоматически по числу выносок. Таблицу потом можно экспортировать в ексель, импортировать обратно в Акад и вообще делать с ней что угодно, кроме двух ограничений:
- нельзя менять значения в первом столбце (хендлы), иначе теряется связь выписанной в таблицу текстовой строки с текстовой строкой самой мультивыноски;
- при сортировках текстовых строк нельзя отрывать значения в первом столбце от значений во втором, иначе все перепутается.

ml_in - записывает измененные текстовые строки из второго столбца таблицы обратно в мультивыноски согласно купленным билетам хендлам в первом столбце

Пример чертежа и запись работы прилагаю.

Код:

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

 (defun c:ml_out (/ I ML_LIST SS TABLE_CONTENTS TABLE_STRING TBL_OBJ)
  (vl-load-com)
  (princ "выбрать мультивыноски:\n")
  (setq ss (ssget  '((0 . "MULTILEADER"))))
  (setq ml_list (ssnamex ss));преобразование набора в список
  (setq ss nil)
  (setq ml_list (mapcar 'cadr ml_list));выкидывание номеров набора из списка
  (setq ml_list (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) ml_list))    ;выкидывание способов набора из списка

  (foreach x ml_list
    (setq table_string (list
			 (cdr (assoc 5 (entget x)))
			 (vla-get-textstring (vlax-ename->vla-object x))
		       )
    )
    (setq table_contents (append table_contents (list table_string)))
  )
  
  (princ "выбрать таблицу:\n")
  (setq ss (ssget "_:S" '((0 . "ACAD_TABLE"))))
  (setq tbl_obj (ssnamex ss))
  (setq ss nil)
  (setq tbl_obj (vlax-ename->vla-object (cadar tbl_obj)))
  (vla-put-regenerateTableSuppressed tbl_obj :vlax-true)
  (vla-put-rows tbl_obj (length ml_list))
  (setq i 0)

  (foreach x table_contents
    (vla-setcellvalue tbl_obj i 0  (car x))
    (vla-setcellvalue tbl_obj i 1  (cadr x))
    (setq i (1+ i))
  )

  (vla-put-regenerateTableSuppressed tbl_obj :vlax-false)
  (vla-RecomputeTableBlock tbl_obj :vlax-true)

  
  (princ)
 )
;;;;;;;;;;;;;;;;;;;
(defun c:ml_in (/ I K ML_HANDLE ML_LIST SS TBL_OBJ)
  (vl-load-com)
  (princ "выбрать мультивыноски:\n")
  (setq ss (ssget  '((0 . "MULTILEADER"))))
  (setq ml_list (ssnamex ss));преобразование набора в список
  (setq ss nil)
  (setq ml_list (mapcar 'cadr ml_list));выкидывание номеров набора из списка
  (setq ml_list (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) ml_list))    ;выкидывание способов набора из списка

  (princ "выбрать таблицу:\n")
  (setq ss (ssget "_:S" '((0 . "ACAD_TABLE"))))
  (setq tbl_obj (ssnamex ss))
  (setq ss nil)
  (setq tbl_obj (vlax-ename->vla-object (cadar tbl_obj)))
  (setq k (vla-get-rows tbl_obj))
  (setq i 0)

  (while (< i k)
    (setq ml_handle (vlax-variant-value (vla-getcellvalue tbl_obj i 0)))
    (foreach x ml_list
      (if (= ml_handle (cdr (assoc 5 (entget x))))
	(vla-put-textstring (vlax-ename->vla-object x) (vlax-variant-value (vla-getcellvalue tbl_obj i 1)))
      )
    )
    (setq i (1+ i))
  )
  
  
  (princ)
 )

[Бали]

kp+, это даже лучше, чем я хотел! Отличный лисп!

----- добавлено через ~33 мин. -----
только эксель букву E воспринимает как знак степени и при эксорте переписывает все значения из первого столбца(

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

http://autolisp.ru/2016/09/29/anothe...-attout-attin/ не поможет?

[kp+]

Сообщение от Кулик Алексей aka kpblc http://autolisp.ru/2016/09/29/anothe...-attout-attin/ не поможет?

Ну не работает эта прога с текстовыми мультивыносками. Наверное, ее можно "немного модифицировать" и переориентировать с блоков на мультивыноски. Но для этого надо разобраться в профессионально написанном коде с полным комплексом проверок и как будто на отдельном диалекте LISP'а (это я о семействе функций _kpblc-***). Короче, с ходу у меня ничего не получилось Поэтому написал свою, колхозную версию.

Сообщение от Бали только эксель букву E воспринимает как знак степени и при эксорте переписывает все значения из первого столбца(

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

[Бали]

Сообщение от kp+ Переименовать csv в txt Это не шутка, несмотря на 1 апреля. Тогда ексель при открытии текстового файла будет меньше умничать с форматами данных, а спросит, что ему делать и можно задать формат столбцов - текстовый.

Это работает!!!!!!!

----- добавлено через ~24 мин. -----
Я протестил, всё работает на 100%. С помощью этого инструмента можно выгружать данные мультивыносок в EXCEL, редактировать их в EXCELe, и вставлять обратно в автокад.

Кстати, можно обойтись и без txt, просто при работе со связью с данными, нужно работать только со столбцом значений. Столбец с идентификационными номерами трогать нельзя.
kp+, Вам огромный респект и уважуха!

[kp+]

Сообщение от Бали Кстати, можно обойтись и без txt, просто при работе со связью с данными, нужно работать только со столбцом значений. Столбец с идентификационными номерами трогать нельзя.

В таком случае главное - не смешивать сортировать данные, о чем уже говорил в #26.
Offtop: Сегодня у меня день варенья, выпейте рюмку чая за мое здоровье!

[Бали]

kp+, с днём варенья !!