generate functionFri, 12 May 2023
cambiar el nombre de todas las capas de microstation poniendo un letra k en el inicio del nombre de la capa
def changeName(layerName):
return "k" + layerName
C++
ViewIÑAKI IJURCO
All generations.
generate functionFri, 12 May 2023
cambiar el nombre de todas las capas de microstation poniendo un letra k en el inicio del nombre de la capa en formato vba
Private Sub Command1_Click()
Dim I As Long
For I = 1 To ThisDrawing.LayerTable.Count
ThisDrawing.LayerTable.Item(I).Name = "k" & ThisDrawing.LayerTable.Item(I).Name
Next I
End Sub
C++
Viewgenerate functionFri, 12 May 2023
cambiar el nombre de todas las capas de microstation poniendo un letra k en el inicio del nombre de la capa
#
function add(a, b):
return a + b
add(1, 2)
C
Viewgenerate functionFri, 12 May 2023
cambiar el nombre de todas las capas de microstation poniendo un letra k en el inicio del nombre de la capa
string[] layers = doc.Layers.GetNames();
for (int i = 0; i < layers.Length; i++)
{
string layer = layers[i];
if (layer.StartsWith("A"))
{
doc.Layers.Rename(layer, "K" + layer);
}
}
C#
ViewtestsFri, 12 May 2023
Sub RenameLayers() Dim layer As Element For Each layer In ActiveModelReference.Layers layer.Name = "MOD-" & layer.Name Next layer End Sub
import unittest
class TestAdd(unittest.TestCase):
def test_add(self):
self.assertEqual(add(1, 2), 3)
fix invalid codeFri, 12 May 2023
Sub Bmrkk() Dim startPoint As Point3d Dim point As Point3d, point2 As Point3d Dim lngTemp As Long Dim oMessage As CadInputMessage ' Enviar datos desde el teclado que puede ser una cadena de comando CadInputQueue.SendKeyin "LEVELMANAGER LEVEL RENAME LIST " CadInputQueue.SendKeyin "LEVEL SET NAME ""AREAS INICIALES"" ""mod-AREAS INICIALES""" ' Definir una variable asociada a un cuadro de diálogo SetCExpressionValue "lvlmangrGlobals.levelName", "mod-AREAS INICIALES", "LVLMANGR" CommandState.StartDefaultCommand End Sub
## Table of Contents
- [Usage](#usage)
- [API](#api)
## Usage
fix invalid codeFri, 12 May 2023
Sub RenameLayers() Dim layer As Element For Each layer In ActiveModelReference.Layers layer.Name = "MOD-" & layer.Name Next layer End Sub
Sub RenameLayers()
Dim layer As Element
For Each layer In ActiveModelReference.Layers
layer.Name = "MOD-" & layer.Name
Next layer
End Sub
