如何通过一个Polyline的ObjectId反过来获得这个Polyline的顶点？

介之推

大叫好，我绘制了一个Polyline后，将这个Polyline的ObjectId加到我定义的一个ObjectIdCollection中，现在我想反过来通过这个Polyline的Objectid来获得这个Polyline的第二个和第六个顶点。该如何做呢？请哪位同仁帮帮指点指点。先谢谢了啊。哈哈。

single-yu

2.           Dim db As Database = HostApplicationServices.WorkingDatabase
   
3.                 Using trans As Transaction = db.TransactionManager.StartTransaction
   
4.                     Dim ent As Entity = trans.GetObject(ObjectId, OpenMode.ForWrite)
   
5.                     If TypeOf (ent) Is Polyline Then
   
6.                         Dim pl As Polyline = CType(ent, Polyline)
   
7.                         Dim pt as point3d= pl.GetPoint3dAt(1)
   
8.                     end If
   
9.                 End Using

          Dim db As Database = HostApplicationServices.WorkingDatabase<br />                 Using trans As Transaction = db.TransactionManager.StartTransaction<br />                     Dim ent As Entity = trans.GetObject(ObjectId, OpenMode.ForWrite)<br />                     If TypeOf (ent) Is Polyline Then<br />                         Dim pl As Polyline = CType(ent, Polyline)<br />                         Dim pt as point3d= pl.GetPoint3dAt(1)<br />                     end If<br />                 End Using

cdinten

楼上的写的不错~~楼主你也太不爱思考了，换颜色这个就更简单了

介之推

回复 cdinten 的帖子

哎，不怕你笑话啊。确实水平很有限啊。我还不知道什么叫database，什么叫Editor，什么叫transcation等等，就会依葫芦画瓢啊。哈哈。