练习自相交Pline在自交点处断开

csharp · 发表于 2014-7-19 09:36:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

两个判断函数

/// <summary>
/// 判断Polyline是否自相交
/// </summary>
/// <param name="cv">Curve (Polyline)</param>
/// <returns>true of false</returns>
private bool SelfInters(Curve cv)
{
Curve3d c3d = cv.GetGeCurve();
Plane plan = cv.GetPlane();
Vector3d vec = plan.Normal;
CurveCurveIntersector3d cci3d = new CurveCurveIntersector3d(c3d, c3d, vec);
if (cci3d.NumberOfIntersectionPoints > 0)
{
return true;
}
else
{
return false;
}
}

获取自交点参数

/// <summary>
/// 返回自相交Polyline自相交点Params
/// </summary>
/// <param name="cv">Curve(Polyline)</param>
/// <returns>DoubleCollection or null</returns>
private static object PolylineSelfIntersPams(Curve cv)
{
Curve3d c3d = cv.GetGeCurve();
Plane plan = cv.GetPlane();
Vector3d vec = plan.Normal;
CurveCurveIntersector3d cci3d = new CurveCurveIntersector3d(c3d, c3d, vec);
int n = cci3d.NumberOfIntersectionPoints;
if (n > 0)
{
List<double> lpams = new List<double>();
for (int i = 0; i < n; i++)
{
double[] pams = cci3d.GetIntersectionParameters(i);
for (int j = 0; j < pams.Length; j++)
{
lpams.Add(pams[j]);
}
}
lpams.Sort();
DoubleCollection iCol = new DoubleCollection();
iCol.Add(cv.GetParameterAtDistance(lpams[0]));
for (int i = 1; i < lpams.Count; i++)
{
if (lpams[i] - iCol[i - 1] > 1e-6)
{
iCol.Add(cv.GetParameterAtDistance( lpams[i]));
}
}
return iCol;
}
else
{
return null;
}
}

/// <summary> 
        /// 返回自相交Polyline自相交点Params 
        /// </summary> 
        /// <param name="cv">Curve(Polyline)</param> 
        /// <returns>DoubleCollection or null</returns> 
        private static  object  PolylineSelfIntersPams(Curve cv) 
        { 
            Curve3d c3d = cv.GetGeCurve(); 
            Plane plan = cv.GetPlane(); 
            Vector3d vec = plan.Normal; 
            CurveCurveIntersector3d cci3d = new CurveCurveIntersector3d(c3d, c3d, vec); 
            int n = cci3d.NumberOfIntersectionPoints; 
            if (n > 0) 
            { 
                List<double> lpams = new List<double>(); 
                for (int i = 0; i < n; i++) 
                { 
                    double[] pams = cci3d.GetIntersectionParameters(i); 
                    for (int j = 0; j < pams.Length; j++) 
                    { 
                        lpams.Add(pams[j]); 
                    } 
                } 
                lpams.Sort(); 
                DoubleCollection iCol = new DoubleCollection(); 
                iCol.Add(cv.GetParameterAtDistance(lpams[0])); 
                for (int i = 1; i < lpams.Count; i++) 
                { 
                    if (lpams[i] - iCol[i - 1] > 1e-6) 
                    { 
                        iCol.Add(cv.GetParameterAtDistance( lpams[i])); 
                    } 
                } 
                return iCol; 
            } 
            else 
            { 
                return null; 
            } 
        }

csharp · 发表于 2014-7-19 09:38:09

两个 LispFunction

/// <summary>
/// 判断Pline是否自相交
/// </summary>
/// <param name="rb">Entity (pline)</param>
/// <returns>T or nil </returns>
[LispFunction("IsSelfInters")]
public object PolylineSelfInters(ResultBuffer rb)
{
Document doc = Application.DocumentManager.MdiActiveDocument;
TypedValue[] values = rb.AsArray();
if (values.Length == 1 && values[0].TypeCode == (int)LispDataType.ObjectId)
{
ObjectId id = (ObjectId)values[0].Value;
if (id.ObjectClass == RXClass.GetClass(typeof(Polyline)))
{
using (Transaction tr = doc.TransactionManager .StartTransaction() )
{
Entity ent = (Entity)id.GetObject(OpenMode.ForRead);
Curve cv = (Curve)ent;
if (SelfInters(cv))
{
tr.Commit();
return true;
}
else
{
return null;
}
}
}
}
return null;
}

/// <summary> 
        /// 判断Pline是否自相交 
        /// </summary> 
        /// <param name="rb">Entity (pline)</param> 
        /// <returns>T or nil </returns> 
        [LispFunction("IsSelfInters")] 
        public object PolylineSelfInters(ResultBuffer rb) 
        { 
            Document doc = Application.DocumentManager.MdiActiveDocument; 
            TypedValue[] values = rb.AsArray(); 
            if (values.Length == 1 && values[0].TypeCode == (int)LispDataType.ObjectId) 
            { 
                ObjectId id = (ObjectId)values[0].Value; 
                if (id.ObjectClass == RXClass.GetClass(typeof(Polyline))) 
                { 
                    using (Transaction tr = doc.TransactionManager .StartTransaction() ) 
                    { 
                        Entity ent = (Entity)id.GetObject(OpenMode.ForRead); 
                        Curve cv = (Curve)ent; 
                        if (SelfInters(cv)) 
                        { 
                            tr.Commit(); 
                            return true; 
                        } 
                        else 
                        { 
                            return null; 
                        } 
                    } 
                } 
            } 
            return null; 
        }

断开函数

/// <summary>
/// 自相交Pline在自交点处断开
/// </summary>
/// <param name="rb">pline</param>
/// <returns>成功 T ，失败 nil</returns>
[LispFunction("PolylineXTrim")]
public static object MyPolylineXTrim(ResultBuffer rb)
{
TypedValue[] values = rb.AsArray();
if (values .Length == 1 && values[0].TypeCode == (int)LispDataType .ObjectId )
{
ObjectId id = (ObjectId) values[0].Value;
Document doc = Application.DocumentManager.MdiActiveDocument;
if (id.ObjectClass == RXClass .GetClass( typeof (Polyline )))
{
using (Transaction tr = doc.TransactionManager .StartTransaction())
{
Entity ent = (Entity) id.GetObject(OpenMode.ForRead);
Curve cv = (Curve) ent;
var pams = PolylineSelfIntersPams(cv);
if (pams is DoubleCollection )
{
Database cdb = doc.Database;
BlockTableRecord btr = (BlockTableRecord) tr.GetObject(cdb.CurrentSpaceId , OpenMode.ForWrite);
cv.UpgradeOpen();
DBObjectCollection dbs = cv.GetSplitCurves((DoubleCollection) pams);
foreach (Curve db in dbs)
{
btr.AppendEntity(db);
tr.AddNewlyCreatedDBObject(db, true);
}
cv.Erase();
tr.Commit();
return true;
}
tr.Commit();
return null;
}
}
}
return null;
}

/// <summary> 
        /// 自相交Pline在自交点处断开 
        /// </summary> 
        /// <param name="rb">pline</param> 
        /// <returns>成功 T ，失败 nil</returns> 
        [LispFunction("PolylineXTrim")] 
        public static object   MyPolylineXTrim(ResultBuffer rb) 
        { 
            TypedValue[] values = rb.AsArray(); 
            if (values .Length == 1 && values[0].TypeCode == (int)LispDataType .ObjectId ) 
            { 
                ObjectId id = (ObjectId) values[0].Value; 
                Document doc = Application.DocumentManager.MdiActiveDocument; 
                if (id.ObjectClass == RXClass .GetClass( typeof (Polyline ))) 
                { 
                    using (Transaction tr = doc.TransactionManager .StartTransaction()) 
                    { 
                        Entity ent = (Entity) id.GetObject(OpenMode.ForRead); 
                        Curve cv = (Curve) ent; 
                        var pams = PolylineSelfIntersPams(cv); 
                        if (pams  is DoubleCollection ) 
                        { 
                            Database cdb = doc.Database; 
                            BlockTableRecord btr = (BlockTableRecord) tr.GetObject(cdb.CurrentSpaceId , OpenMode.ForWrite); 
                            cv.UpgradeOpen(); 
                            DBObjectCollection dbs = cv.GetSplitCurves((DoubleCollection) pams); 
                            foreach (Curve  db in dbs) 
                            { 
                                btr.AppendEntity(db); 
                                tr.AddNewlyCreatedDBObject(db, true); 
                            } 
                            cv.Erase(); 
                            tr.Commit(); 
                            return true; 
                        } 
                        tr.Commit(); 
                        return null; 
                    } 
                } 
            } 
            return null; 
        }

1121443108qaz · 发表于 2018-1-6 13:21:41

没看懂，这是lisp吗

yoksa · 发表于 2018-5-11 09:02:20

很酷哎，学习了

账号		自动登录	找回密码
密码			立即注册

[原创] 练习自相交Pline在自交点处断开

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

[原创] 练习 自相交Pline在自交点处断开

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

[原创] 练习自相交Pline在自交点处断开