• Skip to main content
  • Skip to primary sidebar
  • Skip to footer
blog.draftsperson.net

blog.draftsperson.net

the art of technical drawing

blog.draftsperson.net

Sample Macros for AutoCAD

August 1, 2000

Last updated July 29, 2026

Save/Restore OSMODE from a file

1> Save the OSMODE system variable to a file. (could be used for other system variables):

^C^C^P(progn(setq OSFILENAME (open "u:/acad2000/SavedOSnap.txt" "w"))
(write-line (itoa (getvar "osmode")) OSFILENAME)
(close OSFILENAME)

2> Extract the OSMODE system variable from a saved file.

^C^C^P(progn(setq reados (open "u:/acad2000/SavedOSnap.txt" "r"))
(setvar "osmode" (atoi (read-line reados)))(close reados))

Change layer color, by clicking on it

^C^C^P(setq currentlayer(getvar "clayer"))
;LAYISO;;-LAYER;C;;^CRS;
(setvar "clayer" currentlayer)

Load Menu from File

^C^C^P(command "menuunload" "Menu Group Name" "_.menuload" "Menu File Name.mnu")

Filed Under: AutoCAD Tutorials

Primary Sidebar

Subscribe to our Youtube Channel

Post CAD drafting jobs on Freelancer.com. and get some free money to do this.

Categories

  • American Steel Industry (4)
  • AutoCAD Articles & Reference (30)
  • AutoCAD Bugs & Problems (19)
  • AutoCAD Tips (29)
  • AutoCAD Tutorials (54)
  • AutoLISP Routines (328)
  • AutoLISP Tutorials (15)
  • CAD Standards (7)
  • Civil 3D (7)
  • Civil Drafting (4)
  • Dimensions (2)
  • Drafting Funnies (71)
  • Drafting History (9)
  • Drafting Standards (84)
  • Electrical Drafting (2)
  • General IT reference (7)
  • Geometry (15)
  • GIS (2)
  • Hatch Patterns (12)
  • Office Life Hacks (3)
  • PT (1)
  • Revit Tutorials (54)
  • Steel Detailing (14)
  • Structural Drafting (26)
  • Technical Dictionary (61)
  • Useful Website Links (19)

Footer

Free downloads

  • Free AutoLISP routines
  • Free hatch patterns
  • SHX fonts & text styles
  • Numbering LISP collection
  • ISO 3098B font

Reference charts

  • AWS weld symbols chart
  • Steel detailing chart
  • Hole & slot sizes
  • Bolt edge distance
  • ANSI & ARCH paper sizes
  • How to fold an A1 drawing

Useful links

  • CAD blocks (DWG)
  • Revit families
  • structuraldrafter.com
  • cad-corner.com
  • About
  • Privacy policy

Provided for free with no warranty · Log in