Aynı dua ve dileklerle tüm Müslüman aleminin kurban bayramı mübarek olsun inşallah...

Bir kuruluşun sahip olduğu, yeri doldurulamaz tek sermaye, insanların bilgi ve yeteneğidir.

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 ?

ü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
EndLinklere izin verilmiyor. Üye Ol ya da Giriş Yap

evet murat bunu bende buldum ama henüz deniyorum ve nasıl kullanacağımı çözdüğümde paylaşacağım...

arkadaşlar out of toleransların adedini  otomatik bulan bir kod varmı?
böyle bir scrip varsa veya yapabilecek arkadaş varsa ellerinden öperim Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap 
uğraşmama rağmen yapamadım malesef bilgim yetmiyor  Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap

malesef 2015 ten itibaren türkçe desteği vermeye başlamışlar...

teşekkürler sayın yöneticim biz Windows 10 için daha çok bekleriz.
gözümün nuru xp ye devam fabrikada bir ben kaldım Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ne varsa eskilerde var Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap

şunu belirteyim murat win7 nin 2015 teki bütün update leri problemli benim pc yi hem kastırdı hemde bazı özel (anladın sen onu Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ...) uygulamalarımı çalışmaz hale getirdi iyiki komple yedeğini almışım...