----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Esta macro AutoCAD VBA mostra como podemos selecionar
' duas linhas na área de desenho do AutoCAD e informar
' se as duas linhas são paralelas ou não
Sub LinhasPararelas()
  ' vamos declarar um variável para receber as duas
  ' linhas selecionadas
  Dim linha_a As AcadLine
  Dim linha_b As AcadLine
  ' e também as localizações das linhas
  Dim localizacao_a As Variant
  Dim localizacao_b As Variant
  ' para guardar os pontos iniciais
  Dim ponto_inicial_a As Variant
  Dim ponto_inicial_b As Variant
  ' para guardar os pontos finais
  Dim ponto_final_a As Variant
  Dim ponto_final_b As Variant
  ' para guardar os coeficientes angulares
  Dim m_a As Double
  Dim m_b As Double
  
  ' caso haja algum erro
  On Error Resume Next
    
  ' agora pedimos para o usuário selecionar a primeira linha
  ThisDrawing.Utility.GetEntity linha_a, localizacao_a, _
    "Selecione a primeira linha"
  ' agora pedimos para o usuário selecionar a segunda linha
  ThisDrawing.Utility.GetEntity linha_b, localizacao_b, _
    "Selecione a segunda linha"
    
  ' vamos obter o ponto inicial da primeira linha
  ponto_inicial_a = linha_a.StartPoint
  ' vamos obter o ponto final da primeira linha
  ponto_final_a = linha_a.EndPoint
    
  ' vamos obter o ponto inicial da segunda linha
  ponto_inicial_b = linha_b.StartPoint
  ' vamos obter o ponto final da segunda linha
  ponto_final_b = linha_b.EndPoint
    
  ' vamos calcular o coeficiente angular da primeira reta
  m_a = (ponto_final_a(1) - ponto_inicial_a(1)) / (ponto_final_a(0) _
    - ponto_inicial_a(0))
  ' vamos calcular o coeficiente angular da segunda reta
  m_b = (ponto_final_b(1) - ponto_inicial_b(1)) / (ponto_final_b(0) _
    - ponto_inicial_b(0))
    
  ' mostramos o resultado
  If m_a = m_b Then
    ThisDrawing.Utility.Prompt "As duas linhas são paralelas"
  Else
    ThisDrawing.Utility.Prompt "As duas linhas não são paralelas"
  End If
End Sub

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Esta macro AutoCAD VBA demonstra como podemos
' calcular a distância entre dois pontos na área de
' desenho do AutoCAD
Sub DistanciaDoisPontos()
  ' vamos declarar os dois pontos geométricos
  Dim p As Variant
  Dim q As Variant
  ' para guardar as coordenadas temporárias
  Dim x As Double, y As Double, z As Double
  ' para guardar a distância
  Dim distancia As Double

  ' vamos pedir para o usuário informar os dois pontos
  p = ThisDrawing.Utility.GetPoint(, vbCrLf & _
    "Indique o primeiro ponto: ")
  q = ThisDrawing.Utility.GetPoint(p, vbCrLf & _
    "Indique o segundo ponto: ")

  ' agora calculamos a distância entre os dois pontos informados
  x = p(0) - q(0)
  y = p(1) - q(1)
  z = p(2) - q(2)
  distancia = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
 
  ' e mostramos o resultado
  MsgBox "A distância entre os dois pontos é: " & distancia
End Sub

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Procedimento que permite desenhar uma linha entre dois pontos
Sub DesenharLinhaDoisPontos()
  ' vamos declarar o objeto Line
  Dim linha As AcadLine
  ' o ponto inicial
  Dim pontoInicial(0 To 2) As Double
  ' o ponto final
  Dim pontoFinal(0 To 2) As Double

  ' vamos definir as coordenadas dos dois pontos. Uma boa idéia
  ' seria pedir para o usuário informar os pontos. Em outras dicas
  ' do site essa idéia é explorada
  pontoInicial(0) = 0: pontoInicial(1) = 0: pontoInicial(2) = 0
  pontoFinal(0) = 350: pontoFinal(1) = 500: pontoFinal(2) = 0

  ' e agora desenhamos a linha
  Set linha = ThisDrawing.ModelSpace.AddLine(pontoInicial, pontoFinal)
  ' e damos uma Zoom All na área de desenho
  ZoomAll
End Sub

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Esta macro AutoCAD VBA mostra como selecionar uma linha
' na área de desenho do AutoCAD e retornar suas coordenadas
' iniciais e finais
Sub CoordenadasLinha()
  ' vamos declarar um variável para receber a linha
  ' selecionada
  Dim linha As AcadLine
  ' e também a localização da linha
  Dim localizacao As Variant
  ' para guardar o ponto inicial
  Dim ponto_inicial As Variant
  ' para guardar o ponto final
  Dim ponto_final As Variant
   
  ' caso haja algum erro
  On Error Resume Next
   
  ' agora pedimos para o usuário selecionar a linha
  ThisDrawing.Utility.GetEntity linha, localizacao, _
    "Selecione uma linha"
   
  ' vamos obter o ponto inicial da linha
  ponto_inicial = linha.StartPoint
  ' vamos obter o ponto final da linha
  ponto_final = linha.EndPoint
   
  ' e mostramos as coordenadas iniciais e finais da linha
  ThisDrawing.Utility.Prompt "As coordenadas iniciais são: X = " _
    & ponto_inicial(0) & "; Y = " & ponto_inicial(1) & "; Z = " _
    & ponto_inicial(2)
  ThisDrawing.Utility.Prompt vbCrLf & "As coordenadas finais são: X = " _
    & ponto_final(0) & "; Y = " & ponto_final(1) & "; Z = " _
    & ponto_final(2)
End Sub

valor = 0.0043563
print("Valor: %e" % valor)

const numeros = [33, 2, 8]; 
numeros.sort();
document.write(numeros[1]);