Metal gutter section drawing

[k005]

(defun c:dere ()
  (setq sacuzn (getreal "\nSac uzunluğunu giriniz : "))
  (setq taban (getreal "\nTaban Alanını giriniz : "))
  (setq aSikYüks (getreal "\nAşık Yüksekliğini giriniz : "))
  (setq egim (getreal "\nEğim giriniz % : "))
  (prompt " - Ç i z i l i y o r - ")
  (princ "\nAlan = xxxx mm²")
  (princ)
  )

Hi all,

I want to draw a section with lisp code.

My variables:

sacuzn : 1000 mm
taban : 230 mm
aSikYüks : 200 mm

egim : 15.21

Alan= 1991.43mm²

My sample drawing is attached. sheet should be the length of my total cross section.

total cross section. (1000mm)

* When creating this, taban: 230, asikyüks 200 will be taken and other dimensions will be distributed according to the egim.

Thanks in advance for the help friend. It's a bit confusing, but I think we can figure it out.

[Sea-Haven]

It's a case of just work out next points given the dimensions and draw a pline. Use polar function. Just take your gutter and print it out and draw on it point numbers. Then make a pline using the points, can offset and join ends or make more points.

Use my Multi getvals.lsp to enter all the sizes and this bit of code will make variables for you.

Use say p3 as base point.

[k005]

thanks for the answer.

If we go from the numbers on your picture, 1-2-3, 7-8 are fixed. ie 20mm. and it is always the same.

here I actually want to create a standard drawing according to the base.

When I enter 230 and 200 (aSikyüks) I want it to autocomplete 1000 mm...

Multi GEVALS.lsp I didn't know how to use it.

[hak_vz]

Try with dynamic block

[k005]

dynamic block may not be practical...

Thank you.

[Sea-Haven]

If you spend a little bit of time looking into how polar works then it will start to make sense.

(setq p1 (getpoint "\npick start point"))
(setq p2 (polar p1 0.0 20))
(command "line" p1 p2 "")

looking at polar function
(setq p2 (polar p1 "angle in radians" "distance" ))
(setq p2 (polar p1 ang dist))

[k005]

A bit of a difficult example for me...

I guess I'll have to solve it with dynamic block...

Thanks a lot for your help.

[Sea-Haven]

If you spend the time learning how to make a continuous set of points using Polar will save you having to ask for solutions here. The shape is pretty simple, you should learn at some point and not just keep asking for freebies.

[calderg1000]

Regards @k005 

According to the information you give us, I see that we have two unknowns to find "other1" and "other 2". We have only one verification equation (k+other1+other2=1000), therefore it would not be possible to solve the problem. Unless to apply trial values ​​which would give us infinite solutions as a result. I think that if you give us another dependency data between "other1" and "other2", the problem would be solved.

Maybe you could give us some more information or expand the information. And it would not be complicated at all to generate the Lisp code, to graph what you require.

[k005]

Of course . I can give you the information you want. the basis here is the base and purlin dimensions. can find others. within 1000mm.

What part do you call two unknowns?

* Which part do you want?

----------------------------------------------------------

other2= aSikYüks + 5mm

            = 205mm

[k005]

now you're talking like that, it's like free...

Did I send you a private message so that it was free...?

If you don't want to help, don't write. it's that simple.

I do not have a situation that it will necessarily be in the questions I write. if it happens...