1楼：匿名用户
这就是与你动画效果一样的插件 命令br
2楼：匿名用户
我有cad的块统计数量并列表的lisp插件，很好使用的
3楼：歃血修罗
兄弟 这个插件你有了吗
4楼：匿名用户
图块编辑神器--快块程序v2018a-----------改块飞快！命令 kj-块加 kq-块减 km-块改名 ktj-块统计 kw-块内改文 ks-块改色 kt-填充新建层改色 kk-框选变块 kh-块替换 kx-快速动态变虚线 kd-快速动态变点划线 zx-图形中心 z0-z轴归零
使用方法：解压后在cad里面： 工具－－>加载应用程序－－>选择 快块v2018a.vlx;加载后输入命令即可。
求一个cad的块统计数量并列表的lisp插件原件
5楼：匿名用户
cad的块统计插件，我有，很好使用
6楼：匿名用户
你这个就是插件的嘛，还需要什么。
求cadlisp插件，可以批量统计圆数量标记字母并列表的lisp插件原件 20
7楼：匿名用户
我可以给你编写cad的lsp程序，可以批量统计圆数量标记字母并列表
cadlisp在统计块时，会在命令行出现统计出的数量，如何把这个数量结果自动打印到cad图纸上？
8楼：cad小苗
lisp程序就这么写的，如果你会改lisp的话没有问题。如果不会改，那就从命令行把数量复制粘贴到文字中吧
9楼：匿名用户
专门有块数量分类统计程序，演示如下：
求一个cad的lisp：一次计算多个封闭线框的面积，并显示每个面积和总面积。
10楼：魔点
;求spline,polyline,lwpolyline,arc面积(defun c:ss ()
(setq 总面积 0)
(setq 总亩数 0)
(setq 面积 0)
(setq 总周长 0)
(setq 周长 0)
(setq k 0)
(setq a nil)
(setq a (ssget))
(setq len (sslength a))(repeat len
(setq name (ssname a k))(setq ent1 (entget name))(setq na (assoc 0 ent1))(setq na (cdr na))
(if (= na "spline")
(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))(setq 总周长 (+ 总周长 周长))))(if (= na "polyline")(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))(setq 总周长 (+ 总周长 周长))))(if (= na "arc")
(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))(setq 总周长 (+ 总周长 周长))))(if (= na "circle")
(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))(setq 总周长 (+ 总周长 周长))))(if (= na "ellipse")
(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))(setq 总周长 (+ 总周长 周长))))(if (= na "line")
(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))复制以下内容到记事本：
(setq 总周长 (+ 总周长 周长))))(if (= na "lwpolyline")(progn
(***mand "area" "o" name)(setq 面积 (getvar "area"))(setq 总面积 (+ 总面积 面积))(setq 周长 (getvar "perimeter"))(setq 总周长 (+ 总周长 周长))))(setq k (+ k 1))
(setq 总亩数 (/ 总面积 666.667)))(print (list "总周长=" 总周长))(print (list "总面积=" 总面积 "平方米" 总亩数 "亩"))
(princ)
)结束复制，保存文件。将文件后缀.txt更改为.lsp。ok。完成，加载应用程序（cad快捷命令ap）。本lisp的快捷命令为：ss
11楼：琴晖皇甫依丝
可以首先把这几个线框做成面域，然后用面域合并命令合并面域。然后总面积就出来了。不用lisp就可以实现了。
求一个cad 单行文本数字批量乘以一个数值的插件或者lisp，批量加减的有过了，注意不是标注是单行文本。
12楼：匿名用户
你既然有了加减的，你可以直接在源程序上改一下的，改成乘以某值就可以了的，很容易的
13楼：匿名用户
你好，能不能把批量加减的插件共享给我下，谢谢
14楼：云盘已死
批量加减的你能发我一份吗 大哥跪求啊
求用cad查找一种图形，相同的图形，查找后显示个数。求一个lisp程序。
15楼：黄涸
这个要求太高了，
一个直线？
一个圆？
一个点？
一个块？
一个多线？
一个图层？
一个颜色？
一个文字？
要知道，要达到这些要求，以上每项都要一个**，全部下来是很要时间的
求cad lisp查找文字后，定位并统计数量 10
16楼：匿名用户
不是我小气，就你这点分，有谁会花那么多时间给你去写这么繁复的lisp？现在的社会，时间就是金钱的啊！
17楼：又一个虾腐
写是不难，可是没时间。毕竟还要花脑子去想。
谁能给我个 自动计算cad图中”一种线“总长的lisp
18楼：匿名用户
不知道你的“一种线”是什么？我这有一个选择一些直线，统计总长度的lisp，供你参考，有问题可追问。
(defun c:tx (/ a b c d e m n n1) ;选择直线,统计总长度
(setq a (ssget)) ;得到选择集
(setq n 0) ;设置循环变量初值,同时也是遍历选择集的指针
(setq m 0) ;设置统计初值
(setq n1 (sslength a)) ;得到选择集长度
(while (< n n1) ;循环开始,以选择集对象数作为循环次数
(progn
(setq b (entget (ssname a n))) ;得到第n个对象的数据库
(setq c (cdr (assoc 10 b))) ;得到直线起点
(setq d (cdr (assoc 11 b))) ;得到直线终点
(setq e (distance c d)) ;得到两点距离,即直线长度
(setq m (+ m e)) ;累加直线长度
(setq n (+ n 1)) ;循环变量加一))
(princ "共有") ;打印结果
(princ (itoa n1))
(princ "条直线，总长度为")
(princ (rtos m 2 4)) ;转换实数为字符串,小数形式,小数点后四位
(princ "。")
(princ))
19楼：
(defun c:dl ( )
(if (null vlax-dump-object)
(vl-load-***)
)(princ "\n选择要进行线长统计的对象")
(if (setq #si 0 &ss (ssget))
(progn
(setq #lc 0 #ll 0 #lp 0 #lr 0 #nc 0 #nl 0 #np 0 #nr 0)
(repeat (sslength &ss)
(setq &cs (vlax-ename->vla-object (ssname &ss #si)) #si (1+ #si))
(cond
((= (vla-get-objectname &cs) "acdbcircle")
(setq #lc (+ #lc (vla-get-circumference &cs)) #nc (1+ #nc))
)((= (vla-get-objectname &cs) "acdbarc")
(setq #lr (+ #lr (vla-get-arclength &cs)) #nr (1+ #nr))
)((= (vla-get-objectname &cs) "acdbpolyline")
(setq #lp (+ #lp (vla-get-length &cs)) #np (1+ #np))
)((= (vla-get-objectname &cs) "acdbline")
(setq #ll (+ #ll (vla-get-length &cs)) #nl (1+ #nl))))
)(princ (strcat "\n选择的 " (itoa (sslength &ss)) " 个对象中:"))
(princ (strcat "\n圆形对象 = " (itoa #nc) " 个,线长 = " (rtos #lc 2 3) " ,"))
(princ (strcat "\n圆弧对象 = " (itoa #nr) " 个,线长 = " (rtos #lr 2 3) " ,"))
(princ (strcat "\n直线对象 = " (itoa #nl) " 个,线长 = " (rtos #ll 2 3) " ,"))
(princ (strcat "\n聚合对象 = " (itoa #np) " 个,线长 = " (rtos #lp 2 3) " ,"))
(princ (strcat "\n所有对象总线长 = " (rtos (+ #lc #lr #ll #lp) 2 3) " ."))))
(princ)
) 命令dl使用,可计算直线，圆形，圆弧，聚合线的线长。
20楼：匿名用户
椭圆和样条曲线也可加进去,
兄弟，可以试着自己加呀。