Differing x and y Scales
Differing x and y Scales
(OP)
I am working in ADT 2007. I need to work with a drainage profile drawing that has differing horizontal and vertical scales. I have scanned the original drawing in and traced over the components that I need. From this point, is there a way to modify the x and y scales so I am dealing with a 1:1 drawing?
Thanks.
Thanks.





RE: Differing x and y Scales
RE: Differing x and y Scales
Out of curiosity, is there any other way to do this?
RE: Differing x and y Scales
RE: Differing x and y Scales
CODE
;--------------------------------------------------
; ERROR TRAPPING
;--------------------------------------------------
(defun errtrap (msg)
(cond
((not msg))
(
(member msg '("Function cancelled" "quit / exit abort"))
(command "undo" "")
)
(
(princ (strcat "\nError: " msg))
(command "undo" "")
)
);cond
);defun
;--------------------------------------------------
; MAIN ROUTINE
;--------------------------------------------------
(defun c:scaleaxis (/ *error* *ss1 bspt ax mult refpt refdx newdx)
(command "._undo" "end" "._undo" "begin")
(setq *error* errtrap)
(setq ss1 (ssget))
(setq bspt (getpoint "\nSelect basepoint: "))
(initget "X Y Z")
(if
(not
(setq ax (getkword "\nSpecify axis to scale: <X> "))
);not
(setq ax "X")
);if
(if
(not
(setq mult (getreal "\nEnter scale factor or <Reference>: "))
);not
(progn
(setq refpt1 (getpoint "\nSpecify reference length: "))
(setq refdx (getdist refpt1 "\nSpecify second point: "))
(setq newdx (getdist refpt1 "\nSpecify new length: "))
(setq mult (/ newdx refdx))
);progn
);if
(setvar "expert" 2)
(setvar "explmode" 1)
(command "._-block" "SCALETEMP" bspt ss1 "")
(command "._-insert" "SCALETEMP" ax mult bspt "0")
(command "._explode" "last" "")
(command "._-purge" "blocks" "SCALETEMP" "n")
(setvar "expert" 1)
(command "._undo" "end")
(princ)
(*error* nil)
)
____________________
Acad2006, Terramodel
RE: Differing x and y Scales
RE: Differing x and y Scales
RE: Differing x and y Scales
I agree with your statement; however, what I am trying to do is get accurate cross sectional areas for quantity takeoffs. We don't have any fancy earthwork takeoff software but we do have Autocad.
RE: Differing x and y Scales
Try it, it doesn't matter the shape of the area.
RE: Differing x and y Scales
____________________
Acad2006, Terramodel
RE: Differing x and y Scales