[求助]：多一线跟随程序出错

heaven77

同志们
这是怎么回师呀

(DEFUN C:FF ()
  (PRINC "\n义线跟随:FF")

  (WHILE (PROGN (SETQ PEN (CAR (ENTSEL "\n指定一条LWPolyline: ")))
                (/= "LWPOLYLINE" (CDR (ASSOC 0 (ENTGET PEN))))
         )
    (ALERT "所指对象不是LWPolyLine，请重新指定...")
  )

  (SETQ OBJ   (ENTSEL "\n指定阵列对象:")
        ENTN  (CAR OBJ)
        BASE  (GETPOINT "\n指定基点:")
        DLT   (GETREAL "\n指定阵列间距:")
        PEL   (ENTGET PEN)              ;取出对象数据表
        PEL   (MEMBER '(100 . "AcDbPolyline") PEL) ;取出其中的有关数据
        TOTAL (- (CDR (ASSOC 90 PEL)) 1)     ;取出控制点数量        
        INDEX 6                         ;数据读取序号初值      
  )

  (REPEAT TOTAL
    (SETQ VT1  (CDR (NTH INDEX PEL))    ;取出控制点点位
          VT2  (CDR (NTH (+ INDEX 4) PEL))
          SITA (* (/ 180 PI) (ANGLE VT1 VT2))
          DIS  (DISTANCE VT1 VT2)
          NUM  (+ (FIX (/ DIS DLT)) 1)
          MOD  (REM DIS DLT)
          N    -1
    )
    (REPEAT NUM
      (SETQ N      (+ N 1)
            INSERT (POLAR VT1 SITA (* N DLT))
      )
      (COMMAND "POINT" INSERT)
      (COMMAND "COPY" ENTN "" BASE INSERT)
      ;;(COMMAND "ROTATE" (ENTLAST) "" INSERT SITA)
    )
    (SETQ INDEX (+ 4 INDEX))
  )
  (PRINC)
)

                                        ; 0  实体类型     5 实体索引名       67                  8  层名
                                        ; 90 控制点数    70 0开口 1封闭    43                38 高度
                                        ; 39 厚度        40 起点线宽          41 末点线宽        
                                        ; 10 点位
                                        ; 42 弧段弓弦比 = 弓高/(弦长/2)