I got the script done and it seems to work fine. Posted it for others to copy.
Code:
(SETQ CANCUR(GETVAR "CANNOSCALE"))
(SETVAR "CANNOSCALE" "1:1")
EXPERT
5
-scalelistedit
delete
1:2
delete
1:4
delete
1:5
delete
1:8
delete
1:10
delete
1:16
delete
1:20
delete
1:30
delete
1:40
delete
1:50
delete
1:100
delete
2:1
delete
4:1
delete
8:1
delete
10:1
delete
100:1
ADD
6"= 1'-0"
6:12
ADD
3"= 1'-0"
3:12
add
1 1/2" = 1'-0"
1.5:12
add
1" = 1'-0"
1:12
add
3/4" = 1'-0"
0.75:12
add
1/2" = 1'-0"
0.5:12
add
3/8" = 1'-0"
0.375:12
add
1/4" = 1'-0"
0.25:12
add
3/16" = 1'-0"
0.1875:12
add
1/8" = 1'-0"
0.125:12
add
1"= 10'-0"
1:120
add
3/32" = 1'-0"
0.09375:12
add
1/16" = 1'-0"
.0625:12
add
1" = 20'-0"
1:240
add
3/64" = 1'-0"
0.04875:12
add
1" = 30'-0"
1:360
add
1/32" = 1'-0"
0.03125:12
add
1" = 40'-0"
1:480
add
1' = 50'-0"
1:600
add
1" = 60'-0"
1:720
add
1/64" = 1'-0"
0.015625:12
add
1" = 80'-0"
1:960
add
1" = 100'-0"
1200:1
exit
(SETVAR "CANNOSCALE" CANCUR)
expert
0
Chris
edit: missed an inch sign on one.