Topic: Could not create an new selection set?

[cjw]

Code: [Select]

(defun C:TT (/ I SS)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
 (command "._JUSTIFYTEXT" SS "" "L")
 (command "._JUSTIFYTEXT" SS "" "R")
)
      )
    )
  )
  (princ)
)

After use "TT" three times or more times.

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

If "JUSTIFYTEXT" can not use "command" safely,how about other way?
May be write a function like "JUSTIFYTEXT".

[CAB]

have you tried previous?

Code: [Select]

(defun C:TT (/ I SS)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
  (command "._JUSTIFYTEXT" "_P" "" "L")
  (command "._JUSTIFYTEXT" "_P" "" "R")
)
      )
    )
  )
  (princ)
)

[cjw]

have you tried previous?

Code: [Select]

(defun C:TT (/ I SS)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
  (command "._JUSTIFYTEXT" "_P" "" "L")
  (command "._JUSTIFYTEXT" "_P" "" "R")
)
      )
    )
  )
  (princ)
)

Thank you,CAB.

I have tried "previous"

The same problem.

It seems can't be solved.

[CAB]

Could not create an new selection set

This would lead me to believe that there are no Plain Text to process.
Perhaps you need a better filter or maybe the text don't exist in your current tab.

Code: [Select]

(if (setq SS (ssget (list '(0 . "TEXT")(cons 410 (getvar "ctab")))))

[qjchen]

It is strange, the same to me.

but if as follows, it will work, maybe there are some other reasons for it.

Code: [Select]

(defun C:TT (/ I)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
     
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
(progn

  (
  (setq ss1 ss)
 
  (command "._JUSTIFYTEXT" SS1 "" "L"))
  (command "._JUSTIFYTEXT" SS1 "" "R")
)
)
      )
    )
  )
  (princ)
)


[cjw]

Could not create an new selection set

This would lead me to believe that there are no Plain Text to process.
Perhaps you need a better filter or maybe the text don't exist in your current tab.

Code: [Select]

(if (setq SS (ssget (list '(0 . "TEXT")(cons 410 (getvar "ctab")))))

The same fail result.

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

In my view：
the problem is at "command" call “selection set” too much time,
and the “selection set” doesn't  clear,and the “selection set” have like "Capacity constraints".
Maybe.

Just don't know how to clear  “selection set”  after call  it.

[cjw]

It is strange, the same to me.

but if as follows, it will work, maybe there are some other reasons for it.

Code: [Select]

(defun C:TT (/ I)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
     
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
(progn

  (
  (setq ss1 ss)
 
  (command "._JUSTIFYTEXT" SS1 "" "L"))
  (command "._JUSTIFYTEXT" SS1 "" "R")
)
)
      )
    )
  )
  (princ)
)


The same fail result.

[cjw]

My point of view is not quite right.

Try this code,it work fine.

Code: [Select]

(defun C:TT (/ I SS)
  (if (setq SS (ssget (list '(0 . "TEXT"))))
    (progn
      (setq I 0)
      (repeat 50
(command "._MOVE" SS "" "@" "@")
      )
    )
  )
  (princ)
)

May be the "JUSTIFYTEXT" have bug.

[alanjt]

Isn't there a Garbage Collection or something that can be used?
I ran this 3 times, then just executing JustifyText wouldn't continue and if I tried to create a selection set with (ssget) it would give me: exceeded maximum number of selection sets.

[cjw]

Isn't there a Garbage Collection or something that can be used?
I ran this 3 times, then just executing JustifyText wouldn't continue and if I tried to create a selection set with (ssget) it would give me: exceeded maximum number of selection sets.

Yes,alanjt
As you found.
"Garbage Collection" sounds nice. is there??

[MP]

don't know if this will solve your problem, but in the remote chance it might:

Code: [Select]

(defun c:PurgeSelectionSets ( / picksets )

    (foreach pickset
    
        (setq picksets
            (vl-remove-if-not
               '(lambda ( symbol ) (eq 'pickset (type (eval symbol))))
                (atoms-family 0)
            )
        )    
        
        (princ
            (strcat
                "Purging <"
                (vl-symbol-name pickset)
                ">\n"
            )
        )
        
        (set pickset nil)
        
    )
    
    (princ
        (strcat
            "Purged "
            (itoa (length picksets))
            " selection set(s)."
        )
    )
    
    (princ)

)
also see this thread

[qjchen]

It is strange, the same to me.

but if as follows, it will work, maybe there are some other reasons for it.

Code: [Select]

(defun C:TT (/ I)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
     
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
(progn

  (
  (setq ss1 ss)
 
  (command "._JUSTIFYTEXT" SS1 "" "L"))
  (command "._JUSTIFYTEXT" SS1 "" "R")
)
)
      )
    )
  )
  (princ)
)


The same fail result.

This error not always exist, When I use the modified code in a new dwg, it is ok in my PC.

so somewhat strange, maybe you are right, the "justifytext" command has bug.

Here, http://discussion.autodesk.com/forums/thread.jspa?threadID=350022

Jürg Menzi also says "I've not the time to explain all details, but the main error source was the command 'justifytext'. Changed the function to ActiveX. "

[cjw]

It is strange, the same to me.

but if as follows, it will work, maybe there are some other reasons for it.

Code: [Select]

(defun C:TT (/ I)
  (if (setq SS (ssget '((0 . "TEXT"))))
    (progn
      (setq I 0)
     
      (repeat 50
(if (= (rem (setq I (1+ I)) 2) 0)
(progn

  (
  (setq ss1 ss)
 
  (command "._JUSTIFYTEXT" SS1 "" "L"))
  (command "._JUSTIFYTEXT" SS1 "" "R")
)
)
      )
    )
  )
  (princ)
)


The same fail result.

This error not always exist, When I use the modified code in a new dwg, it is ok in my PC.

so somewhat strange, maybe you are right, the "justifytext" command has bug.

Here, http://discussion.autodesk.com/forums/thread.jspa?threadID=350022

Jürg Menzi also says "I've not the time to explain all details, but the main error source was the command 'justifytext'. Changed the function to ActiveX. "

Your help is very much appreciated.
Thank You Thank You