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

siemens70

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

ganyiwei

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

zj7758

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

siemens70

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

yizhi4669

这是结果，应该没问题！

yizhi4669

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

xuezhongfei2002

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

pss0902

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

marxbat

用LZ的坐标，在CAD中用spline画的，不知满足要求不？
5 E9 J/ n" p' s( ~# d

siemens70

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

pss0902

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

siemens70

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

pss0902

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

siemens70

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

pss0902

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

woaishuijia

6 A$ @) H/ \$ f* R使用下面代码前,按"123.dat"文件实际路径,修改代码第五行
) U* P& }; F) z1 g+ S2 ]1 V

1. 
   
2.     Dim I As Integer, S As String, P() As Double
   7 T% @) y$ e% v4 V- t8 L
3.     Dim L As Double, Lmin As Double, J As Integer, P1() As Double
   6 c, i, X* H  }8 F1 y
4.     Dim PL As AcadLWPolyline
   0 w# s+ g3 l) M, _- N5 j6 K2 M
5.     '从"123.dat"文件读入点坐标数据
   
6.     I = FreeFile()
   
7.     Open "C:\Documents and Settings\ZX\桌面\123.dat" For Input As I '打开文件,文件路径按实际路径修改
   
8.         Input #I, S '读入文件中最上面一行的文字
   
9.         ReDim P(1)
   
10.         Do '循环读入
    
11.             Input #I, P(UBound(P) - 1), P(UBound(P)) '读入一组坐标,放在数组最后面两个位置
    
12.             If EOF(I) Then '如果已读到文件结尾,则跳出循环
    
13.                 Exit Do
    
14.             Else '没到结尾,则重定义数组,增加一组坐标的位置
    
15.                 ReDim Preserve P(UBound(P) + 2)
    % C- F$ B# T9 P. {/ W9 p
16.             End If
    3 w% q9 ~/ H7 Y' ?1 P2 U
17.         Loop
    6 T1 o- f8 ~% }" z
18.     Close '关闭文件
    
19.     '如果需要按读入的坐标画多段线,去掉下面一行代码前面的单引号即可
    
20.     'ThisDrawing.ModelSpace.AddLightWeightPolyline P
    5 y* G; `) y& O% C, g
21. 
    # c( A4 X% f2 I7 O+ j
22.     '对坐标重新排序,画轮廓线
    
23.     ReDim P1(1)
    ' Y( N/ q. W1 L) z9 ^0 B% _
24.     P1(0) = P(UBound(P) - 1) '把P数组中最后一组坐标复制到P1数组中
    1 p; H  q! ~' b9 o5 e# i7 B
25.     P1(1) = P(UBound(P))
    
26.     Do Until UBound(P) = 1 '循环排序,当P1数组中的数据完全按规则移到P1数组中后结束循环
    1 l# ]# \" K# ~- A0 `
27.         ReDim Preserve P(UBound(P) - 2) '重定义P数组,去掉最后一组坐标
    
28.         Lmin = Sqr((P1(UBound(P1) - 1) - P(0)) ^ 2 + (P1(UBound(P1)) - P(1)) ^ 2) '计算P1数组最后一组坐标点到P数组第一组坐标点的距离,并记录为当前最小距离
    ' }1 s- L( p" J8 V3 j
29.         J = 0 '记录当前最小距离在P数组中的位置
    
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数组中的位置
    
33.                 Lmin = L
    7 B! p6 H5 a+ k! d
34.                 J = I
    8 f+ y& |1 s. t4 [+ o" ~7 n
35.             End If
    & o- P) V. |1 ^, E" c7 R
36.         Next
    , W: a3 X: C7 C
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. w- D9 K7 B. U
42.             P(I + 1) = P(I + 3)
    
43.         Next
      U; k' R1 ^: L, S2 p' f8 q
44.     Loop
    
45.     '按排序后的坐标数组P1画二维多段线
    . ~7 p$ [5 O$ P) |* x+ n- S
46.     Set PL = ThisDrawing.ModelSpace.AddLightWeightPolyline(P1)
    5 ^2 @& V! L4 G8 Y1 {
47.     PL.Closed = True '多段线闭合
    + Y, R0 `: z" h

复制代码

hfmgh

回复woaishuijia
2 i0 l4 z' o1 Y3 a3 O+ ]/ K8 k/ k请问老大! 你这代码怎么用?

wwwzzzvvv

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

hai123

应该容易吧，

woaishuijia

一、下载附件
　　1、下载附件后解压，得到“123.dvb”文件
: h# o; b# R7 L5 g　　2、在ACAD图形界面，命令行键入“VBALOAD”（或“工具”＞“宏”＞“加载工程”），在弹出的对话框中选择“123.dvb”文件，“打开”
　　3、“ALT+F11”（或“工具”＞“宏”＞“Visual Basic编辑器”），在打开的VBAIDE界面修改“123.dat”文件路径
　　4、“F5”运行程序，关闭IDE界面回到图形界面可看到画出的图形（或回到图形界面“ALT+F8”，选择要运行的宏“A”，“运行”。
+ M7 g7 d  m' S# U: z二、复制代码
% t0 O5 U- l) v- O　　1、“ALT+F11”（或“工具”＞“宏”＞“Visual Basic编辑器”），在打开的VBAIDE界面，双击“工程资源管理器”中“Thisdrawing"对象，在打开的代码窗口键入“SUB”、空格、宏名称，回车，在过程的中间部位粘贴代码，并修改“123.dat”文件路径
　　2、“F5”运行程序，关闭IDE界面回到图形界面可看到画出的图形（或回到图形界面“ALT+F8”，选择要运行的宏，“运行”。

jinzhufei

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

siemens70

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

woaishuijia

16楼的代码是一段 AutoCAD VBA 代码，附件是一个“rar”格式压缩文档--本版区不支持“dvb”格式文件上传--解压后得到“123.dvb”文件，这是包含了该代码的 AutoCAD VBA 工程文件。
$ t, h" u( F. b3 ?$ a3 Z附件的用法在 20 楼已经简单地介绍了，这里再用图文形式重新介绍一下。
一、下载 16 楼附件并解压。
; ]% D; F; _* d二、在 AutoCAD 主窗口新建一个文档。键入“VBALOAD”命令（或者“工具”菜单 > “宏” > “加载工程”，见图1）。
7 u- u. |+ g+ }9 L$ c1 p: Z8 A' }
6 ]9 w7 m5 \  Q' F2 _7 ~
三、在弹出的“打开 VBA 工程”对话框，选中左下角的“打开 Visual Basic 编辑器”复选框，再在文件目录中选择解压得到的“123.dvb”文件，打开。见图2。


, o. ^4 r& T  O7 t; U5 `四、在随之打开的 VBA IDE 窗口，修改图3中高亮显示的部分。改为你电脑中“123.dat”文件的实际完整路径。


五、关闭 VBA IDE 窗口，返回 AutoCAD 主窗口。键入“VBARUN”命令（或者“工具”菜单 > “宏” > “宏”，见图4）。
: E. ?$ t1 L  k+ \

" U  v& q' s/ r$ f" `0 k$ T六、在弹出的“宏”对话框上点“运行”。见图5。在图形界面上可以看到用闭合的二维多段线画出的图形。
( h5 u, O: J6 N4 T+ A1 w

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

pss0902

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

cleverhawk

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