Rectangle-Revcloud show the frame

[Nikon]

I would like to see the frame when drawing the rectangle, as in the standard autocad command.

If you only call the RECTANGLE command without passing points to it, then AutoCAD will enable the standard interactive construction.

If you remove from the line (command "_.RECTANGLE" p1 p2) p1 and p2 
(command "_.RECTANGLE"), then the code does not work further, that is, the cloud is not drawn.
 

(defun c:RectRevClCol (/ p1 p2 ssRect ssCloud)
  (prompt "Specify the first point of the rectangle: ")
  (setq p1 (getpoint))
  (prompt "Specify the opposite point of the rectangle: ")
  (setq p2 (getpoint p1))
  (command "_.RECTANGLE" p1 p2)
  (setq ssRect (ssget "_L"))         
  (if ssRect
    (progn
      (command "_REVCLOUD" "_Object" ssRect "" "_ArcLength" "500" "")
      (setq ssCloud (ssget "_L"))     
      (if ssCloud
        (command "_.CHPROP" ssCloud "" "_Color" "2" "")
      )
    )
  )
  (princ)
)

 

           

Edited 14 hours ago by Nikon

[Steven P]

Might have to study GrRead and GrDraw to do that.

[rlx]

or instead of using (setq p2 (getpoint p1)) try (setq p2 (getcorner p1))

[Nikon]

26 minutes ago, rlx said:

or instead of using (setq p2 (getpoint p1)) try (setq p2 (getcorner p1))

Super! Right in the bull's-eye! Thanks! ****

(defun c:RectRevClCol (/ p1 p2 ssRect ssCloud)
  (prompt "Specify the first point of the rectangle: ")
  (setq p1 (getpoint))
  (prompt "Specify the opposite point of the rectangle: ")
  (setq p2 (getcorner p1)) ; *** rlx
  (command "_.RECTANGLE" p1 p2)
  (setq ssRect (ssget "_L"))         
  (if ssRect
    (progn
      (command "_REVCLOUD" "_Object" ssRect "" "_ArcLength" "500" "")
      (setq ssCloud (ssget "_L"))     
      (if ssCloud
        (command "_.CHPROP" ssCloud "" "_Color" "2" "")
      )
    )
  )
  (princ)
)

 

Edited 12 hours ago by Nikon

[Lee Mac]

Another -

(defun c:rectrevclcol ( / cec )
    (setq cec (getvar 'cecolor))
    (setvar 'cecolor "2")
    (initcommandversion)
    (vl-cmdf "_.revcloud" "_a" 500 "_r")
    (while (= 1 (logand 1 (getvar 'cmdactive))) (vl-cmdf "\\"))
    (setvar 'cecolor cec)
    (princ)
)

 

[BIGAL]

You can put the prompts in the getpoint. Note the \n this is make a new line on command prompt.

(prompt "Specify the first point of the rectangle: ")
  (setq p1 (getpoint))
  (prompt "Specify the opposite point of the rectangle: ")
  (setq p2 (getcorner p1)) ; *** rlx


  (setq p1 (getpoint "\nSpecify the first point of the rectangle: "))
  (setq p2 (getcorner p1 "\nSpecify the opposite point of the rectangle: ")) ; *** rlx

 

[Nikon]

9 hours ago, Lee Mac said:

Another -

(defun c:rectrevclcol ( / cec )
    (setq cec (getvar 'cecolor))
    (setvar 'cecolor "2")
    (initcommandversion)
    (vl-cmdf "_.revcloud" "_a" 500 "_r")
    (while (= 1 (logand 1 (getvar 'cmdactive))) (vl-cmdf "\\"))
    (setvar 'cecolor cec)
    (princ)
)

It's brilliant! The revcloud is immediately drawn as a cloud!
Thanks!

Edited 1 hour ago by Nikon

[Nikon]

For those who don't like clouds   
Sometimes you need to highlight something and you can forget that the frame needs to be deleted.

;; Rectangle on the Defpoints layer, LWEIGHT 0.5, color 2 yellow
;; Based on the Lee Mac code
 (defun c:RectLayDefcol2 ( / cec cel cla )
    (setq cec (getvar 'cecolor))
    (setvar 'cecolor "2")
    (setq cel (getvar 'celweight))
    (setvar "celweight" 50)  
    (setq cla (getvar 'clayer))

  (command "_.-LAYER" "_M" "Defpoints" "")

    (initcommandversion)
    (vl-cmdf "_.rectang")
    (while (= 1 (logand 1 (getvar 'cmdactive))) (vl-cmdf "\\"))
    (setvar 'cecolor cec)
    (setvar 'celweight cel)
    (setvar 'clayer cla)

    (princ)
)