| 查看: 1110 | 回复: 0 | ||
wwa_1986金虫 (小有名气)
|
[求助]
matlab中[c,h]contour()中的c矩阵存为porous.txt文件，vba读取txt数据画等高线图
|
|
txt文件为2*7642的矩阵，具体已贴出来。运行时有误。 Dim sumpoints As Double Open "d:\porous.txt" For Input As #1 Input #1, sumpoints '从文件读出总的点数 ReDim points(0 To sumpoints * 3 - 1) As Double Dim plineObj As AcadPolyline npoints = 0 For i = 1 To sumpoints '遍历轮廓线中所有点 Input #1, x, y '从文件读出i点的x,y坐标 points(npoints) = x '第i点的x坐标 points(npoints + 1) = y '第i点的y坐标 points(npoints + 2) = 0 '第i点的z坐标 npoints = npoints + 3 Next '生成轮廓线 Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points) 'points为存放顶点坐标的一维数组，大小为顶点数的三倍 Zoom All Close |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : porous.txt
2013-03-27 11:03:41, 238.82 K
» 猜你喜欢
国社科又开始会评了，不知道这次命运如何
已经有12人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有15人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
基金系统什么内容也没有
已经有10人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
30