Hakediş İçin Polyline Metraj Alma + Çizim Üzerinde Otomatik Pozlama + CSV Aktarma (LISP + DCL)

[hsynbkr1]

Merhaba arkadaşlar,

Hakediş ve metraj işlerinde kullanmak için hazırladığım bir AutoLISP paylaşmak istiyorum.
Bu sistem, çizimdeki polyline nesnelerden metraj alıp CSV dosyasına yazar ve aynı anda çizim üzerine hakediş / poz işaretlemesi yapar.

Yani mantık sadece ölçü almak değil;
ölçülen elemanı çizimde işaretleyip, pozlayıp, sonradan tekrar kontrol edilebilir hale getirmek.

Sistem ne yapıyor?

Seçilen polyline için otomatik olarak:

Uzunluğu alır
Kapalıysa alanını alır
Köşe sayısını bulur
Açık / kapalı bilgisini yazar
Başlangıç ve bitiş genişliğini okur
CSV’ye kaydeder
Çizimde hakedis layer’ına otomatik daire ve yazı yerleştirir

Yani hem tabloya veri üretir, hem de çizim üstünde görsel takip sağlar.

Hakediş mantığı

Bu çalışmayı özellikle hakediş mantığıyla kullandım.

Bir imalatı ölçtüğünüzde sistem o elemanı sadece hesaplamıyor, aynı zamanda çizim üzerinde bir hakediş etiketi ile işaretliyor.
Bu etiket bir prefix + sıra numarası şeklinde oluşuyor.

Örnek:

HAK-1
HAK-2
HAK-3

veya kullanıcı isterse:

DEMIR-1
KIRIM-1
IMALAT-1

gibi devam ediyor.

Buradaki önemli mantık şu:

Program mevcut CSV dosyasını tarıyor, aynı prefix ile daha önce açılmış kayıtları buluyor ve numaralandırmaya kaldığı yerden devam ediyor.
Yani her seferinde baştan başlamıyor.

Bu da hakedişte çok işe yarıyor çünkü:

tekrar ölçü alma azalıyor
poz numaraları karışmıyor
çizim üzerindeki işaret ile listedeki kayıt birebir eşleşiyor
Pozlama mantığı nasıl çalışıyor?

Buradaki “pozlama” dediğim şey, ölçülen her polyline’a otomatik bir iş kodu / hakediş etiketi verilmesi.

Sistem şu şekilde çalışıyor:

Kullanıcı bir prefix giriyor
Örn: HAK, DEMIR, DUVAR, IMALAT1
Her seçilen polyline için otomatik sıra numarası veriyor
Örn:
HAK-1
HAK-2
HAK-3
Bu poz bilgisini hem çizime yazıyor hem CSV’ye aktarıyor

Yani çizimde gördüğünüz balon / daire içindeki yazı ile CSV’deki satır aynı kayıt oluyor.

Bu sayede sonradan “hangi ölçü hangi imalata ait?” sorusu çok daha net hale geliyor.

Çizim üstünde işaretleme nasıl yapılıyor?

Her işlenen polyline için:

hakedis layer’ında bir daire oluşturuluyor
dairenin içine poz etiketi yazılıyor
dairenin altına kısa bilgi bırakılıyor

Örnek:

daire içinde: HAK-7
altında: L=24.350
kapalı polyline ise ayrıca: A=12.480

Bu çok pratik oluyor çünkü metraj alınan yer çizimde görünür hale geliyor.

Daireyi nereye koyuyor?

Burada da rastgele yerleştirme yok.

Sistem önce polyline üzerindeki en uygun noktayı bulmaya çalışıyor.
Öncelikle en uzun segmentin orta noktasını baz alıyor.
Eğer o noktada daha önce yerleştirilmiş başka hakediş daireleri ile çakışma varsa, polyline boyunca farklı örnek noktalar kontrol ediliyor.

Amaç:

dairelerin üst üste binmemesi
yazıların çakışmaması
çizimin okunabilir kalması

Yani özellikle toplu metrajda görsel kirliliği azaltmaya çalışıyor.

Hangi bilgileri CSV’ye yazıyor?

CSV dosyasına şu alanlar yazılıyor:

No
Tarih / Saat
Layer
Uzunluk
Alan
Köşe Sayısı
Kapalı mı?
Başlangıç genişliği
Bitiş genişliği
Hakediş / Poz etiketi

Dosya adı:

polyline_olculer.csv

Drawing klasörüne oluşturuluyor.
Mevcut dosya varsa yeni satır ekleyerek devam ediyor.

Açık ve kapalı polyline farkı
Açık polyline:
uzunluk alınır
çizime L= bilgisi yazılır
Kapalı polyline:
uzunluk alınır
alan alınır
çizime L= ve A= birlikte yazılır

Bu yüzden hem çizgisel işler hem alan bazlı işler için kullanılabilir.

Komutlar
PLCSV → Tek polyline
PLCSVALL → Seçili / toplu polyline’lar
PLCSVLAYER → Layer bazlı işlem
PLCSV-RESET → Ayarları sıfırla
PLCSVP → DCL kontrol panelini aç
DCL panelde neler var?

Panelden:

işlem türü seçilebiliyor
prefix girilebiliyor
daire yarıçapı verilebiliyor
layer seçilebiliyor
nesneden layer alınabiliyor
ayarlar sıfırlanabiliyor
tek tuşla işlem başlatılabiliyor

Yani komut satırı yerine daha düzenli bir kullanım sağlıyor.

Kullanım alanı

Bence özellikle şu işlerde faydalı:

hakediş hazırlama
uygulama projesinden metraj alma
keşif kontrol işleri
polyline bazlı ölçü toplama
çizim üstünde işaretli çalışma
Excel / CSV aktarımı gereken işler
Kurulum

Aynı klasörde şu iki dosya bulunmalı:

plcsv_panel.lsp
plcsv_panel.dcl

Sonra APPLOAD ile LSP yüklenip kullanılabilir.

Kısaca özet

Bu LISP’in amacı:

polyline’dan metraj almak
ölçülen yeri çizimde işaretlemek
poz numarası vermek
CSV’ye düzenli kayıt düşmek
hakediş kontrolünü kolaylaştırmak

Yani metraj + pozlama + kayıt mantığını tek yerde topluyor.

Görüş, öneri ve geliştirme fikirlerine açığım.

Hazırlayan:
Hüseyin Özden Bakır