|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
26.12.2005, 08:34 | #1 | |
Помогите плиз с программкой по автоматической нумерации
промышл проектант
Изовсехщелей
Регистрация: 26.05.2005
Сообщений: 323
|
||
Просмотров: 71802
|
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
|
|||
|
||||
промышл проектант Регистрация: 26.05.2005
Изовсехщелей
Сообщений: 323
|
Цитата:
и прога имеет существенный недостаток - она не позволяет пробить все поле автоматически - приходится каждый раз указывать номер 1 - 10 -30 и т.д. менять направдение оси - по возрастанию или убыванию - в общем не совсем то но близко. для поля из 20-30 блоков подходяще. може все же кто то сможет написать лисп а - господа программисты !!?? |
|||
|
||||
промышл проектант Регистрация: 26.05.2005
Изовсехщелей
Сообщений: 323
|
Спасибо Fatty.
а если еще учесть направления выбора и проверять только ось X или Y на направление - по желанию. т.е. если один блок выше другого по оси у а проверка идет по оси х то этот блок нумеруется вместе со всеми одинаково. и поставить на цикл а выход например по вводу 0 (нуля). надеюсь не обнаглел |
|||
|
||||
Lisp/VBA/VB.NET Hobbyist Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367
|
Цитата:
попозже вернусь 'J'~~ |
|||
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
>Diman111
Цитата:
о возможности БЕСПЛАТНОЙ высылки текста. Выбор свай делается рамкой или секрамкой. Я не очень сильный прогаммист, поэтому текст посылал тому кто запрашивал, а не размещал. Дурь не хотел показывать. Ну уж ладно, размещаю Код:
|
|||
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
>Diman111
Цитата:
о возможности БЕСПЛАТНОЙ высылки текста. Выбор свай делается рамкой или секрамкой. Я не очень сильный прогаммист, поэтому текст посылал тому кто запрашивал, а не размещал. Дурь не хотел показывать. Ну уж ладно, размещаю Код:
|
|||
|
||||
промышл проектант Регистрация: 26.05.2005
Изовсехщелей
Сообщений: 323
|
Уважаемый Alan - при использовании вашего лиспа возникли затруднения - а именно - не меняется нумерация к сожалению.
Command: Chan_Numb Укажите сваи для изменения номеров Select objects: Specify opposite corner: 9 found Select objects: Введите начальный номер сваи <1>: Введите направление сортировки по оси Х и У <++>: Заменены номера у 0 свай Command: я и имя блока поменял на S1 (у вас в коде вроде бы фильтрются блоки по имени)- результат тот же |
|||
|
||||
Lisp/VBA/VB.NET Hobbyist Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367
|
Я смотрю тут уже сделали тебе добротную прогу, тем не менее,
раз уж сделал, тоже продемонстрирую (без проверок на слои и т.д.) А вообще мне кажется, это бесполезные добавления, свайное поле не всегда такое упорядоченное (я имею в виду сложный контур плана) ну как говорится, хозяин - барин Код:
|
|||
|
||||
промышл проектант Регистрация: 26.05.2005
Изовсехщелей
Сообщений: 323
|
Цитата:
НАсчет нужности - представь квадратное поле с 3 тыс свай и их надо пронумеровать а в дальнейшем возможно и не раз менять количество а значит и нумерацию свай. вот и смысл. а насчет всегда или нет - так универсального ничего нет и всеже - СПАСИБО БОЛЬШОЕ. И СПАСИБО ВСЕМ КТО ОТКЛИКНУЛСЯ. |
|||
|
||||
Project Engineer Регистрация: 05.01.2005
Лос Анджелес
Сообщений: 1,392
|
Цитата:
Код:
|
|||
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
>Diman111
Прошёлся своей программкой по Вашему чертежу, в верхней части (блок начинается с латинской буквы с) всё работает. Для того чтобы работала нижняя часть (блок называется "Свая С1" с русской буквы с) добавьте строку в анализ. Код:
|
|||