how to code in distances as stations (survey) map3d 2012 & civil3d 2012

[FSJ_Mo]

I have a lisp program that uses a 3dpoly to draw a profile of existing ground elevations. Currently, the program only writes in distances as whole numbers (ie:500 or 1600) I would like it to write them as stations along the profile (ie: 0+500 or 1+600) does anyone have a peice of code for doing this?

[Bruno.Valsecchi]

Hi,

Perhaps this?

(vl-load-com)
(defun c:test ( / sel obj_vlax pt ori_dist p_fix mantiss)
	(setq
		sel (entsel)
		obj_vlax (vlax-ename->vla-object (car sel))
		pt (vlax-curve-getClosestPointTo obj_vlax (cadr sel))
		ori_dist (getreal "\nStart at 0+000 <0.0>: ")
	)
	(if (not ori_dist) (setq ori_dist 0.0))
	(setq
		p_fix (atoi (rtos (/ (vlax-curve-getDistAtPoint obj_vlax pt) 1000.0) 2 3))
		mantiss
		(+
			(-
				(vlax-curve-getDistAtPoint obj_vlax pt)
				(* p_fix 1000.0)
			)
			(atoi (substr (rtos ori_dist 2 3) (+ 2 (vl-string-search "." (rtos ori_dist 2 3)))))
		)
	)
	(if (or (equal mantiss 1000.0 1E-3) (> mantiss 1000.0)) (setq p_fix (1+ p_fix) mantiss (- mantiss 1000)))
	(if (zerop (fix mantiss)) (setq mantiss "000") (setq mantiss (rtos mantiss 2 0)))
	(print
		(strcat
			(itoa (+ p_fix (fix ori_dist)))
			"+"
			mantiss
		)
	)
	(prin1)
)

[villamarsandy341479]

perhaps you are looking for something like this..