multiple offset??

[Anonymous]

anybody have a good tool for this - sorta like array & sorta like repeated
offsets.

[Anonymous]

Hope this helps
Jerry

(defun c:op (/ n point)
(setvar "cmdecho" 1)
(command "offset" pause pause pause "")
(setq point 1)
(while (/= nil point)
(progn
(setq point (getpoint "side to offset: "))
(command "offset" "" (entlast) point "")
(princ)
))
(princ)
)

Scott H wrote in message
news:8aual8$41a23@adesknews2.autodesk.com...
> anybody have a good tool for this - sorta like array & sorta like repeated
> offsets.
>
>

[Anonymous]

;;AAR.LSP was taken from Cadence Mag. May 1994
;;This program will do an array in any linear direction.
;;Choice of distance and direction may be made by
;;mouse pick or typed in.
(defun C:AAR ( / ss ang bp cnt dist d)
(cond
( (setq ss (ssget))
(initget 1)
(setq bp (getpoint "\nBase point: "))
(initget 1)
(setq ang
(getangle bp "\nArray direction: "))
(initget 7)
(setq dist
(getdist "\nDistance between objects: "))
(initget 7)
(setq cnt (getint "\nNumber of objects: "))
(setq d 0.0)
(setvar "cmdecho" 0)
(command "_.undo" "_g"
"_.copy" ss "" "_m" bp)
(repeat (1- cnt)
(command
(polar bp ang (setq d (+ d dist)))))
(command "" "_.undo" "_e")
)
)
(princ)
)

[Anonymous]

I remember that one!

David Garrigues wrote:
>
> ;;AAR.LSP was taken from Cadence Mag. May 1994
> ;;This program will do an array in any linear direction.
> ;;Choice of distance and direction may be made by
> ;;mouse pick or typed in.
> (defun C:AAR ( / ss ang bp cnt dist d)
> (cond
> ( (setq ss (ssget))
> (initget 1)
> (setq bp (getpoint "\nBase point: "))
> (initget 1)
> (setq ang
> (getangle bp "\nArray direction: "))
> (initget 7)
> (setq dist
> (getdist "\nDistance between objects: "))
> (initget 7)
> (setq cnt (getint "\nNumber of objects: "))
> (setq d 0.0)
> (setvar "cmdecho" 0)
> (command "_.undo" "_g"
> "_.copy" ss "" "_m" bp)
> (repeat (1- cnt)
> (command
> (polar bp ang (setq d (+ d dist)))))
> (command "" "_.undo" "_e")
> )
> )
> (princ)
> )

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/

[Anonymous]

Attached are two files OO.ARX for AutoCAD R14 and OO.VLX for AutoCAD 2000.

This program works just the AutoCAD "Offset" command, but it offsets
multiple from the object select to the point picked.

James Dee
www.caddee.com

[Anonymous]

that works pretty well. it's the simple things!!!

thanx

"Jerry Griffin" wrote in message
news:8aubnr$42q30@adesknews2.autodesk.com...
> Hope this helps
> Jerry
>
> (defun c:op (/ n point)
> (setvar "cmdecho" 1)
> (command "offset" pause pause pause "")
> (setq point 1)
> (while (/= nil point)
> (progn
> (setq point (getpoint "side to offset: "))
> (command "offset" "" (entlast) point "")
> (princ)
> ))
> (princ)
> )
>
>
> Scott H wrote in message
> news:8aual8$41a23@adesknews2.autodesk.com...
> > anybody have a good tool for this - sorta like array & sorta like
repeated
> > offsets.
> >
> >
>
>

[Anonymous]

>I remember that one!

Still the best array command I know of, real quick and EASY!
Did you right it?

David at the CADapult
http://geocities.com/~cadapult/

[Anonymous]

Check out the OO.VLX (for AutoCAD 2000) and OO.ARX (for AutoCAD R14) posted
below - then decide if it's still the best. OO.VLX 1kb is attached to this
message, but OO.ARX file is a bit larger and is already attached to the post
below dated 03/19/2000.

James Dee
www.caddee.com

David Garrigues wrote in message
news:njbddsg5qcbf5vv2b01o0mug8g0qvic9t7@4ax.com...
> >I remember that one!
>
> Still the best array command I know of, real quick and EASY!
> Did you right it?
>
> David at the CADapult
> http://geocities.com/~cadapult/

[Anonymous]

I was the CADENCE tips and tricks editor at the time,
and chose it from about 100 submissions. I had to
revise that one because the original didn't work in
all cases.

David Garrigues wrote:
>
> >I remember that one!
>
> Still the best array command I know of, real quick and EASY!
> Did you right it?
>
> David at the CADapult
> http://geocities.com/~cadapult/

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/

[Anonymous]

scott,

Kindly download moffset.vlx from http://www.devcs.com/freelisp.htm that is same what u want
let me know how u like it......

Amit Vedak
Devyani CAD Software Developments
http://www.devcs.com