Escalar Blocos com atributos
0 Votos
Bom dia,
Tenho 50 blocos com atributos e preciso colocar um fator de escala maior neles.
Quando acesso as propriedades do bloco com o refedit, só consigo escalar o desenho que compoem o bloco, porem tenho que escalar o texto também! Como faço, alguem poderia me ajudar?
Grato,
Ricardo
1
Respostas
Ricardo
Pelo que sei só com programação.
====================================================
Sub ESCALAR()
Dim OBJ As AcadObject
Dim BLK As AcadBlock
Dim BLKS As AcadBlocks
Dim BLKREF As AcadBlockReference
Dim scalefactor As Double
Dim BLOCO As String
Dim fator As String
Dim entHandle As String
Dim ENT As AcadEntity
Dim InsertionPoint As Variant
On Error Resume Next
BLOCO = InputBox(“ENTRE COM O BLOCO A EDITAR”, “BLOCO A ESCALAR”, “BLK-CAIXA”)
fator = InputBox(“ENTRE COM O FATOR DE ESCALA”, “FATOR DE ESCALA”, 2)
AUX00 = ThisDrawing.ModelSpace.Count
For I = 0 To AUX00 – 1
AUX01 = ThisDrawing.ModelSpace.Item(I).Handle
Set OBJ = ThisDrawing.HandleToObject(AUX01)
AUX02 = OBJ.ObjectName
If AUX02 <> “AcDbBlockReference” Then GoTo 500
AUX03 = OBJ.Handle
Set BLKREF = ThisDrawing.HandleToObject(AUX01)
AUX04 = BLKREF.ObjectName
AUX05 = BLKREF.Handle
AUX06 = BLKREF.Name
If BLOCO <> AUX06 Then GoTo 500
scalefactor = Val(fator)
BLKREF.ScaleEntity BLKREF.InsertionPoint, scalefactor500
Next I
End Sub
=======================================================
Não sei como anexar arquivos neste site.
Ticiano
ticianopa@hotmail.com