Lisp实现多义线闭合

直接贴代码：实现自动闭合lay图层中的多义线，需要选择lay

(defun bihe(lay / s l i h e en p70)

  (setq s (ssget "x" (list (cons 0 "lw*") (cons 8 lay))))
  (if s
    (progn
      (setq l (sslength s))
      (setq i 0
        j 0
      )
      (while (< i l)
    (setq e (ssname s i))
    (setq en (entget e))
    (setq p70 (cdr (assoc 70 en)))
    (if (or (= p70 0) (= p70 128));0或128表示未闭合
      (progn
        (command "pedit" e "c" "");闭合多义线
        (setq j (+ 1 j))
      )
    )
    (setq i (+ i 1))
      )
    )
  )
  (princ "已找到未闭合多义线：")
  (princ j)
  (princ)
)