帮帮我啊,用arx实现.
<FONT face=宋体 size=2>谁能帮帮我用arx实现下面lisp程序的功能.<BR><BR><BR>(setq tuming (ssget "w" p1 p2)) ;取得图名字符串<BR>(setq num1 (sslength tuming)) ;取得该字符串中对象的数目<BR>(setq tm ""<BR>nnn 0<BR>)<BR>(while (< 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的对应的函数,所以请帮我实现上面的功能,谢谢了.</FONT>
页:
[1]