圆孔分层并统计数量

zwq8629

如图：圆孔按直径分层改颜色，最后统计数量表格输出





已有两工具：圆孔分层（但是图层显示的是直径，要求图层名为颜色号）  统计圆孔：没有表格输出

合成一个插件工具

ssyfeng

是不是这个效果：

zwq8629

请大师指点

水洗可口可乐

圆孔分层FKL.lsp  这个我用了下 不是按直径分图层的

zwq8629

水洗可口可乐 发表于 2023-6-28 19:43
圆孔分层FKL.lsp  这个我用了下 不是按直径分图层的

可以用啊

水洗可口可乐

zwq8629 发表于 2023-6-28 19:50
可以用啊

可能是我CAD的问题

http://bbs.mjtd.com/forum.php?mo ... hlight=%CD%B3%BC%C6快速统计圆孔数量

水洗可口可乐

http://bbs.mjtd.com/forum.php?mo ... hlight=%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)
)

zwq8629

水洗可口可乐 发表于 2023-6-28 20:14
;;;统计相同矩形边长的数量.
;;;编写日期2013-07-05
;;;编写: CADMAN

这个你的找大师才行

south

期待有合并修改版本的，也追加明经币。表格不要固定死大小，拖动文字与表格缩放大小会更加方便！