H帮助：关闭打开的多段线
帮助：关闭打开的多段线，删除额外的顶点，并报告。嗨，我想选择并关闭一组图层中的所有折线，并在最后删除重叠顶点。如果可能的话，报告在eatch层中选择了多少条折线？
(defun c:test ( /)
(setq sel (ssget "_X" (list '(0 . "*POLYLINE") '(8 . "Layer1,Layer2,Layer3"))))
(command "_.PEDIT" "_M" sel "" "_Close" "")
(princ)
(write-line "=========================================================" F)
(write-line " Results " F)
(write-line "=========================================================" F)
(write-line "" F)
(write-line "(selected polylines) polylines from (Layer 1) " F)
(write-line "(selected polylines) polylines from (Layer 2) " F)
(write-line "(selected polylines) polylines from (Layer 3) " F)
(write-line "" F)
(close F)
(startapp "NOTEPAD" txt)
) end defun
页:
[1]