可以实现的,思路是这样: 1 采用ThisDrawing.Utility.GetEntity 来点选对象,如果对象的 ent.ObjectName = "AcDbBlockReference" 就进行下一步 2 炸开块 e = ent.Explode 3 用选择集的点选方法SelectAtPoint 获得通过你原先点选块坐标的对象(这个选择集肯定包含刚才这个块和你要的那条直线) 4 遍历这个选择集ent.ObjectName = "AcDbLine" 就应该是你要的那段直线了 5 用line.startPoint 或line.endPoint就得到你想要的直线断点了 6 要记得遍历e数组内所有对象将其删除就是了。 如果还有什么问题你加群78934479来提问! |