Gabrielnv

tenho um bloco em cima de uma linha e quero pegar as coordenadas do ponto de intersecçao da linha e do bloco alguém sabe como?? obrigado

tenho esse seguinte codigo que ira inserir um bloco no autocad e ele tambem já vai rotacionalo... até ai tudo bem, mas quando eu coloco o ponto de inserçao e a rotaçao e dou um enter ele para o programa e eu queria que ele me pedisse um novo ponto de inserçao para outro bloco Private Sub Image1_Click() Dim bloco As String Dim blocoref As AcadBlockReference Dim pontoDeIns As Variant Dim rotate As Double UserForm1.Hide ThisDrawing.ActiveSpace = acModelSpace Dimscale = ThisDrawing.GetVariable("DIMSCALE") pontoDeIns = ThisDrawing.Utility.GetPoint(, "ingresse o centro: ") rotate = ThisDrawing.Utility.GetAngle(pontoDeIns, "selecione a rotacao: ") bloco = "J:\BKP\Rotinas Warp\condl1lr.dwg" Set blocoref = ThisDrawing.ModelSpace.InsertBlock(pontoDeIns, bloco, Dimscale, Dimscale, Dimscale, rotate) End Sub

já consegui tambem xD

alguém saberia colocar tratamento de erros neste meu código????

esta aqui, eu estava usando para visualisar as layers de um desenho Autocad e ele mostra na list box1 ai quando coloco um texto na textbox1 e clico no botão troca, ele muda o nome da layer no desenho, na listbox1 e mostra na listbox 2 o nome antigo e o novo ;Botão troca Private Sub Troca_Click() ;declarando variaveis Dim camadas As AcadLayers Dim camada As AcadLayer Dim variavel As String ; e aqui é responsavel por pegar o conteudo selecionado e guardar em camada Set camada = ThisDrawing.Layers(ListBox1.Text) ;aqui é colocando em variavel o texto da Textbox2 que sera o novo nome Variavel = TextBox2 ;aqui a layer recebe o nome da variavel camada.Name = variavel ;e aqui imprimimos na listbox2 o nome antigo e o novo ListBox2.AddItem ListBox1.Text & " --> " & selecionado ;esta parte é responsavel primeiro por zerar a listbox1 e em seguida listar os layers do desenho aberto Dim AllLayers As Object Dim Layer As Object Set AllLayers = ThisDrawing.Layers ListBox1.Clear For Each Layer In AllLayers ListBox1.AddItem Layer.Name Next End Sub não sei se esta tudo certo pois comecei a programar em vba a menos de uma semana, mais ta aeee :D

AEE CONSEGUI :)

Tenho Uma listbox e queria selecionar um dos itens, colocar algum texto em uma textbox e quando der um ok ele mudar o valor do item selecionado alguém sabe como fazer isso?? obrigado

Oi sou novo no forum e em programaçao VBA Estou tentando fazer um programa para autocad e quero que, ao clique no botão abrir pasta, ele me permita escolher o diretório que eu desejar e que nesse diretório mostre os arquivos com extenção ".dwg" Quando esta pasta for selecionada, quero que ele abra os arquivos contidos nela sem subpastas. já pesquisei mais não achei algo parecido com o que desejo. agradeço a ajuda