[Jeriko]

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

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

Отсюда вопрос: каким образом можно научить автокад, автоматически проставлять номера пикетов по возрастающей ПК00+00, ПК01+00 и тд?Есть ли возможность реализовать это с помощью динамического блока? Или с помощью команды _dataextraction, можно ли создать связь с экселем , таким образом чтобы при изменении значения в экселе менялось значение текста на самом чертеже?

[sasha_lif]

Первый способ:
tcount
это из express-ov автоматический текстовый нумератор, можно задавать префиксы, приращение...

второй способ:
создаешь блок с атрибутом , а потом с помощью xblocknum.lsp нумеруешь

[Jeriko]

Express-ov к сожелению у меня нет...

По второму способу тоже не получается...создаю блок с атрибутом, расставляю его по трассе, затем загружаю этот лисп, пишу имя блока/префикс/суффикс/стартовый номер, выбираю все эти блоки и ничего не происходит. Что я не правильно делаю?

[sasha_lif]

Да, что-то не так с коммандой measure?
Кто подскажет, почему, при пользовании measure , с применением блока с атрибутом , такое впечатление, что атрибут как-то проваливается, что его не видно (но внутри блока он лежит..)
См. файл: если я всавляю блок qwerty через insert , то я вижу его атрибут, при measure с блоком, атрибут уже не видно? Кто может подсказать, в чем причина???
(для вручную вставленных блоков lisp из №2 работает)

[Jeriko]

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

а вот на своем чертеже я почему то не могу заставить работать этот лисп...

и еще, как лисп выбирает с какого конца начинать нумерацию? он всегда нумерует снизу вверх?

[sasha_lif]

Express-ov к сожелению у меня нет...

Скачай Express , на этом сайте есть, + как устанавливать рассписано.. и tcount позволяет задать как нумеровать (сортировка по x bли y)

нужно выбрать все блоки, которые получились после применения команды _measure и обновить их.

а как обновить блок?? и что, после этого ты видишь атрибуты этого блока, расставленного measure?

[Jeriko]

_battman и атрибуты сразу появятся.

пойду тогда експресс искать и ставить, спасибо за помощь!

[sasha_lif]

и еще, как лисп выбирает с какого конца начинать нумерацию? он всегда нумерует снизу вверх?

Вроде да, но если тебе необходимо наооборот сверху -вниз, то с помощью UCS можно попробовать заставить нумеровать и по другому (на крайний случай-Mirror развернуть линию)
Спасибо за _battman

[Victor]

попробуйте

Код:

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

(defun c:b2p ( / name_of_bl dis pln dis_pl dis_run i krd prm_pnt
                 proiz ugol_pl ugol_pl_gr my_blok my_att spis_att
                 att_old att_new spis_att strt stp snp)
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0)
(setq name_of_bl (getstring "Name of blok?  "))
(setq dis (getreal "Distance?  "))
(setq strt (getint "\nStart number?  "))
(setq stp  (getint "\nStep?  ")) 
(setq pln (car (entsel)))
(setq dis_pl (vlax-curve-getDistAtParam pln (vlax-curve-getEndParam pln)))
(setq dis_run (- 0.0 dis) i (- strt stp))
(while(< (+ dis_run dis) dis_pl)
(progn
(setq i (+ i stp))
(setq dis_run (+ dis_run dis))
(setq krd (vlax-curve-getPointAtDist pln dis_run))
(setq prm_pnt  (vlax-curve-getParamAtPoint pln krd))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (* ugol_pl 57.29747))
(setvar "attreq" 0)
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
(setq my_blok (entlast))
(setq my_att (entnext my_blok))
(setq spis_att (entget my_att)) ;spisok 
(setq att_old (assoc 1 spis_att)) ;name
(setq att_new (cons 1 (itoa i))) ;
(setq spis_att (subst att_new att_old spis_att)); zamena
(entmod spis_att)
(entupd  (cdr (assoc -1 spis_att)))
) ;progn
)
(setvar "Osmode" snp)
)

[Sergiy]

Пользуюсь ToolPac'ом: команда polyline -> Station (пикет), но блок "Polysta" переделал по-своему

[Jeriko]

Victor, в качестве объекта что выбирать надо? полилинию? у меня автокад потом ругается:

Код:

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

Выберите объект: ; ошибка: no function definition: VLAX-CURVE-GETENDPARAM

И еще, Ваш лисп только номера проставляет? Префиксы он не проставляет?

[Victor]

Добавьте вначале (vl-load-com). Выбирать надо полилинию.
Прога и так перегружена вопросами. Префиксы надо в отдельную программу сделать.

[Jeriko]

Victor, заработало, спасибо. лисп отличный и полилинию разбивает и номера проставляет. еще бы его совместить с лиспом, который выкладывал sasha_lif, чтобы преффиксы и суффиксы проставлял, ему бы вообще цены не было.

[Victor]

Раз вам так хочется плюс ещё 2 вопроса. На первый если не хотим жмём ENTER. Если хотим жмём S или P .Тогда спросит чего изволите. Тестируйте

Код:

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

(vl-load-com)
(defun c:b2p ( / name_of_bl dis pln dis_pl dis_run i krd prm_pnt
proiz ugol_pl ugol_pl_gr my_blok my_att spis_att
att_old att_new spis_att strt stp)
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(setq name_of_bl (getstring "Name of blok? "))
(setq dis (getreal "Distance? "))
(setq strt (getint "\nStart number? "))
(setq stp (getint "\nStep? ")) 
(setq flag (getstring "\nS/P? "))
(if(/= "" flag)(setq suf_prf (getstring "\nSuffiks/Prefiks? ")))
(setq pln (car (entsel)))
(setq dis_pl (vlax-curve-getDistAtParam pln (vlax-curve-getEndParam pln)))
(setq dis_run (- 0.0 dis) i (- strt stp))
(while(< (+ dis_run dis) dis_pl)
(progn
(setq i (+ i stp))
(setq dis_run (+ dis_run dis))
(setq krd (vlax-curve-getPointAtDist pln dis_run))
(setq prm_pnt (vlax-curve-getParamAtPoint pln krd))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (* ugol_pl 57.29747))
(setvar "attreq" 0)
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
(setq my_blok (entlast))
(setq my_att (entnext my_blok))
(setq spis_att (entget my_att)) ;spisok 
(setq att_old (assoc 1 spis_att)) ;name
(setq num_new (itoa i))
(if(or (= flag "s")(= flag "S"))(setq num_new (strcat num_new suf_prf))) 
(if(or (= flag "p")(= flag "P"))(setq num_new (strcat suf_prf num_new))) 
(setq att_new (cons 1 num_new)) ;
(setq spis_att (subst att_new att_old spis_att)); zamena
(entmod spis_att)
(entupd (cdr (assoc -1 spis_att)))
) ;progn
)
(setvar "Osmode" snp)
)

[Jeriko]

А если всего и сразу хочется? Всмысле и префикс, и суффикс поставить?

[Victor]

Ну вы блин даёте. Завтра, если придумаю.

[Кулик Алексей aka kpblc]

Сообщение от Jeriko А если всего и сразу хочется? Всмысле и префикс, и суффикс поставить?

А если поискать?

[Jeriko]

Кулик Алексей aka kpblc, ничего подобного мне найти не удалось...есть лиспы просто нумерации блоков, которые выкладывались уже сдесь, а этот и проставляет блоки по трассе, и сразу нумерует их.

[Кулик Алексей aka kpblc]

Jeriko, сорри.

[Victor]

Дело двух минут как оказалось.

Код:

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

(vl-load-com) 
(defun c:b2p ( / name_of_bl dis pln dis_pl dis_run i krd prm_pnt
proiz ugol_pl ugol_pl_gr my_blok my_att spis_att
att_old att_new spis_att strt stp)
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(setq name_of_bl (getstring "Name of blok? "))
(setq dis (getreal "Distance? "))
(setq strt (getint "\nStart number? "))
(setq stp (getint "\nStep? ")) 
(setq pref (getstring "\nPrefiks? "))
(setq suff (getstring "\nSuffiks? "))
(setq pln (car (entsel)))
(setq dis_pl (vlax-curve-getDistAtParam pln (vlax-curve-getEndParam pln)))
(setq dis_run (- 0.0 dis) i (- strt stp))
(while(< (+ dis_run dis) dis_pl)
(progn
(setq i (+ i stp))
(setq dis_run (+ dis_run dis))
(setq krd (vlax-curve-getPointAtDist pln dis_run))
(setq prm_pnt (vlax-curve-getParamAtPoint pln krd))
(setq proiz (vlax-curve-getFirstDeriv pln prm_pnt))
(setq ugol_pl (angle '(0 0 0) proiz))
(setq ugol_pl_gr (* ugol_pl 57.29747))
(setvar "attreq" 0)
(command "_.insert" name_of_bl krd 1.0 1.0 ugol_pl_gr)
(setq my_blok (entlast))
(setq my_att (entnext my_blok))
(setq spis_att (entget my_att)) ;spisok 
(setq att_old (assoc 1 spis_att)) ;name
(setq num_new (itoa i))
(setq num_new (strcat pref num_new suff))) 
(setq att_new (cons 1 num_new)) ;
(setq spis_att (subst att_new att_old spis_att)); zamena
(entmod spis_att)
(entupd (cdr (assoc -1 spis_att)))
) ;progn
)
(setvar "Osmode" snp)
)

Сейчас обнаружил что работает и с 3D линиями и сплайнами если не сильно изогнутые