Label Extg and IE along profile

[rphillips.137763]

This is what i have in mind

The user will pick the base point (lower left of profile) then the code will ask what is the elevation at this point.
The code will then search for a polyline on the layer c-road-prof (this is the existing grade)
The code will then search the a polyline on the layer c-sswr-forc (this is the forcemain pipe)
The code will ask the user what station interval the user wants the text to be displayed.
The code will then place 2 vertical pieces of text along the bottom of the grid at the station interval the user picked
The code will get the elevation on the 2 polylines at the interval and populate the text.
The code will then look at each vertex on the ployline on the layer c-sswr-forc and calculate the slope between the two points and then place a label showing the slope.
The code will then place a line and the station and elevation of each vertex along the polyline on the layer c-sswr-forc.

If someone can get me something to start with I should be able to edit the code to get it to do what I need.

Please see the attached file for reference.

ThanksEXAMPLE.dwg

[BlackBox]

What vertical, and version year are you using?

[rphillips.137763]

Hey, thanks for the quick help,
I am guessing you are asking the vertical scale? If so below is what i have that will ask the user, but the scale is 10
;;; input Horizontal scale
(if (not hs) (setq hs 1)) ; default number
(setq hsm (getreal (strcat "\nEnter Vertical Scale factor <" (rtos hs 2 2) ">: ")))
(if (not hsm) (setq hsm hs) (setq hs hsm))

Acad 2008 is the oldest version in use

[BlackBox]

I am guessing you are asking the vertical scale?

No, you specified that you are trying to perform tasks as related to "Station," that suggests (not always accurately) that you're using what's known as an AutoCAD "Vertical" (i.e., Land Desktop, Civil 3D, Map 3D, etc.).

Are you only using AutoCAD (vanilla, non-vertical)?

[rphillips.137763]

Long story short these file have to go a client that does not have a vertical software so the profiles are created in civil3d but then are exported to autocad for the clients use. Now the client wants us to add this informaion to the profiles so the answer is only autocad, no vertical. Maybe to much informaion here but i fugure the more the better.

[BlackBox]

Long story short these file have to go a client that does not have a vertical software so the profiles are created in civil3d but then are exported to autocad for the clients use. Now the client wants us to add this informaion to the profiles so the answer is only autocad, no vertical. Maybe to much informaion here but i fugure the more the better.

No, that's fine... But rather than dedicate the time and resources to developing this super custom code that's only going to be useful for this exact scenario, would it not instead make more sense to simply open the source C3D design files, make the changes using C3D functionality, then re-export to AutoCAD? Just saying.

[rphillips.137763]

Yes that would be nice and that is what i tried to do but the client made changes to the profiles and now the C3D is no longer up to date.

[rphillips.137763]

Here is some code that you maybe able to modify. the source was cadalist
Sta-Elev.lsp
I was trying to modify this my self but i do not understand the code.
There are two commands to this code dat(sets the datum) and stn (labels at a user defined point), the Dat may be able to be used in the new code.

[BlackBox]

I hope the project manager for you project was smart enough to include the additional budget necessary for all of the unnecessary, extra work needed to perform your current task. What a difficult position.

Here's a start:

(defun c:FOO  (/ *error*)
  (vl-load-com)

  (defun *error*  (msg)
    (and oldOsmode (setvar 'osmode oldOsmode))
    (if acDoc
      (vla-endundomark acDoc))
    (cond ((not msg))                                                   ; Normal exit
          ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
          ((princ (strcat "\n** Error: " msg " ** "))))                 ; Fatal error, display it
    (princ))

  ((lambda (acDoc oldOsmode / basePoint elevation)
     (vla-startundomark acDoc)
     (if
       (and (setvar 'osmode 0)
            (setq basePoint (getpoint "\nSpecify a base point: "))
            (not (initget 4))
            (setq
              elevation (getreal "\nEnter base point elevation: ")))
        (progn

          ;; <- do the rest
          
         )
        (cond (basePoint (*error* "No elevation entered"))
              ((*error* "No base point specified")))))
    (vla-get-activedocument (vlax-get-acad-object))
    (getvar 'osmode)))

[rphillips.137763]

We are in a really bad position we have lost so much on this job we just had to take a 10% pay cut and it is only getting worse. I personaly opperciate any help that you can give because it has been so long since i did any lisp that without help i would continue digging in the hole before making any headway.

So i see that this sets two variables basepoint and elevation and also does the error handling.
So i would do someting like this to select the polylines
(setq exgl (ssget "X" (list (cons 0 "*LINE")(cons 8 "C-ROAD-PROF"))))
(setq fm (ssget "X" (list (cons 0 "*LINE")(cons 8 "c-sswr-forc"))))
but i do not know how to get it to return a cordinate every 50 (or user defined amount) along the x axis of exgl and fm
Thanks for the help