Message Boards Message Boards

How can I export this graphic into maya or 3ds?

Posted 10 years ago

How can I export this graphic into maya or 3ds?

POSTED BY: Aysu Aysoy
7 Replies

Dear Aysu,

Welcome to Wolfram Community, we are glad to have you!

Please do not post several question on the same discussion.

If you have a new question, then make a new post.

The 2nd question you asked on this discussion thread was posted separately here:

Is it possible to write the code and manipulate it in grasshopper?

Please keep you comments here in accordance with original subject and use other posts for other subjects.

Sincerely,

Moderation Team

P.S. We recommend reading this post for the beginners: How to post and use Wolfram Community

POSTED BY: Moderation Team
Posted 10 years ago

It is my pleasure to show the "interesting architectural form" if I manage to do it :)

POSTED BY: Aysu Aysoy

Glad to help. If you turn that surface into something architecturally interesting, I'd love to see it.

Chris

Posted 10 years ago

Thankyou :) It worked

POSTED BY: Aysu Aysoy

Use Paste Snapshot from the pop-up menu at the upper right.

enter image description here

Edit the resulting expression, changing DynamicModule to Module, and assign to "graphics":

graphics = Module[...

Export the graphics:

Export["Structure.3ds", graphics]

Chris

Posted 10 years ago

Here is the code:

Manipulate[
 Module[{\[CurlyEpsilon] = 10^-6, c1 = Tan[a1], c2 = Tan[a2], 
   c3 = Tan[a3], c4 = Tan[a4], c5 = Tan[a5], c6 = Tan[a6]}, 
  ContourPlot3D[
   Evaluate[
    c6 Sin[3 x] Sin[2 y] Sin[z] + c4 Sin[2 x] Sin[3 y] Sin[z] + 
      c5 Sin[3 x] Sin[y] Sin[2 z] + c2 Sin[x] Sin[3 y] Sin[2 z] + 
      c3 Sin[2 x] Sin[y] Sin[3 z] + c1 Sin[x] Sin[2 y] Sin[3 z] == 
     0], {x, \[CurlyEpsilon], 
    Pi - \[CurlyEpsilon]}, {y, \[CurlyEpsilon], 
    Pi - \[CurlyEpsilon]}, {z, \[CurlyEpsilon], Pi - \[CurlyEpsilon]},
    Mesh -> False, ImageSize -> {400, 400}, Boxed -> False, 
   Axes -> False, NormalsFunction -> "Average", 
   PlotPoints -> ControlActive[10, 30], 
   PerformanceGoal -> "Speed"]], {{a1, 1, 
   "\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)"}, -Pi/2 - 0.01, 
  Pi/2 + 0.01, 
  ImageSize -> Tiny}, {{a2, 1, 
   "\!\(\*SubscriptBox[\(\[Alpha]\), \(2\)]\)"}, -Pi/2 - 0.01, 
  Pi/2 + 0.01, 
  ImageSize -> Tiny}, {{a3, 1, 
   "\!\(\*SubscriptBox[\(\[Alpha]\), \(3\)]\)"}, -Pi/2 - 0.01, 
  Pi/2 + 0.01, 
  ImageSize -> Tiny}, {{a4, 1, 
   "\!\(\*SubscriptBox[\(\[Alpha]\), \(4\)]\)"}, -Pi/2 - 0.01, 
  Pi/2 + 0.01, 
  ImageSize -> Tiny}, {{a5, 1, 
   "\!\(\*SubscriptBox[\(\[Alpha]\), \(5\)]\)"}, -Pi/2 - 0.01, 
  Pi/2 + 0.01, 
  ImageSize -> Tiny}, {{a6, 1, 
   "\!\(\*SubscriptBox[\(\[Alpha]\), \(6\)]\)"}, -Pi/2 - 0.01, 
  Pi/2 + 0.01, ImageSize -> Tiny}, AutorunSequencing -> {1, 3, 5}, 
 ControlPlacement -> Left]

enter image description here

POSTED BY: Aysu Aysoy

This makes a simple parametric surface:

surface = 
 ParametricPlot3D[{Cos[u], Sin[u], v}, {u, 0, 2 \[Pi]}, {v, 0, 1}]

enter image description here

This exports it in Maya format:

Export["cylinder", surface, "Maya"]

And this exports it in 3DS format:

Export["cylinder.3ds", surface, "3DS"]

I can't say why the example you gave didn't export. If you post the expression that created the surface, I can take a look.

Chris

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract