hexagon logo
Register Sign in
  • Replies 11 replies
  • Subscribers 30 subscribers
  • Views 262 views
  • Users 0 members are here
Options
Related

auto feature ellipse ?

JEFMAN
I'm not sure that this code is very usefull, but I enjoyed in writing it !!!!!

Sub main()
Set EX = CreateObject("Excel.Application")
Set xl = CreateObject("Excel.sheet")
xl.Application.Workbooks.Open "C:\Tests\ellipse points creator v2.xls"
xl.quit
End Sub

You just have to execute the script (write the good path for the excel sheet...), then type values and save the xyz file. You import it as XYZ file and create vector points, it's done...
This version of ellipse point creator creates points regulary spaced around ellipse, the previous version did not.
It displays an error, but it works fine if you cancel it... If some one can shift this error, it will be better...Angry
Parents
  • A new version for this new year, which calculates points for an ellipse // to Z plane, with offsets on center and on the angle.

    Sub main()
    Set EX = CreateObject("Excel.Application")
    Set xl = CreateObject("Excel.sheet")
    xl.Application.Workbooks.Open "C:\(your path where execute !)\ellipse points creator v2 MR2.xls"
    xl.quit
    End Sub

Reply
  • A new version for this new year, which calculates points for an ellipse // to Z plane, with offsets on center and on the angle.

    Sub main()
    Set EX = CreateObject("Excel.Application")
    Set xl = CreateObject("Excel.sheet")
    xl.Application.Workbooks.Open "C:\(your path where execute !)\ellipse points creator v2 MR2.xls"
    xl.quit
    End Sub

Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement