KJac Posted February 9, 2016 Share Posted February 9, 2016 I'm trying to automatically create points on a polyline at every vertices or point of intersection as well as in 100 foot intervals. I have a LISP routine that does this, however my problem is that I need the points created on this line to line up with the stationing of my CL of construction. If you look at the drawing screenshot, you will see the grey line that is my CL of construction with the 100ft interval stationing and the orange lines to the left and right of the CL. I am trying to create the points on these orange lines and have them line up with the stations on the CL. Quote Link to comment Share on other sites More sharing options...
Cad64 Posted February 9, 2016 Share Posted February 9, 2016 I have moved your question to the Civil 3D section: http://www.cadtutor.net/forum/forumdisplay.php?57-Civil-3D-amp-LDD Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 9, 2016 Share Posted February 9, 2016 This post has the answer known as peg&shift http://www.cadtutor.net/forum/showthread.php?95475-How-to-iterate-points-over-a-pline Ps how do you work with a white screen so hard config display color Quote Link to comment Share on other sites More sharing options...
KJac Posted February 9, 2016 Author Share Posted February 9, 2016 This post has the answer known as peg&shift http://www.cadtutor.net/forum/showthread.php?95475-How-to-iterate-points-over-a-plinePs how do you work with a white screen so hard config display color The programming is over my head and the guy doesn't seem to have finished his code. They talk about using heavy polylines only? mine are just regular 2d polylines. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted February 10, 2016 Share Posted February 10, 2016 (edited) The code I posted in the related post is the solution to your question, you can nominate a distance along the 1st pline and a 90 degree lines extends out till it touches the 2nd pline and works out that intersection point. I will try to make it short to show how its done. You need to think about what is the desired result. (defun c:sqoff ( / ob obj2 pt pt2 pt3) (setq obj (vlax-ename->vla-object (car (entsel "\nPick pline1")))) (setq obj2 (vlax-ename->vla-object (car (entsel "\nPick pline2")))) (setq dist (getreal "enter chainage")) (setq Pt (vlax-curve-getPointAtDist Obj dist)) (setq fd (vlax-curve-getFirstDeriv obj (vlax-curve-getparamAtPoint obj pt))) (setq angR (- (angle '(0 0 0) fd) (* pi 0.5))) (setq pt2 (polar pt angr 1.0)) (command "line" pt pt2 "") (setq obj3 (vlax-ename->vla-object (entlast))) (setq pt3 (vlax-invoke obj3 'intersectWith obj2 acExtendThisEntity)) (command "line" pt pt3 "") (alert (strcat "Pt co-ords are " (rtos (nth 0 pt3) 2 3) "," (rtos (nth 1 pt3) 2 3))) ) (c:sqoff) Edited February 10, 2016 by BIGAL Quote Link to comment Share on other sites More sharing options...
BlackBox Posted February 10, 2016 Share Posted February 10, 2016 If you're using Civil 3D, and you already have an Alignment at centerline... Just use the ADDALIGNOFFXYLBL Command, and apply the appropriate Alignment Station Offset Label Style. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.