求助！！做一个等高线简化的程序（线段压缩），VBA+CAD

foxlee

要做一个等高线简化的课题（就是尽量使矢量的等高线保留较少的点而精度仍然保持在要求的范围），打算用ＶＢＡ＋ｃａｄ，我的思路是先用少量的点线模拟等高线，试试一些简化的算法，比如最简单的每隔几点保留一点、垂距法偏角发保留点、道格拉斯匹克法压缩等等，由于ＶＢＡ忘得差不多了，不知道该从何下手，请各位大侠帮帮我，我的邮箱ｊｅｒｒｙｌｅｅ０８＠ｑｑ．ｃｏｍ，拜托了！！