[LISP函数]：我是作电力线路设计的，请问能否通过lisp统计出图纸的设备数量？

keleboy

我是作电力线路设计的，请问能否通过lisp统计出图纸的设备数量？

XDSoft

说说你的图纸设备是什么实体，是块？ 是什么图层？等等

如果你的设备和其他实体比如一般的线分不清，那怎么统计？

详细说说吧，把你的DWG压缩下，用附件传到论坛，大家看看。

还有，你想怎么统计？

keleboy

如何将此图的电杆和线路长度统计出来？

XDSoft

最初由 keleboy 发布
[B]如何将此图的电杆和线路长度统计出来？ [/B]

你截个图片吧，传到论坛吧，在图上标出你要统计什么，因为很多朋友都不是这个专业的，最好说的详细些，大家才好帮忙。

keleboy

图中的小圆圈代表电杆，上面的数字如“23#”代表电杆序号；
虚线代表线路，线路上面的数字代表此线路的长度，线路下面的”400v“代表低压等级，LGJ-35代表导线型号。目的是想编个程序能统计出电杆的数量和线路总长度？

keleboy

图中的小圆圈代表电杆，上面的数字如“23#”代表电杆序号；
虚线代表线路，线路上面的数字代表此线路的长度，线路下面的”400v“代表低压等级，LGJ-35代表导线型号。目的是：想编个程序能统计出电杆的数量和线路总长度？

XDSoft

最初由 keleboy 发布
[B]图中的小圆圈代表电杆，上面的数字如“23#”代表电杆序号；
虚线代表线路，线路上面的数字代表此线路的长度，线路下面的”400v“代表低压等级，LGJ-35代表导线型号。目的是想编个程序能统计出电杆的数量和线路总长?.. [/B]

看了你的这个图，有些麻烦

1、你所有的实体都是画在0层
2、长度也不是按照比例（不能通过量虚线获得）
   而上面的长度数值下面的低压等级数也都是红色（没有办法区分）

电线杆相对好求，因为只有这个是圆。

你能不能建立个规则，把上面不好区分的，都分别放到相应的图层上（或者哪怕一个层，要用不用的颜色等能区分开）？

这样才好用程序解决。

keleboy

颜色用哪种都可以。请问电杆怎样统计，能详细点吗？谢谢！

XDSoft

最初由 keleboy 发布
[B]颜色用哪种都可以。请问电杆怎样统计，能详细点吗？谢谢！ [/B]

习惯还是你自己定：）

统计线杆就一行代码就可以（只要你保证0层上没有其他不是电线杆的圆）

试试在命令行后敲入：

(sslength (ssget "x" '((8 . "0")(0 . "circle"))))

keleboy

能否将此语句设计的更“智能”点，就是说仅仅统计代表电杆的圆？

XDSoft

最初由 keleboy 发布
[B]能否将此语句设计的更“智能”点，就是说仅仅统计代表电杆的圆？ [/B]

：）

要让程序“智能”，需要你组织好你的电线杆啊，

你现在的电线杆是圆，在0层上。

那么其他的也在0层的，圆（不是电线杆），你怎么让程序知道它是还是不是呢？

重要的是：你能告诉程序这个东西就是“电线杆”不是别的。
组织的方法有很多种，比如你可以把电线杆专门放到一个图层上、或者你就一个唯一的颜色来画这个电线杆等等。

keleboy

假如电线杆是红色的怎样来实现？

XDSoft

最初由 keleboy 发布
[B]假如电线杆是红色的怎样来实现？ [/B]

如果只用颜色来区分：

(sslength (ssget "x" '((62 . 1)(0 . "circle"))))

如果同时加上层限制（比如dxg层）：

(sslength (ssget "x" '((62 . 1)(8 . "dxg")(0 . "circle")))

说明：

上面层和颜色、实体类型是“与”的关系，那么写。
"x"如果你去掉，那么就可以允许你用鼠标去选部分。

62代表颜色的组码，1代码红色的颜色号。
这要求你必须是给实体付了颜色，而不是随层的颜色。
（颜色随层，指的是图层设定了颜色，那么在这个图层上绘制的实体默认颜色就是层的颜色，这时候，你就不能用组码62那么选择，使用组码62只有你通过chprop等命令给实体专门付给颜色时候才可以用）

keleboy

请问黄色是几号？

XDSoft

最初由 keleboy 发布
[B]请问黄色是几号？ [/B]

输入COLOR命令，看下面的对话框：

从1开始排

                               
登录/注册后可看大图

AUTOCAD是256色系统，颜色号从1－255，你可以用命令chprop修改实体的颜色，任意输入1－255之间的数，就可以看到到底是什么颜色了。常用就是是1－7，足够了。