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)