文件名称:cbj
介绍说明－－下载内容均来自于网络，请自行研究使用
查图中各种直径的圆个数,可以快速查出图上有几种直径，并统计出各种直径的数量-(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))
(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