Topic: Offset block lisp?

[hudster]

Does anyone have a copy of a lisp which will let me offset blocks?

I have a set of sockets and rather than copy each one in the layout 1200mm from each other, it would be handy if i could offset them.

Cheers in advance.

[hendie]

have you tried DIVIDE or MEASURE ?
you would need to draw a line first of course but it should do what you require

*edited*

or even the ARRAY command ? just specify 1 row with a 1200 spacing

[hudster]

I use divide on standard blocks, but these have attributes and they can't be used with the divide command.

[Keith™]

Array.... what is wrong with array??

[Mark]

What about copy? Turn on ortho and input 1200. Or am I missing the point!

[hendie]

the array's have it ! :crazy:

[Keith™]

We must be :crazy:

[hudster]

I was looking for something quicker, with offset it semembers the settings, and i don't heve to set it up each time and as we are talking about hundreds of sockets it would be easier to offset by 1200 than set up an arrayt each time.

At the moment i'm using ortho and typeing in 1200, but its time consuming and very boring, was just looking for a quicker method.

[hendie]

then why not just set up a button macro for array ?

[Keith™]

Well write a short proggie...

Code: [Select]


(defun C:OB()
(setq obj (entsel))
(command "_copy" (car obj) "" "@" (strcat "@1200<<" (angtos(getangle (cadr obj))))
)

Should work for you....

[M-dub]

I dunno...I'd just suggest the array...It's less painfull in versions later than...2000, I think.