宏的源代码：多个零件按多点批量打断 using System;using System.Collections.Generic;using System.Data;using System.Linq;using System.Windows.Forms;using Tekla.Structures.Geometry3d;using Tekla.Structures.Model;using Tekla.Structures.Model.Operations;using Tekla.Structures.Model.UI;using T3D = ..

离线hardyleumg

六级士官

发帖: 412

金币: 425

怪币: 0

只看楼主倒序阅读楼主发表于: 2023-03-19

复制代码

using System;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Windows.Forms;
using Tekla.Structures.Geometry3d;
using Tekla.Structures.Model;
using Tekla.Structures.Model.Operations;
using Tekla.Structures.Model.UI;
using T3D = Tekla.Structures.Geometry3d;
using TSO = Tekla.Structures.Model.Operations;
namespace Tekla.Technology.Akit.UserScript
{
public class Script
{
struct Point_and_Distance
{
public T3D.Point myPoint;
public double myDistance;
};
public static void Run(Tekla.Technology.Akit.IScript akit)
{
Model ThisModel = new Model();
try
{
//拾取需要断开的梁
Picker myPicker = new Picker();
List<Point_and_Distance> myPointList = new List<Point_and_Distance>();
ModelObjectEnumerator myBeamsToBeBreak = myPicker.PickObjects(Picker.PickObjectsEnum.PICK_N_PARTS, "请拾取需要断开的梁，按中键结束") as ModelObjectEnumerator;
//拾取断开的位置
Picker picker = new Picker();
List<T3D.Point> pickPoints = new List<T3D.Point>();
try
{
while (true)
{
T3D.Point pickPoint = picker.PickPoint("请拾取断开点，按ESC结束");
if (pickPoint == null) break;
pickPoints.Add(pickPoint);
}
}
catch (Exception)
{
TSO.Operation.DisplayPrompt("拾取断开点完成。");
}
while (myBeamsToBeBreak.MoveNext())
{
if (myBeamsToBeBreak.Current != null)
{
Beam myBeam = myBeamsToBeBreak.Current as Beam;
foreach (T3D.Point pickPoint in pickPoints)
{
double myDistance = Distance.PointToPoint(pickPoint, myBeam.StartPoint);
Point_and_Distance myPoint_and_Distance = new Point_and_Distance();
myPoint_and_Distance.myPoint = pickPoint;
myPoint_and_Distance.myDistance = myDistance;
myPointList.Add(myPoint_and_Distance);
}
List<Point_and_Distance> myPointListOrderByDistance = myPointList.OrderByDescending(s => s.myDistance).ToList<Point_and_Distance>();
foreach (Point_and_Distance item in myPointListOrderByDistance)
{
Operation.Split(myBeam, item.myPoint);
}
}
}
ThisModel.CommitChanges();
TSO.Operation.DisplayPrompt("操作完成！");
}
catch (Exception)
{
TSO.Operation.DisplayPrompt("操作中断！");
}
}
}
}