型材米重LSP

Andy_668

有没有高手给个计算铝型材米重的LSP

fan_zh

(defun c:aa(/ en)
   (prompt "请选择多段线")
  (while
    (setq en(ssname (ssget ":s" '((0 . "lWPOLYLINE,polyline"))) 0))
  (command ".area" "o" en)
  (princ "\n")
  (princ (rtos (/ (getvar 'area) 1000000) 2 16))
  (princ "    铝型材线密度为")
  (princ (* (getvar 'area) 2.73))
  (princ "克/米")
  (princ "\n请选择多段线")
  ))

Andy_668

fan_zh 发表于 2025-7-2 10:32
(defun c:aa(/ en)
   (prompt "请选择多段线")
  (while

谢谢大佬的回复