如何用cad加载这个LSP？

需加载统计块数命令，创建一个文本文档，把下面的内容复制进去，保存-退出-修改文件名后缀为lsp文件，用cad加载这个lsp，执行命令BN-选择要统计的块（点选一个样本），框选-右键后命令栏就有了。
;;; 统计图块
(defun C:BN ( )
(princ "\n请选择图块")
(seleblk) ;选择块
(setq blkname (cdr (assoc 2 (entget blk)))) ;得到块名
(setq ss1 (ssget (list (cons 2 blkname))))
(setq blknumber (sslength ss1))
;(textscr)
(princ "你选择的图块名为 ")(princ blkname)(princ " 共有 ")(princ blknumber)(princ "个")(prin1)
)
(defun seleblk()
(setq blk (car (entsel "\nSelect Source BLOCK:")))
(if (/= "INSERT" (cdr (assoc 0 (entget blk))))
(progn
(princ "\n你选择的不是块，请重新选择")
(seleblk)
)
)
)

1、输入命令APPLOAD并空格。

2、路径中找到并选中LSP文件，点击加载。

3、点击始终加载。

4、加载成功后，点击内容。

5、点击添加在选择一遍LSP文件，点击关闭使用即可。

注意事项：

CAD技术已经广泛地应用在机械、电子、航天、化工、建筑等行业。并行设计、协同设计、智能设计、虚拟设计、敏捷设计、全生命周期设计等设计方法代表了现代产品设计模式的发展方向。