[求助]帮忙完善这段LISP代码

花锦绣

说明：

这段代码用来标示线段码数（1米=1.094码）

运行后，先写一点文字，然后点线段，代码将线段长度经4舍5入后改写文字。

问题：

运行后，能改写文字，但有出错提示，改了N次，找不着门道。

请大家不吝赐教，完善这段代码，谢谢。

caoyin

    (WHILE (< ZM1 ZM)
        (IF (/= (CAR (CAR ED2)) 10) (SETQ ED2 (CDR ED2)))
        (IF (= (CAR (CAR ED2)) 10)

        ....

        红色部分如果返回 nil，则 F11 为nil

    F11 为nil，后面(distance f11 f12)的就出错

   。。。

xiaojinwen

看看这个

下面是代码：

花锦绣

多谢楼上两位了，我发现问题所在，是多了这句

(ENTUPD ED1)

对(ENTUPD ED1) 和(ENTMOD ED1) 和用法还是不太清楚，画蛇添足了。