/*
Set2Ent.cdp

Sets the System Attributes to a Entity picked. Dimensions And Notes work as well.
*/
:START
	GETENT "Select Entity for Attribute Setup",type1
         if ((@key == -3)||(@key == -2))
              exit

	ncol = @intdat[3]
	nlev = @intdat[4]
	nltyp = @intdat[5]
	npen = @intdat[6]
	nlwid = @intdat[7]

	SET color, ncol
	SET level, nlev
	SET linetype, nltyp
	SET pen, npen
	SET linewidth, nlwid

	if ((type1 > 7) && (type1 != 19)){
	      tfont = @txtatt[0]
		tfill = @txtatt[1]
		tuline = @txtatt[2]
		tslant = @txtatt[4]
		tang = @txtatt[5]
		tht = @txtatt[6]
		tasp = @txtatt[7]
		tspace = @txtatt[8]

	SET notefont, tfont + 1
	SET notefill, tfill
	SET noteuline, tuline
	SET noteslant, tslant
	SET noteang, tang
	SET noteht, tht
	SET textasp, tasp
	SET noteline, tspace
	SET linetype, 1
}

	if ((type1 > 7)&&(type1 < 15)||(type1 > 19)&&(type1 < 22)){
		SET dec_fr, @DIMINFO1[17]
      	SET dimfill, tfill
	      SET dimfont, tfont + 1
	      SET dimht, tht
	      SET dimslant, tslant
}

CLEAR ncol,type1,nlev,nltyp,npen,nlwid,tfont,tfill,tuline,tslant,tang,tht,\
      tasp,tspace