Help with Profile Generator of contours lisp

[DC-MWA]

Hello,

I've been tasked with developing dozens of site sections or profiles.

I located an awesome lisp that creates a profile from selected contour polylines. It has a couple issues I'm hoping someone can help me with.

I have attached the lisp and an image showing what I'm hoping to achieve.

Thanks in advance for any assistance received.

-dc

[DC-MWA]

Ok,

I get how this thing works now.

The labels are correct.

Why the added 1 inch"

[DC-MWA]

Got rid of extra 1 inch.

Align?

[devitg]

Maybe it can be from this defun 

  (initget 2)
  (setq ve (getreal "\nEnter the vertical exaggeration <1>: "))
  (if (= ve nil)
    (setq ve 1)
  )
)

[DC-MWA]

Thank you for the response.

I feel pretty stupid right now.

I should have played with this more before I posted this.

The program always puts the high side of the profile to the left.

So it doesn't make sense to "align".

I ended using ssadd to gather all the items created and then calling the move command at the end to let the user relocate the profile.

I'm sorry to have wasted you or anybody else's time on this.

-dc

[john.uhden]

I don't know how much site or road or underground pipe projects you do, but have you considered trying Civil 3D?

[DC-MWA]

No budget. lol.

This is something that comes up once every couple dozen projects , if that.

Sometimes we use google earth terrain, pull it in to sketchup and with a little trickery, develop a very crude topo and do a profile for preliminary design use (mainly on steep or hilly sites).

This seems to be working well now that I understand how it works.

-dc

[john.uhden]

Don't feel underprivileged. My boss is still using (and prefers) Land
Desktop 2004.
Plus he actually dislikes the treasure trove of time-saving add-ons I have
to offer. He'd rather have us break and trim linework to make text more
legible in a busy plan rather than using Mtext backgroundfill or even
Textmask. His method of drawing pipes in profile dates back to R2.7. I
have resumed looking for better employment.

[Sea-Haven]

It is possible to rent the software for say a month CIV3D or maybe what I use www.civilsitedesign.com

They will do way more accessing satellite info directly etc. Long &Cross sections, designs.

[DC-MWA]

lol. My bosses got the last of the non subscription deals with autodesk so we are locked in to ACA 2017. This is already starting to cause problems with consultants using 2019 and up.

[DC-MWA]

Actually I have solved my issue. Thanks to Pedro Miguel da Silva Ferreira and the profile lisp he developed in May of 2006, I have taken weeks worth of work and done it 1.5 days.

Super Stoked!

[john.uhden]

I kind of doubt that New Jersey will favor my " applying the principles of
the Australian Rainfall and Runoff manual." ☺