直接贴代码:实现自动闭合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)
)