Just a funny / basic toolbar

[Steven P]

I made up this one or 2 upgrades ago:

 

(defun c:setupworkspace ( / MyWorkspace )
  ;;Get workspace name to edit menubars later
  (setq MyWorkspace (getvar "wscurrent") )

  ;;close ribbon
  (command "ribbonclose")

  ;;Show menubars / toolbar
  (setvar 'menubar 1)

  ;;menus
  (command "-toolbar" "draw" "s")
  (command "-toolbar" "draw order" "s")
  (command "-toolbar" "layers" "s")
  (command "-toolbar" "modify" "s")
  (command "-toolbar" "standard" "s")
  (command "-toolbar" "styles" "s")
  (command "-toolbar" "properties" "s")
  (command "properties")

  ;;ViewCube
  (command "DISPLAYVIEWCUBEIN2D" "Off")
  (command "DISPLAYVIEWCUBEIN3D" "On")

  ;;modelspace paper colour, RGB "255 255 255" = white "0 0 0" = black
    (defun somefunc (x y z)
      (apply '+ (mapcar 'lsh (list x y z) '(16 8 0)))
    )
  (setenv "Background" (itoa (somefunc 255 255 255)))

  ;;Go to model space
  (setvar "ctab" (nth 0 (layoutlist) ))
  (setvar "ctab" "Model" )

  ;;custom alerts to set up user things like papaer sizes
  (alert "Set up Ax Full Bleed to 0mm margins")
  (alert "Set up Ax Expand to 0mm margins")
  (alert "Set up 'DWG to PDF - No Preview.pc3'\nChange PDF Options")
  (alert "SP: See plotter configuration files folder, copy to AutoCAD folder")

)