Advanced Offset

My biggest peev with Audocad's offset command is you can't change the offset distance in the middle of the command. You also can't just tell it to offset an object say 10 times to one side. So here's my advanced offset command.

Notes on the command:

1) Using the multiple command before selecting an object lets you define how many times to offset an object; using multiple after selecting an object works exactly like the built-in offset's multiple works (offset each time you click)

2) Change your offset distance at almost any time!

3) The rest of the options work just like the original offset.

This code is fresh and tested only to work. If you experience any problems, let me know. If you want to rewrite something in it, feel free to do so.

Updated code. See below.

Some updated code after using it a bit. Asks for the initial offset distance every time (with default of last offset).

Updated again. See below.

works great except for the amount of times you want to offset if you enter ten times to offset it only does about 2 or 3

My biggest peev with Audocad's offset command is you can't change the offset distance in the middle of the command. You also can't just tell it to offset an object say 10 times to one side. So here's my advanced offset command.

 

Notes on the command:

1) Using the multiple command before selecting an object lets you define how many times to offset an object; using multiple after selecting an object works exactly like the built-in offset's multiple works (offset each time you click)

2) Change your offset distance at almost any time!

3) The rest of the options work just like the original offset.

 

This code is fresh and tested only to work. If you experience any problems, let me know. If you want to rewrite something in it, feel free to do so.

 

Updated code. See below.

Good stuff. You should post it here, in the AutoLISP Archive for future reference as well: http://www.cadtutor.net/forum/forumdisplay.php?f=30

MikeP: I got that fixed. Was brought to my attention elsewhere.

Code updated.

Can you add this code [current/match layer offset], maybe hightlight the entity too would be nice.

1OffsetModified.lsp

Hey Tader,

I was already working on that code, and finally finished it tonight. I went a little further with it. In addition to being able to select Source or Current, you can enter any valid layer name. I've been working out bugs all night and I think I worked out most of them.

Let me know what you think.

adv-offset.lsp

That's sweet. I'll run it quite often & let you know of any bugs. Thnx again as I'm sure many others will enjoy it.

Hey Eric, I was thinking: rut ro, if you replaced the "Layer" option with "Layer" "Current" which would make your 1st prompt [specify offset distance [Through/Current/Source/Exit] : this would save the user one keystroke if he/she wanted to offset in layer. I was poking around in there to do it myself, but I usually mutilate anything I touch.

Hey Eric,

Thats cool, i like it, beats faffing with the array dialog..

My only thoughts would be to include the whole procedure for the multi offset in one undo. If you want to undo it now, each undo click only does one line at a time..

Hey Tader,

I was already working on that code, and finally finished it tonight. I went a little further with it. In addition to being able to select Source or Current, you can enter any valid layer name. I've been working out bugs all night and I think I worked out most of them.

 

Let me know what you think.

thank

i needed that :wink:

I don't see the code, is it in Show your Stuff? Also I noticed if you haven't already fixed it; when it errors it doesn't redraw the ent.

cya

I don't see the code, is it in Show your Stuff? Also I noticed if you haven't already fixed it; when it errors it doesn't redraw the ent.

cya

Tader, can you see the attachment in post #7 by Eric?

Download that.

My only thoughts would be to include the whole procedure for the multi offset in one undo. If you want to undo it now, each undo click only does one line at a time..

Sometime I'm going to do some reorganization on the code and take out my stupid undo code and put in calls to the AutoCAD undo at which time I'll add that.

Tader, can you see the attachment in post #7 by Eric?

Download that.

I downloaded that, it doesn't seem to have the updated code.

Which code are you looking for? The current/source layer options on the first prompt? I'll change that around when I reorganize.

oh, ok. I got confused.. sry

Lookin pretty good so far. Something we do around here often that I've been trying to come up with a fix for is an option to delete the original, we have to account for setbacks in our drawings which is annoying having to offset 40 polylines then going back and deleting the original boundary. Much like the option in mirror command. Think that could fit into this lisp?

Ufff long time no activity here.

Is there any chance you could make this work like this.

Activate your lisp. Type in values 0.92,0.65,1.03 hit enter and then select side you want to offset your line, and you get this:

p.s. any chance that these offset values could be copied for dimension text values that you have in another drawing?

Fixo made something similiar that reads dim. text values and uses them in Excel.

Hi Guys,

Haven't been here in a while, noticed an offset thread, perhaps try this?

http://www.theswamp.org/index.php?topic=30650.0