[其他]：发现一个bug,还是我没写好

aeo

2. 
   
3. (setq j -1)
   
4. (setq ss (ssget '((0 . "text"))))
   
5. (repeat (sslength ss)
   
6.            (setq e(ssname ss(setq j(1+ j))))
   
7.             (command "scaletext" e "" "m""s" 0.5)  ;;我要一个个来!
   
8. )
   

<br /> (setq j -1)<br /> (setq ss (ssget '((0 . "text"))))<br /> (repeat (sslength ss)<br />            (setq e(ssname ss(setq j(1+ j))))<br />             (command "scaletext" e "" "m""s" 0.5)  ;;我要一个个来!<br /> )<br />

如果文字太多,会"Could not create an new selection set"
好像选集没释放.
其他command命令还没发现这种现象,就觉得很奇怪.

snoopychen

这里有两个帖子也遇到这样的问题
http://groups.google.com/group/a ... =1#689af1b3d5cd5686
http://groups.google.com/group/a ... =2#02223fbb7ac4369a

好像也都是在用text的时候出现的。
有人说set不能超过128个，可以编个如ssclear之类清空
但是假如图形新开的时候，不应该有很多set啊，也是比较奇怪。

改了一下进行调试

2. 
   
3. (setq j -1)
   
4. (setq ss (ssget '((0 . "text"))))
   
5. (repeat (sslength ss)
   
6.            (setq e(ssname ss(setq j(1+ j))))
   
7.             (command "scaletext" e "" "m""s" 0.5)  ;;我要一个个来!
   
8.             (princ "\n             j = ") (princ j);Erase_DV
   
9. (getstring "\nBreakpoint 1, press Enter to continue...");Erase_BP
   
10.             
    
11. )
    

<br /> (setq j -1)<br /> (setq ss (ssget '((0 . "text"))))<br /> (repeat (sslength ss)<br />            (setq e(ssname ss(setq j(1+ j))))<br />             (command "scaletext" e "" "m""s" 0.5)  ;;我要一个个来!<br />             (princ "\n             j = ") (princ j);Erase_DV<br /> (getstring "\nBreakpoint 1, press Enter to continue...");Erase_BP<br />             <br /> )<br />

到126左右就退出，个人感觉scaletext的编程可能确实有点问题，可能不小心构建了不断增加的选择集。

不大懂cad的选择集原理，还是比较古怪的

雨箭风刀

看来是scaletext没处理好