Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

convert revcloud to rectangle or square

Anil_Kumar_M
Explorer

convert revcloud to rectangle or square

Anil_Kumar_M
Explorer
Explorer

Hi Experts,

 

Any one knows,

How to convert revcloud to rectangle or square back

 

 

0 Me gusta
Responder
1.204 Vistas
5 Respuestas
Respuestas (5)

Valentin-WSP
Mentor
Mentor

@Anil_Kumar_M ,

 

Apart from UNDO,  try the Pedit > Decurve option.



Please select the "Accept as Solution" button if my post solves your issue or answers your question.


Emilio Valentin
0 Me gusta

Valentin-WSP
Mentor
Mentor

You may also want to use the PLDIET LISP  afterward to remove the multiple vertex, created by @Kent1Cooper .



Please select the "Accept as Solution" button if my post solves your issue or answers your question.


Emilio Valentin
0 Me gusta

Kent1Cooper
Consultant
Consultant

If the outer reaches of it [not the inner arc-segment endpoints of an outward-bulging one] are an acceptable result, check >this< out.

Kent Cooper, AIA
0 Me gusta

Kent1Cooper
Consultant
Consultant

@Valentin-WSP wrote:

You may also want to use the PLDIET LISP  afterward to remove the multiple vertex, created by @Kent1Cooper .


PLDIET can do the same directly, without the PEDIT Decurve middle-man, if you opt to have it Straighten arc segments -- it will at the same time remove the intermediate vertices in collinear stretches.  But either can give a less-than-truly-rectangular result.  Here with the dashed-red rectangle being the source rectangle of the left REVCLOUD which was made from it with the Object option:

Kent1Cooper_0-1629893435756.png

If you want to experiment with PLD command in PLDiet.lsp anyway, there are a few versions out there, but the latest is >here<.

Kent Cooper, AIA
0 Me gusta

Kent1Cooper
Consultant
Consultant

If the Revcloud is one whose vertices all fall on the original rectangle shape, and that is orthogonally oriented [as in my previous Reply], this seems to restore the original, without the chamfered corners in the PEDIT/PLD results, whether or not any vertices don't fall on the original corners:

 

(defun C:REV2REC ; = REVcloud to RECtangle
  (/ revc verts)
  (if (setq revc (car (entsel "\nSelect orthogonal-rectangular Revcloud: ")))
    (progn ; then
      (setq verts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget revc))))
      (command "_.rectang"
        "_non" (list (apply 'min (mapcar 'car verts)) (apply 'min (mapcar 'cadr verts)))
        "_non" (list (apply 'max (mapcar 'car verts)) (apply 'max (mapcar 'cadr verts)))
      ); command
    ); progn
  ); if
  (princ)
); defun

 

Kent1Cooper_0-1629897912628.png

That's in simplest terms -- no verification of appropriate selection, etc. -- but the usual enhancements can be added.  And I assume you would want to delete the source Revcloud [I didn't have it do that yet, so you can compare it with the resulting rectangle].

Kent Cooper, AIA
0 Me gusta