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 1 hour ago by Nikon

[Steven P]

Might have to study GrRead and GrDraw to do that.