编程求助如何计算n根直线的长度，并且列表、归类、汇总

hjqpdga

编程求助如何计算n根直线的长度，并且列表、归类、汇总

ZZXXQQ

下面的程序可以做到按长度排序，并将结果存入文件中。楼主的归类是按什么进行的？程序对选中的图元(PLINE,SPLINE,LINE,ARC,CIRCLE)有效，如果楼主只要对直线进行处理，可以加入判断分离无用图元。 (DEFUN C:TT (/ SS SS_L N LENN LEN I J LLIST TEMPL IJ)
(setq ss (ssget))
(setq ss_l (sslength ss))
(setq n 0)
(setq lenn 0)
(SETQ LLIST (LIST))
(repeat ss_l
(command "lengthen" (ssname ss n) "")
(setq len (getvar "perimeter"))
(SETQ LLIST (CONS (LIST LEN (SSNAME SS N)) LLIST))
(setq lenn (+ len lenn))
(setq n (1+ n)))
(princ "\nThe total Length is 您所选到的像素总长是 : ")
(princ lenn)
(Princ "(mm)....\n")
(SETQ LLIST (REVERSE LLIST)
SL (LENGTH LLIST) I 0)
(WHILE (< I SL)
(SETQ LEN1 (CAR (NTH I LLIST)) IJ I J (1+ I))
(WHILE (< J SL)
(SETQ LEN2 (CAR (NTH J LLIST)) J (1+ J))
(IF (< LEN2 LEN1) (SETQ LEN1 LEN2 IJ (1- J)))
)
(IF (> IJ I) (PROGN
(SETQ TEMPL1 (LIST) TEMPL (LIST))
(REPEAT I (SETQ TEMPL1 (CONS (CAR LLIST) TEMPL1) LLIST (CDR LLIST)))
(REPEAT (- IJ I)
(SETQ TEMPL (CONS (CAR LLIST) TEMPL) LLIST (CDR LLIST))
)
(SETQ LLIST (APPEND (REVERSE TEMPL1) (LIST (CAR LLIST)) (REVERSE TEMPL) (CDR LLIST)))
))
(SETQ I (1+ I))
)
(IF (SETQ F (OPEN "LENTABLE.TXT" "w")) (PROGN
(SETQ I 0)
(REPEAT SL
(PRINC (NTH I LLIST) F) (PRINC (NTH I LLIST)) (PRINC "\n") (PRINC "\n" F)
(SETQ I (1+ I))
)
(PRINC "\nTotal Length = " F) (PRINC LENN F) (PRINC "\n" F)
(CLOSE F)
))
(princ)
)
(PRINC "\n输入TT执行求选集的总长，排序结果在LENTABLE.TXT文件中。")
(PRINC)