代码求助-采用lisp统计CAD图中不同名称块的数量

yimiyangguang55

写了一段AutoLISP代码用来统计AutoCAD中所有图块的数量，并根据图块名称进行分类统计。但是运行一直报错错误: 参数类型错误: numberp: nil，，请高人指点怎么调试，谢谢了。

2. (defun c:count-blocks-by-name ()
   
3.   (setq ss (ssget "X" '((0 . "INSERT"))))
   
4.   (if (not ss)
   
5.     (alert "没有找到图块。")
   
6.     (progn
   
7.       (setq block-count (list)) ; 初始化一个空的列表来存储图块名称和计数
   
8.       (repeat (sslength ss)
   
9.         (setq ent (ssname ss i))
   
10.         (setq obj (entget ent))
    
11.         (if obj ; 确保 obj 不是 nil
    
12.           (progn
    
13.             (setq block-name (cdr (assoc 2 obj))) ; 获取图块名称
    
14.             ;; 检查 block-name 是否为文字类型，如果是，则直接使用
    
15.             ;; AutoLISP 中字符串默认为文字类型，不需要额外转换
    
16.             (setq found nil)
    
17.             (foreach b block-count
    
18.               (if (and b (= (cdr b) block-name))
    
19.                 (progn
    
20.                   (setq found t)
    
21.                   (setq count (car b))
    
22.                   (setq new-count (+ count 1))
    
23.                   (setcar b new-count)
    
24.                 )
    
25.               )
    
26.             )
    
27.             (if (not found)
    
28.               ;; 添加新图块名称和计数，初始化计数为1
    
29.               (setq block-count (cons (cons 1 block-name) block-count))
    
30.             )
    
31.           )
    
32.         )
    
33.       )
    
34.       ;; 对列表进行排序，这里使用长度排序
    
35.       (setq block-count (sort block-count '(lambda (a b) (> (car a) (car b)))))
    
36.       (setq total-count 0)
    
37.       (foreach b block-count
    
38.         (setq count (car b))
    
39.         (setq block-name (cdr b))
    
40.         (setq total-count (+ total-count count))
    
41.         (alert (strcat "图块 '" block-name "' 的数量: " (itoa count)))
    
42.       )
    
43.       (alert (strcat "总图块数量: " (itoa total-count)))
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )

(defun c:count-blocks-by-name ()<br />   (setq ss (ssget "X" '((0 . "INSERT"))))<br />   (if (not ss)<br />     (alert "没有找到图块。")<br />     (progn<br />       (setq block-count (list)) ; 初始化一个空的列表来存储图块名称和计数<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i))<br />         (setq obj (entget ent))<br />         (if obj ; 确保 obj 不是 nil<br />           (progn<br />             (setq block-name (cdr (assoc 2 obj))) ; 获取图块名称<br />             ;; 检查 block-name 是否为文字类型，如果是，则直接使用<br />             ;; AutoLISP 中字符串默认为文字类型，不需要额外转换<br />             (setq found nil)<br />             (foreach b block-count<br />               (if (and b (= (cdr b) block-name))<br />                 (progn<br />                   (setq found t)<br />                   (setq count (car b))<br />                   (setq new-count (+ count 1))<br />                   (setcar b new-count)<br />                 )<br />               )<br />             )<br />             (if (not found)<br />               ;; 添加新图块名称和计数，初始化计数为1<br />               (setq block-count (cons (cons 1 block-name) block-count))<br />             )<br />           )<br />         )<br />       )<br />       ;; 对列表进行排序，这里使用长度排序<br />       (setq block-count (sort block-count '(lambda (a b) (> (car a) (car b)))))<br />       (setq total-count 0)<br />       (foreach b block-count<br />         (setq count (car b))<br />         (setq block-name (cdr b))<br />         (setq total-count (+ total-count count))<br />         (alert (strcat "图块 '" block-name "' 的数量: " (itoa count)))<br />       )<br />       (alert (strcat "总图块数量: " (itoa total-count)))<br />     )<br />   )<br />   (princ)<br /> )

你有种再说一遍

给你一个c#代码看看,主要这个map在lisp上面实现困难,所以不建议用lisp做这个功能...
这里的代码还有两个优化的地方.
一个缺少并行.
一个如果在画图的时候就加入集合,岂不是0秒获取.

1. using Autodesk.AutoCAD.ApplicationServices;
   
2. using Autodesk.AutoCAD.DatabaseServices;
   
3. using Autodesk.AutoCAD.EditorInput;
   
4. using Autodesk.AutoCAD.Runtime;
   
5. using System;
   
6. using System.Collections.Generic;
   
7. using System.Diagnostics;
   
8. using System.Linq;
   
9. using System.Text;
   
10. using System.Threading.Tasks;
    
11. 
    
12. namespace 统计块参照分类
    
13. {
    
14.     public class Class1
    
15.     {
    
16.         
    
17.         [CommandMethod("test2")]
    
18.         public void BlkRefCount2()
    
19.         {
    
20.             var doc = Application.DocumentManager.MdiActiveDocument;
    
21.             var acDocEd = doc.Editor;
    
22.             var db = doc.Database;
    
23.             Dictionary<string, int> map = new Dictionary<string, int>();
    
24.             Stopwatch stopwatch = new Stopwatch();
    
25.             stopwatch.Start();
    
26.             using (Transaction trans = db.TransactionManager.StartTransaction())
    
27.             {
    
28.                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);//BlockTableId 一定是ok
    
29.                 foreach (ObjectId btrObjId in bt)//遍历所有的块表记录,不是当前块表 db.CurrentSpaceId,因为布局中也可能会有块
    
30.                 {
    
31.                     if (!btrObjId.IsOk()) continue;
    
32.                     BlockTableRecord btr = (BlockTableRecord)trans.GetObject(btrObjId, OpenMode.ForRead);
    
33.                     foreach (ObjectId obj in btr)
    
34.                     {
    
35.                         if (!obj.IsOk()) continue;
    
36.                         Entity ent = (Entity)trans.GetObject(obj, OpenMode.ForRead);
    
37.                         if (ent is BlockReference blkref)
    
38.                         {
    
39.                             var name = blkref.GetBlockName();
    
40.                             if (!map.ContainsKey(name))
    
41.                             {
    
42.                                 map.Add(name, 0);
    
43.                             }
    
44.                             map[name]++;
    
45.                         }
    
46.                     }
    
47.                 }
    
48.             }
    
49.             stopwatch.Stop();
    
50.             TimeSpan elapsed = stopwatch.Elapsed;
    
51.             double elapsedMillisecondsDouble = stopwatch.ElapsedMilliseconds;
    
52.             double microsecondsFraction = (elapsedMillisecondsDouble - Math.Truncate(elapsedMillisecondsDouble)) * 1000; // 获取毫秒的小数部分并转换为微秒  
    
53.             acDocEd.WriteMessage($"程序运行了 {stopwatch.Elapsed.Hours:00}:{stopwatch.Elapsed.Minutes:00}:{stopwatch.Elapsed.Seconds:00}.{elapsedMillisecondsDouble:0.000} 秒\n");
    
54.             foreach (var pair in map)
    
55.             {
    
56.                 acDocEd.WriteMessage($"Name: {pair.Key}, Count: {pair.Value}\n");
    
57.             }
    
58.         }
    
59.     }
    
60.     public static partial class BlockHelper
    
61.     {
    
62.         /// <summary>
    
63.         /// 动态块真实块名获取
    
64.         /// </summary>
    
65.         /// <param name="brRec">块参照</param>
    
66.         /// <returns>成功返回:块的真实名称,失败返回:null</returns>
    
67.         // 1.块的Z比例是0就会令动态块变成普通块,那么导致判断动态块失效
    
68.         // 2.brRec.IsDynamicBlock 如果是动态块这句会报错:eInvalidObjectId
    
69.         //   重复空格执行上次报这个错误,应该在所有GetObject位置写.Dispose();
    
70.         public static string GetBlockName(this BlockReference blkref)
    
71.         {
    
72.             string blockName = string.Empty;
    
73.             if (blkref.DynamicBlockTableRecord.IsOk())
    
74.             {
    
75.                 // 动态块表记录可以获取 动态块名 也可以获取 普通块名
    
76.                 var btRec = blkref.DynamicBlockTableRecord.GetObject(OpenMode.ForRead) as BlockTableRecord;
    
77.                 blockName = btRec.Name;
    
78.                 btRec.Dispose();
    
79.             }
    
80.             return blockName;
    
81.         }
    
82.     }
    
83.     public static partial class EntityEdit
    
84.     {
    
85.         /// <summary>
    
86.         /// id有效,未被删除
    
87.         /// </summary>
    
88.         /// <param name="id"></param>
    
89.         /// <returns></returns>
    
90.         public static bool IsOk(this ObjectId id)
    
91.         {
    
92.             return !id.IsNull && id.IsValid && !id.IsErased && !id.IsEffectivelyErased && id.IsResident;
    
93.         }
    
94.     }
    
95. }

using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Runtime;<br /> using System;<br /> using System.Collections.Generic;<br /> using System.Diagnostics;<br /> using System.Linq;<br /> using System.Text;<br /> using System.Threading.Tasks;<br /> <br /> namespace 统计块参照分类<br /> {<br />     public class Class1<br />     {<br />         <br />         [CommandMethod("test2")]<br />         public void BlkRefCount2()<br />         {<br />             var doc = Application.DocumentManager.MdiActiveDocument;<br />             var acDocEd = doc.Editor;<br />             var db = doc.Database;<br />             Dictionary<string, int> map = new Dictionary<string, int>();<br />             Stopwatch stopwatch = new Stopwatch();<br />             stopwatch.Start();<br />             using (Transaction trans = db.TransactionManager.StartTransaction())<br />             {<br />                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);//BlockTableId 一定是ok<br />                 foreach (ObjectId btrObjId in bt)//遍历所有的块表记录,不是当前块表 db.CurrentSpaceId,因为布局中也可能会有块<br />                 {<br />                     if (!btrObjId.IsOk()) continue;<br />                     BlockTableRecord btr = (BlockTableRecord)trans.GetObject(btrObjId, OpenMode.ForRead);<br />                     foreach (ObjectId obj in btr)<br />                     {<br />                         if (!obj.IsOk()) continue;<br />                         Entity ent = (Entity)trans.GetObject(obj, OpenMode.ForRead);<br />                         if (ent is BlockReference blkref)<br />                         {<br />                             var name = blkref.GetBlockName();<br />                             if (!map.ContainsKey(name))<br />                             {<br />                                 map.Add(name, 0);<br />                             }<br />                             map[name]++;<br />                         }<br />                     }<br />                 }<br />             }<br />             stopwatch.Stop();<br />             TimeSpan elapsed = stopwatch.Elapsed;<br />             double elapsedMillisecondsDouble = stopwatch.ElapsedMilliseconds;<br />             double microsecondsFraction = (elapsedMillisecondsDouble - Math.Truncate(elapsedMillisecondsDouble)) * 1000; // 获取毫秒的小数部分并转换为微秒  <br />             acDocEd.WriteMessage($"程序运行了 {stopwatch.Elapsed.Hours:00}:{stopwatch.Elapsed.Minutes:00}:{stopwatch.Elapsed.Seconds:00}.{elapsedMillisecondsDouble:0.000} 秒\n");<br />             foreach (var pair in map)<br />             {<br />                 acDocEd.WriteMessage($"Name: {pair.Key}, Count: {pair.Value}\n");<br />             }<br />         }<br />     }<br />     public static partial class BlockHelper<br />     {<br />         /// <summary><br />         /// 动态块真实块名获取<br />         /// </summary><br />         /// <param name="brRec">块参照</param><br />         /// <returns>成功返回:块的真实名称,失败返回:null</returns><br />         // 1.块的Z比例是0就会令动态块变成普通块,那么导致判断动态块失效<br />         // 2.brRec.IsDynamicBlock 如果是动态块这句会报错:eInvalidObjectId<br />         //   重复空格执行上次报这个错误,应该在所有GetObject位置写.Dispose();<br />         public static string GetBlockName(this BlockReference blkref)<br />         {<br />             string blockName = string.Empty;<br />             if (blkref.DynamicBlockTableRecord.IsOk())<br />             {<br />                 // 动态块表记录可以获取 动态块名 也可以获取 普通块名<br />                 var btRec = blkref.DynamicBlockTableRecord.GetObject(OpenMode.ForRead) as BlockTableRecord;<br />                 blockName = btRec.Name;<br />                 btRec.Dispose();<br />             }<br />             return blockName;<br />         }<br />     }<br />     public static partial class EntityEdit<br />     {<br />         /// <summary><br />         /// id有效,未被删除<br />         /// </summary><br />         /// <param name="id"></param><br />         /// <returns></returns><br />         public static bool IsOk(this ObjectId id)<br />         {<br />             return !id.IsNull && id.IsValid && !id.IsErased && !id.IsEffectivelyErased && id.IsResident;<br />         }<br />     }<br /> }

yimiyangguang55

你有种再说一遍 发表于 2024-6-6 19:05
给你一个c#代码看看,主要这个map在lisp上面实现困难,所以不建议用lisp做这个功能...
这里的代码还有两个优 ...

谢谢大佬。这个可以直接在CAD里面调用吗，改成lisp直接调用。

yimiyangguang55

你有种再说一遍 发表于 2024-6-5 20:18
但是这个题目很有意思啊,至于为什么,可能你感觉不到,我之后再来告诉你

大佬，看了你的连载文章，我是完全看不懂，但是感觉说的深度不是一般人能够企及的。膜拜下

咏郡

还缺函数呀

你有种再说一遍

扣莲哦,怎么写不出呢

kozmosovia

BCOUNT命令就能干的事，何必自己撸代码

yimiyangguang55

kozmosovia 发表于 2024-6-5 16:46
BCOUNT命令就能干的事，何必自己撸代码

我用的是autocad 2020,  好像CAD2022 以上有count命令可以统计

yimiyangguang55

kozmosovia 发表于 2024-6-5 16:46
BCOUNT命令就能干的事，何必自己撸代码

YYDS，试了下Bcount命令，低版本CAD也可以统计，谢谢大哥

你有种再说一遍

yimiyangguang55 发表于 2024-6-5 18:09
YYDS，试了下Bcount命令，低版本CAD也可以统计，谢谢大哥

但是这个题目很有意思啊,至于为什么,可能你感觉不到,我之后再来告诉你

chslwj521

CAD2024自带这个功能，自动生成数量统计表格，删除块数量也会改。