[编程交流] 适用于所有CAD LISP Kings

(defun c:dimsum ( / i s x )
   (if (setq s
           (ssget
              '(   (0 . "DIMENSION")
                   (-4 . "<OR")
                       (70 . 000)
                       (70 . 001)
                       (70 . 032)
                       (70 . 033)
                       (70 . 128)
                       (70 . 129)
                       (70 . 160)
                       (70 . 161)
                   (-4 . "OR>")
               )
           )
       )
       (progn
           (setq x 0.0)
           (repeat (setq i (sslength s))
               (setq x (+ x (cdr (assoc 42 (entget (ssname s (setq i (1- i))))))))
           )
           (princ (strcat "\nTotal of " (itoa (sslength s)) " Dimensions: " (rtos x)))
       )
   )
   (princ)
)