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

siemens70

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

ganyiwei

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

zj7758

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

siemens70

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

yizhi4669

这是结果，应该没问题！

yizhi4669

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

xuezhongfei2002

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

pss0902

文件没有问题，只是需要用记事本打开后处理一下。
4 m9 ]9 x# O2 J% H附CAD文件和处理后的数据。

marxbat

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

siemens70

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

pss0902

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

siemens70

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

pss0902

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

siemens70

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

pss0902

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

woaishuijia

使用下面代码前,按"123.dat"文件实际路径,修改代码第五行

1. 
   ) j& W- L- f5 [7 [+ O) Y; z
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
   / q& t3 D. ]! `1 L
5.     '从"123.dat"文件读入点坐标数据
   ; M! E; _" L3 k- P. k
6.     I = FreeFile()
   
7.     Open "C:\Documents and Settings\ZX\桌面\123.dat" For Input As I '打开文件,文件路径按实际路径修改
   / y3 l/ m0 s, }% }. ~4 z, O  h& S
8.         Input #I, S '读入文件中最上面一行的文字
   ! b- Z5 N! ^; C. {0 V; e3 T
9.         ReDim P(1)
   # J" b9 O! H$ [) F- ^8 k5 H
10.         Do '循环读入
    % Z/ d5 J1 G. H
11.             Input #I, P(UBound(P) - 1), P(UBound(P)) '读入一组坐标,放在数组最后面两个位置
    
12.             If EOF(I) Then '如果已读到文件结尾,则跳出循环
    
13.                 Exit Do
    & C1 V% J3 J! @% e
14.             Else '没到结尾,则重定义数组,增加一组坐标的位置
    
15.                 ReDim Preserve P(UBound(P) + 2)
    * U9 M* J* @4 M% W+ J  ]
16.             End If
    
17.         Loop
    8 K. k& Z, B4 d
18.     Close '关闭文件
    
19.     '如果需要按读入的坐标画多段线,去掉下面一行代码前面的单引号即可
    
20.     'ThisDrawing.ModelSpace.AddLightWeightPolyline P
    4 T( _5 K9 o$ f( G3 ~3 `1 v1 t& r+ C
21. 
    
22.     '对坐标重新排序,画轮廓线
    6 W" ?7 j' Y$ x, r! F
23.     ReDim P1(1)
    
24.     P1(0) = P(UBound(P) - 1) '把P数组中最后一组坐标复制到P1数组中
    
25.     P1(1) = P(UBound(P))
    3 q5 D1 A  ?6 E/ j
26.     Do Until UBound(P) = 1 '循环排序,当P1数组中的数据完全按规则移到P1数组中后结束循环
    
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数组第一组坐标点的距离,并记录为当前最小距离
    
29.         J = 0 '记录当前最小距离在P数组中的位置
    3 Z* n$ K9 [" p
30.         For I = 2 To UBound(P) - 1 Step 2 '从P数组第二组坐标点向后循环计算比对
    . S/ c- `1 q$ a6 y% [
31.             L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2) '计算P1数组最后一组坐标点到P数组当前坐标点的距离
    ( N: `% y6 G# ^
32.             If L < Lmin Then '如果当前两点距离小于记录的最小距离,则把当前距离记录为最小距离,并记录当前点在P数组中的位置
    # _& L2 M% Z; M# U$ P8 y
33.                 Lmin = L
    9 M+ |' S+ X+ |8 F$ V4 U
34.                 J = I
    
35.             End If
    
36.         Next
    
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)
    5 k# o  A: f" k, ]! \: z1 k/ k
40.         For I = J To UBound(P) - 3 '把P1数组中移出点坐标后面的坐标数据顺序前移
    
41.             P(I) = P(I + 2)
    9 J: Y8 V. @& O& X5 f6 M+ Y+ t
42.             P(I + 1) = P(I + 3)
    & N" ~. g$ p( B5 ^4 v- a& a
43.         Next
    # v) @& g0 C- {" y9 G# Q. q
44.     Loop
    
45.     '按排序后的坐标数组P1画二维多段线
    $ ]8 W" o8 ~6 r; [
46.     Set PL = ThisDrawing.ModelSpace.AddLightWeightPolyline(P1)
    8 t+ J9 U4 ]- v' ^
47.     PL.Closed = True '多段线闭合
    - B/ w5 ]9 N& w6 Y  E8 L

复制代码

hfmgh

回复woaishuijia
4 f" P. X# F. I2 g. \请问老大! 你这代码怎么用?

wwwzzzvvv

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

hai123

应该容易吧，

woaishuijia

一、下载附件
) g! Y6 v. t0 W　　1、下载附件后解压，得到“123.dvb”文件
　　2、在ACAD图形界面，命令行键入“VBALOAD”（或“工具”＞“宏”＞“加载工程”），在弹出的对话框中选择“123.dvb”文件，“打开”
　　3、“ALT+F11”（或“工具”＞“宏”＞“Visual Basic编辑器”），在打开的VBAIDE界面修改“123.dat”文件路径
　　4、“F5”运行程序，关闭IDE界面回到图形界面可看到画出的图形（或回到图形界面“ALT+F8”，选择要运行的宏“A”，“运行”。
* _" F2 ~4 w( i" s% x二、复制代码
: ~  ]8 s" l7 i  x7 K　　1、“ALT+F11”（或“工具”＞“宏”＞“Visual Basic编辑器”），在打开的VBAIDE界面，双击“工程资源管理器”中“Thisdrawing"对象，在打开的代码窗口键入“SUB”、空格、宏名称，回车，在过程的中间部位粘贴代码，并修改“123.dat”文件路径
- ]  f5 Q1 i+ R7 I2 l9 b　　2、“F5”运行程序，关闭IDE界面回到图形界面可看到画出的图形（或回到图形界面“ALT+F8”，选择要运行的宏，“运行”。

jinzhufei

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

siemens70

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

woaishuijia

16楼的代码是一段 AutoCAD VBA 代码，附件是一个“rar”格式压缩文档--本版区不支持“dvb”格式文件上传--解压后得到“123.dvb”文件，这是包含了该代码的 AutoCAD VBA 工程文件。
附件的用法在 20 楼已经简单地介绍了，这里再用图文形式重新介绍一下。
! z/ W3 q8 |! U! t- M6 Y) Z8 K一、下载 16 楼附件并解压。
9 P. R/ s9 W: w! v! H7 X# x二、在 AutoCAD 主窗口新建一个文档。键入“VBALOAD”命令（或者“工具”菜单 > “宏” > “加载工程”，见图1）。


三、在弹出的“打开 VBA 工程”对话框，选中左下角的“打开 Visual Basic 编辑器”复选框，再在文件目录中选择解压得到的“123.dvb”文件，打开。见图2。
+ y' H4 d* t" z0 Z
3 f7 N# i+ l( D
. Y- ^1 x# y0 \  o8 q5 X四、在随之打开的 VBA IDE 窗口，修改图3中高亮显示的部分。改为你电脑中“123.dat”文件的实际完整路径。

' M; k$ d1 T  T' A- i
2 I# K  e1 E$ ]( D6 Z* q五、关闭 VBA IDE 窗口，返回 AutoCAD 主窗口。键入“VBARUN”命令（或者“工具”菜单 > “宏” > “宏”，见图4）。
) x& y$ y) [1 N9 S" W5 ?

! F" j6 k3 k! S7 B8 v/ y六、在弹出的“宏”对话框上点“运行”。见图5。在图形界面上可以看到用闭合的二维多段线画出的图形。
6 ^6 y5 m, `/ n7 l7 q& W0 s
  t( k% d9 `+ `5 f& b
    这段程序是针对楼主的具体问题而编写的，并不具有广泛的实用意义。事实上，如果仅仅是根据点坐标数据画出图形，6 楼 yizhi4669 朋友提供的方法是最好的。只是当楼主在 10 楼提出要画的是轮廓时，问题才变得复杂起来。就像 13 楼七心海棠朋友所说，这涉及到点坐标的重新排序。通常大家会采用逐点连接的方法把它硬画出来，就像七心海棠朋友所做的一样。但我认为，这只是找不到好办法时的笨办法。其实好办法是有的，在对付重复性很强的工作--就像这个问题中的点坐标排序，还有平时某些设计方案的优选--时，最适合的方法就是 AutoCAD 的二次开发功能，比如 VBA 或 LISP，这段代码就是用 VBA 编写的。

pss0902

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

cleverhawk

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