Mesaj Panosu









Navigasyon
Ana Sayfa
Forumlar
Arama
Pano klavuzu
İçerik şikayeti!
Puan Kazanın
Puan kontrolü
Bugünkü Mesajlar
Davet Edin
Giriş Geçmişi
Haber arşivi
Haber dizini
RSS

Seçtiklerimiz

CAD/CAM/CAE

Muhendislik Dalları

Programlama
- Excell/MS yazilimlari - Access/Mysql - Cisco/Mcse
- SAP-ERP-ORACLE
- VB/C/Fortran.
- Fortran kodları
- C++ kodları
- Vb kodları
- Asp.net/vb.net - Flash/Dreamweaver - 3DSmax/Photoshop
- Modeller
- Pluginler
- Derslerimiz
- Php/asp/java
- Php scriptler
- asp scriptler
- Delphi/Pascal - Matlab
- Matlab videoları

Son Mesajlar
» Doğalgaz Tesisatı proje örneği
by arabfaik on 18/12/2014, 17:29

» Yardım.. 4 silindir motor step lazım
by hcozalp on 18/12/2014, 14:56

» PTC Creo 3.0 ile çizilmiş Basit parçalar
by hcozalp on 18/12/2014, 14:54

» Solidworks ball bearing çizimi
by ismetasl on 18/12/2014, 13:40

» Ansys fluent- dynamic mesh ile ilgili
by a_cucen on 18/12/2014, 12:24

» ansys workbench kren elemanları
by mgdevran on 18/12/2014, 11:31

» ısısan Buderus Tesisat Kitapları
by etüdproje on 18/12/2014, 10:00

» Menteşe Bükme Kalıbı Tasarımı
by ismetasl on 18/12/2014, 03:37


Yardım Başlığı

Staj Dosyaları

Son Eklenen Çizim Dosyaları

Makrolar

   Mesaj Panosu

    Catia     Soru(n)larınız(catia)

Yeni Başlık Gönder
Cevap Gönder   

« Önceki başlık :: Sonraki başlık »  
Yazar Mesaj

Üye
Üye
Durum:Offline
Üye No: 6945
Kayıt: 26.06.2007
Puan: 0
Mesajlar: 63
Şehir: İstanbul

MesajTarih: 29/12/2008, 12:29    Mesaj konusu: Makrolar Alıntıyla Cevap Gönder




Merhabalar,

CATIA'da makro kullanımı, çalıştırılması ve farklı tiplerde makrolar (*.xls, *.dat, *.txt türü formatlardan XY koordinat okunması, herhangi bir surface üzerinde bulunan noktaya click edildiği zaman başka bir dosyayı açma, belirlediğim plane yada surface üzerine yazı yazma, vb.) araştırmasındayım.

Elinde bu türlerde makro olan arkadaşlar varsa kısaca açıklaması ile paylaşım sağlayabilirlerse sevinirim.
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder Kullanıcının web sitesini ziyaret et

Üye
Üye
Durum:Offline
Üye No: 6945
Kayıt: 26.06.2007
Puan: 0
Mesajlar: 63
Şehir: İstanbul

MesajTarih: 15/1/2009, 23:26    Mesaj konusu: Alıntıyla Cevap Gönder



Text dosyasında bulunan XYZ koordinatlarını okuyan makro aşağıda görülmektedir.

Kod:

Language="VBSCRIPT"
Sub CATMain()

Set oPart=CATIA.ActiveDocument.Part

Dim YourFile As String
YourFile = CATIA.FileSelectionBox("Noktaların bulunduğu text dosyası","*.txt", CatFileSelectionModeOpen)

GSname = InputBox("Noktaların oluşturulacağı Geometrical Set adı")

Set hyb = oPart.HybridBodies
Set pointset = hyb.Add

pointset.Name = GSname

Set hsf = oPart.HybridShapeFactory

Dim oFileSys as FileSystem
Set oFileSys = CATIA.FileSystem

Dim oFileIn As File

Set oFileIn =  oFileSys.GetFile(YourFile)

Dim oStream As TextStream
Set oStream = oFileIn.OpenAsTextStream("ForReading")

i=0

While Not oStream.AtEndOfStream
sLine = oStream.ReadLine
sWord = Split(sLine,";")
Set point1=hsf.AddNewPointCoord (sWord(0),sWord(1),sWord(2))

i = i + 1

point1.Name = "Nokta" & "." &i
pointset.AppendHybridShape point1
Wend

oStream.Close
oPart.Update

End Sub


Code tagları arasındaki kodları *.CATScript olarak kaydederek, CATIA'da yeni part açıp Tool-Macro-Macros seçeneklerinden makromuzun yolunu gösterek Run butonu ile çalıştırmış oluruz.

Text dosya içerisinde olacak koordinatların yazılışı;
X;Y;Z formatında olacaktır.

ÖR:
150;225.78;357.9
85;46;79
14.178;245.4;754.1

Excel'den okuma olayı için excelin objectlerini de kullanmak gerektiğinden dolayı bu şekilde daha kolaylık sağlamaktadır. Geliştirmek bizlerin elinde. Unutmayalım ki makrolar iş yükümüzü herzaman hafifleten kodlamalardır.
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder Kullanıcının web sitesini ziyaret et
Mesajları göster:   


Yeni Başlık Gönder
Cevap Gönder   

   Mesaj Panosu

    Catia     Soru(n)larınız(catia)



Forum Seçin:  
Bu forumda yeni konular açamazsınız
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız
Bu foruma eklenti gönderemezsiniz
Bu forumdan eklenti indiremezsiniz

Bookmark this page to Facebook Bookmark this page to Twitter Bookmark this page to GoogleBookmark this page to Delicious Bookmark this page to Digg Bookmark this page to Blogmarks Bookmark this page to Blinklist Bookmark this page to Furl Bookmark this page to linkaGoGo Bookmark this page to Reddit Bookmark this page to Simpy Bookmark this page to Technorati Bookmark this page to Spurl Bookmark this page to Yahoo!


Benzer Başlıklar
Başlık Yazar Forum Cevap Son Mesajlar
Yeni mesaj yok Excel Makrolar yoztopalan Excell/MS yazilimlari 0 20/7/2008, 20:51 Son gönderilen mesajlar
yoztopalan
Yeni mesaj yok Veri Tabanı Makrolar huso Veri Tabanı Yönetimi,Access,MySql,MsSql,SQL 0 9/3/2010, 11:10 Son gönderilen mesajlar
huso
Yeni mesaj yok Makrolar ileri excel gulden Excell/MS yazilimlari 1 30/12/2013, 21:57 Son gönderilen mesajlar
ozkankaratepe
Yeni mesaj yok visual basic mantığı ve excell makrol... huso Excell/MS yazilimlari 0 20/10/2009, 19:05 Son gönderilen mesajlar
huso