VBA / AUTOCAD

[tazZz]

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

Editado Maio 4, 2017 por tazZz