AutoLisp程序纠错！

superxzg

程序纠错！
以下程序的作用是获得多个矩形的四个顶点，并输出到文件。
可是我运行后有错误：参数类型错误: lselsetp nil。
望各位大虾指正。（初学lisp，错误可能不止一处）
(DEFUN c:test ()
  (VL-LOAD-COM)
  (PRINC "\n请选择图元:")
  (SETQ    ss     (SSGET '((0 . "rectangle")));获得图形

    filename "ZFXdata.txt"
    fn     (OPEN (STRCAT "e:\My Work" filename) "w")
    index     0
    n     1
  )
  (WRITE-LINE "把矩形的四个顶点输出" fn)
  (WHILE (< index (SSLENGTH ss))
    (SETQ reg_data (ENTGET (CAR (SSNAME ss index)))

    )
                    ;以下为获得矩形的顶点

    (WHILE (SETQ pt (ASSOC 10 reg_data))
      (SETQ reg_data (CDR (MEMBER pt reg_data)))
                    ;以下为顶点的输出
      (WRITE-LINE

    (STRCAT    "矩形"
        (ITOA (1+ index))
        "的四个顶点为:"
        "\n第"
        (ITOA n)
        "点: "
        (VL-PRINC-TO-STRING (CDR pt))
        "."
    )
    fn
      )
      (SETQ n (1+ n))
    )
    (SETQ index (1+ index))
  )
  (CLOSE fn)
)

tcsl9621

用自动运行看看错在哪一行？我没仔细看你的程序。

lijiao

没有0组码为rectangle的对象

superxzg

问题找到了，就是没有rectangle的对象，应该是“lwpolyline”。
另外，循环也有电小问题，就是n的初始值应该在大循环的里面赋值，否则第二个矩形就会出现第5、6、7、8点，望后来者知晓。