coordinates of points according to distance from centerline

December 19, 2015

Respected sir

I received those type of data in regular basis and it is done by linear measurement method.Now if i have to plot it in drawing then i need coordinate.How will i get that one.I know offsets are taken in perpendicular from alignment but to plot it in offset command is really a hard job to get the coordinates.If i get that in a table by just a click then it will make my job very easy.Is there any lisp or any Vba to solve that one.please help for that one.I have attached one sample drawing for understanding purpose.

Drawing1.dwg

December 19, 2015

It seems to me that your table format is designed incorrectly. Something like this should be.

Table1.csv

December 20, 2015

Search here for a offset routine by Hippo13 creates a table etc.

December 20, 2015

have a look at this http://www.cadtutor.net/forum/showthread.php?94801-coordinates-of-centerline-and-both-side-offsets/page1

December 21, 2015

I received those type of data in regular basis and it is done by linear measurement method.Now if i have to plot it in drawing then i need coordinate.How will i get that one.I know offsets are taken in perpendicular from alignment but to plot it in offset command is really a hard job to get the coordinates.If i get that in a table by just a click then it will make my job very easy.Is there any lisp or any Vba to solve that one.please help for that one.I have attached one more sample drawing for understanding purpose.

HHH.dwg

December 21, 2015

It does seem to be taking things a long way round to create a table of coordinates, and then use those coordinates to plot something. The most common mistake when plotting coordinates is to transpose or misread digits.

I would use Measure to put blocks (consisting of straight lines) at right-angles along the alignment, and measure along those to give a required offset. Creating a table may be unnecessary.

December 21, 2015

respected sir actually datas are taken by measurement tape and levelling instrument used by surveyors there only level & offset distance can be achieved.now if i have to plot on drawing i need coordinates.so please help me to plot.

December 21, 2015

I thought that you already had the alignment drawn in CAD as a polyline.

If you are plotting a chainage and offset survey, I would still draw it manually, using distances rather than coordinates, especially as the offsets are not constant. Are the chainages at a constant interval?

I wish you success in your quest for coordinates.

January 13, 2016

can anyone please help me in that case because after getting the coordinates only i can paste it in autocad according to the drawing.

January 13, 2016

You want a chainage and offset program that draws a series of points sq off a alignment. As already suggested, the method is pick a horizontal alignment, use the chainage point on the alignment, to draw a series of points as per your cross section values. Ch, +/- x, Rl

The best advice is that this is commercially available with lots of other extras, like make a surface model and contours, road design etc Its just not a default in say CIV3D.

I am working on something along this idea but no idea when it will be finished.

In old fashioned surveying a level book reduction.

January 18, 2016

ok sir i will wait.but pls help me in this case.

January 19, 2016

Ok here is a chainage offset and rl that will follow an alignment creating 3d points.

Chainage,Offset,RL

; Read a csv file and create 3d points along a pline alignment
; by Alan H jan 2016


;local defun for sq to pline
(defun alg-ang (obj pnt)
(- (angle '(0. 0. 0.)
  (vlax-curve-getfirstderiv obj (vlax-curve-getparamatpoint obj pnt)))(/ pi 2.0)
)
)

; thanks to Lee-mac for this defun
(defun _csv->lst ( str / pos )
(if (setq pos (vl-string-position 44 str))
   (cons (substr str 1 pos) (_csv->lst (substr str (+ pos 2))))
   (list str)
   )
)

(defun drawpt (chain offsetd rl / pt pt2 )
(setq Pt (vlax-curve-getPointAtDist Obj chain))
(setq ang (alg-ang Obj Pt))
(setq pt2 (polar pt ang offsetd))
(setq pt2 (list (car pt2) (cadr pt2) rl)) ; add z
(command "point" pt2)
)

(defun chofrl ( / fname strval lst)
(setq Obj (vlax-ename->vla-object (car (entsel "\nSELECT PLINE AS ALIGNMENT >>"))))
;(setq fname (open "c:\\acadtemp\\cross.csv" "r"))
(setq fname (OPEN (getstring "\nEnter file name") "r"))
(while (setq strval (read-line fname))
(setq lst (cons (_csv->lst strval) lst))
(setq chain (atof (nth 0 (nth 0 lst))))
(setq offsetd (atof (nth 1 (nth 0 lst))))
(setq rl (atof (nth 2 (nth 0 lst))))
(drawpt chain offsetd rl)
(setq lst nil)
(princ chain)
)
(close fname)
(princ)
)
(chofrl)

January 19, 2016

i am sending my drawing again please solve that.i have to show it in drawing(the location of each points)so if i get the result as type 2 in drawing i can do it easily.

HHH1.dwg

January 26, 2016

RESPECTED BIGAL SIR WHEN I HAVE TRIED TO USE THAT LISP I GOT A MESSAGE AFTER SELECTING THE ALIGNMENT,THE DRAWING THE CSV FILE I SAVED IN DESKTOP I AM SENDING TO U.THE MESSAGE I GOT I AM SHOWING TO U.

SELECT PLINE AS ALIGNMENT >>

Enter file nameC:\Users\Anindya\Desktop\Table1.csv

point