topic Re: Rectangular Revcloud Command via lisp...? in Visual LISP, AutoLISP and General Customization Forum

Rectangular Revcloud Command via lisp...?

cchiles — Thu, 12 May 2016 18:28:23 GMT

Using Autocad 2016

I have tried this several ways...

Every time I run the "revcloud" command through lisp I seem to get an old "revcloud" command that doesn't have "rectangular" as an option - unlike typing "revcloud" through the command line:

Here's my code trying "R" option:

(defun C:rrv ()
(command "revcloud" "r" "S" "C" "A" (* 0.25 (getvar "DIMSCALE")) "")
;;;Pause for user input:
(while (= (logand (getvar "cmdactive") 1) 1) 
(prompt "\nDraw RevCloud\n")
(command pause)
)
;;;end of Pause
(princ)
)

I've also tried setting it via the system variable first: (setvar "revcloudcreatemode" 1)

(which is where the "R" option in the command line version seems to be stored) but because the lisp activated "revcloud" seems to be an old one (or something) - it always defaults to "freehand" regardless of that sys var setting.

Here is the code with the sys var

(defun C:rrv ()
(setvar "revcloudcreatemode" 1)
(command "revcloud" "S" "C" "A" (* 0.25 (getvar "DIMSCALE")) "")
;;;Pause for user input:
(while (= (logand (getvar "cmdactive") 1) 1) 
(prompt "\nDraw RevCloud\n")
(command pause)
)
;;;end of Pause
(princ)
)

Anyone have any thoughts? This is making me crazy!

Thanks,

Chris

Re: Rectangular Revcloud Command via lisp...?

rkmcswain — Thu, 12 May 2016 18:48:00 GMT

Maybe this?

(defun c:foo ()
  (initcommandversion 2)
  (setq a (getpoint "\nPick first point: "))
  (setq b (getcorner a "\nPick other corner: "))
  (vl-cmdf "._revcloud" "_R" a b )
)

Re: Rectangular Revcloud Command via lisp...?

Kent1Cooper — Thu, 12 May 2016 19:53:31 GMT

In case it's of use to you, here's what I have used for that -- RectRevCloud.lsp with its RRC command. It includes some control over the arc size by asking how many bulges you want along the longer sides of the rectangle, and the option of whether to bulge outward or inward. There are some things about it that I would do a little differently today, but I did test it in Acad2016, and it still works. [There's an earlier and shorter but less sophisticated version on a couple of other threads, if you Search for RectRevCloud.]

Re: Rectangular Revcloud Command via lisp...?

cchiles — Thu, 12 May 2016 19:54:32 GMT

Excellent!Using your suggestion I was able to create a lisp for freehand, & polygonal

Using your suggestion I was able to create a lisp for freehand, & polygonal revclouds as well.

Thanks so much!

-Chris

Re: Rectangular Revcloud Command via lisp...?

andrew_keen — Tue, 14 Jun 2016 10:59:43 GMT

Did you find a solution to invoke the "new" revcloud command instead of the old one? I understand these answers do work, but I would rather not rewrite my existing code.

Re: Rectangular Revcloud Command via lisp...?

andrew_keen — Tue, 14 Jun 2016 11:25:27 GMT

Had a further dig and found and tested the solution.

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2015/ENU/AutoCAD-AutoLISP/files/GUID-6176FC98-DC5D-433E-8D76-F481BE68D46A-htm.html

Basically, you need to add the line

(initcommandversion 2)

before your revcloud command and it will use the current version.

Re: Rectangular Revcloud Command via lisp...?

Anonymous — Sun, 28 Feb 2021 06:29:57 GMT

THANK YOU VERY MUCH...

Re: Rectangular Revcloud Command via lisp...?

Ed__Jobe — Fri, 24 Feb 2023 21:43:21 GMT

Hi @rkmcswain

I can't get this to work in 2023. Everything I try won't let me select points. Here's the F2 from your command.

Command: (defun c:foo () (_> (initcommandversion 2) (_> (setq a (getpoint "\nPick first point: ")) (_> (setq b (getcorner a "\nPick other corner: ")) (_> (vl-cmdf "._revcloud" "_R" a b ) (_> ) C:FOO Command: FOO Pick first point: Pick other corner: ._revcloud Minimum arc length: 19'-4.7795" Maximum arc length: 38'-9.5590" Style: Normal Type: Rectangular Specify first corner point or [Arc length/Object/Rectangular/Polygonal/Freehand/Style/Modify] <Object>: _R Specify first corner point or [Arc length/Object/Rectangular/Polygonal/Freehand/Style/Modify] <Object>: Specify opposite corner: Invalid shape to create revision cloud.

Re: Rectangular Revcloud Command via lisp...?

Ed__Jobe — Sun, 26 Feb 2023 04:22:10 GMT

@Kent1Cooper Kent, do you have any ideas why 2022 and 2023 would not accept point selection?

Re: Rectangular Revcloud Command via lisp...?

Kent1Cooper — Sun, 26 Feb 2023 20:30:22 GMT

Is there other stuff in the vicinity, that it might be Osnapping to in a way that makes a flat/empty rectangle? Does it work if you make sure running Osnap is off?

OR, in my code, what if you change this:

(command "_.rectangle" cor1 cor2)

to this:

(command "_.rectangle" "_non" cor1 "_non" cor2)

and similarly in @rkmcswain's code? There, it looks from your command history like the problem isn't with accepting point selection, but with the process using those points.

Re: Rectangular Revcloud Command via lisp...?

Ed__Jobe — Sun, 26 Feb 2023 21:48:55 GMT

No, there isn't anything near where I'm selecting. I even tried it in a blank dwg. If I use RK's code, the revcloud command doesn't process the points. If I just use the code below, it prompts for points but doesn't accept them. Does either line below work for you?

(vl-cmdf "._revcloud" "_R") (command-s "._revcloud" "_R")

I just tried it on my laptop at home with MEP 2023 and RK's function worked. So there is something different about my work pc, where I'm using acade 2023. I used vars2scr to capture my home settings and tomorrow I'll compare with my work pc.

Re: Rectangular Revcloud Command via lisp...?

ВeekeeCZ — Mon, 27 Feb 2023 07:34:36 GMT

This works in 2022. I think it hasn't changed in 2023, but can't really test it.

(defun c:RC ()
  (initcommandversion)
  (command-s "_.revcloud" "_r" pause pause)
  (princ)
  )