Revcloud draw layer Bulut

[k005]

Hello friends;

To draw a cloud:

1- "Bulutlar" as layer
2- Color color = 30

* Specify approximate length of arc <50>: -- Ask this too. and remember

Thank you so much.

[ВeekeeCZ · Accepted solution]

Try this... BTW These things are really simple, you should try to learn at least the basics. This way you only abuse the generosity of people in this forum.

(defun c:BulutRc ( / l c)

  (setq l (getvar 'clayer))
  (setq c (getvar 'cecolor))
  (command "_.-layer" "_t" "Bulut" "_u" "Bulut" "_m" "Bulut" "")
  (setvar 'cecolor "30")
  (initcommandversion)
  (command-s "_.revcloud" "a" 50 "a")
  (setvar 'clayer l)
  (setvar 'cecolor c)
  (princ)
  )

[k005]

@ВeekeeCZ 

Not now... I don't like your words. I never thought of using anyone's good intentions badly.

If you think so, you can not reply.

[ВeekeeCZ]

Then you're thinking of this forum is wrong from the beginning. The purpose of this forum is to help people to learn how to achieve their goals more effectively using customizations. To HELP them LEARN. Not to program anything they may think of.

[k005]

@ВeekeeCZ 

Why would someone who doesn't understand these codes write here?

Of course, there are parts that we have learned and changed.

but, i don't like your thinking and writing. I do not associate this with the Forum. I take it personally.