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")

)

 

[masterfal]

oh nice. ive got very similar setup. i just use layer/styles/properties toolbars though (i havent actually looked at the others properly in such a long time so i might check out some of those other ones you've called up) 

was going to copy some of this to my main lisp file but no need really as you would only need to run 1 time when you upgrade to new version or something. i'll set up a separate routine. thanks!