查询代码如下：
(defun c:LL ()
(setvar "cmdecho" 1)
烫喇霰嘴(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(setq i 0)
(setq ll 0)
(repeat (sslength en)
(setqss(ssname en i))
(setq endata (entget ss))
(command "lengthen" ss "")
(setq dd (getvar "perimeter"))
(setq ll (+ dd ll))
(setq i (1+ i)))
(princ "所选线条总长为：")
(princ ll)
(princ))
扩展资料：
注意事项
查询两点距离及方位功能多了两个参数的查询：
1、线长在当前比例下的图纸上尺寸
2、线两个端点的方位角
系统函数strlen()，需包含头文件string.h
#include<stdio.h>#include<string.h>
intmain()
{intn;chara[100];
scanf("%s",a);
n=strlen(a);
printf("串长为%d",n);
return0;
}其二，是检测'\0'的位置：
#include<stdio.h>
intmain()
{intn;
chara[100];
scanf("%s",a);
for(n=0;s[n]!='\0';n++);
printf("串长为%d",n);
return0;
}