导出3角网格.pdfVIP

导出三维面数据 所示为同三维面(3DFACE)组成的企鹅模型，每个小的面片为一个三角形，要求： （1） 将每个三角形的坐标读出并保存到文本文件中，文本文件中的一行为一个 三角形3 个点的坐标（一共9 个数据），坐标数值保留到小数点后3 位； （2 ） 相同颜色的面连续输出，不同颜色的面不能够交叉输出。 图0-1 小企鹅 解题思路 将小企鹅所在模型空间设为当前，通过引用 Thisdrawing.ModelSpace.Item(i) 可遍历几何元素。本题中感兴趣的是3dface,其颜色属性color 为Autocad 颜色索 引表中的某个值(0~255) 。为保证连续输出相同颜色面，且不同颜色面不可交叉， 需要对模型中的各3dface 的颜色排序。 为使编程简化，将问题解决过程分成3 部分： 1. 导出模型中所有3dface 的有益信息 这些信息包括：ModelSpace.Item 变量号i，3dface 颜色索引值，各顶点三维 坐标值。此过程为下面的Matlab 分析做准备，导出的数据保存在文件3dface.dat 中。 2. 颜色排序测试 根据 1 中导出的数据，测试使用快速排序法对颜色排序的效果（准确性）。 此过程可积累相关算法经验，以便在VBA 中实现。 图1-1 MATLAB 重回小企鹅 图1-2 颜色排序效果 3. 在VBA 中的最终实现 由过程2 验证排序算法实现要求2 的准确性，并且积累了快速排序算法的实 现经验，此时重新返回VBA 编制满足要求的程序。 图1-3 程序过程总图 程序 1. 初始程序 Public Sub read3dface() Dim ent As AcadEntity Dim x As Double, y As Double, z As Double Dim i As Integer, j As Integer, N As Integer Dim K As Integer, thisColor As Integer Dim Coord() As Double 将实际路径改变到当前文件夹下 ChDrive ThisDrawing.Path ChDir ThisDrawing.Path 输出必要数据，以便使用Matlab测试 Open 3dface.dat For Output As #1 遍历所有ModelSpace中几何体 N = ThisDrawing.ModelSpace.Count - 1 For i = 0 To N Set ent = ThisDrawing.ModelSpace.Item(i) If TypeOf ent Is Acad3DFace Then 输出顺序为 index color coordinates thisColor = ent.color coords = ent.Coordinates Print #1, i, thisColor, K = UBound (coords) For j = 0 To K - 1 Print #1, coords(j), Next j Print #1, coords(K) End If Next i Close End Sub 2. 颜色排序测试 A 主程序 % 测试来自cad的网格数据，绘制，并排序保存 %% 导入数据 clear;clc % 小企鹅顶点数据 load my3dface; % cad颜色索引与RGB对应表 load cadcolormap; % 三角形数目 N = length(face3d.index); %% 绘制小企鹅 f