move and rotate a block for referenced nearest polyline or line etc

[ahmet471985]

Hello i need an autolisp routine for these:

I want select a block and my autolisp code move my block to near (about 5 unit away from it) nearest the polyline (or line or block etc.) and rotate my block with referenced by the polyline. 

I will add a drawing please look at it.

[mid-awe]

I would like to suggest that you take a look at:

ObjectAlign

A great program from Lee Mack.

[ahmet471985]

Really i wanted a program like it.but i must costumize this program to my request.i want to set offset value.and auto selecting curve by offset value.
Thanks i will try.

[mid-awe]

The offset is controlled with the global variable:

oa|off

and is found in the line:

(IF (NULL oa|off) (SETQ oa|off 0.0))

You can preset that variable to call the program with a default offset:

(IF (NULL oa|off) (SETQ oa|off 5.0))

Hopefully that will help. "ObjectAlign" is a very advanced program and I have done little to understand how it works.

[m_rogoff]

using Otrack, entering distance / Osnap Perp to line is much easier

Lee's program looks really useful