A RANDOM TIP

I'd like to pass along a subroutine which I've found very useful. 
Instead of typing

(entmod (subst (cons GROUP NEWVALUE) 
	(assoc GROUP ELIST) ELIST))

every time I want to change an entity's association list, I simply 
type

(swap GROUP ELIST NEWVALUE)

The function below now resides in my ACAD.LSP file; it saves a lot 
of typing and the syntax is intuitive.

;SWAP.LSP      from a tip in Cadalyst magazine

(defun swap (NUM EL NEW)

	(entmod (subst (cons NUM NEW) 
		(assoc NUM EL) EL)))

Bill Enger 

