[reddiska]

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

[Олег (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]

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