PcDmis Kullanıcı Forumu

VBScript-PC-DMIS Kod Örnekleri => VBScript ve Pc-Dmis Kod Paylaşımları..! => Konuyu başlatan: τǺN€®™ - 28 Temmuz 2015, 10:25:28

Başlık: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: τǺN€®™ - 28 Temmuz 2015, 10:25:28
arkadaşlar out of toleransların adedini  otomatik bulan bir kod varmı?
böyle bir scrip varsa veya yapabilecek arkadaş varsa ellerinden öperim :-* 
uğraşmama rağmen yapamadım malesef bilgim yetmiyor  :-\
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: metroloji16 - 28 Temmuz 2015, 14:44:30
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
arkadaşlar out of toleransların adedini  otomatik bulan bir kod varmı?
böyle bir scrip varsa veya yapabilecek arkadaş varsa ellerinden öperim :-*
uğraşmama rağmen yapamadım malesef bilgim yetmiyor  :-\
Ekteki dosyayı masa ustundeki pcdmis logosuna sag tus yapıp özellikler diyip dosya konumu ac dedikten sonra yapıstırırsan buyuk ihtimalle olabilir dene istersen olcu sayısı tolerans dısı olcu olcum suresi parcanın adı filan yazıcak dosya yukleme kabul etmedigi için not defterine cevirdim sen dosyanın uzantısını dat yapıp dedigim klasöre kopyalarsın tabi o klasördeki e logo yedek al hani istedigin gibi olmaz ise eskisini geri yuklersin
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: # harek # - 29 Temmuz 2015, 13:38:56
Sayın metroloji16 dosyanın ne olduğunu anlamadım.
edit window dan kopyalanıp yapıştırılmış gibi

Taner

Edit / Preferences / Edit Window Layout tıkla
Show Header / Footer çentikli olduğuna emin ol.

Burayı çentiklediğinde elogo.dat doyası içindeki bilgiler Edit Window  ve Report Window ekranlarında gözükecektir.
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: # harek # - 29 Temmuz 2015, 14:06:49
elogo.dat Türkçeleştirmek ve Düzenlemek için:

aşağıdaki yoldan dosyayı bulun.

C:\Program Files (x86)\WAI\PC-DMIS 2010 MR2\elogo.dat

dosyayı notepad ile açın ve bilgileri istediğiniz gibi değiştirin.

# dosyayla oynamadan önce bir yedeğini almayı UNUTMAYINIZ.
# Sadece koyu olanları değiştiriniz.

END OF MEASUREMENT FOR ölçüm raporu sonu değiştirebilirsiniz.
PN=#PARTN  program no
DWG=#DRWN Resim No
SN=#SERIALN Seri no
TOTAL # OF MEAS =#NMEAS toplam ölçüm
OUT OF TOL =#NOUT tol dışı
OF HOURS =#ELAPSTIM ölçüm süresi
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: metroloji16 - 29 Temmuz 2015, 14:12:39
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
elogo.dat Türkçeleştirmek ve Düzenlemek için:

aşağıdaki yoldan dosyayı bulun.

C:\Program Files (x86)\WAI\PC-DMIS 2010 MR2\elogo.dat

dosyayı notepad ile açın ve bilgileri istediğiniz gibi değiştirin.

# dosyayla oynamadan önce bir yedeğini almayı UNUTMAYINIZ.
# Sadece koyu olanları değiştiriniz.

END OF MEASUREMENT FOR ölçüm raporu sonu değiştirebilirsiniz.
PN=#PARTN  program no
DWG=#DRWN Resim No
SN=#SERIALN Seri no
TOTAL # OF MEAS =#NMEAS toplam ölçüm
OUT OF TOL =#NOUT tol dışı
OF HOURS =#ELAPSTIM ölçüm süresi
Merhaba Harek yukardaki paylastıgım dosya hazır dosya dat dosyası olarak paylaşımına site izin vermedigi için text dosyasına cevirdim sadece dosyayı indirip not defterinde acıp degişmesini istedigi ölçümü yapan veya sizin paylaştıgınız detayları düzeltip pcdmis dosyasına txt uzantısını dat olarak ddegiştirip kopyaladıgında  olur diye tahmin ediyorum ..
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: # harek # - 29 Temmuz 2015, 14:16:34
içinde elogo dosyasında olması gerekmeyen yazılar olduğu için onu yazdım. Pcdmis programı hata verebilir.
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: metroloji16 - 29 Temmuz 2015, 14:18:38
Ben kullanıyorum bende herhangi bir hata vermiyor aynı sekilde kendi kullandıgım e logoyu kopyaladım ama tabi versiyon farkı veya farklı şeyler oluşurda hata verirmi siz ustalar daha iyi bilirsiniz ..
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: 〽️🌱🌴 - 29 Temmuz 2015, 15:24:54
Alıntı yapılan: # harek # date=1438166336
Sayın metroloji16 dosyanın ne olduğunu anlamadım.
edit window dan kopyalanıp yapıştırılmış gibi

Taner

Edit / Preferences / Edit Window Layout tıkla
Show Header / Footer çentikli olduğuna emin ol.

Burayı çentiklediğinde elogo.dat doyası içindeki bilgiler Edit Window  ve Report Window ekranlarında gözükecektir.
üstad programda hatalar olmasına rağmen bende "total # of meas=0 # auttol=0 # of hours =00:00:00" diyor. ölçüm bittikten sonra hiç bişeye tıklamazsan değer gösteriyor ama program kapatıp açılınca değerleri sıfırlıyor. Taner her daim görebilmek istiyor sanırım.
Taner 2014'de "Text and CAD  out of tolerance" isminde kırmızı iconlu cad only mode benzeri bir rapor şablonu var. (Bende yapmış olabilirim emin değilim). Sende de varsa o modda sadece hata olanları gösteriyor. Saymak sana kalıyor tabi ki, raporda yapabilirsin. İşini göreceğini düşünmüyorum ama bir bak diyorum.

Birde şu konu var, çözemedim. çözersen de paylaş bizde öğrenelim.

Counting OUTTOL in a program
Kod: Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
'--------------------------------------------------------------------
' Count all dimensions out of tolerance
' Set the indicated PCDMIS variable to the number
'
' Usage:
'
'            TILLDELA/OT=0
'CS1        =SKRIPT/FILNAMN= C:\DOCUMENTS AND SETTINGS\ALL USERS\DOKUMENT\WAI\PC-DMIS\2010 MR2\COUNTOUTOFTOL.BAS
'            FUNKTION/CountOutOfTol,VISA=JA,ARG1="OT",,
'            BöRJA_SKRIPT/
'            SLUTA_SKRIPT/
'
'            KOMMENTAR/OPERATöR,NEJ,HELSKÄRM=NEJ,FORTSÄTT AUTOMATISKT=NEJ,
'            Antal utvärderingar utom tolerans
'            OT
'
'--------------------------------------------------------------------

Sub CountOutOfTol(OutTolVar As String)

Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Dim DCmd As Object
Dim FCFOT As String
Dim I As Integer

Dim OutTolValue As Object
Set OutTolValue = Part.GetVariableValue(OutTolVar)

If Not OutTolValue is Nothing Then

  OutTolValue.LongValue = 0

  For Each Cmd In Cmds

    If Cmd.IsDimension Then
      If Cmd.Type <> DIMENSION_START_LOCATION And _
         Cmd.Type <> DIMENSION_END_LOCATION And _
         Cmd.Type <> DIMENSION_TRUE_START_POSITION And _
         Cmd.Type <> DIMENSION_TRUE_END_POSITION Then
        Set DCmd = Cmd.DimensionCommand
        if (DCmd.OutTol <> 0) then
          OutTolValue.LongValue = OutTolValue.LongValue + 1
        End If
      End If
    ElseIf Cmd.Type = 184 Then ' FCF
      I = 1
      FCFOT = Cmd.GetText (LINE2_OUTTOL, I)
      While (Not OutOfTol) And (FCFOT <> "")
        If Val(FCFOT) <> 0 Then
          OutTolValue.LongValue = OutTolValue.LongValue + 1
        End If
        I = I + 1
        FCFOT = Cmd.GetText (LINE2_OUTTOL, I)
      Wend
    End If
  Next Cmd

  If Not OutTolValue is Nothing Then
    Part.SetVariableValue OutTolVar, OutTolValue
  End If

Else
   MsgBox "Variabeln " + OutTolVar + " saknas i PCDMIS-programmet!"
End If

End Sub

Sub Main
End Sub


Alıntı: (http://www.pcdmisforum.com)
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: τǺN€®™ - 29 Temmuz 2015, 16:00:38
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
Ekteki dosyayı masa ustundeki pcdmis logosuna sag tus yapıp özellikler diyip dosya konumu ac dedikten sonra yapıstırırsan buyuk ihtimalle olabilir dene istersen olcu sayısı tolerans dısı olcu olcum suresi parcanın adı filan yazıcak dosya yukleme kabul etmedigi için not defterine cevirdim sen dosyanın uzantısını dat yapıp dedigim klasöre kopyalarsın tabi o klasördeki e logo yedek al hani istedigin gibi olmaz ise eskisini geri yuklersin
 dediğin şeyi yaptım sonuç veriyor ancak murat'ın dediği gibi programdan çıkıp tekrar açınca sıfırlıyor.
ayrıca örneğin nokta ölçerken hem hatalı olduğu ekseni hemde T değerini sayıyor...
yani tam olarak istediğim değil ama güzel bir şey öğrenmiş oldum teşekkürlr...;)
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: τǺN€®™ - 29 Temmuz 2015, 16:06:55
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
üstad programda hatalar olmasına rağmen bende "total # of meas=0 # auttol=0 # of hours =00:00:00" diyor. ölçüm bittikten sonra hiç bişeye tıklamazsan değer gösteriyor ama program kapatıp açılınca değerleri sıfırlıyor. Taner her daim görebilmek istiyor sanırım.
Taner 2014'de "Text and CAD  out of tolerance" isminde kırmızı iconlu cad only mode benzeri bir rapor şablonu var. (Bende yapmış olabilirim emin değilim). Sende de varsa o modda sadece hata olanları gösteriyor. Saymak sana kalıyor tabi ki, raporda yapabilirsin. İşini göreceğini düşünmüyorum ama bir bak diyorum.

Birde şu konu var, çözemedim. çözersen de paylaş bizde öğrenelim.

Counting OUTTOL in a program
Kod: Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
'--------------------------------------------------------------------
' Count all dimensions out of tolerance
' Set the indicated PCDMIS variable to the number
'
' Usage:
'
'            TILLDELA/OT=0
'CS1        =SKRIPT/FILNAMN= C:\DOCUMENTS AND SETTINGS\ALL USERS\DOKUMENT\WAI\PC-DMIS\2010 MR2\COUNTOUTOFTOL.BAS
'            FUNKTION/CountOutOfTol,VISA=JA,ARG1="OT",,
'            BöRJA_SKRIPT/
'            SLUTA_SKRIPT/
'
'            KOMMENTAR/OPERATöR,NEJ,HELSKÄRM=NEJ,FORTSÄTT AUTOMATISKT=NEJ,
'            Antal utvärderingar utom tolerans
'            OT
'
'--------------------------------------------------------------------

Sub CountOutOfTol(OutTolVar As String)

Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Dim DCmd As Object
Dim FCFOT As String
Dim I As Integer

Dim OutTolValue As Object
Set OutTolValue = Part.GetVariableValue(OutTolVar)

If Not OutTolValue is Nothing Then

  OutTolValue.LongValue = 0

  For Each Cmd In Cmds

    If Cmd.IsDimension Then
      If Cmd.Type <> DIMENSION_START_LOCATION And _
         Cmd.Type <> DIMENSION_END_LOCATION And _
         Cmd.Type <> DIMENSION_TRUE_START_POSITION And _
         Cmd.Type <> DIMENSION_TRUE_END_POSITION Then
        Set DCmd = Cmd.DimensionCommand
        if (DCmd.OutTol <> 0) then
          OutTolValue.LongValue = OutTolValue.LongValue + 1
        End If
      End If
    ElseIf Cmd.Type = 184 Then ' FCF
      I = 1
      FCFOT = Cmd.GetText (LINE2_OUTTOL, I)
      While (Not OutOfTol) And (FCFOT <> "")
        If Val(FCFOT) <> 0 Then
          OutTolValue.LongValue = OutTolValue.LongValue + 1
        End If
        I = I + 1
        FCFOT = Cmd.GetText (LINE2_OUTTOL, I)
      Wend
    End If
  Next Cmd

  If Not OutTolValue is Nothing Then
    Part.SetVariableValue OutTolVar, OutTolValue
  End If

Else
   MsgBox "Variabeln " + OutTolVar + " saknas i PCDMIS-programmet!"
End If

End Sub

Sub Main
End

 (http://www.pcdmisforum.com)

evet murat bunu bende buldum ama henüz deniyorum ve nasıl kullanacağımı çözdüğümde paylaşacağım...
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: τǺN€®™ - 29 Temmuz 2015, 16:11:49
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap

Taner 2014'de "Text and CAD  out of tolerance" isminde kırmızı iconlu cad only mode benzeri bir rapor şablonu var. (Bende yapmış olabilirim emin değilim). Sende de varsa o modda sadece hata olanları gösteriyor. Saymak sana kalıyor tabi ki, raporda yapabilirsin. İşini göreceğini düşünmüyorum ama bir bak diyorum.


evet murat bu Pcdmiste var kullanıyorum ama oturup saymak gerekiyor biraz gıcık ediyor beni  ..:()
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: 〽️🌱🌴 - 29 Temmuz 2015, 17:21:44
Uğraştım ama sonuç alamadım COUNTOUTOFTOL.BAS diye dosya yapıp codları içine yazdım. komut satırlarını da programın altında oluşturdum çalıştır dedim. pdf dosyası yazdırmak istedi. ama dosyayı oluşturmadı. Ayrıca ANDSCRIPT/ ekleyemiyorum.
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: # harek # - 30 Temmuz 2015, 11:43:42
ekteki dosya işinizi görecektir.
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: 〽️🌱🌴 - 30 Temmuz 2015, 12:19:25
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
ekteki dosya işinizi görecektir.
üstad programda yapılması gereken satır da sıkıntı yaşıyorum. mevcutsa satıları içeren program ekleyebilir misin? Ayrıca scripti programda nasıl çalıştıracağız. Kısaca yazabilir misin?
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: τǺN€®™ - 30 Temmuz 2015, 14:40:14
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
ekteki dosya işinizi görecektir.
 teşekkürler ustad deniyorum sonucu bildireceğim.

murat    Inser/Basic Script   yolunu izleyerek programın sonuna ekliyorsun
programı çalıştırırken scriptide alıyorsun bittiğinde sana verdiği mesajda bilgiler yazıyor  bakalım istediğimi verecekmi ?
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: 〽️🌱🌴 - 01 Ağustos 2015, 15:13:32
şöyle sorayım da beni yadırgamayın kafam karıştığı zaman ilerleyemiyorum. üsteki sicripti eklediğimiz gibi ekliyoruz progama öyle çalıştırıyoruz değil mi? PcDmis'e uzağım şuan deneyemiyorum ama merak ediyorum ;)
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: BirazFikrimVar - 02 Ağustos 2015, 17:03:15
Programı kapatip actiginizda 0 gostermesi normal, calistiktan sonra sayiyor. 
Selamlar, kolay gelsin. ...
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: BirazFikrimVar - 30 Aralık 2015, 20:07:34
CS1        =SCRIPT/FILENAME= C:\USERS\BEN\DESKTOP\SCRIPT1.BAS
            FUNCTION/mAIN,SHOW=YES,ARG1=OT,,
            STARTSCRIPT/
            ENDSCRIPT/
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            Antal utvärderingar utom tolerans
            +'OT'

Harek Mudurum tesekkurler , calisti :)

Selamlar, kolay gelsin...
Başlık: Ynt: Pc dmiste out of toleransların sayısını otomatik bulma...
Gönderen: 〽️🌱🌴 - 25 Ağustos 2016, 17:19:28
Sayın yöneticim bunu da deneyin. Bunda da program bittikten sonra pencereler çıkıyor du. Rapor olarak almak istiyormusun diye soruyor.

Kod: Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
       ASSIGN/NM=GETPROGRAMINFO("NUMMEAS")
            ASSIGN/OT=GETPROGRAMINFO("NUMOOT")
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            "Total Measured = "+NM
            "Out of Tolarance = "+OT
            "OK" to continue.
            IF/OT<>0
C1           =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
              "Number Out of Tolerance = "+OT
              Print Report?
              MOVE/POINT,NORMAL,<0.194,-12.125,-315.094>
              IF/C1.INPUT=="YES"
                PRINT/REPORT,EXEC MODE=END,$
                  TO_FILE=ON,AUTO=1,AUTO OPEN REPORT=ON,$
                  TO_PRINTER=OFF,COPIES=1,$
                  TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                  REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                  TO_EXCEL_OUTPUT=OFF,
                  PREVIOUS_RUNS=DELETE_INSTANCES
              END_IF/
            END_IF/
            ELSE/
              PRINT/REPORT,EXEC MODE=END,$
                TO_FILE=ON,AUTO=1,AUTO OPEN REPORT=ON,$
                TO_PRINTER=OFF,COPIES=1,$
                TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                TO_EXCEL_OUTPUT=OFF,
                PREVIOUS_RUNS=DELETE_INSTANCES
            END_ELSE/