Getpoint - When using near snaps to endpoint or midpoint

[rich220]

My simple lisp

 

(Defun C:LSwt ()

(setq pt

(getpoint "\nSelect the center point for the Light Switch Sym ")) (terpri)

(Command "insert" "C:/light_Switch_Sym" pt "1" "1" )

(PRINC))

 

This Lisp works unless "near" is entered for the location of the "getpoint". When "near" is entered the block is placed at the nearest end point or midpoint, which ever was closest to the point picked. When I list pt (!pt) the values equal those of the point picked not where the block is placed.

 

Please help,

Rich220

[lpseifert]

Probably your running snaps

try this

(Command "insert" "C:/light_Switch_Sym" "_non" pt "1" "1" )

[Tharwat]

Use "_non" before the pt like this :

 

(Command "_.-insert" "C:/light_Switch_Sym" "_non" pt "1" "1" )

 

Regards

 

Tharwat

[mdbdesign]

Both version work fine for me.

[rich220]

Thank you very much that fixed it...

[Tharwat]

You're welcome.

 

Welcome to CADTutor.

 

Tharwat