如果您只想添加维度，请尝试以下操作：
(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)
)
页:
1
[2]