OBJ_CLASS 		OBJ_NAME 

1.###########  Cl_Beton.obj  !!!!!!!!!!!!!!!!!!
BETONBAUTEIL      	STB_DECKE, 
			STUETZE, 
			UNTERZUG

2.############  Cl_Drauf.obj  !!!!!!!!!!!!!!!!!!
DRAUFSICHT	     	DECKE_DRAUFSICHT, 
			STUETZE_DRAUFSICHT, 
			UNTERZUG_DRAUFSICHT

3.############  BT_BES.obj
BT_BESCHRIFTUNG      	BT_BESCHRIFTUNG
			BT_BESCHRIFTUNG6

4.############  Cl_Besch.obj   !!!!!!!!!!!!!!!!!!
BESCHRIFTUNG      	MY_MTEXT,
			MY_MTEXT1 

5.############  DECK_Bes.obj  !!!!!!!!!!!!!!!!!!
DECKE_BESCHR1	  	DECKE_BESCHR1

6.############  Cl_S_Bes.obj
SCHNITT_BESCHRIFTUNG 	SCHNITT_BESCHRIFTUNG  !!!!!!!!!!!!!!!!!!
			SCHNITT_BESCHRIFTUNG1????

7.#############  Cl_Schn.obj  !!!!!!!!!!!!!!!!!!
SCHNITT		    	SCHNITT .....
			SCHNITT1

8.#############  HEIGHTS.obj  !!!!!!!!!!!!!!!!!!
HEIGHTSymbol	  	HEIGHTSymbol

#########################   OLD   ###############
1.#############   Cl_Besch1.obj
BESCHRIFTUNG      	?MTEXT 
		      	STUETZE_BESCHRIFTUNG, 		
			UNTERZUG_BESCHRIFTUNG

2.##############  Cl_Freie.obj
FREIE_BESCHRIFTUNG      BESCHRIFTUNG

5.###############  Cl_D_Bes.obj
DECKE_BESCHRIFTUNG      DECKE_BESCHRIFTUNG



================================================================
1.###########  Cl_Beton.obj
OBJ_CLASS   	BETONBAUTEIL
OBJ_NAME      	STB_DECKE, 
		STUETZE, 
		UNTERZUG
OBJ_MESSAGE   flaeche

PAR:
POSITION     	TXT     0
GEOMETRIE   	LST	()
NACHBARN     	LST     ()
BEWEHRUNG_PARA  LST     ()
SPEC		LST	()

(setq decke_para
  (list "1"
    (list 
      (list "d" 0.18) 
      (list "lx" 7) 
      (list "ly" 5)
    );GEOMETRY
    nil
    (list (list "ue_oben" 0.04) (list "ue_unten" 0.04))
    (list (list "SPANNRICHTUNG" "sp2"))
  )
)
(setq stuetze_para
  (list  "1"
    (list  
      (list "QUERSCHNITT" 
        (list "b_x" 0.3) 
        (list "e_x" 0.0) 
        (list "b_y" 0.3) 
        (list "e_y" 0.0)
      )
      (list "LAENGSSCHNITT" (list "HOEHE" 3.00))
    );GEOMETRY
    nil ;NACHBARN
    (list (list "ue_seit" 0.04))
    (list)
  )
)
(setq unterzug_para
  (list "1"
    (list 
      (list "LAENGSSCHNITT" 
        (list "l" 1) 
        (list "aufl_lk" 0.00) 
        (list "aufl_re" 0.00)
      )
      (list "QUERSCHNITT" 
        (list "h0" 0.55) 
        (list "b0" 0.3)
      )
    );GEOMETRY
    nil
    (list 
      (list "ue_oben" 0.04) 
      (list "ue_unten" 0.04) 
      (list "ue_seit" 0.04)
    )
    (list (list "roll" "0"))
  )
)

2.############  Cl_Drauf.obj
OBJ_CLASS	DRAUFSICHT
OBJ_NAME     	DECKE_DRAUFSICHT, 
		STUETZE_DRAUFSICHT, 
		UNTERZUG_DRAUFSICHT

PAR: Ohne

3.##########  BT_BES.obj
OBJ_CLASS    	BT_BESCHRIFTUNG
OBJ_NAME      	BT_BESCHRIFTUNG

PAR:
MY_POINT      XPT     (0 0 0)
POS           TXT     0
TEXT_LIST     LST     ()

4.##########   Cl_Besch.obj
OBJ_CLASS    	BESCHRIFTUNG
OBJ_NAME      	MY_MTEXT, 
		MY_MTEXT1 (lesen message from DECKE_BESCHRIFTUNG oder Schale_BESCHRIFTUNG),

PAR:
TEXT_LIST     LST     ()

5.#############  DECK_Bes.obj
OBJ_CLASS	DECKE_BESCHR1
OBJ_NAME  	DECKE_BESCHR1
OBJ_DESC  	beschriftung für DECKE und änliche
			Betonbauteile
OBJ_MESSAGE   from sub_object: (oc_sendmail object_handle (list "TEXT" BESCHRIF) für MY_MTEXT)
OBJ_ORIGIN	LST	(0 0 0)

PAR:

POSITION        TXT     Ohne
POINT1		XPT 	(0 0 0)
POINT2		XPT 	(0 0 0)
SPANNRICHTUNG	LST	("sp1" 90 0)
OTHERS		LST	(("FLAG_LINE" 1))
# FLAG_LINE=1 falls die Linie gazeichnet werden sollen

6.#############  Cl_S_Bes.obj
OBJ_CLASS  	SCHNITT_BESCHRIFTUNG
OBJ_NAME 	SCHNITT_BESCHRIFTUNG
		SCHNITT_BESCHRIFTUNG1
OBJ_MESSAGE     MASS  ????

PAR:
S1       	   PNT     ()
S2       	   PNT     ()
SCHNITT_BEZ 	   TXT     A
MASS          	   INT     50
SYMBOL 		   TXT	   1

7.#############  Cl_Schn.obj
OBJ_CLASS   	SCHNITT
OBJ_NAME    	SCHNITT
		SCHNITT1
OBJ_MESSAGE 	FuerMail

PAR:
REDUZIERT       TXT     0
HINTERGRUND     NUM     0
OTHERS          LST     (("VonOben" 0) ("VonUnten" 0))
#Zeigt, wo der Schnitt abgeschnitten werden soll


8. ###########     HEIGHTS.obj
OBJ_CLASS	HEIGHTSymbol
OBJ_NAME  	HEIGHTSymbol
OBJ_MESSAGE   from sub_object: (oc_sendmail object_handle (list "TEXT" BESCHRIF) für MY_MTEXT)
OBJ_ORIGIN	LST	(0 0 0)

PAR:
TEXT_LIST	LST	()
HEIGHT		NUM	0
OBJ_MASSSTAB	INT	17
OTHERS		LST	(("FLAG_GEFUELLT" 1) ("FLAG_RICHTUNG" "nach_oben"))
# Wenn FLAG_GEFUELLT =1, Dreieck wird gefüllt



#########################   OLD   ###############
1.##########   Cl_Besch1.obj
OBJ_CLASS     	BESCHRIFTUNG
OBJ_NAME      	?MTEXT (liest message from DECKE_BESCHRIFTUNG),
	      	STUETZE_BESCHRIFTUNG, 		
		UNTERZUG_BESCHRIFTUNG
OBJ_MESSAGE   for_mail (ohne MTEXT)

PAR:
TEXT_LIST     LST     ()

2.##########  Cl_Freie.obj
OBJ_CLASS     FREIE_BESCHRIFTUNG
OBJ_NAME      BESCHRIFTUNG

PAR:
POS           TXT     0
TEXT_LIST     LST     ()
POINT         PNT     ()

5.#############  Cl_D_Bes.obj
OBJ_CLASS     DECKE_BESCHRIFTUNG
OBJ_NAME      DECKE_BESCHRIFTUNG
OBJ_MESSAGE   from sub_object: (oc_sendmail object_handle (list "TEXT" BESCHRIF) für MY_MTEXT)

PAR:
P1	PNT	()
P2	PNT	()