CAD机电算量插件

CAD插件通过多线段或者圆等长度，来检索类似图形元素(功能：统计机电设备用量)
使用方法
1、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)
)