VBScript-PC-DMIS Kod Örnekleri > VBScript ve Pc-Dmis Kod Paylaşımları..!

uygunsuz elemani tekrar olctur.

(1/2) > >>

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