Colección de citas famosas - Frases elegantes - Quiero modificar texto por lotes en CAD. Por ejemplo, tengo un grupo de texto 1 2 3 4. Quiero modificar texto por lotes en A B C D. Esto se logra mejor a través de VBA en CAD.
Quiero modificar texto por lotes en CAD. Por ejemplo, tengo un grupo de texto 1 2 3 4. Quiero modificar texto por lotes en A B C D. Esto se logra mejor a través de VBA en CAD.
Sub replace()
Atenuar aa como cadena
Atenuar bb como cadena
aa = "Mi corazón chino"
p>bb = "Río Yangtze, Río Amarillo"
Atenuar myselection como AcadSelectionSet
Para cada myselection en ThisDrawing.selectionSets
Si myselection. Nombre = " qqq" Luego
myselection.Delete
Salir para
Finalizar si
Siguiente
Establecer myselection = ThisDrawing .selectionSets.Add("qqq")
myselection.SelectOnScreen
Atenuar mytext como AcadMText
Atenuar myentity como AcadEntity
Para cada myentity en myselection
Si myentity.ObjectName = "AcDbMText" Entonces
Establezca mytext = myentity
Si mytext.TextString = aa Entonces
mytext.TextString = bb
Finalizar si
A = A + 1
Finalizar si
Siguiente
Cuadro de mensaje A
Fin del subtítulo