Place Rev Cloud with LSP

[cslatteryAXGRE]

I have an older LSP for placing the Rev Cloud. When using it and checking properties on the Rev Cloud, there is no option to change the arc length after it is placed like there is if the Rev Cloud tool was used. Does anyone have any ideas on how to do it so the arc length appears in the properties dialog or on the right click menu?

This is for a rectangular cloud.

(defun C:RCR ()
(initcommandversion 2)
(setvar "revcloudcreatemode" 1)
(command "revcloud" "S" "N" "A" ".25" "")
;;;Pause for user input:
(while (= (logand (getvar "cmdactive") 1) 1)
(prompt "\nDraw RevCloud\n")
(command pause)
)
;;;end of Pause
(command "Pedit" "_L" "_w" ".03125" "")
(c:StpRevLayer)
(princ)
)

[komondormrex · Accepted solution]

check this correction, works for me.

(defun C:RCR ()
	(initcommandversion)
	(setvar "revcloudcreatemode" 1)
	(command "revcloud" "S" "N" "A" ".25")
	;;;Pause for user input:
	(while (= (logand (getvar "cmdactive") 1) 1)
		(prompt "\nDraw RevCloud\n")
		(command pause)
	)
	;;;end of Pause
	(command "Pedit" "_L" "_w" ".03125" "")
	(c:StpRevLayer)
	(princ)
)

[cslatteryAXGRE]

That did it. Thanks.