(defun c:TBACAD ( / $cmdecho comname mname)
(defun showtoolbar (toolbar pos1 pos2 / )
 (command comname (strcat mname "." toolbar) "_float" "200,200" "1")
 (command comname (strcat mname "." toolbar) pos1 pos2)
)
(setq $cmdecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)



(command "._menu" "ACADM.MNU")
(setq comname "._toolbar" mname "AMPP")
;alle abgeschaltet:
(command "._toolbar" "AMPP" "_all" "_hide")

;angezeigte:
        (showtoolbar "TB_AMMAIN" "_top" "0,0" )
        (showtoolbar "TB_AMZOOM" "_top" "1,0" )
        (showtoolbar "TB_AMCONTENT" "_top" "2,0" )
        (showtoolbar "TB_AMDRAW_FULL" "_top" "0,1" )
        (showtoolbar "TB_AMMODIFY_FULL" "_top" "1,1" )
        (showtoolbar "TB_AMANNOTATION" "_top" "2,1" )
        (showtoolbar "TB_AMASSIST" "_top" "3,1" )
        (showtoolbar "TB_AMPOWERSNAP" "_right" "0,1" )
        
 
(setvar "CMDECHO" $cmdecho)
(princ)
)