draw chainage on polyline

[Cymro]

Hi, me again. I am using the above routine quite often now,

I have tried and tried to change the code to rotate the text by 180 degrees without success. If there is anyone out there who can do it quickly, it would be greatly appreciated. It takes a long time to manually rotate text.

many thanks

Cymro

[Michaels]

This part including the rotation text for the Att. text tags .

(vla-put-rotation at_obj (/ pi 2)); <-- this is 90 degree to make it 180. replace the (/ pi 2) to pi

And when the routine asks you for rotation, hit NO to let the routine gets your angular degree that you added to the routine.

[Cymro]

chainage.jpg

Hi thanks for getting back,
I may not have explained myself fully.
What I would like is when asked for text perpendicular to pline the output is rotated 180 to what is produced at present.

The left is what the code produces after confirming text rotated perpendicular to line, the right is the output that i would like.

Hope someone can help

many thanks

Stephen

[irneb]

It seems you want to "reverse" the polyline first. There are a few things which can do such, as a sample see alanjt's over here.

[alanjt]

This may also be of interest.

SF.jpg

[Tomica]

Hi fixo your lsp is great, but can chainage continue to for example 30 000 meters.
Because when it com to 1+990 it start's again from 0+000,00, Can you help me Fixo with this so that the chainage go to 30+000,00 or more.

[cios106]

Hi all. Im always using "defun c:" type lisps. So i could not run Fixo's lisp, how can i run it ? What should i type to use it ? Many many thanks.

[irneb]

You could try his c:d10 defun, though it uses a block named Station. You could edit it I suppose.

[fixo]

Hi fixo your lsp is great, but can chainage continue to for example 30 000 meters.
Because when it com to 1+990 it start's again from 0+000,00, Can you help me Fixo with this so that the chainage go to 30+000,00 or more.

I've found a typo in this routine, try edited code from post #5 again
And also it would be goog to see your stationing format
sou you could be want to attach the picture of small piece of
your polyline, to be frankly it's looking ugly (this one is from my very oldies)
Think I'll back to it to rewrite some parts in there

[m4rdy]

(defun answer (quest / wshl ans) 
(or (vl-load-com)) 
(setq wshl  (vlax-get-or-create-object "WScript.Shell")) 
(setq ans  (vlax-invoke-method   wshl   'Popup quest 7 "Answer This Question:" vlax-vbYesNo)) 
(vlax-release-object wshl)
 (cond  ((= ans 6)  (setq  opt T)) 
            ((= ans 7)  (setq opt nil)))
             opt )
...................
(setq opt (answer "Rotate text perpendicularly to pline?"))
...................

Hai Oleg,

This function is new to me. I like it. And I'll keep in my lib.

Thank you.

mardi