求助:同时支持输入和选择图元来取得图层

nxchenjk

;;**********************指定层直线长度统计**********************
(defun cayerLine_L(/ LayNames LayName LayList ii ss0 n gxleng nn1 mm1 poit1 poit2 l)
  (setq LayNames(getstring "\n输入*统计直线长度的层名*(可使用通配符如:??line)"))
  (setq LayList (GetLayersLst))
  (setq ii 0)
  (repeat (length LayList)
    (if(wcmatch (strcase(nth ii LayList)) (strcase LayNames))
      (progn
        (setq LayName(nth ii LayList))
        (setq ss0 (ssget "x"(list (cons 0 "line")(cons 8 LayName))))
        (if ss0
          (progn
            (setq n 0)
            (setq gxleng 0 l 0)       
            (repeat (sslength ss0)
              (setq  nn1(ssname ss0 n)
                     mm1(entget  nn1)
                   poit1(cdr(assoc 10 mm1))
                   poit2(cdr(assoc 11 mm1))
                       l(distance poit1 poit2)
              )
              (setq gxleng(+ gxleng l))
              (setq n(+ n 1))
            )
            (princ "\n")(princ LayName)(princ "层,直线总长," )(princ (rtos gxleng 2 3))(princ ",米")
            (setq ss0 nil)
          )
        )
      )
    )
    (setq ii(1+ ii))
  )
  (princ)
)

明_明

少自定义函数，要是有一个，点选直线获取图层就更方便了，统计的长度要是能框选就更完美了。

xyp1964

;; 需要e派系统的支持，慎用

nxchenjk

xyp1964 发表于 2024-3-6 22:18
;; 需要e派系统的支持，慎用

感谢您的回复