[求助]帮帮我啊

mingyu9608

谁能帮帮我用arx实现下面lisp程序的功能.
(setq tuming (ssget "w" p1 p2)) ;取得图名字符串
(setq num1 (sslength tuming)) ;取得该字符串中对象的数目
(setq tm ""
nnn 0
)
(while (< nnn num1) ;循环取得各个字符串，然后组成整个图名
(setq tmx (ssname tuming nnn))
(setq tmx_x (entget tmx))
(setq tmx_x_name (cdr (assoc 1 tmx_x)))
(setq tm (strcat tm tmx_x_name)) ;得到图名
(setq nnn (1+ nnn))
)
上面是我在取得指定的范围内的文字,但是我找不到assoc在arx的对应的函数,所以请帮我实现上面的功能,谢谢了.