Free AutoLISP code snippets for AutoCAD

Please feel free to be inspired, cut&paste or if you have any feedback or questions go here. If you want some customization or anything else that you can come up with that we might help you with you're welcome to contact us.

• acad.lsp Instruction on the usage
• acaddoc.lsp Instruction on the usage
• accdist.lsp Accumulate distances to
• AecExportToAutoCAD.lsp Read and write the settings that
  AecExportToAutoCAD and the like command uses
• AECObjectsExplodeOptions.lsp Read and write the settings in the
  "Explode AEC Objects" dialog box when using command _AecObjExplode
• AreaM.lsp Calculates the total area of selected objects
• areaOfObject.lsp Returns the area of selected object
• AreaText.lsp Select a polyline and where to place the text for the area
• AttDefToMText.lsp Convert Attribute definitions to MText
• AttDefToText.lsp Convert Attribute definitions to Text
• axBlock.LSP Generic block and attribute AutoLISP functions
• axCreateVP.LSP Creation of viewports using AutoLISP
• axInsert.lsp Example of inserting a block with ActiveX in modelspace
• backgroundchanger.lsp Change the background color back and forth
• BlockToXref.lsp Convert Blocks to Xrefs
• BOMLengths.lsp Get the accumulated sum length of multiple objects
• CAO_Link_Templates.lsp Create/delete Link Templates using CAO
• ChangeNoPlottableLayers.LSP move all entities from layers that are not
  plottable to layer defpoints
• dimlinechange.lsp Changes selected line on a dimension to current layer
• DisplayColorProperties.lsp Miscellaneous commands related to Colors
   on the Display tab on the Options dialog
  
• DisplayProperties.lsp Miscellaneous commands related to the Display
   tab on the Options dialog
  
• DLF.lsp Delete AutoCAD layer filters
• GetPlotDevices.lsp Generic plot setting functions to get 
  plot styles and plotters available
• getvpscale.lsp Get Viewport Scale in active viewport or in selected
• Hatch_Move.lsp Moves the startpoint/snapbase for selected hatches
   base points independently
• HATCHB.LSP Recreates hatch boundary by selecting a hatch
• HatchBase.lsp Change the hatch base point on one or many hatches
• historylines.lsp Change the number of command history lines
• insrot.lsp 2 versions of Insert block with attribute rotated to specified angle
• JTB_TitleBar.lsp Change the title bar of the AutoCAD application
• layer-list.LSP Layer list to file
• layer-lw-list.LSP Layer and lineweight list is created as a drawing
• layers-erase.LSP Erase all layers that are frozen or off
  
• layer-state.LSP List layers according to state
• layer-toggle-freeze.lsp toggle the freeze state of layer and
  regens only the objects on the layer
• LayoutsToDwgs.lsp Creates separate drawings of all layouts
• lenghtOfObject.lsp Returns the lenght or the perimeter of selected object
• linetype.LSP Load linetype and check for existence of specified linetype
• mpt.lsp Midpoint of 2  or 3 points
• pagesetup.lsp Miscellaneous routines related to Page Setup
• PersonalMtextSymbols.lsp Add personal mtext symbols in the
  right click menu in the mtext editor
• pljoinfuzz.lsp Joins lines, arcs and polylines using a fuzz distance
• PlotDevicesFunctions.lsp Miscellaneous Plot Devices Functions
• plotdialog.lsp Force Plot dialog by lisp
• profiles.lsp Miscellaneous profile commands
• ProjectPaths.lsp Project path functions including export to file
• Purge-Point.lsp Kills all POINT 5 vent-objects and V50-dictionaries
• purger.lsp Various purge functions with no command line echo
• PurgeReconciledLayers.LSP Purge all information about
  reconciled layers in the drawing
• remicons.lsp Removes the icons Buzzsaw, RedSpark, Point A
   and FTP in Open dialog box
• SOpen.lsp Open command that works for all cases independent on SDI
• supportPaths.lsp Save and loads support paths to a text file
• TextFunctions.lsp Change all text styles on all objects to named text style
• tsh0.lsp Set all text style's height to 0
• txtRot.lsp Rotate selected text objects to specified angle
• viewportcenter.LSP Get the viewport center coordinates
• viewsIO.LSP Export and import views
• VPlayers.lsp Save, load and restore frozen viewport layers from file and
  match from one viewport to another
• vp-outline.LSP Creates a polyline in modelspace that has the
  outline of the selected viewport
• vpsel.lsp Select all visible objects in selected or active paperspace viewport
• zoome.lsp Zoom extents in all viewports
• Download acetutil.zip Documentation for the Express acet functions

Miscellaneous tips&trix for AutoCAD AutoLisp

Purge layer filters / delete layer filters in AutoCAD. You get it here at my blog or here.

; To set the a custom scale, first set the StandardScale property to acVpCustomScale,
; then use the property CustomScale to define the custom scale value.
; Code examples to play with follow


(setq al (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object)))
(vla-get-CustomScale al)
(vla-put-StandardScale al acVpCustomScale)
(vla-put-StandardScale al acVpScaleToFit)
(vla-put-StandardScale al ac1_10)
(setq numerator 1)
(setq denominator 25)
(vla-setCustomScale al numerator denominator)
(vla-getCustomScale al 'numerator 'denominator)
(princ numerator)
(princ denominator)

; The is how you can do a PGP file reinitialization (reload)awing template file used by QNEW
;;; (ax:GetQnewPath)
(defun ax:GetQnewPath (/ prof key)
  (setq prof (vla-get-ActiveProfile (vla-get-profiles (vla-get-preferences (vlax-get-Acad-Object)))))
  (setq key (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" prof "\\General"))
  (vl-registry-read key "QnewTemplate")
)

;;; Set the drawing template file used by QNEW
;;; This writes it to the registry but is later dismissed and overwritten by AutoCAD
;;; (ax:SetQnewPath "M:\\CAD\\ACADISO.DWT")
(defun ax:SetQnewPath (QnewPath / prof key)
  (setq prof (vla-get-ActiveProfile (vla-get-profiles (vla-get-preferences (vlax-get-Acad-Object)))))
  (setq key (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" prof "\\General"))
  (vl-registry-write key "QnewTemplate" QnewPath)
)

;; Gets current template
(getenv "QnewTemplate")
"c:\\my files\\templates\\qnew.dwt"

and

;; Sets a different template
(setenv "QnewTemplate" "c:\\my files\\templates\\qnew.dwt")

or another approach because the above one is not working in newer versions of AutoCAD:

Using VBA where QnewPath is the Template File Name: ThisDrawing.Application.Preferences.Files.QNewTemplateFile = QnewPath

Using LISP: (vla-put-QNewTemplateFile (vla-Get-Files (vla-Get-Preferences (vlax-get-acad-object))) QnewPath)

This is how you can preset the Path type in the xref attach dialog box
;;; Sets the Xref Path type used in the xref attach dialog box
;;; Absolute Path: (SetPathType 0)
;;; Relative Path: (SetPathType 1)
;;; No Path: (SetPathType 2)

(defun SetPathType (v)
  (vl-load-com)
  (vl-registry-write
    (strcat
      "HKEY_CURRENT_USER\\"
      (vlax-product-key)
      "\\Profiles\\"
      (vla-get-activeprofile
	(vla-get-profiles
	  (vla-get-preferences (vlax-get-acad-object))
	)
      )
      "\\Dialogs\\XattachDialog"
    )
    "PathType"
    v
  )
)

;;; Gets the Xref Path type used in the xref attach dialog box
;;; 0 = Absolute Path
;;; 1 = Relative Path
;;; 2 = No Path

(defun GetPathType ()
  (vl-load-com)
  (vl-registry-read
    (strcat
      "HKEY_CURRENT_USER\\"
      (vlax-product-key)
      "\\Profiles\\"
      (vla-get-activeprofile
	(vla-get-profiles
	  (vla-get-preferences (vlax-get-acad-object))
	)
      )
      "\\Dialogs\\XattachDialog"
    )
    "PathType"
  )
)