找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 898|回复: 0

[原创] 练习 Lisp定义Transform选择集

[复制链接]

已领礼包: 859个

财富等级: 财运亨通

发表于 2014-5-2 17:35:51 | 显示全部楼层 |阅读模式

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

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

×
  1.         [LispFunction("Entity_Transform")]
  2.         public void EntityTransform(ResultBuffer rb)
  3.         {
  4.             TypedValue[] values = rb.AsArray();
  5.             Document doc = Application.DocumentManager.MdiActiveDocument;
  6.             Transaction tr = doc.TransactionManager.StartTransaction();
  7.             if (rb != null)
  8.             {
  9.                 if (values[0].TypeCode == (int) LispDataType.ObjectId | values[0].TypeCode == (int)LispDataType.SelectionSet)
  10.                 {
  11.                     Double[] data = new double[16];
  12.                     int j = 0;
  13.                     for (int i = 0; i < values.Count(); i++)
  14.                         {
  15.                         if (values.TypeCode == (int)LispDataType.Double)
  16.                             {
  17.                             data[j] = (double)values.Value;
  18.                             j++;
  19.                             }
  20.                         }
  21.                     Matrix3d matrix3D = new Matrix3d(data);
  22.                     using (tr)
  23.                         try
  24.                         {
  25.                             if (values[0].TypeCode == (int) LispDataType.ObjectId)
  26.                             {
  27.                                 ObjectId id = (ObjectId) values[0].Value;
  28.                                 Entity ent = (Entity )tr.GetObject(id, OpenMode.ForWrite);
  29.                                 ent.TransformBy(matrix3D);
  30.                             }
  31.                             else
  32.                             {
  33.                                 SelectionSet sset = (SelectionSet) values[0].Value;
  34.                                 foreach (ObjectId id  in sset.GetObjectIds() )
  35.                                 {
  36.                                     Entity ent = (Entity) tr.GetObject(id, OpenMode.ForWrite);
  37.                                     ent.TransformBy(matrix3D);
  38.                                 }
  39.                             }
  40.                             tr.Commit();
  41.                         }
  42.                         catch (Exception)
  43.                         {
  44.                             throw;
  45.                         }
  46.                 }
  47.             }
  48.         }
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-15 11:07 , Processed in 0.327579 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表