Elevations on Worksheets

[jmerch]

in custom data fields?

[DonWunder]

Make a custom data field and product list that.

[jmerch]

Ah. k.  boy, what a lot of work.  If only they'd just add this to the available Worksheets data fields as requested by many users many times.

Thanks Don.  I'll play around with it.

[cam-nav]

Code: [Select]

item.endlocation(1,"btm")
gets the bottom elevation of end 1..

[jmerch]

BAM! You da man!

Now, is there any way in scripting to have it convert that number to a fraction instead of decimal?  Or am I pushing it? Right now it would spit out 4.81 where I would want it to say 4 7/8" or whatever.  Since it's going in a custom data field which doesn't have many options.  And there's no Calculated Field in worksheets either.

If not, we can live with the decimal.

[DonWunder]

You can use a if statement for decimal values between certain precisions to output a fraction.

Example:
You need to find the decimal part of the number with round down functions. Then use the below code for each fraction precision.

Code: [Select]

if (Value1>= .0625 and Value1 < .1875) then
  fraction = "1/8"
endif

[jmerch]

ok. Thanks.

[cam-nav]

You can find the decimal part this way. Dim the original prefix getinch, then re-add it to the string.

Code: [Select]

dim sBtm = item.endlocation(1,"Btm")
dim pt = instr(1,sBtm,".")
dim getfrac = right(sBtm,(len-pt))
dim getinch = left(sBtm,pt-1)

dim frac = other code here
dim BtmElev = getinch + " " + frac + quote

return BtmElev

[jmerch]

Will try it out, thanks!

[jmerch]

Dave,
the code is erroring out on

Code: [Select]

right(sBtm,(len-pt))
Unknown variable "len"

Thoughts?

[DonWunder]

Dave,
the code is erroring out on

right(sBtm,(len-pt))

Unknown variable "len"

Try the rounddown function.

[cam-nav]

You can find the decimal part this way. Dim the original prefix getinch, then re-add it to the string.

dim sBtm = item.endlocation(1,"Btm")
insert new dim from below
dim pt = instr(1,sBtm,".")
dim getfrac = right(sBtm,(len-pt))
dim getinch = left(sBtm,pt-1)

dim frac = other code here
dim BtmElev = getinch + " " + frac + quote

return BtmElev

add dim len = len(sBtm)

HAHA quoted myself, never done that before...

[jmerch]

for the "if" code from Don, does it need to be:

Code: [Select]

if (getfrac>= .1875 and getfrac < .3125) then
dim frac = "1/8"
endif
OR does it need to be
dim frac = if......

I'm not sure how to combine the variable set (frac) with the if statements.

[cam-nav]

Do it this way.

Code: [Select]

dim sBtm = item.endlocation(1,"Btm")
dim len = len(sBtm)
dim pt = instr(1,sBtm,".")
dim getfrac = right(sBtm,(len-pt))
dim getinch = left(sBtm,pt-1)

dim frac

[b]if (getfrac>= .1875 and getfrac < .3125) then
frac = "1/8"
endif[/b]

dim BtmElev = getinch + " " + frac + quote

return BtmElev

[jmerch]

k, so now what about multiple "if" statements to round to 1/4 and up?  I tried putting them all in under

Code: [Select]

dim frac
if......then 1/8
if.....then 1/4
endif
endif
I also tried individual if and that errored.

Thanks for putting up with this