Topic: Get point and object selection at same time

[Biscuits]

Stumped on how to change this code to allow me to insert a block then delete the object found at getpoint.

(SETQ PNT (GETPOINT "\nSpecify Insertion Point")) ;;uses nearest osnap

;;;;;;;;;;;; do something here;;;;;;;;;;;;

(COMMAND "ERASE"  previous "")

Appreciate the help.

[Tharwat]

Code - Auto/Visual Lisp: [Select]

1. (SETQ PNT (GETPOINT "\nSpecify Insertion Point")) ;;uses nearest osnap
2. (if (setq obj (ssget pnt))
3.   (command "_.erase" obj "")
4.   )
5.  

[Biscuits]

Thanks ...worked like a charm! I was completely over thinking it.