VBScript-PC-DMIS Kod Örnekleri > VBScript ve Pc-Dmis Kod Paylaşımları..!
uygunsuz elemani tekrar olctur.
f3:
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/
BirazFikrimVar:
:o 8) ;)
adofm:
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/
zehrabalaban:
karisik :)
nejdet:
Linklere izin verilmiyor.
Üye Ol ya da Giriş YapBiraz 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/
--- Alıntı sonu ---
selam ado, iyki kisa. Kodlar kullanmissin :)
Navigasyon
[0] Mesajlar
[#] Sonraki Sayfa
Tam sürüme git