悬赏帖，有人能做出这个东西，奖励50三维币

ljb19831002 · 发表于 2009-10-26 10:26:33

提示: 作者被禁止或删除内容自动屏蔽

Gloria.Wu · 发表于 2009-10-26 10:50:16

路过，学习了！

pcyong · 发表于 2009-10-26 11:59:49

我爱谁家，，真够牛的

lwei3341 · 发表于 2009-10-26 15:31:33

用表格处理一下
然后粘贴至CAD里面就行

caslee · 发表于 2009-10-26 19:45:09

这种数据大部分是实验数据用cad来画根本不是最好的选择
用origin直接拟合是最佳选择

siemens70 · 发表于 2009-10-27 06:51:25

老大，你16楼的东西是怎么出来的呀，我如果是换了个图行，该如何操作呢。总不能每次都找您来帮忙吧，

:lol:

siemens70 · 发表于 2009-10-27 07:18:06

老大。我还有个问题会请教，就是如果图形不用多段线编程，而是用直线编程是否可以

woaishuijia · 发表于 2009-10-27 18:10:00

原帖由 siemens70 于 2009-10-27 06:51 发表 http://www.3dportal.cn/discuz/images/common/back.gif6 x4 A$ U! h4 P
老大，你16楼的东西是怎么出来的呀

当然是在键盘上敲敲打打写出来的啊，就像在QQ上聊天一样，呵呵。说通俗点，16楼的东西其实就是我用一种叫做“VBA”的语言写给 AutoCAD 软件的一封信--AutoCAD 能够看懂这封信（它懂好几种语言呢，比如 VBA、LISP、C 等等，这几种语言中我用得最熟练的是 VBA，所以我通常用 VBA 语言给 AutoCAD 写信），并且能够乖乖地按照我在信中的规定和要求做完全部工作。在这封信中，我告诉 AutoCAD：到我指定的目录中打开一个名叫“123.dat”的文本文档（该文档的第一行对它没有实际用处，从第二行直到结尾是两两一组的点坐标数据），从第一个点开始，在其它点中找出与第一个点距离最近的一个做为第二个点，再在剩下的其它点中找到与第二个点距离最近的点做为第三个点......依此类推，直到把文档提供的所有的点的顺序重排一遍，最后按照这些点和顺序、在 AutoCAD 的模型空间画一条二维多段线，该多段线必须是闭合的。
下面把这封信逐段（句）翻译成中国话，让大家知道我对 AutoCAD 具体是怎么说的。第一段：

]; i" N* C, J& E; \- Y w
Dim I As Integer, S As String, P() As Double
/ N* E( d$ u! u% y
Dim L As Double, Lmin As Double, J As Integer, P1() As Double3 A& j% n5 W9 P2 F( Z, @4 z( d
Dim PL As AcadLWPolyline0 J+ r# v( n2 j) O

复制代码

这三行是声明下面程序中要用到的变量。所谓“变量”，对学过代数的朋友来讲不应该感到陌生，就是用来指代某个数或某个东西的文字。这一段就相当于我们平时做题时所写的：
已知：速度为 V，时间为 T
设：位移为 S

这三行可以合并成一行，就像这样

8 _8 D2 B, y& n$ I
Dim I As Integer, S As String, P() As Double, L As Double, Lmin As Double, J As Integer, P1() As Double, PL As AcadLWPolyline
: p# M }6 R& S( |6 [% q

复制代码

也可以把这八个变量分开，每个变量单独写一行

/ T* [ h( h# B N, f8 ^$ L* o z
Dim I As Integer
( v9 K j5 ]3 L9 }! r/ S
Dim S As String$ z/ {$ f( L. Q; q9 M( \- t
Dim P() As Double
% h7 |0 j C: n; W" ?- L
Dim L As Double( ]" h: ^. C' _3 O% i
Dim Lmin As Double( J1 w7 i- Y! S
Dim J As Integer& P' h2 X0 E8 r) W- j
Dim P1() As Double5 ]2 [/ m7 e0 u) j K( ]0 f
Dim PL As AcadLWPolyline$ v! z1 s' M7 I: x4 o" r. ?4 c9 M( @

复制代码

写成三行是为了我自己看得清楚。
每行前面的“Dim”是关键字，它告诉电脑这行后面跟着的是我下面要用到的变量。
I、S 等等是变量的名字，就像我们前面说的速度“V”、时间“T”。
As 也是个关键字，它告诉电脑后面跟着的单词是这个变量的数据类型。As 和后面的数据类型关键字合起来就能告诉电脑这个变量具体是一个数、还是一幅画、还是其它别的什么东西。
Integer 是整形数的意思，I As Integer 意思就是变量 I 是一个范围在 -32768 ~ +32767 之间的整数。
String 是字符串的意思，就是一段文字而不是一个数。
Double 是双精度数的意思，就是这个类型的变量是一个范围最大的带小数点的数（名词叫“浮点数”）
AcadLWPolyline 是 AutoCAD 二维多段线的意思。
八个变量中有两个后面还有（），这表明变量不是单个数据，而是一组数据（名词叫“数组”，数组中包含的数据叫“数组元素”）。声明变量时括号中如果有数字，就是一个固定大小的数组，就是数组中包含元素的数量是固定的，括号中如果没有数字--就像这段代码一样--就表明是一个动态数组，在使用时，其中包含的元素的数量是可变的。P() As Double 的意思是 P 是包含一个或多个双精度数的“组”，其中数的数量在后面代码中具体指定。在这个程序中使用动态数组，是为了让 AutoCAD 自己去统计点的数量，我才不想管闲事。这也是为了让这段程序有一定的通用性。
继续。

5 C2 q9 B) ~, ?3 U3 a
I = FreeFile()
' _' }& k) v I! D7 j

复制代码

FreeFile() 是一个不需要参数（相当于数学函数中的自变量）的函数，用它能够得到一个要用 Open 方法打开的文本文档的编号，就像我们在三维网注册时系统分配给用户的 UID。以后电脑就要用这个 UID 来识别我们要操作的是哪个文档。在这行代码中，我们把这个 UID 赋值给变量 I，在下面的代码中，我们就用 I 来指代这个文档。

Open "C:\Documents and Settings\ZX\桌面\123.dat" For Input As I3 H1 F; o7 D- {7 x" P+ ]

复制代码

英语基础好些的朋友应该能够大体上看出这句话的意思：打开 C:\Documents and Settings\ZX\桌面\123.dat 用于读入，并且这个打开的文档的编号是 I。
C:\Documents and Settings\ZX\桌面\123.dat 外面用双引号括起来了，这是在告诉电脑这是一个字符串，是一个引用而不是我说的什么话，就像我们写文章时，对引用别人的话要用引号括起来一样。电脑是一个除了速度快以外什么优点也没有的笨蛋，远远不如人聪明。我的文章中如果有几个错别字，你肯定能分析出我的真实意思是什么。电脑可不行，如果这里不用双引号括起来，电脑会告诉我“变量没有声明”，然后就停在那里等着我修改。

2 ]. j) e% j0 p8 a
Input #I, S* [, L- N3 V+ _* I( z$ B

复制代码

从第 I 号文档中读取一个字符串，并用变量 S 标识它。VBA 读取文本文档只能从头开始并顺序向下读，我没有办法让它从第二行开始。尽管第一行没有用，也只能去读它，然后放到一边不去理它就是了。

( ?9 j6 i: @' ~. M @
ReDim P(1)
w/ o C3 e1 ^0 G, y* N( ^. N

复制代码

重定义数组变量 P 为包含两个元素的数组。VBA 数组的默认下标（数组中元素的编号）是从 0 开始的，这行代码中括号中的数字是数组的最大下标，也就是说，这个数组中包含编号分别为 0 和 1 的两个元素。这两个元素分别用于从文档中读取并保存第一个点的 X 坐标和 Y 坐标。

8 [3 C# B% t" {* f
Do
. c2 t$ s" ~: _, i/ d6 y7 `
Input #I, P(UBound(P) - 1), P(UBound(P))& e' ^) Y. T7 o6 i
If EOF(I) Then % u8 G' L& r0 s4 H' `% ]& _8 t
Exit Do! v0 O, d; _$ }$ C* V4 x+ l
Else * b0 p* S9 J( @9 [; ]
ReDim Preserve P(UBound(P) + 2)
1 _( b( M8 m' I
End If
5 L+ g7 Z- E1 `6 d. L; M0 _. N
Loop
2 }. D4 n H3 ^$ F4 R* H& }

复制代码

这是一个循环体。Do 和后面的 Loop 中间夹着的代码将被反复执行，直到符合某种条件时用其它方法从循环中跳出去，继续执行 Loop 后面的语句。下面具体说中间的代码，第一行

- E& Q- X1 v+ t N. f( D- z
Input #I, P(UBound(P) - 1), P(UBound(P))
2 N1 Z" w8 y! Z( w( ^8 E) B p9 V

复制代码

UBound() 是一个函数，函数的参数是数组的名字，用它可以得到该数组的最大下标。UBound(P) 就是数组 P 的最大下标。我们刚刚重定义了 P 数组最大下标为 1，所以 UBound(P) 现在的得数当然是 1，UBound(P) - 1 就是 0，P(UBound(P) - 1) 就是 P(0)，P(UBound(P)) 就是 P(1)。这行代码现在的意思就是：从第 I 号文档中读取两个数，并分别存入 P(0) 和 P(1)。
那为什么不直接把这行写成

6 V8 A8 E; E0 y
Input #I, P(0), P(1)
8 V8 v& ?4 k; n4 ^

复制代码

别忙，接着往下看。

& V |. g3 K$ W
If EOF(I) Then6 h$ W# i+ S; q1 t: T+ `2 P, ?8 z
Exit Do0 O [3 L' r6 o* D! C
Else
8 E9 P8 A y$ x( u2 `
ReDim Preserve P(UBound(P) + 2)' J7 j; | d- K& \
End If
/ q0 i3 {- z% G! r% y

复制代码

这是一个 If...Then...Else...End IF 条件判断语句，如果...那么...否则...。End IF 表示这段语句的结束，一个标志而已。
EOF() 是一个函数，用它可以检查是否到了以其参数为编号的文档的结尾。如果到了结尾，就得到一个 Ture （真），相应地，程序就会执行“Then （那么）”后面的代码--“Exit Do”这一行，也就是退出循环，继续执行循环体后面的语句；如果没到结尾，就得到一个 False （假），相应地，程序就会执行“Else （否则）”后面的代码“ReDim Preserve P(UBound(P) + 2)”。
前面我们已经说到了，ReDim 是重新定义动态数组的最大下标数，UBound(P) 现在是 1，UBound(P) + 2 就是 3，这一行是重新定义 P 数组为包含四个元素的数组，四个元素的编号分别为 0、1、2、3。与前面的 ReDim 语句不同的是，这一行中多了个 Preserve，这个关键词的用处是告诉电脑别把我原先的数据破坏了。如果不加这个词，重定义后的数组四个数都是 0，前面就白读了。
这段代码合起来的意思就是：检查一下是否已读到结尾，如果已到结尾，就跳出循环继续执行后面的语句；如果没到结尾就把存放点坐标的数组 P 再增加两个元素。由于这个条件语句后面紧跟着的是循环体的下边界“Loop”，所以就返回到循环体开头“Do”的后面，重新执行“Input #I, P(UBound(P) - 1), P(UBound(P))”这一行。这时，UBound(P) 已经变成了 3，所以这次读入的数据就要放到数组 P 的第 2 号和第 3 号两个位置了。然后再检查是否到了文档结尾--当然还没到，然后再继续读，并把下一组坐标放到 P 数组的第 4、第 5 号位置，依此类推、循环往复，直到真的到了文档的结尾，这时，所有点坐标都已存入数组 P 中，跳出循环，向后继续，就来到了这一行

( h7 _% `: c) M3 Z' i
Close
3 l% t( s6 p. u: p% S4 c

复制代码

关闭文档。卸磨杀驴谁都会，嘿嘿。
Close 后面其实应该有一个参数的，就是 I。如果写了这个参数，电脑就会关闭第 I 号文档。如果不写，就会关闭所有打开的文本文档。我们知道只打开了一个文档，所以不指明关闭哪一个也无所谓。
下面一行

[, G3 w" W" H7 C
'ThisDrawing.ModelSpace.AddLightWeightPolyline P, b' P1 j8 }8 _6 Z( q

复制代码

这一行的前面有一个单引号，这表示单引号后面跟着的一串东东在程序运行时不会被执行。所以单引号及后面的东东被叫做“注释语句”，通常用来写本段程序的目的、方法等等，以便他人或自己过段时间以后能够更容易地读懂程序；也经常用来把一行代码改为不会在程序中执行的“废物”，这比删除要好。因为，当你想让这行代码起死回生时，只要去掉它前面的单引号就行了，这有点像 Windows 的回收站。
这行代码中，ThisDrawing 在这里指 AutoCAD 图形界面当前的文档。如果这段程序是嵌入某个 dwg 文档中的程序，则 ThisDrawing 就是指宿主文档了。
ModelSpace 是 AutoCAD 图形界面的模型空间。
AddLightWeightPolyline 是画二维多段线的方法，该方法需要一个参数，就是二维多段线的节点坐标双精度数组。在这个数组中，每两个元素（X、Y 坐标）决定一个点。至少要有两个点。或者说，这个数组至少要有四个元素，而且元素数量必须是偶数。
这行代码的完整意思是：在当前文档的模型空间画一条二维多段线，该多段线的节点就是数组 P 中的所有点坐标。去掉这行代码前面的单引号，程序运行到这里时，AutoCAD 就会在模型空间画出与 5 楼和 8 楼一样的图形。

下面开始按题目要求为已经读取的点坐标排序。
通过观察用上一行代码画出的图形（也就是 5 楼和 8 楼所画的图形）可以发现，图上任意一个点到所有其它点之间的距离，最短的两个是其到图形轮廓上相邻点的距离，所以排序方法很容易就确定了：从任意一点（称为第一点）开始，把该点剔除，寻找其它点中与其最近的点（称为第二点），再把第二点剔除，从剩下的点中寻找与第二点最近的点......依此类推。
具体方案是：P 数组用来存放待比对的点坐标数据，P1 数组用来存放已经按题目要求排好顺序的点坐标数据。首先把 P 数组中某个点坐标数据移到 P1 数组中（P 数组中该点数据删除），计算该点到 P 数组中剩余所有点的距离，取距离最小的点再移到 P1 数组中（P 数组中该点数据删除），再计算这个点到 P 数组中剩余所有点的距离，再取距离最小者移到 P1 数组中......直到 P 数组中只剩下一个点数据。这个数据移到 P1 数组中后，P1 数组中的点就是排好顺序的所有的点坐标了。
应该说明的是，在同一个数组中排序是完全可以的，而且代码更少，有兴趣的朋友可以参看 23 楼的图3。用两个数组排序可能更便于理解（我一厢情愿的想法），这里仍然按 16 楼两个数组排序的代码解读。

! l1 |# J- B' ~$ ^+ B
ReDim P1(1)# V0 c" A' v& _; ?& n
P1(0) = P(UBound(P) - 1)
# c8 M/ A/ r) F7 i' P/ W
P1(1) = P(UBound(P))$ `( B9 X. e4 E% p2 i

复制代码

重定义 P1 数组的最大下标为 1，并把 P 数组的最后两个数据存入 P1 数组。
从 P 数组的最后两个数据开始，是因为从 P 数组中删除这个点的坐标最容易，只要重定义数组，去掉最后两个数组元素就 OK 了。

# n" m N* M: J& ^: `
Do Until UBound(P) = 10 q- Z( N0 g# @0 d0 ~+ Q1 F
ReDim Preserve P(UBound(P) - 2)
: j, A0 w! Y2 _. a. g9 o( I% h
Lmin = Sqr((P1(UBound(P1) - 1) - P(0)) ^ 2 + (P1(UBound(P1)) - P(1)) ^ 2)
% I# o' k5 Z- q* r! g
J=0
+ D/ m1 Y/ O$ o+ o
For I = 2 To UBound(P) - 1 Step 2& P; U5 ~0 l# C7 G( c" i7 y
L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2)
$ m: ^% n* Q! I7 M( X; H
If L < Lmin Then6 e# ]4 D, i( d, ^# O1 m
Lmin = L# W2 S; _; `5 B
J = I0 Z: z; [7 L& F
End If) p8 A: K! y9 W7 }& c# x
Next% m+ Y- L+ ?. r1 {1 u4 @3 t
ReDim Preserve P1(UBound(P1) + 2)
) j/ {3 K; G: r B4 M
P1(UBound(P1) - 1) = P(J)6 g* |- E) x4 G! f; c
P1(UBound(P1)) = P(J + 1)
8 |! N$ F- s, p$ K0 H* n8 o
For I = J To UBound(P) - 3
* i! G: U% w) f! _/ d- y$ v) Z
P(I) = P(I + 2)& n9 z1 _3 J8 U8 R) S$ x p, s& Y
P(I + 1) = P(I + 3)) ~" r5 {6 ]4 A2 D
Next# ~' `% n3 A! X$ |8 D. W
Loop
$ h: X( T9 E) n, ^

复制代码

Do...Loop 循环。与前面的循环不同的是，Do 的后面跟着“Until UBound(P) = 1”，这是循环条件。意思就是：循环直到 P 数组的最大下标等于 1。换句话说，当 P 数组的最大下标等于 1--也就是P数组中只剩下一个点的数据--时结束循环，继续执行 Loop 后面的语句。如果 P 数组的最大下标不等于 1，就一直循环执行循环体中间的语句。
下面解读循环体中间的语句。

5 s- Y0 `3 |/ h( j/ m
ReDim Preserve P(UBound(P) - 2)
) u5 V2 ?' e& ?( K

复制代码

在不破坏原有数据的前提下重定义数组 P，减少两个元素（删除最后一个点坐标的数据）

1 T1 e* B3 o2 M, [
Lmin = Sqr((P1(UBound(P1) - 1) - P(0)) ^ 2 + (P1(UBound(P1)) - P(1)) ^ 2)
3 O3 }) N3 s* y3 W6 g
J=0
$ n4 E: f: Y" k* @

复制代码

P1(UBound(P1) - 1) 是 P1 数组的倒数第二个元素，也就是该数组中最后一个点（刚刚从 P 数组中移过来的点）的 X 坐标；P1(UBound(P1)) 是 P1 数组的最后一个元素，也就是该数组中最后一个点（刚刚从 P 数组中移过来的点）的 Y 坐标。P(0) 是 P 数组（剩余的待比对的点）中第一个点的 X 坐标，P(1) 是 P 数组（剩余的待比对的点）中第一个点的 Y 坐标。Sqr() 是一个函数，用它可以得到括号内参数或代数式的平方根。
所以，上面一行代码实际就是用勾股定理计算两个点之间的距离，并存入 Lmin 变量。
J=0 是用变量 J 记住距离为 Lmin 的点在数组 P 中的下标，也就是记住是哪个点。
计算距离也可以不用勾股定理，而是在两点之间画直线，然后查询直线长度的方法。不过在编程中用画直线再查询的方法求长度，似乎有“脱裤子放屁”的嫌疑。

& {+ u$ Z# \( V5 z% y
For I = 2 To UBound(P) - 1 Step 29 }6 |' R; D5 Y! |* i; s o
L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2)& `" q5 r6 E7 h: V3 r8 e& s8 l
If L < Lmin Then
. T5 F9 ^5 a3 Y1 i2 t/ J
Lmin = L3 `1 P) ~3 b- H: Q' s
J = I4 O! I3 H9 x9 G# _- G
End If
$ z: O5 R) | `, j4 h4 G
Next
8 b! H1 I. u" K

复制代码

For...Next 是另一种循环语句。上面代码中是其常见的用法。它有一个循环变量，就是 I （文档编号的任务完成了，为了人尽其才，现在让它转行做这个工作）。在首次进入循环时，I 等于 To 前面的参数，这里就是 2，然后每循环一次，就增加一个步长--就是 Step 后面的参数（如果步长为负数，循环变量就递减），直到循环变量超出 To 前后两个参数之间的范围，退出循环继续执行 Next 后面的语句（当然也可以用其它方法提前退出循环，但与本文无关，不说了）
循环体中间的语句

0 p1 E# G( C, c; T `( w9 W
L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2)- c; u- X' k% ?1 D x

复制代码

用勾股定理计算数组 P1 中最后一个点到数组 P 中由第 I 个元素和第 I+1 个元素构成的点的距离，并保存在变量 L 中。

, z* r/ r. U' A5 ~: L$ p
If L < Lmin Then
: J9 U5 p, k5 h+ [4 d8 g
Lmin = L
9 w' M# N. k( M- {, \' S' [, f9 W4 L
J = I
* p* s. ~0 \) T- K% v
End If
1 i- ^( V1 l4 e2 _6 G

复制代码

还是 If...Then...Else...End IF 条件判断语句，与前面不同的是不需要“否则”，Else 及其后面的代码块省略了。
这个条件语句完整的意思是，如果刚刚计算等到的距离 L 小于前面记录的最小距离 Lmin，就把距离 L 做为新的最小距离，并记录这个点在 P 数组中的位置。
这段代码

& G5 e: D2 `. w# V% e
Lmin = Sqr((P1(UBound(P1) - 1) - P(0)) ^ 2 + (P1(UBound(P1)) - P(1)) ^ 2)3 E! J8 b7 W; T; [" d7 g
J=0' ^# W7 Y+ a+ _# S: b; u
For I = 2 To UBound(P) - 1 Step 2" j8 \ F( D ^, A
L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2)0 P/ b7 k. O( w" _
If L < Lmin Then5 m# K7 A9 Q2 q7 a5 P) n
Lmin = L$ {; i% O! e% F; @, U
J = I
1 \1 t+ e5 } ^. _% h( i" }
End If
, }: W5 S4 R& I$ U- W% Z2 _
Next
) {+ z: g5 L' j! m7 ^ G1 _

复制代码

的完整意思就是，先用数组 P 中第一个点计算其与数组 P1 中最后一个点的距离，并暂时把它做为最小距离；再用循环方法计算数组 P 中其它点与数组 P1 中最后一个点的距离，发现距离小于已经记录的最小距离者，就把这个距离做为最小距离记录下来，直到把数组 P 中所有点都计算一遍，从而找出数组 P 中与数组 P1 中最后一个点距离最近的点。
继续

, ~- T* U3 B3 w; s7 \8 G
ReDim Preserve P1(UBound(P1) + 2)- O i- V1 X# W
P1(UBound(P1) - 1) = P(J)
0 _7 B, x& v( i& R# Q# q! N j a
P1(UBound(P1)) = P(J + 1), H# z4 d; t+ V o" p" ?: {: i

复制代码

在不破坏原有数据的前提下，重定义 P1 数组，增加两个元素。并把在数组 P 中找到是最近点的坐标数据存到数组 P1 的后面。

: [5 t( ^7 ^2 t7 S2 X& t9 b/ h
For I = J To UBound(P) - 3% h- r: o: r4 K* E3 D5 ?
P(I) = P(I + 2)( q# V& y' i) p8 b0 u
P(I + 1) = P(I + 3)
+ ~; i. W2 {" f# H8 G
Next
; X! r/ [6 O' t0 m1 |7 P+ E

复制代码

还是 For...Next 循环。
必须承认，我这里写得有点问题。正确的方法应该是

3 `2 ^. B/ l/ E" R8 `
For I = J To UBound(P) - 3 Step 22 ~) w1 b i2 e! ]2 }6 a0 }
P(I) = P(I + 2)2 j/ a5 b2 u+ n1 i$ C
P(I + 1) = P(I + 3) i6 \0 i% l- K0 q
Next: t* A" N6 j+ V7 K

复制代码

或者

$ V/ U0 ^" B- [2 {
For I = J To UBound(P) - 2- B, M/ w! h$ O9 u7 ]6 Z9 I
P(I) = P(I + 2)' Q$ o+ e- W# o- a* y& e
Next8 P. O6 [- [1 ~/ S5 |$ {. T

复制代码

在 16 楼的代码中我忘记了为这个循环写上步长。当步长参数忽略时，默认的步长为 1。因此，由于我的疏漏，让电脑在这个部分白白增加了一倍的工作量。呵呵。
循环体中间代码的含义：把 P 数组中第 I+2 个和第 I+3 个元素分别存入第 I 和第 I+1 个位置。整个循环体的意思是，把 P 数组中最近点后面的数据依次前移。
For 循环体运行完后，就到了 Loop，于是电脑返回到 Do，进行条件判断，如果数组 P 中还有不止一个点的数据，就再次执行 Do 后面的语句，重定义 P 数组，删去其最后两个元素，再逐个计算距离......直到数组 P 中只剩下一个点的数据（这个点的数据已经在循环体中被保存到了数组 P1 中），排序工作至此完成，所有的点坐标数据已按排好顺序存入数组 P1 中，结束循环，继续执行下面的语句。

4 e6 A1 {; U/ v" b3 x
Set PL = ThisDrawing.ModelSpace.AddLightWeightPolyline(P1)
0 w6 A. ~; }" x i$ I- ~

复制代码

前面被我注释掉的画二维多段线的代码行与此很相似，不同之处是前面多了“Set PL =”，这是因为默认的二维多段线画出来时不是闭合的，后面还要对其进行处理，因此要用变量 PL 指代它。后面的数组参数用括号括起来了，这是语法：在把一个方法的结果赋值给一个变量时，方法的参数要用括号括起来。

U. ~0 V+ D; T- d9 o* |# ^. A
PL.Closed = True
7 A* g$ F, ]' \) f8 q

复制代码

最后一件事，让画出的二维多段线 PL 闭合。二维多段线对象有一个属性 Closed，这个属性为 True 时，多段线是闭合的；为 False 时，多段线是开放的。修改这个属性，就让这条多段线变成闭合的了。　

我如果是换了个图行，该如何操作呢。

前面对代码的详细解析中，已经说明了排序规则的由来。只要是符合这个条件的图形，就都能使用这段代码。

总不能每次都找您来帮忙吧

这没什么不可以。大家来论坛，就是谋求互相帮助的。只要题目不是太大，我有时间完成它，帮帮忙是完全可以的。
不过，我还是希望你能自己学会 AutoCAD 二次开发方法，这很有用的。甚至可以说，不会二次开发，即使你能熟练使用 AutoCAD 其它常用命令，也最多只能算是会了 AutoCAD 的一半，因为你还不能随心所欲地使用它。特别是 AutoCAD 做为一个平台软件，有些命令是只有用二次开发方法才能正常使用的，比如三维网格命令。很多人说 AutoCAD 的三维网格功能不行，没办法编辑，其实是因为他们不会使用这个方法，而不是 AutoCAD 没有这个功能。
AutoCAD 有几种常见方法，对于具有 Visual Basic 编程基础的朋友来说，VBA 很容易上手。对没有任何编程基础的朋友来说，LISP 可能是最好的选择。对于有 C 或 C++ 基础的朋友来说，或许应该学习 ARX。

pss0902 · 发表于 2009-10-27 18:29:01

看着就好累~~~
对不熟悉计算机语言的人来说，无异于天书，Visual Basic、C 或 C++ 、LISP全学过，全忘东洋大海里去了~~~
关键是一直也没需要用过，更没用过~~~

pss0902 · 发表于 2009-10-27 18:46:44

假如siemens70版主要画的图形为未知，也不知道用求最近点的办法可以对座标点重新排序，咋办？或者说图形中就有那么几个点的座标不听话，结果咋样？
抬杠了，woaishuijia不生气~~~

:lol:

siemens70 · 发表于 2009-10-27 18:47:18

感谢我爱谁家老大的帮忙，小弟感激涕零

woaishuijia · 发表于 2009-10-27 19:01:35

用直线编程是否可以

当然可以。在 16 楼代码的后面加上两行

1 t2 t: ~ W& H; _* }* C3 F
PL.Explode
$ K5 u" x4 d. |. `/ j; N
PL.Delete
- {- U( A2 k% j9 m6 _: G: c2 `9 O1 W

复制代码

第一行是多段线 PL 的分解方法，分解后就可以得到一段一段、首尾相连的直线。与图形界面的“分解”命令不同的是，多段线分解为直线后，多段线仍然存在，直线其实凭空增加出来的。所以这条多段线就变成多余的了，要把它删除。第二行就是多段线的删除方法。

如果不想用多段线“分解”生成直线，而是从一开始就直接画直线，可以把 16 楼的代码改成下面的样子。

. A/ b# |( d3 N+ v" m
Dim I As Integer, S As String, P() As Double
% ]7 Y# b7 C: x+ i% b5 A) W" B
Dim L As Double, Lmin As Double, J As Integer
9 J) Y; ?; G X' Q. a$ |2 ~ w0 u
Dim P1(2) As Double, P2(2) As Double '画直线需要直线起、端点的三维坐标，所以声明两个双精度数组，每个数组有三个元素. }$ B2 ` i7 r. e& @9 d# M* Z! w' P
Dim P3(2) As Double '再声明一个点三维坐标三元素双精度数组，用于存放最后一条直线的端点7 I# y% K- F3 S" `
I = FreeFile()
% Z% M" X W( d* t& Z* l) F
Open "C:\Documents and Settings\ZX\桌面\123.dat" For Input As I' A, ~& k$ T4 k& n# r0 N8 }5 j0 h
Input #I, S( n1 h) L' ]4 B4 u* p7 e
ReDim P(1)
Do2 ]0 ?6 t, T# h0 x
Input #I, P(UBound(P) - 1), P(UBound(P))
. k7 Q6 K9 c& d& Q1 x: p# T
If EOF(I) Then y: Y2 o* X' v* D( y
Exit Do; B2 p; p7 j9 y6 [5 y
Else& p4 B1 s- B8 ]# c' D& o' E
ReDim Preserve P(UBound(P) + 2)+ C) X% U7 U) e$ _3 v
End If: S" V" Q) i; N& t0 H1 ]7 w, b* c
Loop
/ i+ m0 V# a* ^3 c
Close
H3 t7 t. i+ j4 O9 J+ h/ V" b
P1(0) = P(UBound(P) - 1) '把P数组中最后一组坐标复制到P1数组中，做为第一条直线的起点
$ }2 |6 A( q, q
P1(1) = P(UBound(P))
; N- K- g6 o3 _, I* t% k
P3(0) = P1(0) '把P1点坐标保存起来，用做最后一条直线的端点。
& @& f4 @( J ~+ a* T
P3(1) = P1(1)2 M% ]6 ]) m! O5 l% S' ?
Do Until UBound(P) = 1, V5 r, m/ q# g
ReDim Preserve P(UBound(P) - 2)0 w- d7 U8 F" q# t
Lmin = Sqr((P1(0) - P(0)) ^ 2 + (P1(1) - P(1)) ^ 2)
) ], x: O/ x6 l8 K( H+ F
J = 0
) x: f: T( f* T8 e* ^
For I = 2 To UBound(P) - 1 Step 2
5 {+ E6 ~' s; G+ N: k( p
L = Sqr((P1(0) - P(I)) ^ 2 + (P1(1) - P(I + 1)) ^ 2)5 t! a: l R2 F8 a; U& ]( t5 U
If L < Lmin Then
& h. b6 c$ ^# i; C. O1 Q: f
Lmin = L
y3 G- w# A" Z! T u9 B- E
J = I: R8 x( k( e# e0 j, X+ D2 o3 i
End If
3 C+ j5 o( q; b2 U% ?
Next
; k) _5 K6 w( z
P2(0) = P(J) '把P数组中找到的与P1点距离最近的点坐标复制到P2数组，做为直线的端点; L# ]$ O; ?6 P0 k' r$ i" C
P2(1) = P(J + 1)3 q {! ?, X& L/ { i7 {+ E4 ~5 y
ThisDrawing.ModelSpace.AddLine P1, P2 '在当前文档的模型空间画直线
( I- S% o$ c, o2 O- m) r& E% j
For I = J To UBound(P) - 3 Step 2
! Q9 _% X0 O! s4 R4 j2 l6 j
P(I) = P(I + 2)5 m3 D8 q* |$ V2 u( ^
P(I + 1) = P(I + 3)
6 G( U1 O8 t+ x" g- U
Next
- c- \1 n1 ?6 B/ O4 n
P1(0) = P2(0) '把P2点的坐标数据存到P1点中，做为下一条直线的起点
5 H7 K$ v0 M$ j* j
P1(1) = P2(1)
! ?+ a6 \5 _8 Y! q1 ^1 W. k- B
Loop
8 k& i, I! u6 V8 V3 y, x0 ?
ThisDrawing.ModelSpace.AddLine P1, P3 '从排好顺序的最后一个点到第一个点画最后一条直线3 B/ e* \& i- X1 `* c' P

复制代码

tan_123 · 发表于 2009-10-27 19:15:13

专业的牛人还是很多的

woaishuijia · 发表于 2009-10-27 19:15:32

原帖由 pss0902 于 2009-10-27 18:29 发表 http://www.3dportal.cn/discuz/images/common/back.gif$ e: y$ y! g9 |0 Q+ O" i
看着就好累~~~
( w& p; K7 H8 |$ q% N对不熟悉计算机语言的人来说，无异于天书，Visual Basic、C 或 C++ 、LISP全学过，全忘东洋大海里去了~~~5 j+ x# |3 Y e" H
关键是一直也没需要用过，更没用过~~~

你没用过，肯定是的。但你说一直没需要用过，我敢肯定不对。很多人学过的知识全都忘记了，是因为学的时候不知道这个工具是做什么用的，所以也没用心学；而到了需要用的时候，又不知道自已学过的哪门知识是做这个用的，更不可能用了。理论完全脱离实际，不忘才有鬼了。

原帖由 pss0902 于 2009-10-27 18:46 发表 http://www.3dportal.cn/discuz/images/common/back.gif
. V4 p+ G; I5 z6 y( A+ c假如siemens70版主要画的图形为未知，也不知道用求最近点的办法可以对座标点重新排序，咋办？或者说图形中就有那么几个点的座标不听话，结果咋样？
) A# |! Y# Q7 T* k4 v8 C- R抬杠了，woaishuijia不生气~~~ :lol:

具体问题具体分析嘛。我学二次开发，就是为了随时解决工作中遇到的具体问题，可从来没想设计一个通用工具去发布，所以我也不去想其它情况下该怎么办。遇到什么问题就用什么办法，只要方法掌握了，万变不离其宗。

★新手★ · 发表于 2009-10-27 20:05:19

关心“西门”老大什么时候给50三维币

西门好好先拜师吧，我跟你说过“我爱谁家”老大有你学。

siemens70 · 发表于 2009-10-28 06:42:08

钱已经汇出，请老大查收。

[ 本帖最后由 siemens70 于 2009-10-28 06:43 编辑 ]

woaishuijia · 发表于 2009-10-28 07:32:10

收到了，其实不必这么认真的，新总逗你玩呢。能解决问题才是最重要的，呵呵。

20050377 · 发表于 2009-10-29 07:49:45

看到了一群牛人，再看看自己，哎。

yffsyy · 发表于 2009-11-3 13:42:29

见识了，真是厉害。

		自动登录	找回密码
密码			注册

通知

[已解决] 悬赏帖，有人能做出这个东西，奖励50三维币

回复 32# siemens70 的帖子

评分

回复 33# woaishuijia、 32# siemens70 的帖子

回复 33# woaishuijia 的帖子

评分

回复 41# siemens70 的帖子

浏览过的版块

ljb19831002 ljb19831002 当前离线积分 644 UID 186997 主题在线时间小时注册时间 2006-11-1 头像被屏蔽	发表于 2009-10-26 10:26:33 \| 显示全部楼层来自：中国辽宁营口提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报