Quantcast
Channel: MicroStation Programming Forum - Recent Threads
Viewing all articles
Browse latest Browse all 7260

[V8i VBA] RevolveProfile

$
0
0

We created a closed vertical shape element, and would like to convert it to solid by revolution with 360 degrees about Z axis. However, it is not successful in VBA. Great if you could provide an example.

What I have tried:

pointOnAxis = Point3dFromXYZ(0, 0, 0) 'Center point of Rotation

axis = Vector3dFromXYZ(0, 0, 1) 'About Z axis

angle = PI * 2 '360 degrees

Set oSmartSloidElement = RevolveProfile (profile, pointOnAxis, axis, angle) 

Viewing all articles
Browse latest Browse all 7260

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>