Как быстро пронумеровать объекты (например сваи)?

Если кто с этим работал (по-любому работал), подскажите, как вы нумеруете 2000-3000 шт. свай? Есть в каде или еще где решение этой проблемы?

 

kolenval85 конечно есть! Сваи чем нарисованы? А лучше выложи чертёж.

 

Сваи в виде точек (формат точек изменил), просто нарисовал сваи, поставил отклонения и еще требуют пронумеровать...

 

kolenval85, а нумеровать как:
1) как угодно

11 12 | 13 14 | 15 16
17 18 | 19 20 | 21 22
------------------------
23 24 | 25 26 | 27 28
29 30 | 31 32 | 33 34

2) или как проектанты, по кустам

24 25 | 28 29 | 32 33
23 26 | 27 30 | 31 34
------------------------
12 13 | 16 17 | 20 21
11 14 | 15 18 | 19 22

3) или по какой-то строгой нумерации как в проекте

45 54 | 23 24 | 12 51
43 47 | 89 22 | 25 31
------------------------
33 49 | 82 95 | 27 20
39 88 | 74 11 | 15 21

 

Нумерация по кустам! Выкладываю чертеж уже мною вручную пронумерованный!

 

Disney куда пропал?

 

Ну во-первых, об этом можно спросить и в личку, во-вторых, у меня сейчас много работы, поэтому по хорошему помочь(объяснить) пока некогда, а как попала не хочу, в-третьих ты же вроде пока решил проблему, в ручную всё сделал, или тебе предстоит нумеровать каждый день по 5 свайных полей?

 

Ну да, пока решил, я про перспективу пекусь... Ок, как будет время напиши, очень выручишь. И еще, как в личку писать, какие шаги?

 

kolenval85, на DWG.RU тебе давали ссылку на темы обсуждения подобных задач, там есть как самописные программы, так и ссылки на команду tcount из Express tools , но мало того, что ты и в них самостоятельно не разобрался, так и меня самого они немного не устраивают, сейчас первоочередная это Импорт координат, когда закончу обязательно возьмусь за нумератор.

 

kolenval85 вот ещё несколько программ, правда там на англицком, если совсем туго могу перевести диалог, да и описание самих программ.

 

Спасибо, поковыряюсь!

 

Здравствуйте уважаемые! С наступившим Новым годом всех! У меня вопрос. Может где уже был но я не нашел. На топографическом плане надо пронумеровать колодцы и деревья, как можно автоматизировать эту процедуру? Например указал несколько деревьев, задал начальный номер и что бы автоматом рядом нужный номер проставился. Заранее спасибо.

 

1. Пробуй (блок должен иметь атрибут).
2. Если стоит express tools. ставишь рядом любой номер однострочным текстом и...
express tools -> text -> automatic text numbering
3. На dwg.ru можешь поискать.

P.S. Сам пробовал только первый вариант.

 

Спасибо большое! Экспресс стоит но почему то не работает. Лисповскую программку установил, но не нумерует, наверно из за атрибутов блока.

 

Нужный, надеюсь по порядку?

http://geodesist.ru/forum/threads/Как-быстро-пронумеровать-объекты-например-сваи.4781/#post-69764

вот лиспик

N.lsp (open) N.lsp (close)

;---------- NUMB.lsp Буркин Ю.В. 26.11.1990 Copyright
;________ Модифицировано для autocad 14 win 9.04.98
;________ Модифицирована по настойчивому требованию
;________ одного Сибирского Валенка MBВ
;________ под "Русский" AutoCAD 2006 13.04.06
;________
;________ Для начала работы теперь надо после загрузки
;________ ввести с клавитатуры команду N (английскую) или n
;
; Программа для нумерации различных объектов в ACADe
; Гарнитура и размер текста определяются значениями переменных.
; Задаются : - Начальный номер n
; - Шаг приращения d
; Нажатие клавиши <RETURN> или пробела в ответ на запрос программы
; "Нач. точка:" воспринимается как указание прекратить выполнение команды.

(defun C:N ()
;(/n d txt h l a )
; a : Начальная точка текста
; n : Начальный номер
; d : Радиус окружности
; txt : Гарнитура шрифта
; h : Высота текста
; l : Коэф. ширины текста
; Сохранение значений и установка системных переменных
(setq ce (getvar "CMDECHO"))
(setq bm (getvar "BLIPMODE"))
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
; Проверка - имеет ли текущая гарнитура шрифта фиксированную высоту
(setq ts (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))))
(setq txt (getvar "textstyle"))
(setq h (getvar "textsize" ))
(if (null d) (setq d 1))
(initget 1)
(setq c 1)
(setq n 1)
(setq d 1)
; Запрос начального номера
(setq n (getint "\n Начать с номера: "))
(setq d (getint "\n Шаг нумерации: "))
(prompt "\n Для Завершения Нумерации Нажмите < CTRL-C > или < Enter >")
(setq a (getpoint "\n Укажите точку вставки номера: "))
(while A
; (if (= a nil)
(setq c F)
(progn
; Запрос твставки текста (нулевой ответ не воспринимается)
(setq txp (itoa n))
(if (zerop ts)
(command "_.TEXT" a h "0" txp)
(command "_.TEXT" a "0" txp)
)
; (COMMAND "INSERT" "BAL" a "1" "1" "0" txp "")
(setq n (+ d n))
(setq a (getpoint "\n Укажите точку вставки номера: "))
)
;; )
)
; Сброс значений системных переменных
(setvar "BLIPMODE" bm)
(setvar "CMDECHO" ce)
(princ)
)

 

Спасибо большое! Лисп тот, что нужен!Всего вам доброго!

 

Спасибо и от меня, лисп понравился, единственное не подскажите как сделать что бы в цивил 2017 команды отображались на русском или английском, а то после ввода команды N дальше всë иероглифами. Заранее спасибо.