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
-
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 :-\
-
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
-
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.
-
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
-
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 ..
-
içinde elogo dosyasında olması gerekmeyen yazılar olduğu için onu yazdım. Pcdmis programı hata verebilir.
-
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 ..
-
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
'--------------------------------------------------------------------
' 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)
-
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...;)
-
ü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
'--------------------------------------------------------------------
' 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...
-
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 ..:()
-
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.
-
ekteki dosya işinizi görecektir.
-
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?
-
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 ?
-
şö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 ;)
-
Programı kapatip actiginizda 0 gostermesi normal, calistiktan sonra sayiyor.
Selamlar, kolay gelsin. ...
-
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...
-
Sayın yöneticim bunu da deneyin. Bunda da program bittikten sonra pencereler çıkıyor du. Rapor olarak almak istiyormusun diye soruyor.
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/