$$
$$  DECLARATIONS
$$
ENTITY/ ent(1)
NUMBER/p_dat(51)
String/ hstr(10,40),u_str(40)
String/ notetxt(450,132)
$$      DATA/
$$

mask/ 25,26

&vwcurs = &any

L10:
do/ loop0:,ii,1,450
  notetxt(ii) = &nulstr
loop0:



 ident/'TEXT OBJEKT',ent(1),resp
jump/hlt:,hlt:,,,,,,,,resp

    notetxt = &DMTEXT(ent(1))

do/ loop1:,ii,450,1,-1
  if/ notetxt(ii) <> &nulstr, ee = ii
  if/ notetxt(ii) <> &nulstr, jump/l20:
loop1:

L20:
 
$$ neu 25.04.2006
ifthen/ &type(ent(1)) == 26 $$ Bemassung
	hstr(1)='Dimension Main Text'
	hstr(2)='Dual Dimension Text'
	hstr(3)='Toleranz Main Text'
	hstr(4)='Dual Toleranz Text'
	hstr(5)='Dia/ Radius Symbol Text'
	hstr(6)='Appended Text 1'
	hstr(7)='Appended Text 2'


hstr(10)='Edit Toleranz/Appended Text'

obtain/ent(1),p_dat
$$ifthen/ u_str == 'FUCHS'
$$do/ loop4:,jj,1,51 
$$ print/istr(jj)+'  '+istr(p_dat(jj))
$$loop4:


$$print/'dim subpyp '+istr(&subtyp(ent(1)))+' az '+istr(ee)
$$do/ loop5:,jj,1,9 

$$ if/ notetxt(jj) <> &nulstr, print/notetxt(jj)
$$if/ jj > 2,  notetxt(jj)= &nulstr
$$loop5:
$$endif

if/ p_dat(12) == 5, hstr(2)=''
if/ p_dat(4)  == 1, hstr(3)=''
if/ p_dat(12) == 5, hstr(4)=''
if/ p_dat(40) == 5, hstr(5)=''
if/ &subtyp(ent(1)) == 1 or &subtyp(ent(1)) == 2 or &subtyp(ent(1)) == 3 or $
&subtyp(ent(1)) == 5 or &subtyp(ent(1)) == 8 or &subtyp(ent(1)) == 13 or $
&subtyp(ent(1)) == 14 or &subtyp(ent(1)) == 16, hstr(5)=''
if/ p_dat(31) == 1, hstr(6)=''
if/ p_dat(31) == 3, hstr(6)=''
if/ p_dat(31) == 1, hstr(7)=''
if/ p_dat(31) == 3, hstr(7)=''
$$ pdat(31) wird leider immer nur mit 2 oder 4 ausgelesen auch wenn
$$ kein Zusatztext existiert

 ifthen/ ee == 1
  hstr(6)=''
  hstr(7)=''
 e_art = 1
  hstr(10)=''
 jump/l23:
 elseif/ ee == 2 and hstr(5) <> '' and hstr(3) == ''
    notetxt(5) = notetxt(2)
  hstr(6)=''
  hstr(7)=''
 e_art = 1
 jump/l23:
 endif


ifthen/ p_dat(4)  <> 1 and p_dat(12) == 5 $$ Toleranz vorhanden
   notetxt(5) = notetxt(4) $$ aber keine dual dim.
   notetxt(4) = notetxt(3) $$ aber keine dual dim.
   notetxt(3) = notetxt(2) $$ aber keine dual dim.
   notetxt(2) = ''
endif


$$ ohne Toleranz aber Zusatztext 
ifthen/ hstr(2) == '' and hstr(3) == '' and hstr(5) == ''
   if/ notetxt(2) <> &nulstr, notetxt(6) = notetxt(2)
   if/ notetxt(3) <> &nulstr, notetxt(7) = notetxt(3)
$$ mit Toleranz und Zusatztext 
elseif/ hstr(2) == '' and hstr(3) <> '' and hstr(5) == ''
    if/ notetxt(4) <> &nulstr, notetxt(6) = notetxt(4)
   if/ notetxt(5) <> &nulstr, notetxt(7) = notetxt(5)
$$ ohne Toleranz aber Zusatztext mit Symboltext
elseif/ hstr(2) == '' and hstr(3) == '' and hstr(5) <> ''
   if/ notetxt(3) <> &nulstr, notetxt(6) = notetxt(3)
   if/ notetxt(4) <> &nulstr, notetxt(7) = notetxt(4)
$$ mit Toleranz und Zusatztext  mit Symboltext
elseif/ hstr(2) == '' and hstr(3) <> '' and hstr(5) <> ''
    if/ notetxt(5) <> &nulstr, notetxt(6) = notetxt(5)
   if/ notetxt(6) <> &nulstr, notetxt(7) = notetxt(6)
endif

hstr(10)='Edit Main Dimension Text'
e_art = 6 $$ Appended Text 1
jump/l23:
$$ 25.04.2006
$$ bei &DMTEXT(ent(1)) findet man auch die Strings hstr(2..3)
$$ einlesen von hstr(2..7) teilweise realisiert da die Positionen wechseln
$$ gibt's keine Dual Dim. u. keine Toleranz so findet man hstr(5) auf
$$ notetxt(2)

$$eject/window




l22:  choose/'Edit',$
	hstr(1..7),deflt,1,resp
   e_art = resp - 4
   jump/l10:,l10:,,,,,,,,,,,,resp
$$   param/':'+notetxt(e_art),'e_art',int,e_art,rrr

l23:
  text/'Bitte editieren',notetxt(e_art),$
  ALTACT,hstr(10),b_resp,deflt

jump/l22:,hlt:,,l22:,,,b_resp
jump/l40:

endif

 
nn = ee

l30:
 text/'Bitte editieren',notetxt(nn),$
ALTACT,'Editieren von Line: '+istr(nn),a_resp,deflt

new_l = 0
ifthen/ a_resp == 4
new_l = 1
eject/ window

do/ loop10:,jj,1,ee
loop10: print/ istr(jj)+'. '+notetxt(jj)


 param/'editieren von','Zeile mit  Nr.',int,nn, b_resp 

 if/ nn == ee + 1, ee = ee + 1
 nn = minf(nn,ee)
jump/l30:
endif


jump/l10:,l10:,,,,,a_resp

if/new_l == 1,eject/ window

do/ loop20:,ii,ee,1,-1
  if/ notetxt(ii) <> &nulstr, ee = ii
  if/ notetxt(ii) <> &nulstr, jump/l40:
loop20:


l40: 
ifthen/ &type(ent(1)) == 25 $$ Text
   EDTEXT/ ent(1), notetxt(1..ee), 1 $$[,IFERR,label:]
elseif/ &type(ent(1)) == 26 $$ Bemassung
   EDTEXT/ ent(1), notetxt(e_art), e_art $$,IFERR,l22:
endif
    az = az + 1

jump/l10:

hlt:
&vwcurs = &work



halt