CAD机电算量插件

bloodfog

CAD插件通过多线段或者圆等长度，来检索类似图形元素(功能：统计机电设备用量)
使用方法
1、AP导入 插件

AP命令导入插件

2、js命令调用
输入  最小值 和 最大值 后选取对象，开始检索 算出 数量



演示结果42个

源码

[Asm] 纯文本查看 复制代码

;使用方法  输入js 输入最小值和最大值
(princ "\n程序：长度检索图形数量 命令：js  使用方法根据提示输入最小值和最大值选取要过滤对象")
(defun c:js (/ autolong1 longmin ss autolong1 i len en)
(SETQ autolong1 NIL)
(initget 7)
(setq longmin (getreal "\n请输入最小值:"))
(setq longmax (getreal "\n请输入最大值:"))
  
(if (setq autolong (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (progn
  (setq i -1 autolong1 (ssadd))
  
  (repeat (sslength autolong)
   (command ".lengthen" (setq en(ssname autolong (setq i (1+ i)))) 0.0 "")
   (setq len(getvar "perimeter"))
   (if (and (> len longmin) (< len longmax))
    (ssadd en autolong1)
   );end if
  );end repeat
);end progn
  )
(sssetfirst nil autolong1)
  (princ)
)

bloodfog

joes7 发表于 2016-8-2 10:35
现在不都是块吗，不过有些确实不是块。这个东西就比较实用了

快速查找块的前提是 命名或者颜色 什么 都相同，有些 恶心的设计院 画的 图纸，相同的块 多种命名。就是因为这个才写的 这小玩意，把块 炸开 然后 重新 拼接

bloodfog

xx2882830 发表于 2016-7-26 16:46
最小值和最大值是什么意思？

多线段或者圆等长度 的 区间，块的化 要 先 炸开 然后 合并多线段 在查找长度，相同 设备的图例长度是相同的，通过匹配长度 来 算量

paolos

cad下的安装算量就是这样一个个插件组成的，谢谢楼主分享

官垌村

官垌村很支持！

bloodfog

paolos 发表于 2016-7-26 00:27
cad下的安装算量就是这样一个个插件组成的，谢谢楼主分享

同事算量太痛苦，就写点小插件 减轻下 他们的工作量了

燃香小狼

哈哈  支持一个!!!!!!!!!!!!!!

heavyrain520

虽然用CAD，但是机电类用不上，还是感谢楼主

5735002

这个工具不错，CAD的应用插件还真是不少！

Mr_zhou

大神能把钢构CAD里面那个统计提取出来嘛

暖于情

这个工具不错，支持一下

飞翔yh007

能不能做成软件方便一点啊。