mingyu9608 发表于 2004-4-19 19:50:00

[求助]帮帮我啊

谁能帮帮我用arx实现下面lisp程序的功能.


                        <BR>        (setq tuming (ssget "w" p1 p2))        ;取得图名字符串<BR>        (setq num1 (sslength tuming))        ;取得该字符串中对象的数目<BR>        (setq tm ""<BR>                                               nnn 0<BR>        )<BR>        (while (&lt; nnn num1)                ;循环取得各个字符串，然后组成整个图名<BR>               (setq tmx (ssname tuming nnn))<BR>               (setq tmx_x (entget tmx))<BR>               (setq tmx_x_name (cdr (assoc 1 tmx_x)))<BR>               (setq tm (strcat tm tmx_x_name)) ;得到图名<BR>               (setq nnn (1+ nnn))<BR>        )<BR>                                上面是我在取得指定的范围内的文字,但是我找不到assoc在arx的对应的函数,所以请帮我实现上面的功能,谢谢了.
页: [1]
查看完整版本: [求助]帮帮我啊