自己做的一个读取DXF并将图形转换成点(逐点比较法)输出的控件
花了3天时间做了个读取DXF并将图形转换成点(逐点比较法)输出的控件 下面是它的一个DAMO 由于只是简单的测试所以没怎么弄这个DAMO o(╯□╰)o 在DAMO中使用Youo_Draw_1.Get_Every_Point(1000,10,PIC,&HFFFFFF)就可以实现文件图像的输出了, 其中Youo_Draw_1是我做的控件的名子,1000用于调整图片的位置,10是每次将图像分解的分辨率,PIC是你绘制图形所在的PictureBox,它是个可选输入,&HFFFFFF是颜色 打开DXF文件后 它就自动的绘制出图像 使用Youo_Draw_1.Get_Every_Point(1000,&HFFFFFF)后就可以在PictureBox中通过鼠标滚轮控制图像的大小了 最后Youo_Draw_1.Get_Every_Point具有返回值 返回一个我自定义的数据类型 Dim YouooのPicのPoint() As YouooのPic YouooのPicのPoint(0).Key '第一个图形的类型,现阶段只支持直线,圆弧和圆。(没办法还不会用逐点比较实现椭圆) YouooのPicのPoint(0).PicのPoint(0).YouooのX ‘第一个图形的第一个点的X坐标 YouooのPicのPoint(0).PicのPoint(0).YouooのY ‘第一个图形的第一个点的Y坐标 YouooのPicのPoint(0).PointのSum '图形分解出来的总的点数 ?未来展望? 控件中包含了个MSCOM,将用于将点进行串口传输,最后实现自动寻找硬件所在的串口并通过串口实现激光灯对图像的绘制 PS:呵呵~~ 由于我才学VB 3个多月 所以有些错误也是不可避免的 (*^__^*)…… 希望能和喜欢VB的人多交流交流 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |