Нумерация мультивыносок.

Нумерация мультивыносок. · 15.11.2011, 14:44

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

Oliver_88 · 15.11.2011, 17:18

Цитата:

но с мультивыносками ни один не работает.

Есть например нумерация по ходу расстановки.
http://forum.dwg.ru/showthread.php?p=814881&#post814881

ASLYS · 15.11.2011, 18:55

Цитата:

Сообщение от shartal

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

это на каком-то другом форуме не работает, а на этом все работает как надо

VVA · 16.11.2011, 09:35

Здесь Альтернатива нумерации атрибутов блоков есть еще подборка.
Да и у гугла можно спросить

shartal · 16.11.2011, 10:51

Спасибо AsmiTools_Renum.lsp то что надо.

Nata1 · 16.11.2011, 11:38

А как сохранить код по ссылке сообщения #2? По ссылке интересует сообщение #3, а там реактор. objectAppended.LSP? Потом надо в скобках название команды вводить, чтобы выполнилась.

ASLYS · 16.11.2011, 14:21

команду можно вводить как обычно _copy

Garand · 02.04.2013, 14:21

В AsmiTools_Renum не получается обнулить ранее введенное значение суффикса или префикса. Нажатие пробела, как указано в описании не помогает. Системную переменную CMDECHO менял - безрезультатно.
В чем может быть дело?
Поправка: при вводе пробела в командной строке значение обнуляется, при вводе в окошке динамического ввода - нет.

Джеймс Борщ · 21.07.2016, 12:02

Допилил в AsmiTools_Renum возможность изменять инкремент:

Код:

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

 (defun c:renum (/ oldPref oldSuf oldStart oldIncr curText curStr) 
  (vl-load-com) 
  (if(not rnm:Pref)(setq rnm:Pref "")) 
  (if(not rnm:Suf)(setq rnm:Suf "")) 
  (if(not rnm:Start)(setq rnm:Start 1))
  (if(not rnm:Incr)(setq rnm:Incr 1))
  (setq oldPref rnm:Pref 
        oldSuf rnm:Suf
	oldStart rnm:Start
        oldIncr rnm:Incr); end setq 
  (setq rnm:Pref 
    (getstring T 
      (strcat "\nPrefix: <"rnm:Pref">: "))) 
  (if(= "" rnm:Pref)(setq rnm:Pref oldPref)) 
  (if(= " " rnm:Pref)(setq rnm:Pref "")) 
  (setq rnm:Suf 
    (getstring T 
      (strcat "\nSuffix: <"rnm:Suf">: "))) 
  (if(= "" rnm:Suf)(setq rnm:Suf oldSuf)) 
  (if(= " " rnm:Suf)(setq rnm:Suf "")) 
  (setq rnm:Start 
    (getint 
      (strcat "\nStarting number <" 
         (itoa rnm:Start)">: "))) 
  (if(null rnm:Start)(setq rnm:Start oldStart))
  (setq rnm:Incr ; increment 
    (getint 
      (strcat "\nIncrement <" 
         (itoa rnm:Incr)">: "))) 
  (if(null rnm:Incr)(setq rnm:Incr oldIncr)) ; end of increment
     (while T 
       (setq curStr(strcat rnm:Pref(itoa rnm:Start)rnm:Suf)) 
         (setq curText 
           (car 
             (nentsel "\n<<< Pick TEXT, MTEXT, MULTILEADER or ATTRIBUTE or press Esc to quit >>> "))) 
       (if 
         (and 
           curText 
           (member(cdr(assoc 0(entget curText))) '("TEXT" "MTEXT" "ATTRIB" "MULTILEADER")) 
           ); end and 
         (progn 
         (vla-put-TextString 
           (vlax-ename->vla-object curText)curStr) 
            (setq rnm:Start( + rnm:Incr rnm:Start)) ; added increment
         ); end progn 
        (princ "\n<!> This is not DText or MText <!>") 
        ); end if 
       ); end while 
   (princ) 
  ); end of c:renum

А кто-нибудь знает как отключить игнорирование пробелов в окне динамического ввода?

Сергей812 · 22.07.2016, 19:30

возможно, что это ключ T в

Код:

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

 (getstring T

Кулик Алексей aka kpblc · 22.07.2016, 19:52

Только про DYNMODE не забывайте: http://adn-cis.org/getstring-and-dynmode.html

Olga_выноски · 25.07.2016, 19:41

Хелп ми!!!
Помогите разрешить наболевшее. Мы рисуем выноски. Очень конкретные. Линия, на конце блок из круга и номера внутри. Все. Чертеж состоит из набора деталей, мы их помечаем каждую. Эти выноски можно «тягать» за центр круга, что собственно нам и нужно. Таких выносок бывает на чертеже до 100 шт. Но! В какой-то момент (прозевал детальку) возникает необходимость изменить числа в кружке. Очень хотелось бы автоматизировать вот это изменение значений в блоке в выноске. Выбрать сколько-то выносок, и всем числам прибавить какое-то значение. Например, выбрали выноски 3, 4, 5 и превратили их в 6, 7, 8 Может, есть уже что-то готовое или кто может помочь? Спасибо.
Да, AutoCAD 2010.

Кулик Алексей aka kpblc · 25.07.2016, 19:53

А на чем затык? Где свой код?
А если "вообще не хочу программировать самостоятельно" - то это в раздел "Поиск исполнителей"

Сергей812 · 25.07.2016, 20:43

Offtop: у вас жесткое разделение труда - одни рисуют детали, другие выноски к ним?
прощелкать заново нумератором 100 выносок на чертеже - 2..3 минуты

skkkk · 25.07.2016, 22:11

Цитата:

Сообщение от Сергей812

Offtop: у вас жесткое разделение труда - одни рисуют детали, другие выноски к ним?

Offtop: Сергей812, смех-смехом, а я такое частенько встречал: умный инженер выдает проектное решение за пару минут со словами: "Я все сделал, осталось только оформить", - а потом не такие умные или не такие уж и инженеры тратят не один день на оформление - и не то, чтобы они медленно работали.
Olga_выноски, была на форуме тема "Увеличение отметок на определенную величину". Там Кулик Алексей aka kpblc предложил код, который по-моему, должен подойти с небольшими доработками. Он кажется, для текстов, но под выноски доработать несложно. Найдите поиском эту тему, проверьте код (только с текстами), и, если почти то, сообщите тут - может, кто-нибудь подправит.

VVA · 26.07.2016, 11:32

Цитата:

Сообщение от Olga_выноски

Например, выбрали выноски 3, 4, 5 и превратили их в 6, 7, 8 Может, есть уже что-то готовое или кто может помочь?

Еще пару ссылок
numeric text editing (add or subtracting) см. #9
Increment Number in Tex
Lisp help. Need to +/- to number in text string
Lisp help. Need to +/- to number in text string (the swamp)
Lisp for adding number to multiple text entities?

Olga_выноски · 26.07.2016, 16:10

Цитата:

Сообщение от Сергей812

Offtop: у вас жесткое разделение труда - одни рисуют детали, другие выноски к ним?
прощелкать заново нумератором 100 выносок на чертеже - 2..3 минуты

100 х на 3 вида х на несколько чертежей в день ))) да, в общем-то и недолго, но и так работа рутинная, хотелось бы изменить.
Я написала небольшую программку (вернее взяла на форуме готовую и подкорректировала под свою задачу), которая увеличивает номер в выноске на 1. (файл прилагаю). Хотелось бы еще и корректировку.
Перелопатила много готовых лиспов для работы с числами, перенумераторы. Но у нас аннотативная мультивыноска, с ней "никто не дружит".
Я уже пробовала создавать динамический блок - линия, кружок на конце и цифра внутри, но линия должна доходить до центра окружности, и остается видимой внутри круга.
Короче, может быть решение где-то совсем рядом, но мне не встречается (((
Моя программка очень короткая, но свою узкую задачу она решает

Olga_выноски · 26.07.2016, 16:20

Цитата:

Сообщение от skkkk

Offtop: Сергей812, смех-смехом, а я такое частенько встречал: умный инженер выдает проектное решение за пару минут со словами: "Я все сделал, осталось только оформить", - а потом не такие умные или не такие уж и инженеры тратят не один день на оформление - и не то, чтобы они медленно работали.
Olga_выноски, была на форуме тема "Увеличение отметок на определенную величину". Там Кулик Алексей aka kpblc предложил код, который по-моему, должен подойти с небольшими доработками. Он кажется, для текстов, но под выноски доработать несложно. Найдите поиском эту тему, проверьте код (только с текстами), и, если почти то, сообщите тут - может, кто-нибудь подправит.

Я прежде всего поискала по форумам, эту программу проверяла самой первой )). Не работает она с нашей мультивыноской с блоком.
Может как-то по-другому наши выноски рисовать, попроще?

Olga_выноски · 26.07.2016, 18:24

Цитата:

Сообщение от Кулик Алексей aka kpblc

А на чем затык? Где свой код?
А если "вообще не хочу программировать самостоятельно" - то это в раздел "Поиск исполнителей"

Да, уточняю свой вопрос. Прилагаю наш чертеж. И программку, которая вставляет мультивыноски с номерами, возрастающими на 1 (программка конечно очень урезанная, но свою задачу выполняет).
Имею большое желание изменять числа в мультивыносках.
А может быть есть возможность простановки и редактирования наших выносок и не средствами мультивыноски, а как-то иначе.
Вы дольше общаетесь на форуме, м.б. что-нить подскажете.
Буду благодарна любой помощи

VVA · 26.07.2016, 23:01

Цитата:

Сообщение от Olga_выноски

Имею большое желание изменять числа в мультивыносках.

Изменил немного код Lee Maca под твой тип мультивыносок

Код:

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

(defun c:ML_Inc (/ *error* ParseNumbers uFlag ss attname)
  (vl-load-com)
  ;; Инкремент мультивыносок, у которых блок-источник имеет атрибут с тагом, хранящимся в переменной attname
 (setq attname "TAGNUMBER") ;_Имя аттрибута блока-источника, хранящего значение
  (defun *error* (msg)
    (setvar 'NOMUTT 0)
    (and uFlag (vla-EndUndoMark *doc))
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **")))
    (princ))
    (defun ParseNumbers (str / lst Num Aph x rtn)
    ;; Lee Mac  ~  20.09.09
    (setq lst (vl-string->list str) Num "" Aph "")
    (while (setq x (car lst))
      (setq lst (cdr lst))
      (cond (  (and (/= "" Num) (= 46 x))
               (setq Num (strcat Num (chr x))))
            (  (< 47 x 58)
               (setq Num (strcat Num (chr x))
                     rtn (cons Aph rtn) Aph ""))
            (t (setq Aph (strcat Aph (chr x))
                     rtn (cons (read Num) rtn) Num ""))))
    (vl-remove nil
      (vl-remove "" (reverse (cons Aph (cons (read Num) rtn))))))
  (setvar 'NOMUTT 0)
  (setq *inc* (cond (*inc*) (1)))
  (setq *inc* (cond ((getint (strcat "\nSpecify Increment <"
                                      (vl-princ-to-string *inc*) "> : ")))
                    (*inc*)))
  (setq *doc (cond (*doc) ((vla-get-ActiveDocument (vlax-get-acad-object)))))
  (setvar 'NOMUTT 1)
  (princ "\nSelect Text to Increment <All> : ")
  (if (or (ssget "_:L" '((0 . "MULTILEADER")))
          (ssget "_X"  '((0 . "MULTILEADER"))))
    (progn
      (setq uFlag (not (vla-StartUndoMark *doc)))
      (vlax-for obj (setq ss (vla-get-ActiveSelectionSet *doc))
        (if (= 1 (vla-get-ContentType obj)) ;;_Мультивыноски имеют блок-источник
        (LM:SetMLeaderBlockAttributeValue obj attname
          (apply (function strcat)
                 (mapcar
                   (function
                     (lambda (x) (if (vl-position (type x) '(INT REAL))
                                   (mip-conv-to-str (+ x *inc*)) x)))
                   (ParseNumbers (LM:SetMLeaderBlockAttributeValue obj attname nil)))))))
      (vla-delete ss)
      (setq uFlag (vla-EndUndoMark *doc))))  
  (setvar 'NOMUTT 0)
  (princ))
;;---------=={ Set MLeader Block Attribute Value }==----------;;
;;                                                            ;;
;;  Sets the value of the specified tag for the specified     ;;
;;  MLeader                                                   ;;
;;------------------------------------------------------------;;
;;  Author: Lee McDonnell, 2010                               ;;
;;                                                            ;;
;;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;
;;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  mleader - ename/VLA-Object MLeader with attributed block  ;;
;;  tag     - Tagstring of the attribute to change            ;;
;;  value   - Value to which attribute will be set or nil    ;;
;;  (if value eq nil, then return current value )   ;;
;;------------------------------------------------------------;;
;;  Returns:  T if successful, else nil                       ;;
;;------------------------------------------------------------;;
(defun LM:SetMLeaderBlockAttributeValue ( mleader tag value / def id )
  (vl-load-com)
  ;; © Lee Mac 2010
  (if
    (and
      (eq "AcDbMLeader"
        (vla-get-Objectname
          (setq mleader
            (cond
              ( (eq 'VLA-OBJECT (type mleader)) mleader)
              ( (vlax-ename->vla-object mleader) )
            )
          )
        )
      )
      (= 1 (vla-get-ContentType mleader))
      (setq def
        (LM:Itemp
          (vla-get-Blocks
            (vla-get-ActiveDocument
              (vlax-get-acad-object)
            )
          )
          (vla-get-ContentBlockName mleader)
        )
      )
    )
    (if
      (progn
        (vlax-for obj def
          (if (and (eq "AcDbAttributeDefinition" (vla-get-Objectname obj))
                   (eq (strcase tag) (strcase (vla-get-TagString obj))))
            (setq id (vla-get-ObjectID obj))
          )
        )
        id
      )
      (if value
        (not (vla-SetBlockAttributeValue mleader id value))
        (vla-GetBlockAttributeValue mleader id)
        )
    )
  )
)
;;-----------------------=={ Itemp }==------------------------;;
;;                                                            ;;
;;  Retrieves the item with index 'item' if present in the    ;;
;;  specified collection, else nil                            ;;
;;------------------------------------------------------------;;
;;  Author: Lee McDonnell, 2010                               ;;
;;                                                            ;;
;;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;
;;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  coll - the VLA Collection Object                          ;;
;;  item - the index of the item to be retrieved              ;;
;;------------------------------------------------------------;;
;;  Returns:  the VLA Object at the specified index, else nil ;;
;;------------------------------------------------------------;;

(defun LM:Itemp ( coll item )
  ;; © Lee Mac 2010
  (if
    (not
      (vl-catch-all-error-p
        (setq item
          (vl-catch-all-apply
            (function vla-item) (list coll item)
          )
        )
      )
    )
    item
  )
)
    (defun mip-conv-to-str (dat)
      (cond ((= (type dat) 'INT) (setq dat (itoa dat)))
            ((= (type dat) 'REAL) (setq dat (rtos dat 2 12)))
            ((null dat) (setq dat ""))
            (t (setq dat (vl-princ-to-string dat)))
      ) ;_ end of cond
    ) ;_ end of defun

Файл для тестирования в #17

Olga_выноски · 27.07.2016, 10:19

безмерная благодарность!!!
если когда попаду в Минск, с меня пиво!

работает !!

вся фирма рада

petro_f · 06.10.2016, 23:51

Цитата:

Сообщение от Джеймс Борщ

Допилил в AsmiTools_Renum возможность изменять инкремент:

Код:

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

 (defun c:renum (/ oldPref oldSuf oldStart oldIncr curText curStr) 
  ); end of c:renum

А кто-нибудь знает как отключить игнорирование пробелов в окне динамического ввода?

Добрый вечер.
Немного переработал renum.
Так получилось, что надо было иметь ренум с префиксом, суффиксом, и двумя счётчиками. Так же как удобная фишка сделал, что при промахивании, плагин на шаг назад отступает. Удобно, когда надо одно и тоже значение вбить в несколько разных мест. Просто ставишь одно значение, потом "промах" по пустому месту и опять ставишь в текст в след месте.
Но потом решил немного переделать. Итого:

Сделал два независимых счётчика с возможностью выбора количества работающих счётчиков;
Сделал окно ввода начальных значений;
Добавил возможность в потоке изменять значение счётчиков (+-);
Добавил возможность в потоке производить старт или остановку счётчиков, клавиши (1 и 2);
Добавил индикацию работы или отключения счётчиков в строке консоли, значки "®" "•";
Добавил индикацию текста, который окажется в месте ввода;
Добавил повторный вызов окна ввода данных и управления плагином;
Добавил вызов окна "Help" по нажатию кнопки "3" во время работы плагина;
Добавил переключение в режим обработки автокадовских таблиц по нажатию кнопки "4" во время работы плагина;
Добавил отключение/включение "фишки" при промахивании по нажатии кнопки "5" во время работы плагина;
Добавил выход из программы по ПКМ или из меню;
Добавил выбор количества работающих счётчиков (иногда бывает нужно просто откопировать одинаковый текст, без [ре]нумерации);
Добавил расширенный ренумератор с количеством независимых счётчиков от 0 до 3-х. Команда TRENUM, отдельный лисп;
Добавил в расширенный ренумератор, с количеством независимых счётчиков от 0 до 3-х, возможность использования как цифр так и букв русского и английского алфавита Команда TRENUM, отдельный лисп;

Плагин работает с "TEXT" "MTEXT" "ATTRIB" "MULTILEADER" и "ACAD_TABLE"
В версии 4-1 добавлена защита от падения при обработке мультивыносок на основе блока, как в ссылке по ниже лежащему тексту.
Мульти выноски с блоком типа как в посте 17 не обрабатывал, так как такими не пользуемся.

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

P.S. Не ругайте, если что кому что не нравится, так как делал для себя и под свои нужды.

Denver-22 · 14.11.2016, 09:27

petro_f, ты красавчик!!! Ещё с месяц назад лишь мечтал о такой программе. А уж о таком гибком функционале и мечтать сложно. Огромное инженерное СПАСИБО!!!

Denver-22 · 21.11.2016, 08:44

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

petro_f, если у вас есть настрой продолжать развитие этой функции, можете ли Вы добавить в интерфейс первого окна кнопку, добавляющую текст "\P" в префиксы/индексы для реализации многострочных мультивыносок? Многострочный текст нужен очень многим.
Ну или просто добавьте текстовую подсказку для пользователей, что \P выполняет возврат каретки.
Сейчас пробовать добавлять \P вручную в префикс. Просто класс! Всё работает как надо. И лисп заиграл другими красками. Теперь я могу делать нумерацию и на 2-й/3-ей строчке, да и в любом многострочном тексте.

petro_f · 21.11.2016, 10:59

Цитата:

Сообщение от Denver-22

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

petro_f, если у вас есть настрой продолжать развитие этой функции, можете ли Вы добавить в интерфейс первого окна кнопку, добавляющую текст "\P" в префиксы/индексы для реализации многострочных мультивыносок? Многострочный текст нужен очень многим.
Ну или просто добавьте текстовую подсказку для пользователей, что \P выполняет возврат каретки.
Сейчас пробовать добавлять \P вручную в префикс. Просто класс! Всё работает как надо. И лисп заиграл другими красками. Теперь я могу делать нумерацию и на 2-й/3-ей строчке, да и в любом многострочном тексте.

Так все же про эти дела и так знают стандартные символы оформления текста:
Кто не знает, то может посмотреть тут http://www.cadforum.cz/cadforum_en/t...bjects-tip8640 или на русском http://docs.autodesk.com/AMECH_PP/20...r=ACDd30e83743
P.S. Спасибо за подсказку VVA

Composter · 29.11.2016, 13:23

я вот раньше пользовался вот этим прекрасным нумератором https://dwg.ru/dnl/1929
немного подправил 64 версию чтобы работало с мультивыносками

VVA · 30.11.2016, 21:01

Цитата:

Сообщение от petro_f

Кто не знает, то может посмотреть тут http://www.cadforum.cz/cadforum_en/t...bjects-tip8640

на русском http://docs.autodesk.com/AMECH_PP/20...r=ACDd30e83743

greyser · 01.12.2016, 12:48

Цитата:

Сообщение от Composter

я вот раньше пользовался вот этим прекрасным нумератором https://dwg.ru/dnl/1929
немного подправил 64 версию чтобы работало с мультивыносками

а как использовать файл *.dvb если в acad2016 уже нет поддержки vba?

upd понял, надо скачать с сайта https://knowledge.autodesk.com vba enabler

petro_f · 03.12.2016, 13:30

http://forum.dwg.ru/showpost.php?p=1594840&postcount=26
Только там одна проблемма - во первых 32-64 бит есть разница в версии, а вторая и самая главная VBA
У нас на работе прав админских на компах нет... и поставить VBA проблемно..

Сергей812 · 03.12.2016, 13:45

Цитата:

Сообщение от petro_f

У нас на работе прав админских на компах нет...

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

petro_f · 04.12.2016, 00:48

Цитата:

Сообщение от Сергей812

Цитата:
Сообщение от petro_f
У нас на работе прав админских на компах нет...
Так и должно быть в нормальных фирмах) Пишете служебку - в целях оптиматизации работы требуется поставить бесплатное дополнение vbaenabler к аутокад, подписываете у начальника отдела и админу. Только не пишите - для убыстрения работы, боком может выйти)

Очнитесь в конторе (особенно госовсокй) месяц другой пройдёт, прежде чем что-то двинется. А у моего знакомого так ещё и безопасники запрещают устанавливать доп проги, кроме тех что записаны в реестре на комп. Так что там только лисп и рулит )) его не пропалишь ))

Сергей812 · 04.12.2016, 01:05

Цитата:

Сообщение от petro_f

Очнитесь в конторе (особенно госовсокй) месяц другой пройдёт, прежде чем что-то двинется. А у моего знакомого так ещё и безопасники запрещают устанавливать доп проги, кроме тех что записаны в реестре на комп. Так что там только лисп и рулит )) его не пропалишь ))

Работал в подобной фирме на заре проектной деятельности, можете не объяснять) С тех пор уже сменил не одну фирму - все подобное решаемо, если не требует денег. VbaEnabler - не отдельная программа, а надстройка над акадом, которая не может получить права доступа выше прав доступа самого акада под пользователем - это к вопросу о безопасности. Но, конечно, лучше использовать лисп, NetAPI, ObjectArx. Хотя в вашем случае можно использовать еще подключение из VBA того же экселя - при этом легко реализовать дополнительный функционал типа: по типу блока/названию слоя/... автоматически подставляется нужный префикс и т.п.

Composter · 04.12.2016, 17:37

Цитата:

Сообщение от petro_f

Очнитесь в конторе (особенно госовсокй) месяц другой пройдёт, прежде чем что-то двинется. А у моего знакомого так ещё и безопасники запрещают устанавливать доп проги, кроме тех что записаны в реестре на комп. Так что там только лисп и рулит )) его не пропалишь ))

не знаю обычно проблем не было с установокой бесплатного инженерного/програмного софта . вот когда автокад LT - тогда даже lisp не рулит (((

valerik88 · 06.12.2016, 12:11

Вот писал для себя простой нумератор. Нумерует Текст, Мультитекст и Мультивыноски. Пробуйте, отписывайтесь.

Nike · 06.12.2016, 12:31

valerik88,

Команда: numer

Начать с номера № <1> : Первый номер №1
Выберите объекты:
; ошибка: неверно сформированная строка на входе
; сброс после ошибки

на первой же выноске

valerik88 · 06.12.2016, 12:55

Цитата:

Сообщение от Nike

на первой же выноске

Странно

У меня Autocad 2016 x64, использую эту программу для нумерации мультивыносок, текста и мультитекста... не было проблем

Nike · 06.12.2016, 13:03

valerik88, на строке ((numberp (read s)) (setq num (strcat num s))) спотыкается.
2011 х86

valerik88 · 06.12.2016, 14:57

Цитата:

Сообщение от Nike

valerik88, на строке ((numberp (read s)) (setq num (strcat num s))) спотыкается.
2011 х86

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

Подшаманил функцию, попробуйте

Nike · 06.12.2016, 15:00

valerik88, нет, на текстах тоже.

valerik88 · 06.12.2016, 15:03

Цитата:

Сообщение от Nike

valerik88, нет, на текстах тоже.

Попробуйте исправленную версию в сообщении выше

Nike · 06.12.2016, 15:12

valerik88, работает, спасибо.

petro_f · 06.12.2016, 17:01

Цитата:

Сообщение от Composter

я вот раньше пользовался вот этим прекрасным нумератором https://dwg.ru/dnl/1929
немного подправил 64 версию чтобы работало с мультивыносками

Не захотел у меня работать на 15 64 битном каде.

CHESNOK · 21.02.2017, 03:42

Нашел то что не нашел в этой теме, решил написать об этом, вдруг кому пригодится. Решения которые предлагали в этой теме это переименование уже начерченных мультивыносок. Но мне нужно было чтобы при расстановке мультивыносок они автоматически нумеровались по порядку. т.1, т.2, т.2... т.n
Вот нашел утилиту позволяющую это сделать "Авто-выноска - авто нумерация мультивыносок."
Прикрепил архив с утилитой и инструкцией на случай если ссылка перестанет работать

gps · 29.06.2017, 15:45

Попробовал несколько кодов из темы, работают, но возникла проблема. После обработки ими мультивыносок, текст в них сбивается к базовым настройкам стиля. Т.е., например, был курсив, но после перенумерации он становится обычным. Сам стиль менять - не вариант. Как сделать, чтобы остался курсив во всех обработанных мультивыносках?

Composter · 26.01.2018, 16:45

Цитата:

Сообщение от Composter

я вот раньше пользовался вот этим прекрасным нумератором https://dwg.ru/dnl/1929
немного подправил 64 версию чтобы работало с мультивыносками

теперь в 2017 акаде и эта версия не работает. ругается на "Entry.ObjectID32" я так понимаю теперь вообще этого параметра нет? чем его можно заменить то чтобы вытащить тип примитива?

Сергей812 · 26.01.2018, 17:16

Цитата:

Сообщение от Composter

ругается на "Entry.ObjectID32" я так понимаю теперь вообще этого параметра нет?

врятли уберут идентификатор объекта - основы БД чертежа) Просто он может быть, например, без 32 на конце.

Composter · 26.01.2018, 23:35

у объекта Entry такие свойства
тип примитива прописан в верхней строке. я не понимаю как его вытащить, Entry.type выдает ошибку. я просто не силен в VBA. Подскажите кто чем может

Сергей812 · 27.01.2018, 00:07

Цитата:

Сообщение от Сергей812

Просто он может быть, например, без 32 на конце.

.ObjectID вместо .ObjectID32 попробуйте.

Composter · 27.01.2018, 01:28

It's Alive!!!It's Alive!!!

спасибо, заработало!

Dest · 20.03.2019, 19:22

Уважаемые, практически все приведенные решения осуществляют автоматическую нумерацию уже проставленных выносок. Есть ли решения для расстановки выносок с автоматической нумерацией, заданием префикса и суффикса, а также чтобы выноска принимала стиль, установленный в чертеже или в крайнем случае позволяла настроить параметры типа вида стрелки, размера текста и т.д.?

Цитата:

Сообщение от CHESNOK

Нашел то что не нашел в этой теме, решил написать об этом, вдруг кому пригодится. Решения которые предлагали в этой теме это переименование уже начерченных мультивыносок. Но мне нужно было чтобы при расстановке мультивыносок они автоматически нумеровались по порядку. т.1, т.2, т.2... т.n
Вот нашел утилиту позволяющую это сделать "Авто-выноска - авто нумерация мультивыносок."
Прикрепил архив с утилитой и инструкцией на случай если ссылка перестанет работать

petro_f · 07.12.2019, 19:29

Обновил плагин в посте #22. Добавил функционал.

mvz · 08.04.2020, 12:11

Цитата:

Сообщение от Composter

я вот раньше пользовался вот этим прекрасным нумератором https://dwg.ru/dnl/1929
немного подправил 64 версию чтобы работало с мультивыносками

Возможно, у вас есть этот нумератор для AutoCad 2020?

Кулик Алексей aka kpblc · 08.04.2020, 15:39

Для начала - VBA Enabler для 2020 найден и установлен?
https://knowledge.autodesk.com/suppo...r-autocad.html

petro_f · 08.04.2020, 15:40

Цитата:

Сообщение от Кулик Алексей aka kpblc

Для начала - VBA Enabler для 2020 найден и установлен?
https://knowledge.autodesk.com/suppo...r-autocad.html

А его что опять исключили из установочного пакета?

Кулик Алексей aka kpblc · 08.04.2020, 15:41

Что значит "опять исключили"? Его как выпилили черт-те сколько лет назад, так и не впиливали обратно.

petro_f · 08.04.2020, 15:45

Цитата:

Сообщение от Кулик Алексей aka kpblc

Его как выпилили черт-те сколько лет назад, так и не впиливали обратно.

2018 это сколько лет назад?

P.S. Типовая установка типовой инсталятор. Просто кад уже установлен, но пункты при новой установке те же...

Опять поспешно отписались ....

mvz · 08.04.2020, 16:16

Цитата:

Сообщение от Кулик Алексей aka kpblc

Для начала - VBA Enabler для 2020 найден и установлен?
https://knowledge.autodesk.com/suppo...r-autocad.html

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

petro_f · 08.04.2020, 16:28

Цитата:

Сообщение от mvz

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

Установлен.
Что пишет плагин то при старте? Ошибки есть?

mvz · 08.04.2020, 16:46

Цитата:

Сообщение от petro_f

Установлен.
Что пишет плагин то при старте? Ошибки есть?

Перезагрузил компьютер и заработал нумератор.
Спасибо всем оперативные ответы и помощь!

Кулик Алексей aka kpblc · 08.04.2020, 17:52

petro_f, насколько я помню, его уже в 2013 не было.

----- добавлено через 23 сек. -----
Вру, раньше! С 2011 как минимум.

petro_f · 08.04.2020, 18:16

Цитата:

Сообщение от Кулик Алексей aka kpblc

Вру, раньше! С 2011 как минимум.

Плохо помните с 15 он 100% обратно вернулся в виде "галочки" в перечне дополнений.

Coochi · 08.04.2020, 18:19

Цитата:

Сообщение от CHESNOK

Нашел то что не нашел в этой теме, решил написать об этом, вдруг кому пригодится. Решения которые предлагали в этой теме это переименование уже начерченных мультивыносок. Но мне нужно было чтобы при расстановке мультивыносок они автоматически нумеровались по порядку. т.1, т.2, т.2... т.n
Вот нашел утилиту позволяющую это сделать "Авто-выноска - авто нумерация мультивыносок."
Прикрепил архив с утилитой и инструкцией на случай если ссылка перестанет работать

работает эта штука, создает мультивыноску (без суффиксов и прочих наворотов) но один большой минус - высота шрифта всего 4 единицы и соответственно нифига не видно; после простановки быстрым выбором выделяю все мультивыноски и применяю свою м.выноску через стиль м.выносок

Сергей812 · 08.04.2020, 18:25

Цитата:

Сообщение от Кулик Алексей aka kpblc

С 2011 как минимум.

c 2010 его выпилили из базового пакета, как раз пошла тройка на одной 18.x версии ядра 2010-2012

petro_f · 08.04.2020, 18:33

повторюсь - с 15 када он идёт в пакете в комплекте. Просто надо включить чекбокс.

Сергей812 · 08.04.2020, 18:44

в официальном пакете установщика?

Кулик Алексей aka kpblc · 08.04.2020, 18:56

Цитата:

Сообщение от Сергей812

в официальном пакете установщика?

В официальном - нет.

petro_f · 08.04.2020, 19:46

Цитата:

Сообщение от Кулик Алексей aka kpblc

В официальном - нет.

Ну как бы в SP2 есть ...

Кулик Алексей aka kpblc · 08.04.2020, 21:01

И за каким фигом тогда было в свое время выкладывать отдельно VBA Enabler?
Поскольку дальше лень спорить, будем считать, что ты прав.

Coochi · 20.02.2021, 16:36

Добрый день, пытаюсь ренумератором DRENUM v.4-2 перенумеровать мультивыноски (двух- трех строчные)

во вложении dwg acad2017 и jpeg

нужно сделать Ф1, Ф2 и т.д

но ничего не выходит, с \P или без оного - "Ф" остается на полке, инкремент сбрасывается на вторую полку в самое начало (((

в посте #24 такое вроде бы как возможно
"Сейчас пробовать добавлять \P вручную в префикс. Просто класс! Всё работает как надо. И лисп заиграл другими красками. Теперь я могу делать нумерацию и на 2-й/3-ей строчке, да и в любом многострочном тексте."

вопрос, что куда вписывать в окошке ренумератора?

petro_f · 20.02.2021, 17:03

[quote=Coochi;1924890]Добрый день, пытаюсь ренумератором DRENUM v.4-2 перенумеровать мультивыноски (двух- трех строчные)

во вложении dwg acad2017 и jpeg

нужно сделать Ф1, Ф2 и т.д

но ничего не выходит, с \P или без оного - "Ф" остается на полке, инкремент сбрасывается на вторую полку в самое начало (((

в посте #24 такое вроде бы как возможно
"Сейчас пробовать добавлять \P вручную в префикс. Просто класс! Всё работает как надо. И лисп заиграл другими красками. Теперь я могу делать нумерацию и на 2-й/3-ей строчке, да и в любом многострочном тексте."

вопрос, что куда вписывать в окошке ренумератора?[/Q]
А в чём проблема то? Помним, что \P в англ. раскладке.
Во вложении разные настройки.
Вариант №3 это TRENUM

Coochi · 20.02.2021, 17:11

Цитата:

А в чём проблема то?

Да! оцэ воно, спасибо огромное! Сам бы не догадался что прописывать надо в суффикс, без пробелов

Coochi · 05.04.2021, 13:07

Добрый день,и опять вопрос по Drenum, можно ли перенумеровывать только префиксы?
В уже расставленных МВыносках, в моем примере, суффикс это мощность прибора которую нельзя менять, если же в поле для суффикса оставить пустое место то он, естественно удаляется...

petro_f · 05.04.2021, 13:26

Цитата:

Сообщение от Coochi

Добрый день, и опять вопрос по Drenum, можно ли перенумеровывать только префиксы?

Нет, так как данный лисп односторонний. Он не считывает предыдущие тексты, а просто заменяет. Для такого вроде был ренумератор на VBA который это делает. Поищите "NUMBER" ренумератор по сайту.

Coochi · 05.04.2021, 13:44

Цитата:

Поищите "NUMBER" ренумератор

спасибо,. нашел и разбираюсь, мудреный дюже

petro_f · 19.07.2024, 10:40

В посте #22 обновил файл ренумератора.
Добавил в расширенный ренумератор, с количеством независимых счётчиков от 0 до 3-х, возможность использования как цифр так и букв русского и английского алфавита Команда TRENUM, отдельный лисп;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сквозная нумерация чертежей	Alxd	Прочее. Архитектура и строительство	26	19.06.2024 09:01
Нумерация листов в AutoCad	Sergk	AutoCAD	21	11.03.2022 05:21
Как программно удалить неиспользуемые стили мультивыносок.	Makswell	Программирование	6	08.04.2009 13:43
Нумерация дин.блоков "тыкая" мышью	gizmo_zx	Программирование	14	02.04.2009 11:44
Автоматическая нумерация текстов	dorofei	Программирование	8	18.01.2007 09:31

15.11.2011, 14:44		#1
Нумерация мультивыносок. shartal Регистрация: 12.08.2009 Сообщений: 464 На форуме есть несколько чудесных лиспов которые нумеруют атрибуты и текст, но с мультивыносками ни один не работает. Нельзя ли как-то исправить ситуацию. Последний раз редактировалось shartal, 15.11.2011 в 15:41.
Просмотров: 59289