offset with scaled

[avinash patil]

Hi!

I required lisp routine that works make offset with actual scale to fixed length scale

I have a strip with holes the distances are 25,35,35,35,35,35,449,61.5,59,1443.5,1504.5,1504.5,379,35,35,35,35,35,25 and the total length is 5801. (this is a sample it may any dimensions and nos. of holes)

I want to fitted it in 230 mm. length strip. all points are to be offset with above mentioned dimensions with 230 mm. scaled but fist & last dimensions are offset dimensions is 8 mm. fixed.

other than all dimensions are to be offset with 214 mm. (230-8- and if scaled offset is less than 4.9 then it will offset 5.0 mm. offset.

can any one build this lisp routine for me. for details drawing is attached

if any further details required ask me.

Thanks,

Avinash Patil

[BIG-AL]

You just have to do it in steps look at total length, subtract the two end lengths which are fixed, then there are some rules about the remaining holes. you would start with say lower left corner and then keep track of your points. I draw a little sketch on a piece of paper as I go so I can remember the point numbers used in making the circles. You just need a double polar to work out each new x & y.

; 0.0 is to left
(setq up (/ pi 2.0)) ; 90 up
; pi left
(setq dn  (* 1.5 pi)) ; 270 down

(setq pt1 (getpoint))
(setq x 25 
        y 30)
(setq pt2 (polar (polar pt1 0.0 x) up y))
(command "Circle" pt2 12) ; draws circle to the right

[avinash patil]

Cany you give me complete code