圆孔分层并统计数量
本帖最后由 zwq8629 于 2023-6-29 09:19 编辑如图：圆孔按直径分层改颜色，最后统计数量表格输出
已有两工具：圆孔分层（但是图层显示的是直径，要求图层名为颜色号）统计圆孔：没有表格输出
合成一个插件工具
本帖最后由 ssyfeng 于 2023-6-29 11:43 编辑
是不是这个效果：
请大师指点 圆孔分层FKL.lsp这个我用了下 不是按直径分图层的 水洗可口可乐 发表于 2023-6-28 19:43
圆孔分层FKL.lsp这个我用了下 不是按直径分图层的
可以用啊
zwq8629 发表于 2023-6-28 19:50
可以用啊
可能是我CAD的问题
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183607&highlight=%CD%B3%BC%C6快速统计圆孔数量 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=186812&highlight=%CD%B3%BC%C6请教大神写一个统计工具，图形是圆或者多线段总数量*1=多少 图形是圆或者多线段总数量*2=多少这样 ;;;统计相同矩形边长的数量.
;;;编写日期2013-07-05
;;;编写: CADMAN
;;;子函数 （求矩形边长）
;(defun qbc (pts / b h)
;(setq b (distance (car pts) (cadddr pts)))
;(setq h (distance (car pts) (cadr pts)))
;(cons (max b h) (min b h))
;);结束qbc
(defun c:tg ( / bclst pts ss el bc_new i p2 p3 m x1 x2)
(princ "\n请框选:")
(setq ss (ssget '((0 . "circle"))))
(setq i 0 bclst nil pts nil)
(repeat (sslength ss)
(setq el (entget (ssname ss i)))
(setq pts nil)
(foreach pt el (if (= (car pt) 40) (setq pts (cons (cdr pt) pts))))
(setq bclst (cons pts bclst))
(setq i (1+ i))
);repeat
(setq bc_new nil)
(while bclst
(setq m (car bclst) x1 (length bclst))
(setq bclst (vl-remove m bclst))
(setq x2 (length bclst))
(setq n (- x1 x2))
(setq bc_new (cons (list m n) bc_new))
)
(setq p2 (getpoint "\起始位置"))
(setq p3 (polar p2 0 3000))
(command "_.TEXT" "c" (polar p2 (* pi 0.5) 800) "300" "0" "半径");指定书写标题的位置
(command "_.TEXT" "c" (polar p3 (* pi 0.5) 800) "300" "0" "数量")
(foreach bg bc_new ;设定重复次数为新表的长度
(command "_.TEXT" "c" p2 "300" "0" (strcat (rtos (car (car bg)) 2)))
(command "_.TEXT" "c" p3 "300" "0" (cadr bg))
(setq p2 (polar p2 (* pi 1.5) 800))
(setq p3 (polar p2 0 3000))
)
(princ)
) 水洗可口可乐 发表于 2023-6-28 20:14
;;;统计相同矩形边长的数量.
;;;编写日期2013-07-05
;;;编写: CADMAN
这个你的找大师才行 期待有合并修改版本的，也追加明经币。表格不要固定死大小，拖动文字与表格缩放大小会更加方便！