CADForums.net

MiD-AwE · Guest

Hi all,
I've nearly finished this code for inserting a number with a circle around it. The numbers will increase with every mouse click, but you cannot see the circle until after you've placed it in the drawing. This is no good because we may have far too many in a drawing to go back and reposition every one. So I was hoping to draw the circle and let it cling to the cursor until I click on the screen; at which time the number should be inserted. Below is my code and my best attempt. Hopefully someone can see what I trying to do. Please, help.
Thanks.

Walt Engle · Guest

Here's one from one of these NG's:

;;TAG1.LSP Copyright 1998 HyperPics all rights reserved
;;
;; Author: Lee Ambrosius,
;; HyperPics

;;TAG1
;;The tag allows the user to place a numbered bubble at any give point.
;;The number counts upward in an increment of one from the users defined number.

(defun MYERROR (S) ;;error trap program
(if (/= S "\nFunction cancelled" )
(prompt "\nEnding Tag1 routine..." ) )
(setvar "OSMODE" OS)
(setvar "CMDECHO" CMD)
(command "._undo" "end")
(setq *ERROR* OLDERR )
(princ)
)

	CADForums.net Forum Index -> Customization	All times are GMT
Page 1 of 1