Question

Olá

Tenho um FORMULARIO feito em vba que consiste em inserir "blocos" do auto cad em um ponto "X,Y", Gostaria de salvar as opções ticadas no formulario, que consistem em "OptionButton", PARA poder editá-las quando reabertas, para isso os OP, teriam que ser reaberto com a opção marcada pela ultima vez.

CODIGO:

Dim blockRef1   'REFERENCIA FLAME 1,4,5,6 EVER
Dim insertionPnt1(0 To 2) As Double 'REFERENCIA FLAME 1,4 E 5 EVER
Dim pathform1 As String 'REFERENCIA FLAME 1,4 E 5 EVER

Private Sub CommandButton1_Click()

'----------------------------------------------------------

If OptionButton1.Value = True Then 'Tensão 220V

    pathform1 = "XIS" 'FECHO LINGUENTA MIOLO FENDA
    insertionPnt1(0) = 112.96    'CORDENADA X
    insertionPnt1(1) = 266.7     'CORDENADA Y
    insertionPnt1(2) = 0#        'CORDENADA Z
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK
   OptionButton1.TabStop = False
   
ElseIf OptionButton2.Value = True Then 'Tensão 380V
    
    pathform1 = "XIS" 'REFERENCIA PODE SER O NOME OU DIRETORIO
    insertionPnt1(0) = 141.04    'CORDENADA X
    insertionPnt1(1) = 266.7     'CORDENADA Y
    insertionPnt1(2) = 0#        'CORDENADA Z
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK
   OptionButton1.TabStop = False
   
ElseIf OptionButton2.Value = True Then 'Tensão 380V
    
    pathform1 = "XIS" 'REFERENCIA PODE SER O NOME OU DIRETORIO
    insertionPnt1(0) = 141.04    'CORDENADA X
    insertionPnt1(1) = 266.7     'CORDENADA Y
    insertionPnt1(2) = 0#        'CORDENADA Z
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt1, pathform1, 1, 1, 1, 0) 'LOCAL ONDE SERA INSERIDO O BLOCK
   OptionButton1.TabStop = False

End If
  
    UserForm1.Hide
  
End Sub

Capturar.thumb.JPG.ec66b702f7cc6337a11b732fcdda83a8.JPG

Capturar2.JPG

Capturar3.JPG

Edited by tazZz

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this