田草博客
日志搜索


 标题   内容 评论


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件
-电信用户-|-网通用户-
-博客论坛-|-软件下载-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2019 - 6 48
      1
2345678
9101112131415
16171819202122
23242526272829
30


站点统计

最新评论



你需要什么样的软件请你告诉我? 关闭了系统日志服务后就不能开通IIs服务了
未知 用VB实现BMP JPG GiF 等图片转换成CAD的DwG文件   [ 日期:2007-04-14 ]   [ 来自:本站原创 ]  HTML


用VB实现BMP JPG GiF 等图片转换成CAD的DwG文件


恭喜大家鼠年快乐,赚鼠不尽钞票啊。


哈哈现在基本实现了。2008年新年到了。看看下面几张图片。看完下面的图片我想你应该知道我是怎么弄出来的吧。

原图

按此在新窗口打开图片

黑色图片

按此在新窗口打开图片

降低分辨率后的图

按此在新窗口打开图片

在CAD绘制出点阵图

按此在新窗口打开图片

取得边界点

按此在新窗口打开图片

绘制出边界线

按此在新窗口打开图片


    从左上角开始。每一行,如果点像素超过某个RGB值,记录下来放到P1中,继续查找,直到某个像素值淡到一定的RGB值停,记录点P2 绘制直线P1P2。继续往下扫描。


设置picture1的AutoRedraw为True;
接着设置ScaleMode为3;
再用PictureBox加载你的黑白图;
然后Lum=Point(X,Y),获得坐标(X,Y)这个像素的RGB颜色;
再提取R,G,B出来,
r = Lum Mod 256
g = (Lum Mod 65536) / 256
B = (Lum Mod 16777216) / 65536


我的得到的是一个 long值,其实将这个值转换成十六进制的值,那么他的前两为就是red,中间就是green,后面两位就是blue。

Picture1为存放源图片的控件,Picture2为转换后的目标控件.
Dim red As Integer   
Dim green As Integer   
Dim blue As Integer    
Dim c As Long    
Dim graycolor As Long    
Dim x0 As Integer    
Dim y0 As Integer    
For x0 = 0 To Picture1.Width    
For y0 = 0 To Picture1.Height        
c = Picture1.Point(x0, y0)       
 red = (c And &HFF)        
green = (c And 62580) / 256        
blue = (c And &HFF00) / 65536        
graycolor = (red + green + blue) / 3        
Picture2.PSet (x0, y0), RGB(graycolor, graycolor, graycolor)        
DoEvents    
Next    
Next



已经初步完成: 
 
下面是刚画的图: 

按此在新窗口打开图片

    其实我也知道,已经有很多这样的软件了,大多是国外的。我用过几个,他们的缺点一是不能转换的比较像一个图型,二是转换后的可编辑性小。当然第一个同样可能满足不了。但是再第二点上我想我还是应该能做到的。


还有个问题就是数据文件的建立和读取,一开始我是使用顺序文件的读写,感觉不好,在读取的过程中老出现错误。不如用二进制文件读写。

下面是的签名转换。

按此在新窗口打开图片




[本日志由 田草 于 2008-01-29 08:52 PM 编辑]


引用这个评论 tiancao1001 于 2008-12-30 05:06 PM 发表评论: 
可以QQ:交流327750885

引用这个评论 zcmjw 于 2008-12-30 04:37 PM 发表评论: 
再剖:结果如何再导入CAD 软件中?

引用这个评论 tiancao1001 于 2008-12-29 04:47 PM 发表评论: 
还有一个在CAD的VBA里面的文件。
在田草工具箱源文件中,可以找到

引用这个评论 zcmjw 于 2008-12-29 01:07 PM 发表评论: 
试问站长:
   转换结果导出并保存TXT文件,如何再导入CAD 软件中????
 谢谢!!!!!

引用这个评论 田草 于 2008-01-19 09:48 AM 发表评论: 

点击下载此文件

引用这个评论 wzsuda 于 2007-07-17 09:24 AM 发表评论: 
哎 怎么做的啊 

引用这个评论 田草 于 2007-07-11 09:40 PM 发表评论: 
看看在复杂的图片也能绘制出来
按此在新窗口打开图片

发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:2*2=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©