CAD/CAM/CNC行業常用功能解決方式

進行線切割的時候通常需要得到幾何上的點；如何是直線段比較容易，但是對于圓弧、橢圓、曲線就需要調用專用的函數來解決了。 1. ?得到Polyline（多義線）信息，多數機器可以加工LINE ARC 遇到Polyline的時候需要炸開進行處理； Private Sub Command1_Click() Dim objid As Long '得到當前文件的第一個圖形元素ID,-1代表所有元素 objid = MicroDrawOcx1.GetFirstObject(-1) While objid > 0 '遍歷所有元素，循環得到objid '添加處理代碼... If MicroDrawOcx1.GetObjectType(objid) = 12 Then ? MicroDrawOcx1.Explode objid, 0 End If objid = MicroDrawOcx1.GetNextObject(objid) Wend End Sub 2. 炸開所有塊（包括塊嵌套） Private Sub Command2_Click() Dim objid As Long '得到當前文件的第一個圖形元素ID,-1代表所有元素 objid = MicroDrawOcx1.GetFirstObject(-1) While objid > 0 '遍歷所有元素，循環得到objid If MicroDrawOcx1.GetObjectType(objid) = 12 Then '多義線 ? MicroDrawOcx1.Explode objid, 0 ElseIf MicroDrawOcx1.GetObjectType(objid) = 22 Then '塊插入 INSERT ? MicroDrawOcx1.Explode objid, 0 ? objid = MicroDrawOcx1.GetFirstObject(-1) '炸開塊后重新循環，目的是將文件內所有塊，包括塊嵌套都統統炸開 End If objid = MicroDrawOcx1.GetNextObject(objid) Wend End Sub 3 將相鄰的線段圓弧及polyline擬合成polyline ? ?將指定的元素擬合為多一線，可以是選擇的元素或者全部元素 ? ? CreatePolyByObjectList(long objid, long flag)

轉載于:https://blog.51cto.com/microdraw/1391229

總結

以上是生活随笔為你收集整理的CAD/CAM/CNC行业常用功能解决方式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。