最新网站模板免费下载,网站建设实验周志与总结,宣传片制作公司资质,全国建筑工程企业资质查询平台CAD/CAM/CNC行业常用功能解决方式进行线切割的时候通常需要得到几何上的点#xff1b;如何是直线段比较容易#xff0c;但是对于圆弧、椭圆、曲线就需要调用专用的函数来解决了。1. 得到Polyline#xff08;多义线#xff09;信息#xff0c;多数机器可以加工LINE ARC 遇… 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
