Is there a script to draw truncated cone template?

[vanowm]

I'm looking for a script that would create a template (flat drawing) for a truncated cone, from 3 inputs: top/bottom diameter and height, like this:

http://www.hampsonlife.com/conecalculator.php?dT=10&dB=40&h=25&form1=Calculate

 

I've created a javascript that generates .dxf file, it works fine, but before I waste my time convert it into lisp, I was wondering if there is already such script available? My search didn't produce any results.

 

Thank you.

[scj]

Have a look at

www.ant-ares.de

Good luck

Jochen

 

[vanowm]

That is way overkill than just simply creating a polyline with 4 verities. Not to mention the price.

[paulmcz]

Try this

cone-dev-99.LSP

[mhupp]

Updated the lisp to create 1 closed polyline.

(cond
  ((and (> r1 0) (> r2 0))
    (setvar 'cmdecho 0)
    (command "_.pline" "_non" p1 "_A" "_S" "_non" p2 "_non" p3)
    (command "_L" "_non" p6 "_A" "_S" p5 "_non" P4 "_L" "_CL")
    (setvar 'cmdecho 1)
  )
  (t
    (setvar 'cmdecho 0)
    (command "_.pline" "_non" p1 "_A" "_S" "_non" p2 "_non" p3)
    (command "_L" "_non" ip "_CL")
    (setvar 'cmdecho 1)
  )
)

 

Edited October 25, 2021 by mhupp
Combin a line