(setq offsetd (atof (nth 1 (nth 0 lst)))) (setq fname (OPEN (getstring "\nEnter file name") "r")) (setq fname (open "c:\\acadtemp\\cross.csv" "r")) (setq Obj (vlax-ename->vla-object (car (entsel "\nSELECT PLINE AS ALIGNMENT >")))) (setq pt2 (list (car pt2) (cadr pt2) rl)) add z (setq Pt (vlax-curve-getPointAtDist Obj chain)) (defun drawpt (chain offsetd rl / pt pt2 ) (cons (substr str 1 pos) (_csv->lst (substr str (+ pos 2)))) (if (setq pos (vl-string-position 44 str)) (vlax-curve-getfirstderiv obj (vlax-curve-getparamatpoint obj pnt)))(/ pi 2.0) Read a csv file and create 3d points along a pline alignment Ok here is a chainage offset and rl that will follow an alignment creating 3d points.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |