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

Başlık: uygunsuz elemani tekrar olctur.
Gönderen: 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/

Başlık: Ynt: uygunsuz elemani tekrar olctur.
Gönderen: BirazFikrimVar - 06 Aralık 2010, 21:25:23

 :o 8) ;)

Başlık: Ynt: uygunsuz elemani tekrar olctur.
Gönderen: adofm - 17 Ağustos 2011, 22:01:52

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/

Başlık: Ynt: uygunsuz elemani tekrar olctur.
Gönderen: zehrabalaban - 07 Eylül 2011, 14:13:22

karisik :)

Başlık: Ynt: uygunsuz elemani tekrar olctur.
Gönderen: nejdet - 30 Kasım 2011, 16:36:27

Linklere izin verilmiyor. Üye Ol ya da Giriş Yap

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 :)

Başlık: Ynt: uygunsuz elemani tekrar olctur.
Gönderen: 〽️🌱🌴 - 01 Aralık 2011, 11:23:17

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

Başlık: Ynt: uygunsuz elemani tekrar olctur.
Gönderen: BirazFikrimVar - 01 Aralık 2011, 13:37:32

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.