tema Re: Dibujar esferas desde circulos en AutoCAD - Todos los productos - Foro en Español

Dibujar esferas desde circulos

Anonymous — Wed, 14 Aug 2019 14:58:08 GMT

tengo una serie de circulos y nececito transformar estos a un aesfera

Re: Dibujar esferas desde circulos

Anonymous — Wed, 14 Aug 2019 16:50:57 GMT

Hola @Anonymous

No hay ningún comando que lo haga directamente, pero te dejo una alternativa de solución:

1.- Coloca todos los círculos en un sola capa.

2.- Ejecuta DATAEXTRACTION y extrae las coordenadas del centro y el radio en un archivo de Excel (Si quieres mayor detalle del uso de este comando te dejo este video: Extraer datos de AutoCAD a Excel.)

3.- En Excel haces una formula para conformar la coordenadas del centro como =+C2&","&D2&","&E2

4.- Ejecutas el comando MULTIPLE y luego digitas el comando SPHERE

5.- Copia del excel las 2 columnas de coordenadas y radio, y lo pegas con CTRL+V en la Linea de Comando (lo que hará este procedimiento es en cada comando SPHERE que se repita, le dará las coordenadas y radio que te solicita el comando).

Si te funciono esta solución, por favor márcalo como "Solución Aceptada", para ayudar a los demás miembros de la comunidad o sino cuéntanos como pudiste solucionar el problema. Que tengas un excelente día. Saludos.

Re: Dibujar esferas desde circulos

fernando.prado — Wed, 14 Aug 2019 17:09:41 GMT

Saludos @Anonymous

Te comento otro par de formas de hacer las esferas

#1 -En una vista 3-dimensional, con el comando _Sphere seleccionas el centro del circulo

luego haces la esfera del diámetro que necesites ya sea con el dato si lo tienes o con un punto de referencia "cuadrante"

#2 -A los círculos los debes de cortar a la mitad

luego con el comando _Revolve seleccionas nuevamente el punto centro y le indicas una dirección para darle el eje a la revolución que vas a hacer

El comando te genera una especie de "Pac-man" esto por si deseas hacer una revolución parcial del objeto o con un valor de grados especifico, por defecto viene 360° por lo que le puedes dar "enter" y te cierra la esfera

Espero te funcione

Si esta forma da solución o la propuesta por @Anonymous , selecciónalas como respuesta para que ayudes a otros a encontrar la respuesta a este tema rápidamente en futuras consultas

Re: Dibujar esferas desde circulos

bc.chiquito — Wed, 14 Aug 2019 19:39:41 GMT

Hola, @jaray23

Además de hacerlo con una revolución, lo cual puede implicar más trabajo, mi recomendación sería usar el círculo como referencia y en una capa adicional colocar las esferas que requieres, será importante que tengas activos los snaps, como centro y cuadrante.

Puedes hacerlo a través de dos o tres puntos y posteriormente ocultar o eliminar las referencias de círculos, o usarlas simplemente como punto de referencia para distribuir el resto de las esferas que tengan los mismos diámetros.

Te dejo un screencast, realmente el proceso es muy sencillo. Desconozco que estés tratando de realizar o la complejidad de tu proyecto, pero con más información, podríamos proporcionarte otras opciones.

Saludos. Espero que te sea útil.

Re: Dibujar esferas desde circulos

Anonymous — Fri, 16 Aug 2019 13:50:12 GMT

Hola @Anonymous , muy buenos días a todos. Existen varias formas de hacer lo que indicas, lo ideal seria utilizar autolisp, para automatizar y convertir varios círculos en esferas. Para complementar lo que te indique inicialmente, del procedimiento para hacer esferas a partir de una serie círculos de forma masiva, sin necesidad de programación, te dejo un video con el detalle del procedimiento: Convertir círculos a esferas en AutoCAD

Saludos

Re: Dibujar esferas desde circulos

Mecanico14 — Fri, 16 Aug 2019 16:03:47 GMT

Excelente aportación @Anonymous , me ha gustado el método.

Re: Dibujar esferas desde circulos

j_cordero — Sat, 17 Aug 2019 01:47:20 GMT

Hola otra forma es generando una macro, te la comparto y te explico en un video como ejecutarla.

Private Sub Circulos_a_Esferas()

    Dim ssetObj As AcadSelectionSet
        'Seleccion de objetos
        Set ssetObj = ThisDrawing.SelectionSets.Add("seleccionCirculoss")
        ssetObj.SelectOnScreen
             
        'Buscamos objeto por objeto en la selleccion
        For Each objSS In ssetObj
        
            'Filtramos solo los circulos
            If objSS.ObjectName = "AcDbCircle" Then
                'Declaracion de variables para obtener centro y radio
                Dim centerPoint As Variant
                Dim radius As Double
                'Obtencion de variables por cada elemento de la seleccion
                centerPoint = objSS.Center
                radius = objSS.radius
                
                'Creamos esfera por cada elemento tipo circulo que encuentra en la seleccion
                Dim sphereObj As Acad3DSolid
                Set sphereObj = ThisDrawing.ModelSpace.AddSphere(centerPoint, radius)
                 
            End If
            ZoomAll
        Next
    '    Limpiar objetos y borrar seleccion
        ssetObj.Clear
        ssetObj.Delete

End Sub

Espero que te animes y empieces a automatizar ya que este es un excelente ejemplo.

Si no tienes VB autocad te enviara una liga, abrelo y descargalo.