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

siemens70 · 发表于 2009-10-24 20:47:55

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

ganyiwei · 发表于 2009-10-24 21:20:08

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

zj7758 · 发表于 2009-10-24 21:34:36

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

:lol:

siemens70 · 发表于 2009-10-24 21:40:39

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

yizhi4669 · 发表于 2009-10-24 22:03:14

这是结果，应该没问题！

yizhi4669 · 发表于 2009-10-24 22:08:32

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

xuezhongfei2002 · 发表于 2009-10-24 22:09:15

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

pss0902 · 发表于 2009-10-24 22:15:13

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

marxbat · 发表于 2009-10-24 22:53:42

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

siemens70 · 发表于 2009-10-24 22:56:02

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

pss0902 · 发表于 2009-10-24 23:27:39

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

siemens70 · 发表于 2009-10-25 01:03:20

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

pss0902 · 发表于 2009-10-25 04:57:16

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

siemens70 · 发表于 2009-10-25 06:03:29

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

pss0902 · 发表于 2009-10-25 07:03:28

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

woaishuijia · 发表于 2009-10-25 08:01:56

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

6 S5 Q' M6 k1 H" X F& }6 x
Dim I As Integer, S As String, P() As Double
" t9 a( |9 h3 I8 R- \
Dim L As Double, Lmin As Double, J As Integer, P1() As Double) C/ _; G3 M- p1 C% M! _1 @
Dim PL As AcadLWPolyline( [) G' F' ^& C' R' w+ \8 Q+ H
'从"123.dat"文件读入点坐标数据
+ x3 z; }' G7 E6 R9 o. X7 F' T5 ]+ z
I = FreeFile()
8 t: L; i6 q2 O4 t: F
Open "C:\Documents and Settings\ZX\桌面\123.dat" For Input As I '打开文件,文件路径按实际路径修改
; }' O$ F% T4 i+ s: m- _+ W C2 }
Input #I, S '读入文件中最上面一行的文字
) y; b) X2 E; J& M# i [2 c
ReDim P(1)/ x) @% Y% f0 b& p" h8 h
Do '循环读入2 E( @% I. o+ O+ b+ M
Input #I, P(UBound(P) - 1), P(UBound(P)) '读入一组坐标,放在数组最后面两个位置
* l. ?$ `. ]1 r
If EOF(I) Then '如果已读到文件结尾,则跳出循环0 b* j8 ~! s( _' n* H0 r
Exit Do& k! w, ~% T7 B$ `% c7 f7 ?
Else '没到结尾,则重定义数组,增加一组坐标的位置2 \. i- P! e& H. Z" F
ReDim Preserve P(UBound(P) + 2)
* N4 k" L! E& R0 J6 f; i
End If
0 G& B$ R9 q7 N7 j+ U6 G
Loop8 |; K4 M7 Z9 e& n
Close '关闭文件
6 E; L& p1 s- \+ W# j1 j# E& `
'如果需要按读入的坐标画多段线,去掉下面一行代码前面的单引号即可
" A" B7 H2 _# F- b9 P
'ThisDrawing.ModelSpace.AddLightWeightPolyline P' w, {7 ?; _- U
$ ~- c c2 O+ h2 I$ _1 F) H6 s
'对坐标重新排序,画轮廓线
0 {. M0 P7 g6 W/ w
ReDim P1(1)
- y# t' `* k: V3 h1 e7 }8 P
P1(0) = P(UBound(P) - 1) '把P数组中最后一组坐标复制到P1数组中
7 l7 A, J0 _/ ^( p
P1(1) = P(UBound(P)). W$ i% L/ V' O) ?: M
Do Until UBound(P) = 1 '循环排序,当P1数组中的数据完全按规则移到P1数组中后结束循环4 ^9 q9 I4 B8 m3 R/ K- _
ReDim Preserve P(UBound(P) - 2) '重定义P数组,去掉最后一组坐标
. w4 ]/ y/ I) _) Z
Lmin = Sqr((P1(UBound(P1) - 1) - P(0)) ^ 2 + (P1(UBound(P1)) - P(1)) ^ 2) '计算P1数组最后一组坐标点到P数组第一组坐标点的距离,并记录为当前最小距离" z3 B. s( i6 H7 \# f
J = 0 '记录当前最小距离在P数组中的位置
# H2 B" H8 S7 u5 z
For I = 2 To UBound(P) - 1 Step 2 '从P数组第二组坐标点向后循环计算比对
' R5 ~* L' d& D! w
L = Sqr((P1(UBound(P1) - 1) - P(I)) ^ 2 + (P1(UBound(P1)) - P(I + 1)) ^ 2) '计算P1数组最后一组坐标点到P数组当前坐标点的距离0 V# g- u( U; u6 n5 f$ y
If L < Lmin Then '如果当前两点距离小于记录的最小距离,则把当前距离记录为最小距离,并记录当前点在P数组中的位置7 g1 T" b8 N7 U: [8 U; Z4 j" y9 N
Lmin = L" _: S% e& A3 X3 O+ c0 ^8 u
J = I
# j! q# i% V: A, q# Q2 _: {" X
End If) A. h+ R1 t9 ], G8 n0 v
Next$ h, J& `' r! j x3 W2 ^
ReDim Preserve P1(UBound(P1) + 2) '重定义P1数组,增加一组坐标的位置& ?0 f3 X4 k6 R9 a3 f9 V3 W
P1(UBound(P1) - 1) = P(J) '把P数组中找到的与P1数组最后一组坐标点距离最近的点坐标复制到P1数组后面新增加的位置 W6 N2 q& m- v/ o1 ]
P1(UBound(P1)) = P(J + 1)
8 o/ Z- T+ y# I3 i. b# _8 ]
For I = J To UBound(P) - 3 '把P1数组中移出点坐标后面的坐标数据顺序前移* A+ O! [4 N# R
P(I) = P(I + 2)
" ?- u0 K8 ]: Z7 d7 z9 E! a4 p
P(I + 1) = P(I + 3)3 }+ j1 M' T7 Q9 E) z! V+ D& R7 e
Next
9 T7 }# [4 i! S- n9 J o5 E: Y2 Y
Loop
6 A C6 d6 U' T3 x4 ?; A, S
'按排序后的坐标数组P1画二维多段线
; g3 P" v6 A) y1 k' T5 l) e
Set PL = ThisDrawing.ModelSpace.AddLightWeightPolyline(P1). m* L& E( `5 c& U K4 o
PL.Closed = True '多段线闭合
& F6 J5 s0 s2 E6 @- P* E

复制代码

hfmgh · 发表于 2009-10-25 09:47:16

回复woaishuijia
请问老大! 你这代码怎么用?

wwwzzzvvv · 发表于 2009-10-25 10:15:41

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

hai123 · 发表于 2009-10-25 10:45:49

应该容易吧，

woaishuijia · 发表于 2009-10-25 14:49:27

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

jinzhufei · 发表于 2009-10-25 15:06:20

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

siemens70 · 发表于 2009-10-25 21:10:26

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

woaishuijia · 发表于 2009-10-26 09:04:12

16楼的代码是一段 AutoCAD VBA 代码，附件是一个“rar”格式压缩文档--本版区不支持“dvb”格式文件上传--解压后得到“123.dvb”文件，这是包含了该代码的 AutoCAD VBA 工程文件。
附件的用法在 20 楼已经简单地介绍了，这里再用图文形式重新介绍一下。
一、下载 16 楼附件并解压。
二、在 AutoCAD 主窗口新建一个文档。键入“VBALOAD”命令（或者“工具”菜单 > “宏” > “加载工程”，见图1）。

三、在弹出的“打开 VBA 工程”对话框，选中左下角的“打开 Visual Basic 编辑器”复选框，再在文件目录中选择解压得到的“123.dvb”文件，打开。见图2。

四、在随之打开的 VBA IDE 窗口，修改图3中高亮显示的部分。改为你电脑中“123.dat”文件的实际完整路径。

五、关闭 VBA IDE 窗口，返回 AutoCAD 主窗口。键入“VBARUN”命令（或者“工具”菜单 > “宏” > “宏”，见图4）。

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

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

pss0902 · 发表于 2009-10-26 09:20:49

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

cleverhawk · 发表于 2009-10-26 09:34:40

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

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

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

你看看结果

你的数据，导入EXCEL

评分

评分

评分

回复 14# siemens70 的帖子

评分

回复 17# hfmgh 的帖子

评分

评分

浏览过的版块