topic Re: Need location of geometry imorted from OBJ file in Revit API Forum

Need location of geometry imorted from OBJ file

Anonymous — Thu, 19 Apr 2018 14:41:17 GMT

I used DirectShape to load the geometry from obj file. Model is coming good in Revit. However I want to create family for all components in OBJ file. To place instance of each family at correction location so that complete assembly can be formed correctly, I need location of each family created by using DirectShape. DirectShape does have property as "Location", but it is giving NULL.

Please help me how to get location of newly imported geometry by using DirectShape.

Re: Need location of geometry imorted from OBJ file

jeremytammik — Sun, 22 Apr 2018 16:41:27 GMT

I think the direct shape is always created exactly where you specify it.

Can you please check what happens if you move it manually after it has been created?

Maybe that sets the location somehow?

You can use RevitLookup to examine the result.

If you have not yet installed RevitLookup, you should do so immediately, right away, before doing a single other thing.

It is an invaluable Revit database exploration and analysis tool, and you cannot effectively develop add-ins without it.

Cheers,

Jeremy

Re: Need location of geometry imorted from OBJ file

bahaaeldien.metwaly — Sat, 02 Oct 2021 19:12:56 GMT

Still not possible in Revit 2021 .. Element.Location property returns a Location object that can't be cast to Location Point or Location Curve .. Dead end ..

Re: Need location of geometry imorted from OBJ file

jeremy_tammik — Sat, 02 Oct 2021 19:46:49 GMT

I am sure there are workable solutions for this, e.g., create a family definition containing a direct shape and place instances of that, which do have a valid location point, or explore how to use the DirectShapeLibrary class:

https://www.revitapidocs.com/2022/07489bae-ab9f-e2a8-0ac1-0a4d70cea458.htm

> DirectShapeLibrary is used to store pre-created geometry for further referencing via the definition/instance mechanism.

Re: Need location of geometry imorted from OBJ file

bahaaeldien.metwaly — Sat, 02 Oct 2021 20:06:06 GMT

@jeremy_tammik wrote:
I am sure there are workable solutions for this, e.g., create a family definition containing a direct shape and place instances of that, which do have a valid location point, or explore how to use the DirectShapeLibrary class:

https://www.revitapidocs.com/2022/07489bae-ab9f-e2a8-0ac1-0a4d70cea458.htm

> DirectShapeLibrary is used to store pre-created geometry for further referencing via the definition/instance mechanism.

Hi Jeremy,

The underlined is exactly what we are looking to do .. but automatically, so Imagine you received a model in IFC format , and you need to replace a couple of hundred elements(DirectShape)s with proper families .. You can't extract their location and you can't change their type to proper FamilyType of the same category.

I'll try to explore the DirectShapeLibrary a bit though. Thanks.

Re: Need location of geometry imorted from OBJ file

RPTHOMAS108 — Sun, 03 Oct 2021 11:21:30 GMT

Yes you can use the Transform.Origin of the direct shape instance when you use instance/type approach rather than just creating a isolated direct shape.

Using type/instance approach with DirectShapeLibrary or DirectShape.CreateElementInstance also allows type category bound parameters to be added in the project to the direct shape type.

Public Function Obj_211003a(commandData As ExternalCommandData, ByRef message As String, elements As ElementSet) As Result Dim uidoc = commandData.Application.ActiveUIDocument Dim IntDoc = uidoc.Document Dim Pt As New XYZ(0, 0, 0) Dim Unit As Double = 0.5 Dim Fr As New Frame(Pt, XYZ.BasisX, XYZ.BasisY, XYZ.BasisZ) Dim LN As Line = Line.CreateBound(Pt - (XYZ.BasisZ * Unit), Pt + (XYZ.BasisZ * Unit)) Dim Pl As Plane = Plane.CreateByNormalAndOrigin(XYZ.BasisY, Pt) Dim Arc As Arc = Arc.Create(Pl, Unit, 0, Math.PI) Dim Cl As New CurveLoop Cl.Append(LN) Cl.Append(Arc) Dim CLa = New CurveLoop() {Cl}.ToList Dim Ob As Solid = GeometryCreationUtilities.CreateRevolvedGeometry(Fr, CLa, 0, 2 * Math.PI) Using Tr As New Transaction(IntDoc, "DS") If Tr.Start = TransactionStatus.Started Then Dim DSt As DirectShapeType = DirectShapeType.Create(IntDoc, "Sphere", New ElementId(BuiltInCategory.OST_GenericModel)) DSt.AppendShape(New GeometryObject(0) {Ob}.ToList) Dim Location As New XYZ(10, 15, 20) Dim T As Transform = Transform.CreateTranslation(Location) Dim DSL = DirectShapeLibrary.GetDirectShapeLibrary(IntDoc) DSL.AddDefinitionType("Sphere_AA", DSt.Id) 'Contains geometry transform with origin Dim LL As List(Of GeometryObject) = DirectShape.CreateGeometryInstance(IntDoc, "Sphere_AA", T) Dim DSX = DirectShape.CreateElement(IntDoc, New ElementId(BuiltInCategory.OST_GenericModel)) DSX.SetShape(LL) 'This set below is apparently not required but it associates the instance with the type 'Therefore any type parameters added in project to the associated category will be available in the DS type DSX.SetTypeId(DSt.Id) Tr.Commit() End If End Using Return Result.Succeeded End Function

When you extract the geometry of the above shape it will contain a GeometryInstance with Transform.Origin set to 10,15,20 and the symbol geometry will be at 0,0,0.

Re: Need location of geometry imorted from OBJ file

bahaaeldien.metwaly — Sun, 03 Oct 2021 11:37:39 GMT

That's very helpful .. Thank you Thomas!..