[求助]：帮帮我啊,用arx实现.

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的对应的函数,所以请帮我实现上面的功能,谢谢了.

弓长

请看下面一段代码：
acedSSName(ss, i, en);//获得实体名
AcDbObjectId eID;
acdbGetObjectId(eId, en);//获得对象标识
AcDbEntity * pEnt;
acdbOpenObject(pEnt, eId, kForRead);//打开实体
AcDbText *pText = AcDbText::cast(pEnt);//是文字？
char *str;
if(pText)
{
   str = pText->textString();//获得字串

//使用字串

  free(str);//释放内存
}
pEnt->close();关闭实体

慢慢看吧，arx编程和lisp编程是不一样的

mingyu9608

太感谢了,我这就去试试.