自己做的一個讀取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, 10, PIC, &HFFFFFF)後就可以在PictureBox中通過滑鼠滾輪控製圖像的大小了

最後Youo_Draw_1.Get_Every_Point具有傳回值   返回一個我自訂的資料類型

Dim YouooのPicのPoint() As YouooのPic
YouooのPicのPoint = Youo_Draw_1.Get_Every_Point(1000, 10, PIC, &HFFFFFF)

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的人多交流交流