REVCLOUD WITH LAYER

[DINGUBOY]

(DEFUN C:CMO()

(SETQ

LN(GETSTRING "\n ENTER LAYER NAME:")

AS(GETINT"\n ENTER CLOUD SIZE:")

)

(REPEAT 10

(SETQ

P1(GETPOINT "\n PICK FIRST CORNER :")

P2(GETCORNER P1 "\n PICK FIRST CORNER :")

)

(COMMAND "-LAYER" "N" LN "CO" "RED" LN "")

(COMMAND "-LAYER" "S" LN "")

(COMMAND "RECTANGLE" P1 P2 )(SETQ OBJ1(ENTLAST))

(COMMAND "REVCLOUD" "A" AS AS "O" OBJ1 "")

(SETQ

P3(GETPOINT "\n PICK FIRST POINT :")

P4(GETPOINT P3 "\n PICK SECOND POINT :")

P5(GETPOINT P4 "\n PICK THIRD POINT :")

)

(SETQ

JJ(getvar 'CLAYER)

)

(COMMAND "PLINE" P3 P4 P5 "")

(COMMAND "TEXT" P4 (/ AS 2) 0 JJ "")

)

)

Here i attached program file in revcloud with text in layer name