Zoom.All cómo funciona?

ppluis · **Registrado:** Jue May 21, 2009 11:27 am **Mensajes:** 68

Buenas a todos, tengo un código que crea splines y funciona bien, pero necesito que me haga un "zoom all o extension " al finalizar de dibujar las splines. Aquí me da error, lógico porque no sé usar el comando. En alguna parte del foro he visto código que lo usa pero no me acuerdo dónde.
También necesitaría información para crear una tabla en el dwg con los valores de un rango de celdas del excel. Indicazme, por favor, dónde puedo ver ejemplo.
Estaría bien, si alguien conoce alguna página, conocer cómo funcionan los objetos de autocad.
Muchas gracias a todos

Copio código:

Código:

Sub SplineTendones(np, PName$(), x() As Double, y() As Double, h() As Double, e() As Double)

 Dim obj_spline As Object
 ReDim vertice(1 To 3 * np) As Double
 Dim TanInicial(1 To 3) As Double
 Dim TanFinal(1 To 3) As Double
 Dim nlayer As String
 Dim ncolor As Integer
 Dim Tlinea As String
 
 AcadConnect
 
 'LetterSize = Cells(7, 10)
  
  nlayer = Cells(2, 11)
  ncolor = Cells(3, 11)
  Tlinea = Cells(4, 11)
  
 AcadNewLayer nlayer, ncolor, Tlinea
      
    For i = 1 To np
        AcadCircle x(i), y(i), nlayer, e(i)
        vertice(3 * i - 2) = x(i)
        vertice(3 * i - 1) = y(i)
        'vertice(3 * i) = h(i)

    Next
    'dibujamos una spline que una todos los puntos
    
        TanInicial(1) = 0: TanInicial(2) = 0: TanInicial(1) = 0
        TanFinal(1) = 0: TanFinal(2) = 0: TanFinal(1) = 0

    Set obj_spline = AcadApp.ActiveDocument.ModelSpace.AddSpline(vertice, TanInicial, TanFinal)
    obj_spline.layer = nlayer
    obj_spline.LineType = Tlinea
    obj_spline.LineTypeScale = 0.1
    Zoom.all
       
End Sub

ppluis · **Registrado:** Jue May 21, 2009 11:27 am **Mensajes:** 68

Hola otra vez.
Ya sé como se añade una tabla en el dwg. " Sólo me falta que inserte los valores del rango". Y que escoga un tipo de tabla definida por mi en el dwg (tipo: vinculo de datos). Casi nada..........
Utilizo acad 2011, por si alguien lo intenta. O por si a alguien se le ocurre cómo hacerlo
Código que inserta la tabla

Código:

Public AcadApp As Object
Public tabla As Object
Sub AcadConnect()

On Error Resume Next
Set AcadApp = GetObject(, "Autocad.Application")
If Err Then
    Err.Clear
    Set AcadApp = CreateObject("Autocad.Application")
    AcadApp.Visible = True
    If Err Then
        MsgBox Err.Description
        Exit Sub
    End If
End If
End Sub
Sub AcadClose()
    Set AcadApp = Nothing
End Sub

Sub DatosTabla()

Dim puntoinsercion(0 To 2) As Double
Dim numerodefilas As Long
Dim numerocolumnas As Long
Dim altofila As Double
Dim anchocolumna As Double
Dim tabla As Object

AcadConnect

puntoinsercion(0) = 5.744
puntoinsercion(1) = 546.522
puntoinsercion(2) = 0
numerodefilas = 3
numerocolumnas = 10
altofila = 0.85
anchocolumna = 1.45

Set tabla = AcadApp.ActiveDocument.paperSpace.AddTable(puntoinsercion, numerodefilas, numerocolumnas, altofila, anchocolumna)

End Sub

Gracias de nuevo

SCORG

Zoom.All cómo funciona?

¿Quién está conectado?