Microstation Vba Cephe yazdırma

Yükle

Line, Linestring ve shape elementlerine cephe yazdırabilirsiniz.
cephe formatı { } parantezleri arasına yazılacak
parantezlerin önünde ve sonunda yazdırmak istediğiniz ekleri yazdırabilirsiniz.



Key-in komutu
vba run cepheyaz_pr2.Cepheyaz

Sondaj Noktası Litolojisi

Nokta bilgileri Excel sayfası	Sondaj noktasına ait bilgilerin Microstationa silindir şeklinde çizilmesi. Sondaj noktasının koordinatları 0,0,0, olarak ele alınacak, boru yarıçapı 10 m default olarak kullanılacak. Eklemeler Y yönünde olacak. Öncelikle Microstationda Utilities-Macro-Project Manager Penceresini açalım ve silindir adında yeni bir mvba dosyası oluşturalım.

İçine Kodlarımızı yazalım:

Sub Silindir()

   Dim pointS As Point3d

   Dim pointE As Point3d

   Dim cap As Double

   Dim oPipe  As Element

   Dim levname As String

   

   cap = 10

   Set oXL = GetObject(, "Excel.Application")

   Set oSheet = oXL.activeWorkbook.activesheet

   

   k = 2

   Do While oSheet.cells(k, 1) <> ""

      pointS.X = 0

      pointS.Y = -oSheet.cells(k, 2)

      pointS.Z = 0

   

      pointE.X = 0

      pointE.Y = -oSheet.cells(k, 3)

      pointE.Z = 0

      

      levname = oSheet.cells(k, 4)

      

      Set oPipe = SilindirCiz(pointS, pointE, cap, msdDrawingModeNormal)

      oPipe.Level = myLevel(levname)

      ActiveModelReference.AddElement oPipe

      k = k + 1

   Loop

End Sub

Private Function SilindirCiz(ByRef startPoint As Point3d, ByRef endPoint As Point3d, ByVal radius As Double, ByVal drawMode As MsdDrawingMode) As Element

    Set SilindirCiz = Nothing

    Dim oCone As ConeElement

    Set oCone = CreateConeElement1(Nothing, radius, startPoint, radius, endPoint, Matrix3dIdentity)

    oCone.Redraw drawMode

    Set SilindirCiz = oCone

End Function

Private Function myLevel(levname As String) As Level

   Set myLevel = ActiveDesignFile.Levels.Find(levname)

   If myLevel Is Nothing Then

      CadInputQueue.SendKeyin "level create " & Chr(34) & levname & Chr(34)

      Set myLevel = ActiveDesignFile.Levels.Find(levname)

   End If

End Function

Bu örnek dahada geliştirilebilir. Örneğin 5 sütuna renk bilgisi eklenip oPipe.Color = oSheet.cells(k, 5) dediğimizde rengide excelden alınabilir.

Programı çalıştırmak için Key-in komut satırına vba run Silindir  dememiz yeterli.

  Çalışması için çalışma sayfası 3D, Excel dosyasının açık olması ve nokta bilgilerinin sayfası aktif olmalıdır.

silindir.mvba

Excel ile Kurban Satış Takibi

Kurban Satış Takip Programı;

Büyükbaş kurban satışları için kullanılabilecek Excelde oluşturulmuş bir programdır.

Excelde,

Ana Sayfa

Kişiler

Kurbanlıklar

Sayfaları bulunmaktadır. Kurbanlıklar sayfasında kurban bilgileri girilir.

Kişiler sayfasında Hisse Satışı düğmesi ile program calıştırılır.

Programın calışması icin Office - Excelin 32 bit olması gerekir. 

Windows 64 olabilir.

32 bit office kurulduğundan emin iseniz  MSCOMCTL.OCX dosyası indirilip sisteme register edilmelidir.

MSCOMCTL.OCX dosyası

 32 bit Windows ta

 c:\windows\system32 ye kopyalanır

calıştır komutuna

regsvr32 c:\windows\system32\mscomctl.ocx

yazılarak register edilir.

64 bit windows ta

c:\windows\syswow64 dizinine kopyalanır

calıştır komutuna veya command (cmd) satırına

regsvr32 c:\windows\syswow64\mscomctl.ocx

yazılarak register edilir.

Acılışta Güvenlik Uyarısı olarak Macrolar devre dışı bırakıldı diyor ise Seceneklerden icerik etkinleştirilir.

Register edilince alttaki uyarı alınacaktır.

Yardım almak isteyenler telden bana ulaşabilirler. Dosyanın Ana Sayfasında telefon numaram mevcut.

Bilgisayardan destek almak isteyenler alttaki programı (Teamviewer Portable versyonu) indirip (rar) lı dosyayı biryere acıp Teamviewer.exe yi calıştırarak  uzak masa üstü yardımı verebilirim.

---------------------------------------------------------------------------------------

Excel dosyasını  indir

Kesim takip flash dosyası drive dan indir

Kesim takip flash dosyası EXE indir
Kesim takip flash dosyası SWF indir
SWF dosyasının çalışması için FlashPlayer indir

---------------------------------------------------------------------------------------

Uzaktan Yardım Programı indir

Kurban Kesiminde canlı yayın

Kurban – Ana Sayfa

DKTY KESİM MERKEZİ

2020 yılı

KNO	DURUM	KESIM SAAT	MASA SAAT	MASA NO	TESLIM SAAT

FEST-İ BURSA 2015

     Değirmenlikızık Eğitim Kurumları bünyesinde eğitim gören öğrencilere destek amaçlı yapılan 10 gün devam edecek olan Kermes organizasyonu. Açılış : 29 Ağustos 2015 Saat 11:00 

Yer: Yıldırım Belediyesi Bayrak Alanı

Excel VBA Hücreye Açıklama Ekleme

Sub AciklamaEkle()

   Dim S1 As Worksheet

   Set S1 = Worksheets("Sayfa1")

   Call Aciklama_Ekle (S1.Cells(1, 1), "Açıklama Eklendi")

End Sub

Function Aciklama_Ekle(hucre As Range, note As String)

   Dim cmt As Comment

   Set cmt = hucre.Comment

   If cmt Is Nothing Then

      Set cmt = hucre.AddComment

      cmt.Text Text:=note

   Else

      note = note & Chr(10) & cmt.Text

      cmt.Text Text:=note

      If cmt.Shape.Height < 150 Then cmt.Shape.Height = cmt.Shape.Height + 20

   End If

   cmt.Visible = False

End Function

Excel VBA Hücreye link verme

Sub linkverdene()

   Dim S1 As Worksheet

   Dim S2 As Worksheet

   Set S1 = Worksheets("Sayfa1")

   Set S2 = Worksheets("Sayfa2")

   Call linkver(S1.Cells(1, 1),S2.Cells(1, 1))

   Call linkver(S2.Cells(1, 1),S1.Cells(2, 1))

End Sub

  

Function linkver(nereye As Range, neresi As Range)

     Dim adres As String

     adres = neresi.Address(RowAbsolute:=False)

     Mid(adres, 1, 1) = "!"

     adres = neresi.Worksheet.Name & adres

     nereye.Hyperlinks.Add nereye, Address:="", SubAddress:=adres, ScreenTip:=adres

End Function

Microstation VBA Yazılara ek vermek

Program Facebook "Microstation Kullanıyorum" grubu üyelerini isteği üzerine yapılmıştır.

Yükle

Yazı Ek programı Microstation VBA ile yazılmış bir programdır. Amacı text elementlerinin önüne ve/veya arkasına ilaveler yaptırmak. Öncelikle Microstationda Utilities-Macro-Project Manager Penceresini açalım ve yaziek adında yeni bir mvba dosyası oluşturalım. VBA düzenleme kısmında yandaki isimlerde bir form ve modül oluşturalım. Forma yandaki gibi nesneleride oluşturalım ve nesnelerin komutlarını yazalım. Ayrıntıları videoda bulabilirsiniz.

'--------------------------------------------------------------------------------------------------
Sub TextEk_main()
  Form_YaziEk.Show
End Sub

'--------------------------------------------------------------------------------------------------
Function Text_Guncelle(eText As TextElement)
   eText.Text = Form_YaziEk.TBOnek & eText.Text & Form_YaziEk.TBSonek
   eText.Redraw
   eText.Rewrite
End Function

'--------------------------------------------------------------------------------------------------

FormYazi_Ek Formu Kodları

  
'--------------------------------------------------------------------------------------------------
Private Sub CBFence_Click()
  Dim oElement As Element    ' Element bilgilerini içerecek bir değişken
  Dim oScanEnumerator As ElementEnumerator  'Element sayacı
  Dim oFence As Fence 
  Set oFence = ActiveDesignFile.Fence
  If oFence.IsDefined Then
     Set oScanEnumerator = oFence.GetContents
     Do While oScanEnumerator.MoveNext
        Set oElement = oScanEnumerator.Current
        If oElement.Type = msdElementTypeText Then
           Call Text_Guncelle(oElement.AsTextElement)
        End If
     Loop
 End If
End Sub
'--------------------------------------------------------------------------------------------------
Private Sub CBSecili_Click()
  Dim oElement As Element
  Dim oScanEnumerator As ElementEnumerator
  Set oScanEnumerator = ActiveModelReference.GetSelectedElements
  Do While oScanEnumerator.MoveNext
    Set oElement = oScanEnumerator.Current
    If oElement.Type = msdElementTypeText Then
       Call Text_Guncelle(oElement.AsTextElement)
    End If
  Loop
End Sub
'--------------------------------------------------------------------------------------------------
Private Sub CBTumu_Click()
  Dim oElement As Element
  Dim oScanEnumerator As ElementEnumerator
  Dim oScanCriteria As ElementScanCriteria
  Set oScanCriteria = New ElementScanCriteria
  oScanCriteria.ExcludeAllTypes
  oScanCriteria.IncludeType msdElementTypeText
  Set oScanEnumerator = ActiveModelReference.Scan(oScanCriteria)
  Do While oScanEnumerator.MoveNext
    Set oElement = oScanEnumerator.Current
    If oElement.Type = msdElementTypeText Then
       Call Text_Guncelle(oElement.AsTextElement)
    End If
  Loop
End Sub
'--------------------------------------------------------------------------------------------------
Private Sub Image1_Click()
  Call Navigate("http://bybesu.blogspot.com.tr/2015/01/microstation-vba-yazlara-ek-vermek.html")
End Sub
'--------------------------------------------------------------------------------------------------

Hasan Basri KARA Harita Mühendisi

Bursa Büyükşehir Belediyesi Coğrafi Bilgi Sistemleri Şube Müdürlüğü

KURBAN 2019

DKTY KESİM MERKEZİ

2019 yılı

KNO	DURUM	KESIM SAAT	MASA SAAT	MASA NO	TESLIM SAAT

DÜNYA CBS CBS GÜNÜ ETKİNLİĞİ

4.CBS KONGRESİNDE BURSA BÜYÜKŞEHİR BELEDİYESİ

Video

20 KASIM 2013

BASIN BÜLTENİ
Büyükşehir CBS, Ankara’yı fethetti
- Bursa Büyükşehir Belediyesi, Coğrafi Bilgi Sistemleri alanında imza atılan başarılı çalışmalarıyla Ankara’da gerçekleştirilen ‘IV. Coğrafi Bilgi Sistemleri Kongresi’nde büyük ilgi gördü.
BURSA – Bursa Büyükşehir Belediyesi, Coğrafi Bilgi Sistemleri alanında imza atılan başarılı çalışmalarını Ankara’da gerçekleştirilen ‘IV. Coğrafi Bilgi Sistemleri Kongresi’nde tanıttı.
Türk Mühendis ve Mimarlar Odaları Birliği tarafından düzenlenen, sekretaryası Harita ve Kadastro Mühendisleri Odasınca yürütülen ‘Coğrafi Bilgi Sistemleri Kongresi’nin dördüncüsü, ‘Bugünü anlamak, geleceği kurmak’ temasıyla Ankara ODTÜ Kültür ve Kongre Merkezi’nde gerçekleştirildi.
Bursa Büyükşehir Belediyesi Coğrafi Bilgi Sistemleri Şube Müdürlüğü olarak katılım sağlanan kongrede Bursa Büyükşehir Belediyesi standı büyük ilgi gördü. Kongreye Bursa Büyükşehir Belediyesi Bilgi İşlem Dairesi Başkanlığı Coğrafi Bilgi Sistemleri Şube Müdürü Necla Yörüklü, Harita mühendisleri Mehmet Koşak ve Hasan Basri Kara ile Tarım Teknikeri Filiz Aydın ve CBS Operatörü Cemile Öztosun katıldı. 2 panel, 10 teknik oturum, 3 özel oturum ve poster oturumunun gerçekleştirildiği kongrede Coğrafi Bilgi Sistemleri Şube Müdürü Necla Yörüklü, ‘Yerel Yönetimlerde CBS Uygulamaları ve Sonuçları’ başlıklı bir sunum yaptı.
Yörüklü, sunumunda Büyükşehir Belediyeleri CBS Platformu Başkanlığı’nı yürüten Bursa Büyükşehir Belediyesi’nin çalışmalarını ve platformun gelecek vizyonunu tanıttı. İçinde bulunulan bu çağda bilginin güçlü bir kaynak olarak algılandığını ve bilgi gerçeği üzerinden CBS kaynaklarının daha etkin kullanılması ve yönetilmesi gerektiğini belirten Yörüklü, Bursa Büyükşehir Belediyesi’nin 6360 sayılı yeni yasa ile gelecek il sınırı yönetimine hazırlık çalışmalarını hızla sürdürdüklerini de sözlerine ekledi. Büyükşehir Belediyesi standını ziyaret eden Tarım Reformu Genel Müdürü Gürsel Küsek, CBS Genel Müdür Vekili Okan Oflaz, Harita Genel Komutanı Yardımcısı ve Komutanvekili Tuğgeneral Metin Keşap ile yapılan görüşmelerde de güncel ve doğru bilginin başta kurum, kuruluş ve yöneticiler olmak üzere tüm bireylerin her türlü toplumsal karar alma sürecini olumlu yönde etkilediği belirtilerek, veri paylaşımında kolaylaştırıcı çözüm önerileri konuşuldu.
Kongrenin ikinci gününde ise ‘Merkezi ve Yerel Yönetimlerde CBS’, ‘Afet Yönetimi ve CBS’, ‘Kamuda Coğrafi Bilgi Sistemleri Uygulamaları ve Sonuçları’, ‘Çevre ve Doğa Yönetiminde CBS’ ve ‘TUCBS-1’ başlıklarında özel ve teknik oturumların yanı sıra gençlik teknik oturumu ve firma sunumlarının yer aldığı oturumlar gerçekleştirildi. Kongrenin üçüncü gününde de ‘CBS Uygulamaları-1’, ‘Karar Destek Sistemleri’, ‘Yerel Yönetimlerde Coğrafi Bilgi Sistemleri Uygulamaları ve Sonuçları’, ‘CBS Uygulamaları-2’, ‘Teknik Altyapı ve CBS’, ‘CBS Uygulamaları-3’, ‘TUCBS-2’ başlıklarında gerçekleştirilen özel ve teknik oturumların ardından kapanış oturumu ve sonuç bildirgesi okunması ile kongre sona erdi.
BURSA BÜYÜKŞEHİR BELEDİYESİ

Microstationda Sembol Oluşturma

Aşamalar 

·     Oluşturulacak sembol şekli çizim toolları ile oluşturulur.

·     Oluşturulan şekil seçilir.

·     Sembolün orijini belirtilir.
Keyin: define cell origin

·     Sembollerin ekleneceği bir sembol dosyası oluşturulur. Mevcut bir dosyada olabilir.
(Element - Cells)

·     Sembol yapılacak objeler seçilip ve Origini belirtildikten Create düğmesi aktif hale gelecektir.
Create düğmesi ile sembole isim verilir.

·     Sembolümüz kullanıma hazır.

·     Utilities – Cell Selector açılıp sembolümüzü kullanabiliriz.

Resimli anlatım aşağıda

Microstation a Excelden Koordinat Yükleme

Xyz Yükle Mvba Dosyası 
Örnek XLS dosyası


 Açıklamalar:
Program Excel ile beraber çalışır.

txt dosyasının excele aktarımı için tıklayınız.

Aktif Excel sayfasındaki koordinatları çiziminize yükler.  Dosya ismi önemli değil ama Eğer birden fazla Excel dosyası açık ise problem yaşanabilir.

 Koordinat dizilimi

NNo

Y

X

Z

Sembol

Bölgesel ayarlardan ondalık ayracının “.” olması gerekmektedir.

MVBA dosyası nasıl kullanılır?

Görüntülü anlatım için tıklayınız.
 

Hasan Basri KARA             Harita Mühendisi

Microstationdaki Seçili Yazıların Excele Yazdırılması (mvba)

Microstation daki yazıların Excele aktarılıp düzenlemenin Excelde yapılabilmesini sağlar.
Dgn dosyasında yazılar seçilerek Seçili yazılar Excele gönderilir.

Exceleyazi.mvba
Çalışması için Excel programının açık olması gerekir. Aktif olan Excelin Aktif sayfasına seçili yazıları gönderecektir.
Excelde aktif olan satırı çizimde görmek için göster düğmesine dbasmanız yeterli.
Eğer excelde yazılarda değişiklikler yaparsanız (Level, renk veya yazının içeriği gibi) çizim dosyasındaki seçili yazıları silip excelden tekrardan yükleyebilirsiniz.
Buradan işlemi izleyebilirsiniz

Kurbanda Canlı Yayın

     Değirmenlikızık Öğrenci Yurdu'nda yapılan 2013 yılı Kurban Faaliyetlerinin BeSu Yazılım Programları ile gerçekleştirmiş olduğu Canlı Yayın görüntüleri.



Kurbandan görüntüler.

Fidyekızıkta Sonbahar Kermesi

Adobe Premier Track Matte Key denemesi

Fest-i Bursa

Değirmenlikızık Öğrenci Yurdu

Çadır Kurulumu

Açılış Öncesi Son Hazırlıklar

Minik Cevherlerin Gösterisi

Fest-i Bursadan Gökyüzü Manzaraları

Microstationda Köşelere Nokta Üretme

Yükle

    Köşe kırıklarına ve çizgilere koordinat üretme programı. Çalışması için bir excel dosyasının açık olması gerekli. Boş sayfa olması önemli. Çalışma prensibi, seçtiğiniz objelerin kırık nıktalarına ve uçlarına koordinat üretmektedir. Üretilen koordinatlar Excelde aktif sayfaya yazdırılacak, ekranada nokta numaraları yazılacaktır.

İndirilen NoktaUret.mvba dosyasını kayıt ettikten sonra, Microstationa yükleyerek (bakınız)
vba run Nokta_Uygulama.NoktaUret komutu ile çalıştarabilirsiniz.

Hasan Basri KARA Harita Mühendisi

Microstation da AraBul Programı (Bursa İçin)

Program Bursaya özel hazırlanmıştır.

Yükle

  Arabul ile Bursadaki bazı yerlere ulaşabilirsiniz. Tek yapmanız gereken 152EVLER yazan kısımdan mahalle seçmek, seçtiğiniz mahalleye ait yerler listeye gelecektir. Ulaşmak istediğiniz yere çift tıkladığınızda ekranda o bölge büyültülecektir.

 Alt resimdeki gibi genişletildiğinde seçili dosyaları otomatik yükleyecektir (kbs.ma dosyası mevcut ise).

Hasan Basri KARA Harita Mühendisi

Bursa Büyükşehir Belediyesi Coğrafi Bilgi Sistemleri Şube Müdürlüğü Tel: 0 224 444 16 00 - 1757

Ada-Parsel sekmesinde ise anlaşılacağı üzere Ada ve Parsellere ulaşabilirsiniz.


Ada ve Parsel numarası yazılıp bul tıklandığında,
Yazılan Ada Parsel tüm Bursada aranıp listelenecektir.
Sadece Ada numarası yazılırsa o adanın tüm parselleri listelenir.
Listelenen kısımda istediğiniz bilgiye çift tıklayarak o alana ulaşabilirsiniz.

İzlemek isteyene videosu altta

Yıldırım Belediyesi ve Bem-Bir-Sen'den Fidan Dikimi

      Bursa'nın Yıldırım Belediyesi, ilçeyi ağaçlandırma çalışmalarına devam ediyor. Yıldırım Belediyesi, 8 Mart Dünya Kadınlar Günü'nde Bem-Bir-Sen işbirliği ile 150 adet çam ağacı dikimini gerçekleştirdi.

       Akçağlayan Toplu Konutlarında gerçekleştirilen ağaç dikim törenine Yıldırım Belediye Başkanı Özgen Keskin ve eşi Melahat Keskin başta olmak üzere, Bem-Bir-Sen Bursa Şube Başkanı Ali Alan, Bem-Bir-Sen Şube Sekreteri Gülseren Özbek, Muhtarlar Dernek Başkanı Ahmet Şener, meclis üyeleri, ilçe yöneticileri, muhtarlar ve belediye personeli katıldı.

İlk ağacı diken Yıldırım Belediye Başkanı Özgen Keskin, tüm kadınların 8 Mart Dünya Kadınlar Günü'nü kutlayarak, "Her kadın manevi yönüyle ağaca benzer. Kadınlarımız, bu çam ağaçları gibi köklerini ailelerine salar onları sımsıkı tutarak her türlü felaketten korur, kollar. Bugün Bem-Bir-Sen ile birlikte diktiğimiz bu çam ağaçlarını kadınlarımıza armağan ediyoruz. Unutmamak gerekir ki dalları kırılmış, sulanmamış bir ağaç zamanla ölür gider. Kadınlarımızı da sevgi ve hoşgörü ile beslemeli, dallarının kırılmasına izin vermemeliyiz" diye konuştu.

     Bem-bir-sen Bursa Şube Başkanı Ali Alan da, çam ağaçlarının dikiminde kendileri ile işbirliği yapan Yıldırım Belediye Başkanı Özgen Keskin ve ekibine teşekkür ederek, tüm kadınların 8 Mart Dünya Kadınlar Günü'nü kutladı.

 

Kaza Günü

Kaza ile ilgili diğer Resimler

Özgül Termal Tatil Köyü