(DEFUN C:cbj () (PRINC "查直径及个数") (setq ss (ssget ((0 . "CIRCLE")))) (setq i 0 n 0 zj-j nil) (repeat (sslength ss) (setq el (entget (ssname ss i))) (setq zj (read (rtos (cdr (assoc 40 el)) 2 4))) 获得直径 (print zj) (setq zj-j (cons zj zj-j)) (print zj-j) (setq i (1+ i)) ) (setq zj-h (VL-SORT zj-j <)) (repeat (length zj-h) (setq zj-n (- (length zj-j) (length (vl-remove-if (lambda (x) (= x (nth n zj-h))) zj-j)))) (print (strcat "直径" (itoa (nth n zj-h)) " " (itoa zj-n) "个")) (setq n (1+ n)) ) (princ

cbj.lsp

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．