draw two offset wheels

[errico]

Hello
I'm trying to create a program so I can design two offset wheels
I managed up to a certain point...I would like to get the process automatically without having to select the object and the direction as I do!!!

(defunc c:circus ()
(setq ra (getdist "\nraggio ")
thk (getdist "\nthk:")
(setq c (getpoint "\insertion point:"))

(command "_circle" c ra)
(command "_offset" thk)
)

 

[Legs]

I'm trying to create a program so I can design two offset wheels

can you simply add (or remove, depends on the direction you want to take) the thickness of the ring?
in practice you have to do nothing but draw a ray circle and a ra+thk radius (or ra-thk). You don't need the offset command.

 

[rpor66]

Hello
I'm trying to create a program so I can design two offset wheels
I managed up to a certain point...I would like to get the process automatically without having to select the object and the direction as I do!!!

(defunc c:circus ()
(setq ra (getdist "\nraggio ")
thk (getdist "\nthk:")
(setq c (getpoint "\insertion point:"))(set pt (pollar c 00 (+ dropped tk))(command "_circle" c ra)(setq tmp (ssget "_l"))
(command "_offset" thk tmp pt "")
)

servito
bye