PcDmis Kullanıcı Forumu
VBScript-PC-DMIS Kod Örnekleri => VBScript ve Pc-Dmis Kod Paylaşımları..! => Konuyu başlatan: # harek # - 08 Aralık 2010, 17:47:04
-
bu kodu olcum esnasinda ayni elemani tekrar olcturmek icin kullanabiliriz.
C1 Comment satirina geldiginde program duruyor ve bize elemani kac defa olmek istedigimizi soruyor.
girdigimiz rakam kadar ayni elemani olcuyor ve sonuclarida rapora her olcum icin tek tek atiyor.
yesil renkli kodlari kullanabiliriz. olcturecegimiz eleman yesil renkli kodlarin arasinda olmali.
asagiya program olarakta, 3.7 versiyonda kaydedilmistir.
-------------------------------------------------------------------------------------------
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,'NOKTA1 kac defa olculsun..!'
ASSIGN/COUNT=0
DO/
NOKTA1 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<2.56,-7.369,-0.692>,<-0.328198,0.944609,0>
ACTL/<2.56,-7.369,-0.691>,<-0.328198,0.944609,0>
TARG/<2.56,-7.369,-0.692>,<-0.328198,0.944609,0>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM LOC1= LOCATION OF POINT NOKTA1 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 2.560 0.050 0.050 2.560 0.000 0.000 ---#----
Y -7.369 0.050 0.050 -7.369 0.000 0.000 ---#----
Z -0.692 0.050 0.050 -0.691 0.000 0.000 ---#----
T 0.000 0.050 0.050 0.000 0.000 0.000 ---#----
END OF DIMENSION LOC1
ASSIGN/COUNT=COUNT+1
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO," Olculen = "+COUNT+" Toplam olcum = "+C1.INPUT+" "
UNTIL/COUNT==C1.INPUT
-
Arkadasim bunun kisa yolu filan yokmu; yani demek istedigim obje kolay gelsin
-
Bu , yollardan biridir... Yapmaniz gereken , yesil satirlari kopyalayip ilgili yerlere yapistirmak...
Siz , basit bir yol isterseniz "Loop" komutunu kullanarak yapabilirsiniz.
Kolay gelsin....
-
Bu , yollardan biridir... Yapmaniz gereken , yesil satirlari kopyalayip ilgili yerlere yapistirmak...
sayin yoneticimin dedigi gibi kopyala yapistir, yontemin cok uzun oldugunu sanmiyorum. 8)
-
program olarakta eklenmistir.
-
tam aradigim sey tesekkürler hocam
-
Konu eski ama 2013 mr 1 içinde gecerlimi
Yada bu tarz komutları belge altında paylasmanız mumkunmudur
sagolun şimdiden
-
evet diğer versiyonlardada çalıştırabilirsiniz.
...
Bulunduğumuz bölüm bu tarz paylaşımlar içindir.