[reddiska]

Есть 60 км топосъемки дороги, геодезисты брали отметки через каждые 40 метров, а по техзаданию должны стоять через 20 метров. Досъемку делать нереально, вручную ставить нереально, нужно как-нибудь автоматически это сделать. Кто подскажет, как?

[hwd]

Сообщение от reddiska Кто подскажет, как?

А у самого какие идеи?

[reddiska]

Думала-думала, ничего не придумала(((

[hwd]

Поскольку топосъёмка производилась не на Марсе, и

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

то пусть геодезисты и решают эти проблемы - инструменты в зубы и назад, в Тундру... Потому что в противном случае это будет откровенная "залепуха".

[reddiska]

Может быть, у кого-нибудь есть советы по теме?

[gomer]

Сообщение от hwd то пусть геодезисты и решают эти проблемы - инструменты в зубы и назад, в Тундру... Потому что в противном случае это будет откровенная "залепуха".

Вы, hwd, жестокий человек, но тут вы правы, за липу могут и побить, но, если, reddiska, у вас стальные сиськи, ищите Генератор Случайных Чисел

[5hev]

Как вариант, между соседними точками вдоль трассы, ставить интерполированную точку на расстоянии 20м от обеих исходных
Прокатывало
В Civil 3D это можно сделать в две команды, если построить по имеющимся поверхность
Что-то мне подсказывает, что эта нехорошая реддиска задает вопросы по мере их появления для одного и того же проекта))))

[reddiska]

Сообщение от 5hev[ru] Как вариант, между соседними точками вдоль трассы, ставить интерполированную точку на расстоянии 20м от обеих исходных

Вот-вот

Сообщение от 5hev[ru] В Civil 3D это можно сделать в две команды, если построить по имеющимся поверхность

А как? Как построить поверхность я знаю, а как потом понатыркать точки именно по оси автоматически?

Сообщение от 5hev[ru] Что-то мне подсказывает, что эта нехорошая реддиска задает вопросы по мере их появления для одного и того же проекта))))

Это правда)))
Это жизненно необходимые вопросы! И, кстати, не такая уж я и нехорошая)

[trir]

_AeccCreatePointStationOffset

Там есть функция "Точки"\"Создать точки - Трассы" \"Пикет\смещение"
скорми её пакетный файл

Civil 3D
1. Создай поверхность
2. Создай трассу
3. Определись на каких пикетах тебе нужны точки, насколько я понимаю нужны поперечники
Создай пакетный файл (например в Excel'е)
4. Скорми их _AeccCreatePointStationOffset

[Олег (jr.)]

Сообщение от reddiska Есть 60 км топосъемки дороги, геодезисты брали отметки через каждые 40 метров, а по техзаданию должны стоять через 20 метров. Досъемку делать нереально, вручную ставить нереально, нужно как-нибудь автоматически это сделать. Кто подскажет, как?

Залей сюда кусок дороги в формате AutoCAD 2009,
(1 км для примера) посмотрю что можно сделать

[reddiska]

Кусок дороги, условно

[mamuk]

reddiska, а по оси трассы съемка какого масштаба? 1:1000?

[Victor]

Это у вас такие дороги! Ну вы даёте. А это наши дороги.

[hwd]

Сообщение от Victor Это у вас такие дороги!

Теперь они хотят от балды, автоматом расставить дополнительных точек, дабы обмануть заказчика. Судя по предыдущим постам этой темы, на форуме найдутся "рубаха-парни", которые не думая своей головой кинутся решать эту "задачку", способствуя тем самым появление подобной халтуры и в дальнейшем - не зря топикстартер хочет "автоматизировать" этот процесс. А потом мы все, и "рубаха-парни" в том числе, ездим по таким дорогам...

2 reddiska
Не умеете делать - уходите с рынка, не нужно было браться, не занимайте чужое место. А коли взяли деньги, так отрабатывайте их - нивелиры/теодалиты в зубы и на природу...

Сообщение от reddiska Досъемку делать нереально, вручную ставить нереально,

Деньги за эту работу было реально брать? Вопрос риторический...

Сообщение от reddiska Может быть, у кого-нибудь есть советы по теме?

Мой совет как раз по теме: идите и отрабатывайте оплату.

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

[Олег (jr.)]

Сообщение от reddiska Кусок дороги, условно

Залей кусок *рабочего чертежа*, с этим не получится ничего.
Для начала попробуй вложенный лисп, должен вставлять блоки посередине

[5hev]

hwd, а Вы уверены, что обмануть? Мне например, частенько приходится иметь дело с теми объектами, для которых нормальной подосновы никогда и не было. Дают распечатку и строй поверхность как хочешь с бумажки. При этом объект сам по себе уже построен, надо просто деньги отмыть. Это к тому, что не всегда исполнитель "взял деньги" и обманывает всех.
Насчет "обезьянок" молчу уже. Видимо, плохой день у Вас сегодня. Тут люди ради практики в решении задач сидят, а не ради способствования говнопроектам.
UPD
Будь по-Вашему. Давайте немного пофлудим ни о чем. Где написано, что геодезисты и топикстартер работают в одной фирме? Возможно, девушка просто подрядчик (и возможно не первого круга), так какие могут быть претензии? Да, мысли правильные, согласен, после таких схем у нас в стране дороги хуже японских (даже после землетрясений). Однако, считаю, что рановато казнить, не зная сути дела.
Что касается "интереса", - если бы мне была интересна задача, поставленная в каком бы то ни было топике, я бы с удовольствием предложил решение. Но ради себя, ради того, чтобы не забывать навыки программирования, а не ради альтруизма. И мне, как участнику форума, который всех отписавшихся тут уважает в равной степени, неприятны всякого рода оскорбления, между прочим, противоречащие правилам нашего форума.

[Дима_]

Сообщение от 5hev . Тут люди ради практики в решении задач сидят

Ну так практикуйтесь, выкладывать при этом не надо.

[hwd]

Сообщение от 5hev hwd, а Вы уверены, что обмануть? Мне например, частенько приходится иметь дело с теми объектами, для которых нормальной подосновы никогда и не было. Дают распечатку и строй поверхность как хочешь с бумажки. При этом объект сам по себе уже построен, надо просто деньги отмыть

Вы невнимательно читаете:

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

Т.е. техническое задание было, но его не стали соблюдать, а сейчас хотят от балды набросать недостающие 50% работы и вряд ли об этом сообщат заказчику, ибо он не возрадуется такому раскладу. Мне слабо верится в то, что это техническое задание на бесплатные услуги. Всё коротко и ясно.

Сообщение от Дима_ Ну так практикуйтесь, выкладывать при этом не надо.

+1

[reddiska]

Девушка просто картограф, которая работает в обычной конторе, на обычную зарплату, к сожалению.
hwd, видимо, склонен к холиварам)
Если бы все, кто тут сидит, так думали, я думаю и не было бы такого чудесного форума, с людьми, которые могут так облегчить жизнь.
Кстати, основная масса моих коллег картографов делает всю работу тупо вручную, но мне кажется, если есть возможность облегчить и ускорить сей процесс - грешно этого не сделать)

[hwd]

Сообщение от reddiska hwd, видимо, склонен к холиварам)

Много лет назад, hwd приходилось считать объёмы подсыпки, которую необходимо было сделать для Северо-Европейского газопровода на участке Грязовец-Выборг. Hwd помнит, что полученные им отметки, по которым производился программный расчёт объёмов, существенно отличался от реального положения вещей. Сие выяснилось после того, как начали разбираться, почему не хватает песка - выехали на место. На месте и выяснилась залепуха - видимо геодезистам видимо было лень по болотам ходить. Им было лень, а проблемы были у hwd, которому пришлось брать своих геодезистов и ехать доказывать, что это не его косяк.

[Олег (jr.)]

Сообщение от reddiska hwd, видимо, склонен к холиварам

Лучше бы проверила мою прогу

[reddiska]

Сообщение от Олег (jr.) Лучше бы проверила мою прогу

Да я проверила) Она пишет - объект не найден

[Олег (jr.)]

Сообщение от reddiska Да я проверила) Она пишет - объект не найден

Для начала попробуй не на осевой линии, на правой или на левой,
потом будем думать дальше,
(для сведения в Автокаде на штриховых линиях
точки пересечения невозможно найти, если они попадают в слепую область)

[reddiska]

Щелка на полилинию, и ничего, объект не найден! Хотя на полилинии блоки с привязкой стоят.

[5hev]

Олег (jr.), замените

Код:

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

 (vlax-put blkobj 'insertionpoint (vlax-3d-point movep))

на

Код:

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

 (vla-put-insertionpoint blkobj (vlax-3d-point movep))

и все пучком будет

[Дима_]

Сообщение от hwd ...которому пришлось брать своих геодезистов и ехать доказывать...

Скоро, через 3-ти руки к тебе отметки от reddiska&Олег (jr.) придут - глядишь еще раз съездишь...

[Олег (jr.)]

Замени сам у меня и так работает

[reddiska]

Сообщение от 5hev Олег (jr.), замените Код: [Выделить все] (vlax-put blkobj 'insertionpoint (vlax-3d-point movep)) на Код: [Выделить все] (vla-put-insertionpoint blkobj (vlax-3d-point movep)) и все пучком будет

А я вообще таких слов не нашла(((

[5hev]

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

Код:

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

 (defun C:mpik  (/	acsp	adoc	blkobj	bp	bz	coords	data	dxfcodes
		dxfvalues	elist	fblk	fdata	ftype	insp	movep	np
		nz	p	pfset	plen	plent	ptlist	sblk	tmp)
					; fixo () 2012
  (setq	adoc (vla-get-activedocument
	       (vlax-get-acad-object))
	acsp (vla-get-block
	       (vla-get-activelayout adoc)))
  (vla-startundomark adoc)
  (setq plsset (ssget '((0 . "*LINE"))))
  (while (setq plent (ssname plsset 0))
    (setq elist (entget plent))
    (vl-cmdf "_.zoom" "_o" plent "")
    (setq coords (vl-remove-if
		   'not
		   (mapcar '(lambda (p)
			      (if (eq 10 (car p))
				(cdr p)))
			   elist))
	  coords (mapcar '(lambda (p) (vlax-curve-getclosestpointto plent p))
			 coords)
	  ptlist (apply 'append coords))


    (setq pfset (vla-get-pickfirstselectionset adoc))
    (vla-clear pfset)

    (setq ftype	'(0 2 66 410)
	  fdata	(list "insert" "M5_0_500" 0 (getvar "ctab"))
	  )
    (setq dxfcodes (vlax-safearray-fill
		     (vlax-make-safearray
		       vlax-vbinteger
		       (cons 0 (1- (length ftype))))
		     ftype))
    (setq dxfvalues (vlax-safearray-fill
		      (vlax-make-safearray
			vlax-vbvariant
			(cons 0 (1- (length fdata))))
		      fdata))
    (setq ptlist (vlax-safearray-fill
		   (vlax-make-safearray
		     vlax-vbdouble
		     (cons 0 (1- (length ptlist))))
		   ptlist))
    (vla-selectbypolygon pfset acSelectionSetfence ptlist dxfcodes dxfvalues)



    (if	(> (vla-get-count pfset) 0)
      (progn
					;(alert (itoa (vla-get-count pfset)))
	(vl-cmdf "_.zoom" "_p")
	(vlax-for block	 pfset
	  (setq	bp   (vlax-get block 'insertionpoint)
		bz   (caddr bp)
		insp (vlax-curve-getclosestpointto plent bp))
	  (setq	tmp  (list block bz insp)
		data (cons tmp data)
		tmp  nil))

	(while (cadr data)
	  (setq	fblk (car data)
		sblk (cadr data))

	  (setq nz (/ (+ (cadr fblk) (cadr sblk)) 2))
	  (setq	np (vlax-curve-getclosestpointto
		     plent
		     (mapcar '(lambda (a b) (/ (+ a b) 2.))
			     (last fblk)
			     (last sblk))))
	  (setq blkobj (vlax-invoke acsp 'insertblock np "M5_0_500" 1 1 1 0))
	  (setq movep (list (car np) (cadr np) nz))
	  (vla-put-insertionpoint blkobj (vlax-3d-point movep))
	  (setq blkobj (vlax-invoke acsp 'insertblock np "M5_504" 1 1 1 0))
	  (vla-put-insertionpoint blkobj (vlax-3d-point movep))
	  (setq data (cdr data)))
	)
      (alert "Ничего не найдено")
      )
    (ssdel plent plsset))
  (vla-endundomark adoc)
  (princ)
  )
(princ "\n\t\t---\t Start with \"mpik\"... \t---")
(prin1)
(or (vl-load-com)
    (princ))

[reddiska]

Почему у меня не пашет? Полилиния, на ней с привязкой сидят блоки, но он их не находит.