Отложенные0 Корзина00

Контактная информация

105120, Москва, 3-й Сыромятнический переулок, 3/9, строение 1, 4 этаж

info@cad.ru

нумерация элементов

--Форум--нумерация элементов

RSS

нумерация элементов, как автоматизировать нумерацию элементов на чертеже

Алексей

Гость

14.06.2007 14:32:53

Здравствуйте.
ЯСкажите, пожалуйста, есть ли в Auto Cad встроенная функция нумерации элементов?
Пример: надо пронумеровать на чертеже столы (большое количество), но если добавляется стол (между уже существующими столами), надо, чтобы нумерация так же сдвигалась. Возможно ли это сделать, и если да, скажите, пожалуйста, как.

P.S. большая просьба рассказать подробно, как это делать, так как я новичёк в этой программе.

Зараннее благодарю.

sapr317 Профиль Завсегдатай Сообщений: 261Баллов: 261Регистрация: 08.11.2006	#2 14.06.2007 14:47:27 Пронумеровать столы, к примеру, можно, вставляя столы блоком у которого есть атрибут-порядковый номер. Но автоматически нумероваться и перенумеровываться они не будут. Для этого нужно писать программу.
E-mail

Алексей Гость	#3 14.06.2007 14:48:50 либо быть может кто-нибудь может посоветовать не обязательно этот способ, а кокой-нибудь другой. Очень надо и ОЧЕНЬ буду благодарен 8)

Алексей

Гость

14.06.2007 14:52:44

sapr317!, а эту нумерацию (атрибутную) на чертеже не будет видно?
Мне просто надо, чтобы на чертеже нумерация так же была видна.
Другой вопрос - можно ли циферку - номер стола привязать к самому столу, а то у меня номер стола - просто объект "текст", а так как такиех столов более 100 на чертеже - очень тяжко получается.

sapr317 Профиль Завсегдатай Сообщений: 261Баллов: 261Регистрация: 08.11.2006	#5 14.06.2007 16:48:30 Атрибут по-умолчанию будет виден (если нужно - видимость можно отключить), и будет "привязан" к столу.
E-mail

Алексей

Гость

15.06.2007 11:56:57

sapr317! я большой чайник, в этой проге сиже тока второй день, ничего не понимаю
Будте так любезны, расскажите пожалуйста, как делать блок и где его атрибуты?
Вот у меня нарисован стол, но отдельными линиями, что дальше делать?
(у меня англ. версия)
Буду ОЧЕНЬ благодарен!

rad Профиль Редактор Сообщений: 772Баллов: 772Регистрация: 05.05.2004	#7 15.06.2007 12:54:43 Может быть речь идет о позиционных метках ? Такая возможность появилась в 2008 версии (cм. рис.) Прикрепленные файлы AutoCAD2008.jpg (12.6 КБ)
E-mail

sapr317

Профиль

Завсегдатай

Сообщений: 261Баллов: 261Регистрация: 08.11.2006

15.06.2007 13:15:02

После того, как нарисовали стол,
1)командой _attdef определите атрибут с именем, допустим, номер; его местоположение определите вблизи стола;
2)командой _block создайте определение блока, выбрав в качестве примитивов блока стол и созданное п.1определение атрибута. Не забудьте указать точку вставки блока где-нибудь на столе;
3)теперь можно вставлять созданный блок командой _insert (можно использовать кнопку на панели рисования); при каждой вставке стола будет запрашиваться значение атрибута "номер"

E-mail

Алексей

Гость

15.06.2007 15:23:35

sapr317, спасибо за помощь!
вроде более-менее разобрался, но теперь уже сомневаюсь - облегчит ли мне это жизнь или нет, так как получается что столы все заного надо рисовать, а они уже до меня все проставлены были.
или я опять что-то не так понял?=)

sapr317

Профиль

Завсегдатай

Сообщений: 261Баллов: 261Регистрация: 08.11.2006

#10

15.06.2007 17:07:26

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

E-mail

sapr317

Профиль

Завсегдатай

Сообщений: 261Баллов: 261Регистрация: 08.11.2006

#11

15.06.2007 17:25:12

Это можно прямо скопировать в командную строку и жать клавишу ввода.
(setq num 1 ht 3 at 0)
(while (setq pt(getpoint"местоположение номера"))
(command "_text" pt ht at (itoa num))
(setq num(1+ num))
);while
После чего указывать левой клавишей мыши место, где нужно проставить очередной номер: будет проставляться текст и номер наращиваться на 1. В первой строке 1 - это начальный номер ,3 - высота текста, 0 - угол поворота текста - можешь заменить своими значениями.
Может такой вариант тебя устроит - все 100 номеров проставишь за 30''
Да, только копируй сначала первую строку отдельно, ввод, потом все остальные, ввод.Или помести это в текстовый файл с расширением LSP и загрузи этот файл приложением(Сервис->приложение...)

E-mail

rad

Профиль

Редактор

Сообщений: 772Баллов: 772Регистрация: 05.05.2004

#12

18.06.2007 10:46:49

Есть более интересный универсальный вариант создания динамических надписей к объектам с помощью БД.
Предварительно создайте и заполните, например, в Access базу данных с нужными полями, номерами, обозначениями и наименованиями объектов. Надписью потом может быть любое поле или их набор, но лучше не ключевое.
Подключаете созданную БД к AutoCAD (команда dbConnect), cоздаете шаблоны связи и ярлыков. Ярлыки могут быть двух видов, свободно расположенные относительно объекта и прикрепленные к нему. Прикрепленные перемещаются вместе с объектом.
В случае корректировки информации в БД, подсветите шаблон ярлыка в окне и выберите команду из контекстного меню "Обновить". В поле чертежа информация изменится автоматически.

E-mail

maks Гость	#13 19.08.2007 01:19:09 ESLI U VAS POLNAJA VERSIJA 2006 I VYSHE ISPOLZUJTE EXPRESS TOOLS (sverhu gde MENiU) >text >automatic text numbering ili komandoj: tcount , numeruet tekst po osi x, y na vybor, ili vydelennuju gruppu tekstov. mozet pomozet, esli stoly ne po krugu budvajzera mne, budvajzera, spasib ne nado

Алексей Романов

Гость

#14

21.08.2007 07:07:33

Цитата
sapr317 пишет: Это можно прямо скопировать в командную строку и жать клавишу ввода.

Из всего здесь предложенного Ваш вариант больше всего, наверное, подходит для данного случая. Для более удобного использования я добавил пару строчек (если не возражаете):

Цитата
(defun c:order (/ ht at begin) (if (not num)(setq num 1)) (setq ht 3 at 0) (if (setq begin (getint (strcat "Начальный номер <" (itoa num) ">:")))(setq num begin)) (while (setq pt(getpoint (strcat "Укажите местоположение номера [" (itoa num) "]:"))) (command "_text" pt ht at (itoa num)) (setq num(1+ num)) ) )

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

Алексей Романов

Гость

#15

22.08.2007 09:03:04

Цитата
Алексей пишет: ...надо, чтобы нумерация так же сдвигалась. Возможно ли это сделать, и если да, скажите, пожалуйста, как.

Нашел в своем архиве похожую программу (простановка позиций на чертеже), лидер заменил на текст, если еще интересно, посмотрите, может пригодится...
Возможности: динамическое отображение вставляемого текста; поиск максимального номера и использования его, как начального (увеличенного на 1); перенумерация в случае совпадения (до первого разрыва между элементами).
Ограничения: отсутствие привязки; текст размещается на отдельном слое (если такого нет, то он создается); время перенумерации каждых 100 элем-в ~ 1 сек.(Р4-2Ггц, 512Мб ОЗУ); обрабатываются только 2 одинаковых элемента (остальные игнорируются).
Все действия, как в топике выше. Лучший вариант - сохранить код в файле с расширением .LSP и загружать после запуска Автокада (можно настроить автозагрузку)...

Цитата

(if (car (atoms-family 1 '("vl-load-com"))) (vl-load-com))
(defun order_error (s)
(if txt (vla-delete txt))
(setq *error* old_error)
(setvar "CLAYER" old_sloy)
)
(defun mSpace (/ doc mSp)
(setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(if (= 1 (getvar "TILEMODE"))
(setq mSp (vla-get-ModelSpace doc))
(setq mSp (vla-get-PaperSpace doc)))
)
(defun oFind (/ selfnd n fTxt count lst lstmax)
(setq selfnd (ssget "X" (list (cons '8 '"order")(cons '0 '"TEXT"))) n 0 lstmax 0)
(if (/= selfnd nil)(setq count (sslength selfnd))(setq count 0))
(while (< n count)
(setq fTxt (vlax-ename->vla-object (ssname selfnd n)))
(setq lst (atoi(vla-get-textstring fTxt)) n (1+ n))
(if (< lstmax lst)(setq lstmax lst)))
(setq lstmax (1+ lstmax))
)
(defun oReplace (rTXT rNUM / sel)
(while (> (sslength (setq sel (ssget "X" (list (cons '8 '"order")(cons '0 '"TEXT")(cons '1 (itoa rNUM)))))) 1)
(progn
(setq sel (ssdel (vlax-vla-object->ename rTXT) sel))
(setq rTxt (vlax-ename->vla-object (ssname sel 0)))
(vla-put-textstring rTxt (itoa (setq rNum (1+ rNum))))))
)
(defun c:order (/ ht begin flg pick lt pt)
(setq ht 3 old_error *error* *error* order_error old_sloy (getvar "CLAYER") num (oFind))
(if (not (cdadr (tblsearch "LAYER" "order")))
(vla-add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-Acad-Object))) "order"))
(setvar "CLAYER" "order")
(if (setq begin (getint (strcat "\nНачальный номер <" (itoa num) ">:")))(setq num begin))
(while (/= flg t)
(princ (strcat "\nУкажите местоположение номера [" (itoa num) "]:"))
(setq txt (vla-addtext (mSpace) (itoa num) (vlax-3d-point '(0 0 0)) ht))
(while (/= pick t)
(setq pt (cadr (setq lt (grread t))))
(if (and pt (listp pt))
(progn
(if (= (car lt) 5)(vla-put-insertionPoint txt (vlax-3d-point pt)))
(setq pick (= 3 (car lt))))
(progn (vla-delete txt)(setq flg t txt nil))))
(progn (oReplace txt num)(setq num (1+ num) pick nil)))
(setq *error* old_error)
(setvar "CLAYER" old_sloy)
)

PS. Для Автокада2000 и выше

Василий Багдасарьян

Профиль

Дебютант

Сообщений: 1Баллов: 1Регистрация: 22.01.2008

#16

22.01.2008 13:51:06

Народ! Подскажите пожалуйста! Нужно на контуре или замкнутой полилинии! Расставить n-ое количество точек! С этим я разобрался! Но НУЖНО ИХ ПРОНУМЕРОВАТЬ (1.1, 1.2. 1.3 и т.д)! КАК ЭТО СДЕЛАТЬ????
Буду очень благодарен! Заранее СПАСИБО!

E-mail

sapr317

Профиль

Завсегдатай

Сообщений: 261Баллов: 261Регистрация: 08.11.2006

#17

22.01.2008 17:49:35

Сразу после того, как Вы разметили свой контур точками выполните следующий код (его Вы можете поместить в текстовый ф-л LSP и вызвать, как приложение):
(setvar "osmode" 0)
(setq ss(ssget"_P")
n (sslength ss)
i 0
ht 5
at 0
)
(while (< i n)
(setq lst(entget(ssname ss i))
pt(cdr(assoc 10 lst))
)
(command "_text" pt ht at (strcat "1." (itoa i)))
(setq i (1+ i))
)
Почему сразу? Потому что после разметки точки поступают в текущий набор и остаются там, пока Вы не вызвали след. команду, и до этих пор проще взять их координаты.

E-mail

Василий Гость	#18 22.01.2008 18:08:28 Огромное Вам СПАСИБО!!!! Здорово выручили! Сейчас бы сидел вручную все проставлял, (а работу через 10 часов сдавать). Спасибо за помощь!!! Успехов Вам!

Василий

Гость

#19

22.01.2008 18:43:32

Здравствуйте! "Столкнулся" с с проблемой!
Для вывода координат точек нажимаю - Список. Он выдает координаты только 5 точек, для продолжения "просит" нажимать ввод (точек около 2500 штук).
Можно ли без редактирования списка координат, сделать ВЫВОД ИХ ВСЕХ В "ЧИСТЫЙ" СТОЛБЕЦ или В ТАБЛИЦУ!???

Подскажите пожалуйста!

Василий Гость	#20 22.01.2008 19:13:33 Еще вопрос! Скинутый вами скрипт! (setvar "osmode" 0) (setq ss(ssget"_P") n (sslength ss) i 0 ht 5 at 0 ) (while (< i n) (setq lst(entget(ssname ss i)) pt(cdr(assoc 10 lst)) ) (command "_text" pt ht at (strcat "1." (itoa i))) (setq i (1+ i)) ) Что надо сделать? Чтобы следующий контур забить точками! Если точка начинается с 2.41 Пробиваю её в strcat а САD ругается! ПОДСКАЖИТЕ ПОЖАЛУЙСТА ! ЧТО НУЖНО СДЕЛАТЬ???

Корзина

Сайт использует файлы Сookies и счетчики аналитики Яндекс для сбора статистики и обеспечения максимального удобства пользователям. Собираются данные об IP-адресе и местоположении пользователей. Продолжая любое дальнейшее использование Сайта и/или сервисов Сайта, Вы соглашаетесь на сбор и обработку этих данных. Подробнее об этом вы можете узнать в Политике конфиденциальности.

ПринятьНастроитьОтклонить