Addon to autocad command like REVCLOUD

[mojo8997]

Im trying to figure out how to add on to an default autocad command. For example revcloud, i made a lsp to use the revcloud command the select an object, then change layer and pline width but i want it o run just like the regular autocad command. (i am trying to minimize errors on drawings i create and this would help out a lot.) I want to to that to many commands but the lisp just cancels out if i do it like this

 

 
(defun c:REV()
 (command "_revcloud")
 (command "pedit" "L" "W" ".02" "")
 (command "chprop" "L" "" "LA" "REV" "")
 (princ)
 )

[alanjt]

Try this:

(defun c:Rev (/)
 (command "_.revcloud")
 (while (not (zerop (getvar "cmdactive")))
   (command pause)
 ) ;_ while
 (command "_.pedit" (entlast) "_w" 0.02 "")
 (command "_.chprop" (entlast) "" "_la" "REV" "")
 (princ)
) ;_ defun

[mojo8997]

Thank you very much!

[mojo8997]

Never mind it works if i hit O, thanks again

[alanjt]

Thank you very much!

No problem.