写一段lisp程序，将所选图元Z坐标值全部归零，将所有二维多段线和三维多段线的厚度全部设置为0

在Lisp中编写程序来修改AutoCAD中的图元属性，需要使用AutoCAD的Lisp接口。以下是一个简单的Lisp程序示例，该程序遍历AutoCAD中所有的图元，如果图元是二维或三维多段线，则将其Z坐标值设置为0，并将厚度设置为0。请注意，该程序依赖于AutoCAD的环境和对象模型。

(defun c:ResetZAndThickness (/ ss i ent)
  ;; 选择图元
  (setq ss (ssget "X" '((0 . "LWPOLYLINE") (0 . "POLYLINE"))))
  
  ;; 遍历选择集中的每个图元
  (if ss
    (progn
      (setq i -1)
      (while (setq ent (ssname ss (setq i (1+ i))))
        ;; 获取图元类型并进行处理
        (if (or (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
                (= (cdr (assoc 0 (entget ent))) "POLYLINE"))
          (progn
            ;; 将Z坐标设置为0
            (entmod (subst (cons 10 (list 0 0 0)) (assoc 10 (entget ent)) (entget ent)))
            ;; 将厚度设置为0
            (entmod (subst (cons 39 0) (assoc 39 (entget ent)) (entget ent)))
          )
        )
      )
    )
    (princ "\n没有找到任何图元。")
  )
  (princ)
)

要使用这个Lisp程序，你需要将其代码保存到一个`.lsp`文件中，然后在AutoCAD中加载这个文件。加载后，你可以通过在命令行输入`ResetZAndThickness`来运行这个函数。

请记住，在实际使用这段代码之前，你需要根据实际的AutoCAD版本和API进行必要的调整，因为Lisp接口可能会有所不同。