Revcloud to include (rectangle & polygonal) in my lisp ruitine (Autocad 2018)

[jhein759286]

I am using acad2018

In my lisp routine I have tried these commands "revcloud" & "_revcloud" & "_.revcloud" and all three skip where it asks if you want a rectangle or polygonal revision cloud. How do I get to those options?

[Tom Beauford]

Look at initcommandversion (AutoLISP) and Command Versioning in AutoCAD.
You need to make sure it's running the current version of the command.

[jhein759286]

How do I get my lisp routine to finish the revcloud command before going on to rest of lisp routine?

Here is what I have:

(defun C:jt1 ()

  (setq m:sc (getvar "dimscale"))

  (setq m:REVNUM (getstring "\nEnter the revision set: "))

  (command "-layer" "m" (strcat "REVISION_CLOUDS_" m:revnum) "")

  (initcommandversion -1)
  (command "_revcloud" "s" "c" "p" "a" (* 0.5 m:sc) "")

  (setq m:TAGLAY (strcat "REVTAG-" m:REVNUM))
  (setq m:PLACETAG (getpoint "\nPlace the cloud's tag: "))
  (command "-layer" "m" m:TAGLAY "")
  (command "._insert" "cloudtag" m:PLACETAG (getvar "DIMSCALE") "" "0" m:revnum )
  (princ "\nNow place the leader using a 3-point arc. ")
  
  (command "._arc")
)