Helix Along a Path

[GP_]

The code is not so nice but, for my use, it seems to work.

 

Ciao

 

 

 

 

 

 

 

 

 

 

HelixAlongPath.LSP

[Lee Mac]

Excellent work Gian, well done!

[hanhphuc]

@thanks for sharing GP. amazing

 

Excellent work Gian, well done!

agree.. utilise geomcal.arx function nicely.

[Dadgad]

Very nice GP, thanks for sharing!

[GP_]

@ Lee

@ hanhphuc

@ Dadgad

 

Thanks, I am very happy that you like it

[SLW210]

Nice, very good.

 

molte grazie

[David Bethel]

Congrats!

 

I made something similar way back when. I had various rope / cable / hoses / IBeams as profiles. Pretty cool but limited to 255 vertices meshes.

 

I remember it being a pretty intense project. Your final products look very good -David

[GP_]

Thanks SLW210

Thanks David

 

Thank you all for the flattering comments.

[d0gMa]

The code is not so nice but, for my use, it seems to work.

 

Ciao

 

 

[ATTACH=CONFIG]51161[/ATTACH]

 

 

 

 

[ATTACH=CONFIG]51162[/ATTACH]

 

 

 

 

[ATTACH=CONFIG]51163[/ATTACH]

 

You are a beautiful person

[GP_]

You are a beautiful person

 

 

Wow...

Thank you

[rhgrafix]

That is awesome! If I wanted to reverse the direction of the helix turns, which line/value would I change? I tried clicking the other end of the path and it didn't change turn direction. If I knew what I was doing, I would add a prompt asking for CW or CCW, easy fix?

(in the mean time, I can mirror my path, run HELIX2 then mirror it all back).

Thanks!

Edited May 6, 2020 by rhgrafix
Thought of a temporary work-around.

[ibach]

Helix tool in AutoCAD seems to be the best way to draw a ramp in 3D... The only thing it is missing is the possibility to enter number of turns by selecting the angle of the ramp that is circular... To do that i need to measure the given angle and manually calculate number of turns (<1) and input the number back to helix properties... see the picture, please... I would love to have a lisp that would allow that input selecting the two lines defining alpha... e.g. if α=60, the number of turns is 60/360=0.16666667  which i would not like to be only 8 decimals but the max of accuracy AutoCAD can achieve...

Can anyone help with that?

Edited 17 hours ago by ibach

[marko_ribar]

For maximal accuracy that CAD can provide, check (ftoa) sub function...

 

(defun ftoa ( n / m a s b )
  (if (numberp n)
    (progn
      (setq m (fix ((if (< n 0) - +) n 1e-8)))
      (setq a (abs (- n m)))
      (setq m (itoa m))
      (setq s "")
      (while (and (not (equal a 0.0 1e-6)) (setq b (fix (* a 10.0))))
        (setq s (strcat s (itoa b)))
        (setq a (- (* a 10.0) b))
      )
      (if (= (type n) 'int)
        m
        (if (= s "")
          m
          (if (and (= m "0") (< n 0))
            (strcat "-" m "." s)
            (strcat m "." s)
          )
        )
      )
    )
  )
)

 

[ibach]

That would be maximal displayed accuracy... I believe that internal calculation accuracy in Auto CAD is at least 1e-20 if not greater.

That is the reason i'd love to have the angle input as selection of two defining lines, not as an output of measure command in the first place.

 

Edited 16 hours ago by ibach