PcDmis Kullanıcı Forumu
VBScript-PC-DMIS Kod Örnekleri => VBScript ve Pc-Dmis Kod Paylaşımları..! => Konuyu başlatan: f3 - 06 Aralık 2010, 16:56:36
-
hayirli olsun, guzel bir bolum olur umarim ve ilk konuda benden gelsin.
isyerinde bi abimiz hazirlamisti. :) bende paylasayim dedim.
belirli bir yerde duruyor ve bizden olcuyu kontrol etmemizi istiyor.
eger uygun degilse, hayir dedigimiz zaman belirledigimiz yerden itibaren tekrar olcuyor, evet dersek olcume devam ediyor.
kirmizi olan satirlari programinizda uygun yerlere koyunuz.
PNT2 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
EVET =LABEL/
PNT3 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
PLN3 =FEAT/CONTACT/PLANE,CARTESIAN,OUTLINE
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ANGLE VEC=<-0.0000078,0,1>,SQUARE
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM FLAT1= FLATNESS OF PLANE PLN3 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 ARROWDENSITY=100 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
M 0.0000 0.0004 0.0000 0.0000 0.0000 0.0000 #-------
Y1 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
DUZLEMSELLIK 0.001 DEN BUYUKMU..!
IF_GOTO/Y1.INPUT=="YES",GOTO = EVET
IF_GOTO/Y1.INPUT=="NO",GOTO = HAYIR
HAYIR =LABEL/
-
:o 8) ;)
-
Biraz daha kisa bir kod yazmak isterseniz ve otomatik olarak bu islemi tekrarlamasini isterseniz birde boyle denersiniz.
PNT2 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
EVET =LABEL/
PNT3 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
PLN3 =FEAT/CONTACT/PLANE,CARTESIAN,OUTLINE
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ANGLE VEC=<-0.0000078,0,1>,SQUARE
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM FLAT1= FLATNESS OF PLANE PLN3 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 ARROWDENSITY=100 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
M 0.0000 0.0004 0.0000 0.0000 0.0000 0.0000 #-------
ASSIGN/V1 = FLAT1.OUTTOL
IF/V1>0
GOTO/EVET
END_IF/
-
karisik :)
-
Biraz daha kisa bir kod yazmak isterseniz ve otomatik olarak bu islemi tekrarlamasini isterseniz birde boyle denersiniz.
PNT2 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
EVET =LABEL/
PNT3 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
PLN3 =FEAT/CONTACT/PLANE,CARTESIAN,OUTLINE
THEO/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ACTL/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
TARG/<-5.4546,-25.1995,2.3834>,<-0.612803,-0.7902357,-0.0000047>
ANGLE VEC=<-0.0000078,0,1>,SQUARE
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM FLAT1= FLATNESS OF PLANE PLN3 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 ARROWDENSITY=100 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
M 0.0000 0.0004 0.0000 0.0000 0.0000 0.0000 #-------
ASSIGN/V1 = FLAT1.OUTTOL
IF/V1>0
GOTO/EVET
END_IF/
selam ado, iyki kisa. Kodlar kullanmissin :)
-
bu konuda daha detayli yazabilecek olan varmi. Komutlar türkce girismis mi banami öyle geliyor goto/evet yada goto/yes i kabul etmiyor 3.7 mesela
-
Edit window'da Label satiriniz yok sanirim.
Edit window'da enter tusuna basip label yazin, tab tusuna basin.
Sol basta verdigi ismi evet ve hayir olarak degistirin.