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 3 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 1 hour 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)
)