Description: (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
To Search:
File list (Check if you may need any files):
cbj.lsp
Download