Peo.SetRejectMessage("Select only a Ray!")ĭim ry As Ray = tr.GetObject(per.ObjectId, OpenMode.ForRead)ĭim ptc As Point3dCollection = New Point3dCollection() If per.Status PromptStatus.OK Then Exit Subĭim ln As Line = tr.GetObject(per.ObjectId, OpenMode.ForRead) Peo.AddAllowedClass(GetType(Line), False)ĭim tr As Transaction = db.TransactionManager.StartTransaction()ĭim per As PromptEntityResult = ed.GetEntity(peo) Peo.SetRejectMessage("Select only a line!") As entities, both can employ the Entity.IntersectWith method.ĭim db As Database = HostApplicationServices.WorkingDatabaseĭim ed As Editor = ĭb.Pdmode = 66 'just to make the points more visibleĭim peo As PromptEntityOptions = New PromptEntityOptions("Select a Line: ") Both a Line and Ray derive from the Database CURVE class which, in turn, derives from database ENTITY.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |