SSGET过滤后只剩文字的选择集 变成 文字的表

尹思颖

• 

  2. (defun GetSsStr (ss / ename i str_list)
     
  3.   (setq i 0 str_list nil)
     
  4.   (while (setq ename (ssname ss i))
     
  5.     (setq str_list (cons (vlax-get-property (vlax-ename->vla-object ename) 'TextString) str_list)
     
  6.       i (1+ i)
     
  7.     )
     
  8.   )
     
  9.   str_list
     
  10. )

  (defun GetSsStr (ss / ename i str_list)<br />   (setq i 0 str_list nil)<br />   (while (setq ename (ssname ss i)) <br />     (setq str_list (cons (vlax-get-property (vlax-ename->vla-object ename) 'TextString) str_list)<br />       i (1+ i)<br />     )<br />   )<br />   str_list<br /> )