请问在lisp中如何按照编号后面的数字大小顺序来提取图元名称

fangmin723

请教一下，想C1、C2、C3、C4、C5、C6、C7…………，把这些编号全部选中创建一个选择集，然后要怎么样才能按照后面数字的顺序在选择集中提取图元名称，请问在lisp中该如何操作，谢谢！

437271963

读取编号内容，编号与图元对应，建立一个表。然后表按顺序排列。

2. (defun c:tes ( / &k1 &kw1 &ss1 &str1 x y)
   
3. (vl-load-com)
   
4. (princ "\n请选择编号文字")
   
5. (if (setq &kw1 (ssget '((0 . "TEXT") (1 . "C*,c*"))))
   
6.   (progn
   
7.    (setq &ss1 '());建立表
   
8.    (while (setq &k1 (ssname &kw1 0))
   
9.     (setq &kw1 (ssdel &k1 &kw1) &str1 (cdr (assoc 1 (entget &k1))));提取文字内容
   
10.     (setq &str1 (atof (substr &str1 2)));去掉字母C变数值
    
11.     (setq &ss1 (cons (list &str1 &k1) &ss1))
    
12.    );while
    
13.    (setq &ss1 (vl-sort &ss1 '(lambda (x y) (< (car x) (car y)))));按数值从小到大排列
    
14.    ;(princ &ss1)
    
15.    (setq &ss1 (mapcar 'cadr &ss1));表里面去掉数值,只有图元
    
16.    ;(princ &ss1)
    
17.   )
    
18. )
    
19. (princ)
    
20. )

(defun c:tes ( / &k1 &kw1 &ss1 &str1 x y)<br /> (vl-load-com)<br /> (princ "\n请选择编号文字")<br /> (if (setq &kw1 (ssget '((0 . "TEXT") (1 . "C*,c*"))))<br />   (progn<br />    (setq &ss1 '());建立表<br />    (while (setq &k1 (ssname &kw1 0))<br />     (setq &kw1 (ssdel &k1 &kw1) &str1 (cdr (assoc 1 (entget &k1))));提取文字内容<br />     (setq &str1 (atof (substr &str1 2)));去掉字母C变数值<br />     (setq &ss1 (cons (list &str1 &k1) &ss1))<br />    );while<br />    (setq &ss1 (vl-sort &ss1 '(lambda (x y) (< (car x) (car y)))));按数值从小到大排列<br />    ;(princ &ss1)<br />    (setq &ss1 (mapcar 'cadr &ss1));表里面去掉数值,只有图元<br />    ;(princ &ss1)<br />   )<br /> )<br /> (princ)<br /> )