Layer LISP for Revision Cloud

[krishravi2000]

Hi guys,

I want in requirement of a LISP 

(DEFUN C:RV()

                   (COMMAND "REVCLOUD" "O" "L")

)

If we use this lisp it will change the last object to revision cloud but I also want the layer to be changed as well

eg. if there is a layer named "DETAIL" and if I type the command RV 

I want the last object to be changed from line to revision cloud and the object to be assigned to the layer "DETAIL"

[rkmcswain · Accepted solution]

Perhaps this?

(DEFUN C:RV ()
  (vl-cmdf "._REVCLOUD" "_O" "_L" "_N")
  (if (tblsearch "layer" "Detail")
    (vl-cmdf "._change" "_L" "" "_P" "_LA" "DETAIL" "")
  )
  (princ)
)