Measure the slope of a line?

Slope cannot be calculated in a 2d file. Slope is relationship of the change in elevation to the horizontal distance. There is no elevation in a 2d file. The provided basic macro requires a 3d file.

Not true. Macro reports a 2D slope based upon Delta Y/ Delta X but 3D slope based upon Delta length/Delta Z.

This version adds a place text above line in the middle - only uses 2D slope in this version.

Caddcop.. did you modify the one I posted as now it labels where as mary just wanted measure... nice one

Now can you edit it to make it ask user keyin 1 or 2 for % or 1( rise) in X( run)  ratio ( .. I tried but it wrecked it!)

but this does look a lot like the original haven tried it but will it still measure 3d slope after your mods...

My post is simply a slightly modified version of the original. It still echo's 2D (and 3D) slopes, but only uses the 2D slope as a label.

I had one a while ago that did that. I will see if I can locate it.

What you need in these, is a check against a rotated view as this version will give wrong result as written. There are alternatives to get the slope in any view orientation, but I have always struggled with that type of code.

What I imagine in a finished macro, is a dialog box that opens after accepting the line and in the dialog box is the slopes with radio buttons so you can select 2D or 3D slope as a label and options for % slope, rise over run, run over rise and different labeling options - above, below, by origin or in a leadered note.

CAD COP I have that one I think it was by Tim shoemaker of the TMC  but it is compiled version of bas and needs 2  macros but it only works in XM not  8i.. slopeset.ba and Slope.ba

the Slopeset.ba  works in 8i but not the label slope which is slope.ba,

Here is a vba I wrote many years ago, it does ratio/percent as allows for exag, and adding a negative in front of the number. The keyin is "vba run [slopelabler]startup.main". it does not factor the z in a line.

Here is a vba I wrote many years ago, it does ratio/percent as allows for exag, and adding a negative in front of the number. The keyin is "vba run [slopelabler]startup.main". it does not factor the z in a line.

Unknown said:

Here is a vba I wrote many years ago, it does ratio/percent as allows for exag, and adding a negative in front of the number. The keyin is "vba run [slopelabler]startup.main". it does not factor the z in a line.

 

 

 

thanks a big bunch Lawrence

from Lorys

Larry 

Looks like I spoke too soon,

I get run time error windows 7 , ustn ss1 but the dialog runs