Расстановка номеров пикетов по трассе трубопровода. - Страница 3
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Расстановка номеров пикетов по трассе трубопровода.

Расстановка номеров пикетов по трассе трубопровода.

Ответ
Поиск в этой теме
Непрочитано 19.06.2009, 13:12
Расстановка номеров пикетов по трассе трубопровода.
Jeriko
 
Регистрация: 18.06.2009
Сообщений: 118

Имеется план трассы трубопровода, необходимо каждые 100м проставить номер пикета (ПК00+00, ПК01+00...ПК99+00).

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

Отсюда вопрос: каким образом можно научить автокад, автоматически проставлять номера пикетов по возрастающей ПК00+00, ПК01+00 и тд?Есть ли возможность реализовать это с помощью динамического блока? Или с помощью команды _dataextraction, можно ли создать связь с экселем , таким образом чтобы при изменении значения в экселе менялось значение текста на самом чертеже?
Просмотров: 53091
 
Непрочитано 25.06.2009, 16:19
#41
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,404


Сильно опасаюсь, что "закончусь". В любом варианте сегодня заняться уже не получается Работы накидали...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 25.06.2009, 16:21
#42
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


А никто и не торопит
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 25.06.2009, 17:04
#43
skif58

Наше дело труба
 
Регистрация: 19.11.2006
Томск_Комсомольск-на-Амуре
Сообщений: 1,736
<phrase 1= Отправить сообщение для skif58 с помощью Yahoo Отправить сообщение для skif58 с помощью Skype™


Цитата:
Сообщение от Jeriko Посмотреть сообщение
skif58...попробовал команды _measure и _divide с вашим блоком все работает как надо, то есть ориентация у блоков получается перпендикулярно трассе, по чему лиспом они не расставляются я не знаю. С лиспом, который выложил Кулик Алексей aka kpblc, все работает...
Аналогично. Загадка...
Спасибо Алексей. - работает. С запросом поворота текста был бы полный ажур.
__________________
*...И Случай, бог изобретатель. *
skif58 вне форума  
 
Непрочитано 26.06.2009, 07:57
#44
Hohotun


 
Регистрация: 11.12.2006
Сообщений: 24


как вариант расставить пикеты а потом с помощью express tools преобразовать атрибут блока в текст, ну и потом ручками немного подправить.
Hohotun вне форума  
 
Непрочитано 26.06.2009, 14:05
#45
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Алексей, собсно интересуюсь, есть-ли какие подвижки???
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 26.06.2009, 16:20
#46
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,404


Пока вариант dcl (скажите, устраивает или нет)
Код:
[Выделить все]
dlg : dialog{label="dwg.ru : Установка блоков по кривой";
	:column{label="Выбор блока и атрибута";
		:popup_list{label="Блок";key="blk_list";}
		:popup_list{label="Атрибут";key="attr_list";}
		}
		spacer_1;
	:column{label="Заполнение атрибута";
		:row{
			:column{
				:radio_button{label="Использовать автонумерацию";key="attr_renum";}
				:edit_box{label="Префикс";key="attr_prefix";}
				:edit_box{label="Суффикс";key="attr_suffix";}
				:edit_box{label="Начальный номер";key="attr_start";}
				:edit_box{label="Приращение";key="attr_plus";}
				}
			:column{label="Фиксир.значение";
				:radio_button{label="Назначить";key="attr_fixed";}
				:edit_box{label="Значение";key="attr_value";}
				}
			}
		}
	:radio_column{label="Расстановка блоков по кривой";
		:row{
			:radio_button{label="Через указанное расстояние";key="is_dist";}
			:edit_box{key="place_dist";}
			:button{key="btn_dist";label="...";}
			}
		:radio_button{label="Вручную указывать каждый элемент";key="is_manual";}
		:row{
			:radio_button{label="Разбить кривую на несколько участков";key="is_range";}
			:edit_box{key="place_range";}
			}
		}
	:column{label="Поворот";
		:row{
			:radio_column{label="Поворот блока";
				:radio_button{label="По касательной к кривой";key="blk_is_rotate_deriv";}
				:radio_button{label="На определенный угол";key="blk_is_rotate_angle";}
				:row{
					:edit_box{label="Укажите угол";key="blk_rotate_angle";}
					:button{label="...";key="btn_get_blk_angle";}
					}
				}
			:radio_column{label="Поворот атрибута";
				:radio_button{label="По касательной к кривой";key="attr_is_rotate_deriv";}
				:radio_button{label="На определенный угол";key="attr_is_rotate_angle";}
				:row{
					:edit_box{label="Укажите угол";key="attr_rotate_angle";}
					:button{label="...";key="btn_get_attr_angle";}
					}
				}
			}
		}
	ok_cancel;
	}
Проблема в том, что в ближайшие сутки сесть не получается
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 26.06.2009, 16:42
#47
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Кулик Алексей aka kpblc, а вот ещеб подсказал как сие запустить??
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 26.06.2009, 16:57
#48
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,404


vlide -> новый файл -> вставить содержимое -> Tools -> Interface tools -> Preview DCL In Editor
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 26.06.2009, 17:08
#49
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Кулик Алексей aka kpblc, может что-то не то делаю, но у меня пункт "Preview DCL In Editor" неактивный???
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 26.06.2009, 17:15
#50
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


zenon, Сделай окно с открытым файлом dcl активным. По моему его надо сохранить как dcl. Вот наткнулся на еще один автонумератор. Может быть кое-что в плане dcl позаимствовать
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 26.06.2009, 17:15
#51
skif58

Наше дело труба
 
Регистрация: 19.11.2006
Томск_Комсомольск-на-Амуре
Сообщений: 1,736
<phrase 1= Отправить сообщение для skif58 с помощью Yahoo Отправить сообщение для skif58 с помощью Skype™


Цитата:
Сообщение от zenon
пункт "Preview DCL In Editor" неактивный???
И у меня.
__________________
*...И Случай, бог изобретатель. *
skif58 вне форума  
 
Непрочитано 26.06.2009, 17:24
#52
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


zenon, skif58, Проверил. После копирования из буфера сохраните файл как, например, test.dcl
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 26.06.2009, 18:31
#53
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Кулик Алексей aka kpblc, самое оно
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 26.06.2009, 19:04
#54
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,518


пикеты это все фигня, а слабо весь подвал автоматом заполнить? а то я запарилс уже профиля строить. уйма выкидных линий от 23 скважин...а еще 70 скважин ожидается.....а еще переходы под дорогами.....
Рyslan вне форума  
 
Непрочитано 29.06.2009, 11:51
#55
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Рyslan, а что спецсофта нету??
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 29.06.2009, 19:41
#56
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,518


может и есть. только не в курсе. а какой спецсофт может строить профиля? подскажи
Рyslan вне форума  
 
Непрочитано 30.06.2009, 17:58
#57
Olga_@@@


 
Регистрация: 14.03.2008
Екатеринбург
Сообщений: 678
<phrase 1= Отправить сообщение для Olga_@@@ с помощью Skype™


Рyslan, если есть поверхность, то Civil или Land
Olga_@@@ вне форума  
 
Автор темы   Непрочитано 03.07.2009, 14:59
#58
Jeriko


 
Регистрация: 18.06.2009
Сообщений: 118


Кулик Алексей aka kpblc, так это окончательная версия программы? а то у меня получается вызвать диалоговое окно, но там ни имя блока не задать и никаких операций выполнить не получается.
Jeriko вне форума  
 
Непрочитано 03.07.2009, 15:00
#59
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,404


Нет, не окончательная. У меня тут на работе серьезная запарка, сесть за код не получается. Даже диалог до конца еще не прописал
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 10.07.2009, 15:00
#60
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Кулик Алексей aka kpblc, как дела с кодом?
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Расстановка номеров пикетов по трассе трубопровода.