[求助]关于字符串

phoenixdjq

那位大侠能帮小弟编一个这样的程序：

先输入一个整数，然后选择字符串，取出其中的数字部分（这个字符串包括字符，符号，空格等），然后加上事先输入的整数后，再所选的字符串下面输出一个新的字符串，原来的字符串还保留。

最好是能用ssget多选的

小弟在此谢过。

helison

(defun c:txt(/ s n k en )
    (setq s (ssget))
    (setq n (sslength s) k 0)
    (while (< k n)
        (setq en (ssname s k))
        (setq k (+ k 1))
        (setq text1 (cdr (assoc 1 (entget en (list "*")))))
        (setq text2 (atoi text1))
        (princ text1)
        (princ "\n")
        (princ text2)
        (princ "\n")
     )
)

Andyhon

发一个程序处理前的样本
与一个程序处理后的样本
用来帮助理解如何

 

phoenixdjq

谢谢这位大侠