练习 Lisp定义选择集包围盒

csharp · 发表于 2014-4-26 11:12:48

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

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

×

[ 本帖最后由 csharp 于 2014-4-26 14:22 编辑 ]\n\n

[LispFunction("ssbox")]
public static ResultBuffer SelectionBox(ResultBuffer rb)
{
Document document = Application.DocumentManager.MdiActiveDocument;
Transaction transaction = document.TransactionManager.StartTransaction();
if (rb == null) return null;
TypedValue[] tvValues = rb.AsArray();
using (transaction)
{
try
{
ResultBuffer result = new ResultBuffer();
if (tvValues.Length == 1 && tvValues[0].TypeCode == (int)LispDataType.SelectionSet)
{
SelectionSet ssSet = tvValues[0].Value as SelectionSet;
var ids = ssSet.GetObjectIds();
Entity ent = (Entity)transaction .GetObject( ids [0],OpenMode.ForRead ) ;
Extents3d tmpExtents3D = ent.GeometricExtents;
for (int i = 1; i < ids.Length ; i++)
{
Entity entity = (Entity) transaction.GetObject(ids[i], OpenMode.ForRead);
Extents3d tmp = entity.GeometricExtents;
tmpExtents3D.AddExtents(tmp);
}
Point3d maxpt = tmpExtents3D.MaxPoint;
Point3d minpt = tmpExtents3D.MinPoint;
result.Add(new TypedValue((int) LispDataType.Point3d, minpt));
result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
}
transaction.Commit();
return result ;
}
catch (Exception)
{
throw;
}
}
}

[LispFunction("ssbox")] 
        public static ResultBuffer SelectionBox(ResultBuffer rb) 
        { 
            Document document = Application.DocumentManager.MdiActiveDocument; 
            Transaction transaction = document.TransactionManager.StartTransaction(); 
            if (rb == null) return null; 
            TypedValue[] tvValues = rb.AsArray(); 
            using (transaction) 
            { 
                try 
                { 
                    ResultBuffer result = new ResultBuffer(); 
                    if (tvValues.Length == 1 && tvValues[0].TypeCode == (int)LispDataType.SelectionSet) 
                    { 
                        SelectionSet ssSet = tvValues[0].Value  as SelectionSet; 
                        var ids = ssSet.GetObjectIds(); 
                        Entity ent = (Entity)transaction .GetObject( ids [0],OpenMode.ForRead ) ; 
                        Extents3d tmpExtents3D = ent.GeometricExtents; 
                        for (int i = 1; i < ids.Length ; i++) 
                        { 
                            Entity entity = (Entity) transaction.GetObject(ids[i], OpenMode.ForRead); 
                            Extents3d tmp = entity.GeometricExtents; 
                            tmpExtents3D.AddExtents(tmp); 
                        } 
                        Point3d maxpt = tmpExtents3D.MaxPoint; 
                        Point3d minpt = tmpExtents3D.MinPoint; 
                         
                        result.Add(new TypedValue((int) LispDataType.Point3d, minpt)); 
                        result.Add(new TypedValue((int)LispDataType.Point3d, maxpt)); 
                    } 
                    transaction.Commit(); 
                    return result ; 
                } 
                catch (Exception) 
                { 
                     
                    throw; 
                } 
            } 
             
        }

没有进行坐标转换

因为这个返回值仅有两个点, 效率比 vla-getboundingbox 要高非常之多！

csharp · 发表于 2014-4-26 15:06:30

再加几句支持实体或者选择集

[LispFunction("ssbox")]
public static ResultBuffer SelectionBox(ResultBuffer rb)
{
Document document = Application.DocumentManager.MdiActiveDocument;
Editor editor = document.Editor;
Transaction transaction = document.TransactionManager.StartTransaction();
if (rb == null) return null;
TypedValue[] tvValues = rb.AsArray();
using (transaction)
{
try
{
ResultBuffer result = new ResultBuffer();
if (tvValues.Length == 1 && tvValues[0].TypeCode == (int)LispDataType.SelectionSet | tvValues [0].TypeCode == (int)LispDataType .ObjectId )
{
switch (tvValues[0].TypeCode)
{
case 5006:
{
Entity entity =
(Entity) transaction.GetObject((ObjectId) tvValues[0].Value, OpenMode.ForRead);
Extents3d tmpExtents3D = entity.GeometricExtents;
Point3d maxpt = tmpExtents3D.MaxPoint;
Point3d minpt = tmpExtents3D.MinPoint;
result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
break;
}
case 5007:
{
SelectionSet ssSet = tvValues[0].Value as SelectionSet;
var ids = ssSet.GetObjectIds();
Entity ent = (Entity)transaction.GetObject(ids[0], OpenMode.ForRead);
Extents3d tmpExtents3D = ent.GeometricExtents;
for (int i = 1; i < ids.Length; i++)
{
Entity entity = (Entity)transaction.GetObject(ids[i], OpenMode.ForRead);
Extents3d tmp = entity.GeometricExtents;
tmpExtents3D.AddExtents(tmp);
}
Point3d maxpt = tmpExtents3D.MaxPoint;
Point3d minpt = tmpExtents3D.MinPoint;
result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
break;
}
}
}
transaction.Commit();
return result ;
}
catch (Autodesk .AutoCAD .Runtime .Exception ex)
{
return null;
}
}
}

[LispFunction("ssbox")] 
        public static ResultBuffer SelectionBox(ResultBuffer rb) 
        { 
            Document document = Application.DocumentManager.MdiActiveDocument; 
            Editor editor = document.Editor; 
            Transaction transaction = document.TransactionManager.StartTransaction(); 
            if (rb == null) return null; 
            TypedValue[] tvValues = rb.AsArray(); 
            using (transaction) 
            { 
                try 
                { 
                    ResultBuffer result = new ResultBuffer(); 
                    if (tvValues.Length == 1 && tvValues[0].TypeCode == (int)LispDataType.SelectionSet | tvValues [0].TypeCode == (int)LispDataType .ObjectId ) 
                    { 
                        switch (tvValues[0].TypeCode) 
                        { 
                            case 5006: 
                            { 
                                Entity entity = 
                                    (Entity) transaction.GetObject((ObjectId) tvValues[0].Value, OpenMode.ForRead); 
                                Extents3d tmpExtents3D = entity.GeometricExtents; 
                                Point3d maxpt = tmpExtents3D.MaxPoint; 
                                Point3d minpt = tmpExtents3D.MinPoint; 
                                result.Add(new TypedValue((int)LispDataType.Point3d, minpt)); 
                                result.Add(new TypedValue((int)LispDataType.Point3d, maxpt)); 
                                break; 
                            } 
                            case 5007: 
                            { 
                                SelectionSet ssSet = tvValues[0].Value as SelectionSet; 
                                var ids = ssSet.GetObjectIds(); 
                                Entity ent = (Entity)transaction.GetObject(ids[0], OpenMode.ForRead); 
                                Extents3d tmpExtents3D = ent.GeometricExtents; 
                                for (int i = 1; i < ids.Length; i++) 
                                { 
                                    Entity entity = (Entity)transaction.GetObject(ids[i], OpenMode.ForRead); 
                                    Extents3d tmp = entity.GeometricExtents; 
                                    tmpExtents3D.AddExtents(tmp); 
                                } 
                                Point3d maxpt = tmpExtents3D.MaxPoint; 
                                Point3d minpt = tmpExtents3D.MinPoint; 
                                result.Add(new TypedValue((int)LispDataType.Point3d, minpt)); 
                                result.Add(new TypedValue((int)LispDataType.Point3d, maxpt)); 
                                break; 
                            } 
                        } 
                    } 
                    transaction.Commit(); 
                    return result ; 
                } 
                catch (Autodesk .AutoCAD .Runtime .Exception ex) 
                { 
                    return null; 
                } 
            } 
        }

ScmTools · 发表于 2014-5-4 22:39:57

建议写一下增加坐标转换的{:soso_e140:}

satan421 · 发表于 2019-4-19 12:49:37

C# Lispfunction 继续学习

xiaolong100 · 发表于 2019-8-27 20:25:25

样条包围盒不行

zjj237558536 · 发表于 2019-8-27 22:02:12

这个感觉就比lisp难多了

史巴燕 · 发表于 2019-9-1 00:17:09

什么叫包围盒啊
来自: 微社区

brainstorm · 发表于 2019-10-5 20:10:51

本帖最后由 brainstorm 于 2019-10-5 21:43 编辑

学着改写一下，支持用户坐标系，功能与xdrx_entity_box相同，但是在没有安装天正机器上天正对象报错，而xdrx_entity_box没问题。速度比xdrx_entity_box要快一些
命令: TT1（ssbox）
选择对象: 指定对角点: 找到 40086 个
选择对象:
"2.141"
命令:
命令: TT2（xdrx_entity_box）
选择对象: 指定对角点: 找到 40086 个
选择对象:
"6.39"

public static Matrix3d GetUcsMatrix(Database db)
 {
 Point3d origin;
 Vector3d xAxis, yAxis, zAxis;
 if (IsPaperSpace(db))
 {
 origin = db.Pucsorg;
 xAxis = db.Pucsxdir;
 yAxis = db.Pucsydir;
 }
 else
 {
 origin = db.Ucsorg;
 xAxis = db.Ucsxdir;
 yAxis = db.Ucsydir;
 }
 zAxis = xAxis.CrossProduct(yAxis);
 return Matrix3d.AlignCoordinateSystem(kOrigin, kXAxis, kYAxis, kZAxis, origin, xAxis, yAxis, zAxis);
 }
 public static Database GetCurDwg()
 {
 Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
 return db;
 }

[LispFunction("ssbox")]
 public static ResultBuffer SelectionBox(ResultBuffer rb)
 {
 Document document = Application.DocumentManager.MdiActiveDocument;
 Editor editor = document.Editor;
 Transaction transaction = document.TransactionManager.StartTransaction();
 Matrix3d m1 = GetUcsMatrix(GetCurDwg());
 m1 = m1.Inverse();
 object obj = Application.GetSystemVariable("worlducs");
 if (rb == null) return null;
 TypedValue[] tvValues = rb.AsArray();
 using (transaction)
 {
 try
 {
 ResultBuffer result = new ResultBuffer();
 if (tvValues.Length == 1 && tvValues[0].TypeCode == (int)LispDataType.SelectionSet | tvValues[0].TypeCode == (int)LispDataType.ObjectId)
 {
 if (System.Convert.ToInt16(obj) != 0)
 {
 switch (tvValues[0].TypeCode)
 {
 case 5006:
 {
 Entity entity = (Entity)transaction.GetObject((ObjectId)tvValues[0].Value, OpenMode.ForRead);
 Extents3d tmpExtents3D = entity.GeometricExtents;
 Point3d maxpt = tmpExtents3D.MaxPoint;
 Point3d minpt = tmpExtents3D.MinPoint;
 result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
 result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
 break;
 }
 case 5007:
 {
 SelectionSet ssSet = tvValues[0].Value as SelectionSet;
 var ids = ssSet.GetObjectIds();
 Entity ent = (Entity)transaction.GetObject(ids[0], OpenMode.ForRead);
 Extents3d tmpExtents3D = ent.GeometricExtents;
 for (int i = 1; i < ids.Length; i++)
 {
 Entity entity = (Entity)transaction.GetObject(ids, OpenMode.ForRead);
 Extents3d tmp = entity.GeometricExtents;
 tmpExtents3D.AddExtents(tmp);
 }
 Point3d maxpt = tmpExtents3D.MaxPoint;
 Point3d minpt = tmpExtents3D.MinPoint;
 result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
 result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
 break;
 }
 }
 }
 else
 {
 switch (tvValues[0].TypeCode)
 {
 case 5006:
 {
 Entity entity = (Entity)transaction.GetObject((ObjectId)tvValues[0].Value, OpenMode.ForWrite);
 entity.TransformBy(m1);
 Extents3d tmpExtents3D = entity.GeometricExtents;
 Point3d maxpt = tmpExtents3D.MaxPoint;
 Point3d minpt = tmpExtents3D.MinPoint;
 result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
 result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
 break;
 }
 case 5007:
 {
 SelectionSet ssSet = tvValues[0].Value as SelectionSet;
 var ids = ssSet.GetObjectIds();
 Entity ent = (Entity)transaction.GetObject(ids[0], OpenMode.ForWrite);
 ent.TransformBy(m1);
 Extents3d tmpExtents3D = ent.GeometricExtents;
 for (int i = 1; i < ids.Length; i++)
 {
 Entity entity = (Entity)transaction.GetObject(ids, OpenMode.ForWrite);
 entity.TransformBy(m1);
 Extents3d tmp = entity.GeometricExtents;
 tmpExtents3D.AddExtents(tmp);
 }
 Point3d maxpt = tmpExtents3D.MaxPoint;
 Point3d minpt = tmpExtents3D.MinPoint;
 result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
 result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
 break;
 }
 }
 }

brainstorm · 发表于 2019-10-5 21:58:40

这个文件无法取得包围盒，不知道什么原因

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

[原创] 练习 Lisp定义选择集包围盒

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