[LISP程序求助]：仅仅是缩放或平移一下视图,程序就出现未预期的另两种结果!

lsj60912

我最近刚学的VisualLISP，在AutoCAD2002里的环境。我编了一个小程序，时而能运行，时而不能运行。不知道什么原因。
    我的思路是：通过用ssget得到一个块选择集，用ssname得到其图元名，用entget查询其组码得到插入点，再从此点用(ssget "C" (mapcar '+ ...) (mapcar '+ ...))得到在两对角点范围内的一条竖直线，再查询组码找到此直线的端点，再从此端点再次用(ssget "C" (mapcar '+ ...) (mapcar '+ ...))得到两对角点范围内的另一个块，再查询此块的组码得到其属性的值。出现的情况是程序刚刚还能正常工作,但当我用zoom命令执行视图放大、平移就出现错误：参数类型错误：stringp nil，有时又变成：参数类型错误：lselsetp nil 。
        我就搞不懂：为什么同一个程序在同一个环境下，仅仅是缩放或平移了一下视图就出现三种不同的执行结果。希赐教。万分感谢！！！


[B]问题简化为：假设图形中有一条直线，在其一个端点的90度方向12mm处有一个块（块内的图形通过该点),试用如下的表达式通过选择直线的端点来得到块的组码：
(entget (ssname (ssget (polar (getpoint "Give a point") ( / pi 2) 12) '((0 . "INSERT"))) 0) )
当图形缩放到在屏幕上占据较小的位置，但是还可以捕捉找到该直线的端点时，
语句的结果是：错误: 参数类型错误: lselsetp nil[/B]