[讨论]：程序编制的思路及优化问题.

kohi

实际工作中有若干图纸, 每张有长短不同或相同的直线.客户要求按直线长短归类编号,统计所有图纸的直线, 最后列表.
就单个功能来说, 用VLISP编程应该不算太难,但如何下手? 思路是怎样? 初步编好后如何优化? 请高手指教.

zxq0220

1、（事先建立包含要统计的图形文件名的文件）在LISP中打开已经建立的文件；
2、循环；
3、建立命令返回点(command ".undo" "be")；
4、读入第一个文件名；
5、在新图中插入要统计的图纸；（插入时图名前加＊号，这时图是散的。）
6、用SSGET函数取得所有直线；
7、计算第一条直线的长度，并组织广义表（长度　数量）；
8、进入循环；
9、计算每条直线的长度，并与表中直线长度比较，若长度误差小于设定值，则该长度表中数量加一。
10、循环未结束重做7；
11、建立结束点(command ".undo" "e")
12、退回到未插入图样的状态(command "U")
13、循环未结束做3、
14、关闭图名文件；
15、建立文本文件；
16、循环输出广义表中的数值；
17、关闭文本文件；
18、结束程序。