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

siemens70

我这里有一些点的坐标，那位朋友如果能用这些点坐标画出二维图形，奖励50三维币

ganyiwei

一定要用CAD吗？ 其他软件做行不行？

zj7758

坐标改成相对 然后一个一个弄过去？？？？ :lol:

siemens70

或者使用UG，别的不要，我不用的，

yizhi4669

这是结果，应该没问题！

yizhi4669

注意在第三列中的函数，复制第三列中的所有数据，剩下的事就非常简单了，在cad中输入pline，在命令行中粘贴数据，然后你就可以看到结果了。
6 y: z# s8 @& U, r自动画图很爽！

xuezhongfei2002

楼主的文件可能有问题，请看图

pss0902

文件没有问题，只是需要用记事本打开后处理一下。
附CAD文件和处理后的数据。

marxbat

用LZ的坐标，在CAD中用spline画的，不知满足要求不？

siemens70

我要的是这个样子的图形，有人能帮忙么

pss0902

没问题，第一个文件是用封闭多段线做的，第二个文件是用样条曲线做的。

siemens70

麻烦朋友说说，是怎么做出来的呀，多谢了。

pss0902

用多段线或样条曲线，一个个点描出来的，对点的坐标重新排序很困难的，太费时间，也容易出错。

siemens70

楼主是不是，先画出8楼的图形，然后根据外形描出出来的呀

pss0902

是，按我在8楼的图形再用多段线或样条曲线把所有直线的端点连起来。

woaishuijia

使用下面代码前,按"123.dat"文件实际路径,修改代码第五行
3 e, {% T; D' P  }' `, Y

1. 
   ; O0 E9 W4 q* j) s( h3 J! I' {$ G
2.     Dim I As Integer, S As String, P() As Double
   
3.     Dim L As Double, Lmin As Double, J As Integer, P1() As Double
   
4.     Dim PL As AcadLWPolyline
   + l9 g3 R: u# n; s
5.     '从"123.dat"文件读入点坐标数据
   
6.     I = FreeFile()
     I. h0 c* U8 L8 _
7.     Open "C:\Documents and Settings\ZX\桌面\123.dat" For Input As I '打开文件,文件路径按实际路径修改
   - b) ?+ N0 G* V. T  [
8.         Input #I, S '读入文件中最上面一行的文字
   
9.         ReDim P(1)
   
10.         Do '循环读入
    , H; y+ I$ Q5 j' s: Q. [
11.             Input #I, P(UBound(P) - 1), P(UBound(P)) '读入一组坐标,放在数组最后面两个位置
    & v, q+ P% f; T/ i
12.             If EOF(I) Then '如果已读到文件结尾,则跳出循环
    : @) V) `/ Z$ k" O8 h' ^
13.                 Exit Do
    
14.             Else '没到结尾,则重定义数组,增加一组坐标的位置
    
15.                 ReDim Preserve P(UBound(P) + 2)
    
16.             End If
    3 q: @# Y$ l0 q; q9 f. L
17.         Loop
    
18.     Close '关闭文件
    % u$ `3 [0 ~& n! `& Y4 j
19.     '如果需要按读入的坐标画多段线,去掉下面一行代码前面的单引号即可
    & c/ F8 E- ~% A2 J/ f1 P
20.     'ThisDrawing.ModelSpace.AddLightWeightPolyline P
    
21. 
    
22.     '对坐标重新排序,画轮廓线
    " A1 c9 L3 U0 E
23.     ReDim P1(1)
    8 b0 g5 ^& K8 N2 a4 C: j
24.     P1(0) = P(UBound(P) - 1) '把P数组中最后一组坐标复制到P1数组中
    
25.     P1(1) = P(UBound(P))
    5 h4 ^% a2 u& ]8 T) T  V  T( H3 ?  b2 b
26.     Do Until UBound(P) = 1 '循环排序,当P1数组中的数据完全按规则移到P1数组中后结束循环
    . w; K" T$ \- t( O* n4 P) U
27.         ReDim Preserve P(UBound(P) - 2) '重定义P数组,去掉最后一组坐标
    $ n3 g5 Z8 l7 S! @( w; i
28.         Lmin = Sqr((P1(UBound(P1) - 1) - P(0)) ^ 2 + (P1(UBound(P1)) - P(1)) ^ 2) '计算P1数组最后一组坐标点到P数组第一组坐标点的距离,并记录为当前最小距离
    2 s& i1 m2 Z& f
29.         J = 0 '记录当前最小距离在P数组中的位置
    ( ~+ Z+ X- z: E; z9 F3 d% c
30.         For I = 2 To UBound(P) - 1 Step 2 '从P数组第二组坐标点向后循环计算比对
    
31.             L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2) '计算P1数组最后一组坐标点到P数组当前坐标点的距离
    
32.             If L < Lmin Then '如果当前两点距离小于记录的最小距离,则把当前距离记录为最小距离,并记录当前点在P数组中的位置
      ~) H" b& ^: G- c# }2 ~) g) P/ k
33.                 Lmin = L
    $ G8 B, G' ^- b0 O5 G* @7 @* W& J
34.                 J = I
    
35.             End If
    : J6 [7 f. T! P# R0 V
36.         Next
    0 K* _8 a4 y0 t% }- A: ^/ {
37.         ReDim Preserve P1(UBound(P1) + 2) '重定义P1数组,增加一组坐标的位置
    
38.         P1(UBound(P1) - 1) = P(J) '把P数组中找到的与P1数组最后一组坐标点距离最近的点坐标复制到P1数组后面新增加的位置
    
39.         P1(UBound(P1)) = P(J + 1)
    
40.         For I = J To UBound(P) - 3 '把P1数组中移出点坐标后面的坐标数据顺序前移
    
41.             P(I) = P(I + 2)
    . t* `' K8 [7 j' N
42.             P(I + 1) = P(I + 3)
    , r, B" r0 y/ }0 F. A0 _/ s
43.         Next
    
44.     Loop
    
45.     '按排序后的坐标数组P1画二维多段线
    3 z* V; k/ ]& o! S" H9 ~
46.     Set PL = ThisDrawing.ModelSpace.AddLightWeightPolyline(P1)
    1 A0 K  N* ]$ i! p
47.     PL.Closed = True '多段线闭合
    ' b3 |; T" x( T6 T

复制代码

hfmgh

回复woaishuijia
4 f' G/ C% L- j3 w6 K请问老大! 你这代码怎么用?

wwwzzzvvv

三维币不是那么好挣的呀。。。。。。

hai123

应该容易吧，

woaishuijia

一、下载附件
　　1、下载附件后解压，得到“123.dvb”文件
, ^! N6 ~: y/ z" j# n　　2、在ACAD图形界面，命令行键入“VBALOAD”（或“工具”＞“宏”＞“加载工程”），在弹出的对话框中选择“123.dvb”文件，“打开”
　　3、“ALT+F11”（或“工具”＞“宏”＞“Visual Basic编辑器”），在打开的VBAIDE界面修改“123.dat”文件路径
　　4、“F5”运行程序，关闭IDE界面回到图形界面可看到画出的图形（或回到图形界面“ALT+F8”，选择要运行的宏“A”，“运行”。
二、复制代码
/ }. R9 F) K3 M5 |4 ~2 O! I& [4 c　　1、“ALT+F11”（或“工具”＞“宏”＞“Visual Basic编辑器”），在打开的VBAIDE界面，双击“工程资源管理器”中“Thisdrawing"对象，在打开的代码窗口键入“SUB”、空格、宏名称，回车，在过程的中间部位粘贴代码，并修改“123.dat”文件路径
+ P3 @2 C6 F, M- f　　2、“F5”运行程序，关闭IDE界面回到图形界面可看到画出的图形（或回到图形界面“ALT+F8”，选择要运行的宏，“运行”。

jinzhufei

这个用ug做出来，
在倒出来可不可以呀

siemens70

感谢我爱谁家老大的回复，我还不是看的不是很明白，老大能不能发个视屏教程，和讲讲那个附件是怎么生成的，多谢了，老大

woaishuijia

16楼的代码是一段 AutoCAD VBA 代码，附件是一个“rar”格式压缩文档--本版区不支持“dvb”格式文件上传--解压后得到“123.dvb”文件，这是包含了该代码的 AutoCAD VBA 工程文件。
( Z* N( B$ t% i/ f) t2 ^1 T附件的用法在 20 楼已经简单地介绍了，这里再用图文形式重新介绍一下。
一、下载 16 楼附件并解压。
( z) N3 U. u3 W. \" I6 W二、在 AutoCAD 主窗口新建一个文档。键入“VBALOAD”命令（或者“工具”菜单 > “宏” > “加载工程”，见图1）。
) R; S- C& w4 q$ q8 {
, s, |. T& Z; b
' q5 z4 ^2 l+ R! i/ W# J三、在弹出的“打开 VBA 工程”对话框，选中左下角的“打开 Visual Basic 编辑器”复选框，再在文件目录中选择解压得到的“123.dvb”文件，打开。见图2。


7 N7 F; t6 E( g& j' k8 K四、在随之打开的 VBA IDE 窗口，修改图3中高亮显示的部分。改为你电脑中“123.dat”文件的实际完整路径。

8 B5 V- T8 d3 }
五、关闭 VBA IDE 窗口，返回 AutoCAD 主窗口。键入“VBARUN”命令（或者“工具”菜单 > “宏” > “宏”，见图4）。
0 C; B5 ]% \; n5 F1 w  @

六、在弹出的“宏”对话框上点“运行”。见图5。在图形界面上可以看到用闭合的二维多段线画出的图形。

; N3 l7 p0 _, d, _! ?! S% `. \
    这段程序是针对楼主的具体问题而编写的，并不具有广泛的实用意义。事实上，如果仅仅是根据点坐标数据画出图形，6 楼 yizhi4669 朋友提供的方法是最好的。只是当楼主在 10 楼提出要画的是轮廓时，问题才变得复杂起来。就像 13 楼七心海棠朋友所说，这涉及到点坐标的重新排序。通常大家会采用逐点连接的方法把它硬画出来，就像七心海棠朋友所做的一样。但我认为，这只是找不到好办法时的笨办法。其实好办法是有的，在对付重复性很强的工作--就像这个问题中的点坐标排序，还有平时某些设计方案的优选--时，最适合的方法就是 AutoCAD 的二次开发功能，比如 VBA 或 LISP，这段代码就是用 VBA 编写的。

pss0902

woaishuijia版主介绍的办法是很一个很好的办法，值得学习。
0 w; m: r/ S; w2 r2 I2 |, w使用VBA或LISP进行二次开发（就象woaishuijia版主为siemens70版主编写的这段代码一样），对于绝大多数CAD使用者来说，有点苛求，他们不会或者很少用到这些方法，甚至连现成的代码怎么用都不会，这其中也包括我在内。

cleverhawk

这个用PROE做出来，再倒出来到CAD可不可以呀?