【CAD上怎么算一个图层的所有线段的长度之和（转）】

答案:2 悬赏:0 手机版

解决时间 2021-02-10 19:02

提问者网友：黑米和小志
2021-02-09 23:18

最佳答案

五星知识达人网友：逐風
2021-02-09 23:55

(defun C:TEST (/ CURVE TLEN SS N SUMLEN)(vl-load-com)(setq SUMLEN 0)(setq SS (ssget '((0 .CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC))))(setq N 0)(repeat (sslength SS)(setq CURVE (vlax-ename-vla-object (ssname SSN)))(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparamCURVE)))(setq SUMLEN (+ SUMLEN TLEN))(setq N (1+ N)))(princ (strcat \n共选择 (itoa (sslength SS)) 条线段. 线段总长: (rtosSUMLEN 2 3) 豪米.))(princ))将以上代码复制在记事本内后“另存为”→“统计线段长度.lsp”打开CAD,运行“appload”命令加载刚保存的“统计线段长度.lsp”文件按命令提示“程序：统计线段长度命令：test”选择要统计长度的线段即可.

全部回答

1楼网友：痴妹与他
2021-02-10 00:40

我好好复习下

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

【CAD上怎么算一个图层的所有线段的长度之和 （转）】

【CAD上怎么算一个图层的所有线段的长度之和（转）】