lanwei8300 发表于 2009-12-13 23:42:00

请问如何在lsp中实现点钢筋的统计！

<font face="宋体" size="4">求助，请问如何在lsp中实现点钢筋的统计，如何编写！谢谢各位！</font>

oysh99 发表于 2010-2-8 11:35:00

<p>我也想要，</p><p>先给一个ZML的半成品</p><p>(defun C:TJ ()<br/>&nbsp;&nbsp;&nbsp; (princ "统计线段长度")<br/>&nbsp;&nbsp;&nbsp; (if (setq SS (ssget '((0 . "LWPOLYLINE"))<br/>&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;;<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq LST_LEN '()<br/>&nbsp;&nbsp;&nbsp; I 0<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;;逐个统计<br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength SS)<br/>&nbsp; (setq EN&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (ssname SS I)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LEN&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getdistatparam<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EN<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getendparam EN)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LST_LEN (cons LEN LST_LEN)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (1+ I)<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;;显示输出<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n找到个数：")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ (sslength SS))<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (princ)<br/>)<br/></p>
页: [1]
查看完整版本: 请问如何在lsp中实现点钢筋的统计！