-
Minsert Explode
Alguien me puede ayudar, tengo un problema con un dibujo, el cual fue creado con un Minsert (arreglo de block), el cual no me permite explotarlo con el comando Explotar (explode). y me urge hacerle unos cambios...
De ante mano gracias por la atencion..
-
RE: Minsert explode
Roughly Translated:
Somebody can help me, I have a problem with a drawing, which was created with a Minsert (adjustment of block), which does not allow me to operate it with the commando To explode (explode). and it is urgent to me to do changes to him... Of before hand thanks for the attention.
-
English / Inglés
Does the block allow exploding? You should be able to adjust it through the Block Editor.
Spanish / Español vía el traductor de AJAX
¿El bloque permite el estallar? Debes poder ajustarlo a través del redactor del bloque.
-
RE: Minsert explode
English / Inglés
It appears that an MINSERT cannot be exploded.
Have you tried the FLATTEN command from Express Tools?
This CAD Forum post suggests using it with the EXPLODE command.
Spanish / Español
Aparece que un MINSERT no puede ser estallado.
¿Has intentado APLANAS comando de las herramientas expresas?
Este poste del foro del cad sugiere con lo con el comando del ESTALLAR.
-
RE: Minsert explode
You can only do this programatically. Here is some vba code I wrote to do that.
Usted puede hacer solamente esto programatically. Aquí está un cierto código del vba que escribí para hacer eso.
Code:
Public Sub ExplodeMinsert()
Dim oEnt As AcadEntity
Dim oEnts() As AcadEntity
Dim vCopies As Variant
Dim oMin As AcadMInsertBlock
Dim ss As AcadSelectionSet
Dim pp As Variant
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
GetEnt:
ThisDrawing.Utility.GetEntity oEnt, pp, "Select a MINSERT object: "
If TypeOf oEnt Is AcadMInsertBlock Then
'continue
Set oMin = oEnt
point2(0) = oMin.InsertionPoint(0)
point2(1) = oMin.InsertionPoint(1)
point2(2) = oMin.InsertionPoint(2)
Else
GoTo GetEnt
End If
GetBlockObjects oMin.Name, oEnts
vCopies = ThisDrawing.CopyObjects(oEnts, ThisDrawing.ActiveLayout.Block)
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.AddItems vCopies
For Each oEnt In ss
oEnt.Move point1, point2
oEnt.ScaleEntity point2, oMin.XScaleFactor
oEnt.Rotate point2, oMin.Rotation
Next oEnt
oMin.Delete
End Sub
Public Function GetBlockObjects(BlkName As String, oEntArray() As AcadEntity)
'Returns an array of objects from a block definition.
'We pass the block name rather than a block object so that it
'can work on MINSERT's too.
Dim oBlk As AcadBlock
Dim i As Integer
For Each oBlk In ThisDrawing.Blocks
If oBlk.Name = BlkName Then
ReDim oEntArray(oBlk.Count - 1)
For i = 0 To oBlk.Count - 1
Set oEntArray(i) = oBlk.Item(i)
Next i
End If
Next oBlk
End Function
-
RE: Minsert
1. Edita el bloque (Refedit)
2. Copia todas las entidades que te interesan a x metros a la derecha (depende de la escala de tu dibujo).
3. Saca las entidades copiadas del la definición del bloque (refset con remove)
4. Guarda la definición del bloque
5. Asi tendrás fuera del bloque las entidades que quieres modificar (puedes crear un bloque nuevo).
De esta forma evitas la imposibilidad de explotar el bloque.
Espero que te sea útil.
Un saludo,
-
RE: Minsert
Gracias arquirad, el problemas es que el block como tal no existe... al listarlo me da esta informacion:
BLOCK REFERENCE Layer: "0"
Space: Model space
Handle = 3a
Block Name: "*U0"
at point, X= 0.0000 Y= 0.0000 Z= 0.0000
X scale factor: 1.0000
Y scale factor: 1.0000
rotation angle: 0
Z scale factor: 1.0000
Scale uniformly: No
Allow exploding: Yes
# columns 2
column spacing 0.0000
es un arreglo de block (minsert) a dos columna y un renglon a 0 (cero) de distancia.
Ya probe la forma en que me suguieres, pero no se deja editar.. en el refedit...
mil gracias por la atencion.
-
1 Attachment(s)
RE: Minsert
Bueno, en teoria se trata de un dibujo protegido (minsert + unnamed block).
El asterisco le dice al AutoCAD que ignore el bloque, por eso no lo puedes editar.
Solución:
He adjuntado un lisp (no es mio) que hace el trabajo; la orden es "ren_ablk".
1. ren_ablk
2. "Enter new block name:" le pones el nombre que te da la gana
3. Seleccionas el bloque puñetero
4. Ya está :)
Díme si te ha funcionado.
Un saludo,
-
RE: Minsert
Gracias arquitrad
Si Funciono el LSP, quedo en deuda contigo... cualquier cosa si puedo ayudar estoy a tus ordenes..
atte. FerCar
-
Re: Minsert Explode
You can explode minsert block with Solidworks. Open minsert dwg with Solidworks. Than save the drawing as dwg file. And there is your new dwg file :).