Topic: We need Lisp for chainage label to all polylines at once select.

[kkr028]

We need Lisp for chainage label to all polylines at once select.
Chainage label direction is perpendicular to polyline direction.
And Chainage Label Layer is "Chainage" (Create layer in Lisp)
it will ask after lisp loaded....

Start Chainage?
Chainage Text Size?
Chainage Interval?

here example what i require.

[dexus]

How far did you get yourself?

Once you have a loop going through the polylines you can use

Code - Auto/Visual Lisp: [Select]

1. (vlax-curve-getPointAtDist obj dist)

to get the points to place the mtext.

To get the angle at that point you can use the following snippet:

Code - Auto/Visual Lisp: [Select]

1. (defun vlax-curve-getAngleAtPoint (obj point)
2.   (angle '(0. 0. 0.) (vlax-curve-getfirstderiv obj (vlax-curve-getparamatpoint obj point)))
3. )

Hope this helps to get you started, obviously there is a lot more coding to do.

[BIGAL]

Not sure what is so hard.

Google "Chainage.lsp autocad"