发现lisp程序中一个奇怪的问题，求教解答

想来就来

 我要在CAD图上获得一批text文字的坐标值，编程思想如下：

用鼠标框选text文字，获得图元名，用while循环，套entget  和assco函数取得坐标值，但传回的坐标值全部为0，用print显示，图元的坐标值如（11，0.0,0.0,0.0)。同样的程序，昨天编好的时候还能正常传回。今天就不行了。找不到原因，好着急。

该问题解决，assco函数的关联值应为10。 因为手上没参考书，分析图元的回显表时看错了。

citykunan

把程序传上来看看。

jdhszh

从编程思路看应该没问题，若程序没问题，是不是变量设置出的问题。