Could not create an new selection set

[Michael LaQuire]

I am using a lisp to loop through all the text, mtext in my drawing with the
'justifytext' command,(toggling through each viewport) when Justifytext
returns the error below. This only occurs if a substantial amount of
entities is selected. It doesnt crash the program. After the error the
program does not work correctly. . When complete i notice that the
properties dialog does not reflect any entities i have gripped (even though
pickfirst is set to 1) .

Any clues??
--------------
"converting mtext" _justifytext
Select objects: 1 found

Select objects:
Error: U:\global\src\coreapps\etlib\utility.h@71 Could not create an new
selection set

Command: mc Unknown command "MC". Press F1 for help.
--------------------
--
Michael LaQuire
Arthur Ruteberg Homes, Inc.
Cad Trainer
mlaq...@arhomes.com

[Scribble]

Michael
are you creating many selection sets?
From help:
......
When an application has finished using a selection set, it is important to
release it from memory. You can do this by setting it to nil:

(setq ss1 nil)

Attempting to manage a large number of selection sets simultaneously is not
recommended. An AutoLISP application cannot have more than 128 selection
sets open at once. (The limit may be lower on your system.) When the limit
is reached, AutoCAD refuses to create more selection sets. Keep a minimum
number of sets open at a time, and set unneeded selection sets to nil as
soon as possible. If the maximum number of selection sets is reached, you
must call the gc function to free unused memory before another ssget will
work.
.......
cheers
Steve

"Michael LaQuire" <mlaq...@arhomes.com> wrote in message
news:1317B8154C2177E7...@in.WebX.maYIadrTaRb...

[J.Smith]

For additional help search for a lisp routine called ssclean.lsp in these
newsgroups.

Jim

"Michael LaQuire" <mlaq...@arhomes.com> wrote in message
news:1317B8154C2177E7...@in.WebX.maYIadrTaRb...

[Terry W. Dotson]

"J.Smith" wrote:

> For additional help search for a lisp routine called ssclean.lsp in these
> newsgroups.

; Select Set Identify & Clean
; Copyright 2001 DotSoft [http://www.dotsoft.com]

(defun c:ssclean ()
(setq ctr 0)
(setq lst (atoms-family 1))
(foreach sym lst
(if (= (type (eval (read sym))) 'PICKSET)
(progn
(setq ctr (1+ ctr))
(eval (read (strcat "(setq " sym " nil)")))
(princ (strcat "\nNullified (" (itoa ctr) "): " sym))
)
)
)
(gc)
(princ)
)

Terry

[Tony Tanzillo]

Paste this into a .LSP file and load it, then
type SSCLEAR on the command line:

(defun C:SSCLEAR ( / atoms)
(foreach sym (atoms-family 0)
(if (eq (type (eval sym)) 'pickset)
(set sym nil)
)
)
(princ)
)

"Michael LaQuire" <mlaq...@arhomes.com> wrote in message
news:1317B8154C2177E7...@in.WebX.maYIadrTaRb...