AdDuzelt Prosedürü:
Eski: İki veya daha fazla ayraç varsa, 1’den sondan bir önceki parçaya kadar olanlar birleştiriliyordu (örn. 101/1/A → 1).
Yeni:
parcalar = Split(o.pname, ayrac): pname’i ayraçla böler (örn. 101/1/A → [\”101\”, \”1\”, \”A\”]).
If UBound(parcalar) >= 2: İki veya daha fazla ayraç varsa (3 veya daha fazla parça).
yeniAd = parcalar(0) & ayrac & parcalar(UBound(parcalar)): İlk parça (parcalar(0)) ve son parça (parcalar(UBound(parcalar))) ayraçla birleştirilir.
Örnek: [\”101\”, \”1\”, \”A\”] → 101/A.
Örnek: [\”101\”, \”1\”, \”2\”, \”500\”] → 101/500.
o.pname = yeniAd: Yeni ad atanır.
Ayraç yoksa (UBound(parcalar) = 0) veya tek ayraç varsa (UBound(parcalar) = 1), işlem yapılmaz.
Mantık:
101/1/A, ayrac = \”/\” → 101/A.
101/1/2/500, ayrac = \”/\” → 101/500.
101/1, ayrac = \”/\” → İşlem yok.
101, ayrac = \”/\” → İşlem yok.
Main Prosedürü:
Tamamen aynı:
InputBox ile ayraç alınır, varsayılan C:\\sabangul\\NCMAKRO\\AYAR\\ayrac.txt’den.
Ayraç dosyaya kaydedilir.
Array(opline) ile opline objeleri seçilir.
Mesaj: “Alan objelerini seçiniz”.
SEL.NE, GetSelectedObject, PutObject, RedrawAndRewind, SetCurrentWindow değişmedi.
InputBox mesajı güncellendi: “Hangi karakterle ayırıp ortasını silelim?”.
Ayar Dosyası:
C:\\sabangul\\NCMAKRO\\AYAR\\ayrac.txt’ye ayraç kaydedilir/okunur.
Dosya/dizin yoksa oluşturulur.
Yeni ayraç girilirse dosya güncellenir.
Örnek Senaryolar:
pname = \”101/1/A\”, ayrac = \”/\” → pname = \”101/A\”
pname = \”PARSEL/ABC/123/XYZ\”, ayrac = \”/\” → pname = \”PARSEL/XYZ\”
pname = \”123-456-789-000\”, ayrac = \”-\” → pname = \”123-000\”
pname = \”101/1\”, ayrac = \”/\” → İşlem yok (pname = \”101/1\”).
pname = \”101\”, ayrac = \”/\” → İşlem yok (pname = \”101\”).
Dosya: İlk çalıştırmada / kaydedilir, sonra InputBox varsayılan / gösterir.
Kullanım
Makro, pname’de iki veya daha fazla ayraç varsa ortayı siler, ilk ve son parçaları ayraçla birleştirir (örn. 101/1/A → 101/A), ekranı günceller.
Netcad’de makroyu yükle (*.vbs veya *.ncm olarak).
Main prosedürünü çalıştır.
InputBox açılır:
İlk çalıştırmada varsayılan /, sonraki çalıştırmalarda C:\\sabangul\\NCMAKRO\\AYAR\\ayrac.txt’den okunan değer.
Yeni ayraç girersen (örn. -), dosya güncellenir.
İptal edersen makro kapanır.
Seçim ekranında opline objelerini (alanlar, poligonlar) seç.
Detaylar ola
📝 Netcad NVB Code
''