;Ändert bemassung von Nullpunktbemassung

; Farbe 1 = rot
; Farbe 2 = gelb
; Farbe 3 = grün
; Farbe 4 =cyan
; Farbe 5 =blau
; Farbe 6 = mangenta
; Farbe 7 = weiß
; Farbe 8 = dunkelgrau
; Farbe 9 = hellgrau

(defun C:t1 ()		;tol 0.0


(setq nko "dimzin" ) 	;nachkomma ein
(setq nkowert 0)
(setq genau "dimdec") 	;genauigkeit 0.0
(setq genauwert 1) 



(command "_dimoverride" nko nkowert genau genauwert "" )

);------------------------------------------------------

(defun C:t2 ()		;tol 0.00


(setq nko "dimzin" ) 	;nachkomma ein
(setq nkowert 0)
(setq genau "dimdec") 	;genauigkeit 0.00
(setq genauwert 2) 



(command "_dimoverride" nko nkowert genau genauwert "" )

);---------------------------------------------------------

(defun C:th2()		;Texthöhe 2,5


(setq txh "dimtxt" ) 	;texthöhe 2.5
(setq txhwert 2.5)
(setq textabstand "dimgap")	;textabstand von masslinie
(setq abstandwert 0.5) 


(command "_dimoverride" txh txhwert textabstand abstandwert "" )

);--------------------------------------------------------

(defun C:th3()		;Texthöhe 3,5


(setq txh "dimtxt" ) 	;texthöhe 3.5
(setq txhwert 3.5)
(setq textabstand "dimgap")	;textabstand von masslinie
(setq abstandwert 1) 


(command "_dimoverride" txh txhwert textabstand abstandwert "" )

);--------------------------------------------------------

(defun C:EDbem ()


(setq textfarbe "_dimclrt" )
(setq textfarbewert 6)
(setq textabstand "dimgap")	;textabstand von masslinie
(setq abstandwert 1) 

(setq bemleier1 "DIMCLRD")	;masslinie und hilfslinie auf vonlayer
(setq bemleier1wert "vonLayer")
(setq bemleier2 "DIMCLRE")
(setq bemleier2wert "vonLayer")
(setq ibzh "dimtofl")		;Immer Bemassungslinie zwischen Hilfslinie
(setq ibzhwert "Ein")
(setq ubhe "DIMEXE")		;verlängerung Hilfslinie über masslinie
(setq ubhewert 1)
(setq avu "DIMEXO")		;abstand von ursprung
(setq avuwert 0)
(setq skh "DIMTFAC")		;scalierung tol höhe
(setq skhwert  0.6)
(setq vpo "DIMTOLJ")		:position tol oben
(setq vpowert 2)

(command "_dimoverride" textfarbe textfarbewert textabstand abstandwert bemleier1 bemleier1wert bemleier2 bemleier2wert ibzh ibzhwert ubhe ubhewert avu avuwert skh skhwert vpo vpowert "" )

);-------------------------------------------------------------------