H帮助：关闭打开的多段线

prodromosm · 发表于 2022-10-16 23:30:32

帮助：关闭打开的多段线，删除额外的顶点，并报告。
嗨，我想选择并关闭一组图层中的所有折线，并在最后删除重叠顶点。如果可能的话，报告在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

[编程交流] H帮助：关闭打开的多段线

发表回复

精选推荐