-Custom "Object Snap" -Snap Between, -AutoCad 2000i Map/Win XP

Hello.

I need some help please?

I want to make a "snap-function" that gives me a point(midpoint) between to
other point.,
e.g. I have two circles and want to start drawing a line from a point
exactly between the two center of these circles.
( I could draw a line from center to center and start drawing from midpoint
of that line,
but I hope you can helpe me make a "snap between two points" instead).

At an aplication called "Point & NovaPoint 5.5" I can use a command called
"Osnap between" ,
it's a macro but I don't know how they have made it.....

Hope someone can understand what I am talking about here (sorry, my language
is all to bad).

I use:
Win XP and AutoCad 2000i Map.


Thanks for any help.

Br
Morten S

 

(defun between ( / pt1 pt2)
(while (not (setq pt1 (getpoint "\nSelect first point: "))))
(while (not (setq pt2 (getpoint "\nSelect second point: "))))
(polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2.0))
)

 

Use AutoCAD's geometry calculator as in: (note the apostrophe preceeding
CAL)

LINE Specify first point: 'CAL

 

In addition to TRJ's suggestion, the calculator has a built in shortcut MEE that returns the midpoint between two endpoints
[otherwise known as (end+end)/2]

 

Hello.

This one looks to be the one I need,
but I can't make it work. Sorry.

Shall I copy the txt in to a lsp-file?
Or use it as a macro on a new button?
Or?



Morten

 

If you have a custom menu, put the code in an mnl file the same name as the
menu,
otherwise put the code in an acad.lsp file. You'll probably have to create
it.

Then create a button to execute it.

 

Hi.

I still have some problems about activateing the command, (have tried .lsp
and .mnl and a button to activate)
but I will fix it, I hope...

Thank you Jim.

Morten

 

Hi


Thanks for your respond.

Morten

 

Hi


Thanks for your respond.

Morten


In addition to TRJ's suggestion, the calculator has a built in shortcut MEE
that returns the midpoint between two endpoints
[otherwise known as (end+end)/2]