- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
convert revcloud to rectangle or square
Hi Experts,
Any one knows,
How to convert revcloud to rectangle or square back
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
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
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
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
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
@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:
If you want to experiment with PLD command in PLDiet.lsp anyway, there are a few versions out there, but the latest is >here<.
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
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
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].