Is this what you're looking for?
;; Program: AutoDimension Polylines
;;
;; Description:
;; This AutoLISP program automates the process of creating dimensions along polylines in AutoCAD.
;; - Draws dimensions from vertex to vertex for selected polylines or lines.
;; - Adds arc length dimensions for arc segments where applicable.
;; - Provides an options menu to configure dimension positioning (e.g., above/below line, inside/outside arc).
;;
;; Features:
;; 1. Automatically detects line and arc segments in selected polylines.
;; 2. Positions dimensions dynamically based on user-defined options.
;; 3. Uses the current DIMSTYLE settings for consistency with the drawing standards.
;;
;; Commands:
;; C:AD - Main command to run the dimensioning process.
;; Options are configurable via a dialog box accessed during runtime.
;;
;; Author: Stefan M.
;;AD-Automatic Dimension Autocad.LSP
;; Created: 10.11.2015
;; Website: KimProjects.com
;;
;; Notes:
;; - Ensure appropriate DIMSTYLE is active before running the program.
;; - Works on LWPOLYLINE, LINE, and ARC entities.
;;
;; Disclaimer:
;; This program is provided "as-is" without warranty of any kind.
;; Users are responsible for verifying dimensions before finalizing drawings.
;;ANUMBER.LSP
;; Program: Incremental Number Placement
;;
;; Description:
;; This AutoLISP program places incrementing numbers as text at selected points in an AutoCAD drawing.
;; - The user specifies the starting number.
;; - The program allows placing text at multiple points, each showing the next incremented number.
;; - Numbers are placed using the current text settings in the drawing.
;;
;; Features:
;; 1. User-defined starting number.
;; 2. Interactive point selection for text placement.
;; 3. Automatic incrementation after each placement.
;;
;; Commands:
;; C:ANUMBER - Main command to start placing incrementing numbers interactively.
;;
;; Notes:
;; - The program runs in an infinite loop. Use the "Esc" key to exit.
;; - Ensure appropriate text style and size are set in AutoCAD before running the program.
;;
;; Disclaimer:
;; This program is provided "as-is" without warranty of any kind.
;; Users are responsible for verifying the placed text and ensuring correct placement.
;;CAD14.LSP
;; Program: Custom AutoCAD Utilities
;;
;; Description:
;; This AutoLISP script contains a set of custom commands designed to improve efficiency in AutoCAD.
;; Each command focuses on a specific task, such as zooming, layer management, dimensioning, and object manipulation.
;;
;; Commands and Descriptions:
;; - **C:ZW**: Zoom Window - Zooms to a specified rectangular window.
;; - **C:ZE**: Zoom Extents - Zooms to display the entire drawing.
;; - **C:ZA**: Zoom All - Zooms to show the drawing limits and extents.
;; - **C:ZC**: Zoom Center - Zooms to a center point with a specified magnification.
;; - **C:ZP**: Zoom Previous - Returns to the previous zoom level.
;; - **C:ZD**: Zoom Dynamic - Zooms dynamically using an interactive preview.
;; - **C:Z9, C:Z8, C:Z7, C:Z6, C:Z5**: Custom zoom commands for specific scales.
;; - **C:ONL**: Turn All Layers On - Enables all layers in the drawing.
;; - **C:TH**: Thaw All Layers - Thaws all frozen layers.
;; - **C:OA**: Turn On All Layers - Turns on every layer in the drawing.
;; - **C:OFL**: Turn Off All Layers - Turns off every layer in the drawing.
;; - **C:ON**: Isolate Layer - Turns off all layers except the layer of a selected object.
;; - **C:SLA**: Match Layer - Sets the current layer to match a selected object's layer.
;; - **C:FRZ**: Freeze Layers - Freezes multiple selected layers.
;; - **C:DH**: Dimension Horizontal - Creates a horizontal dimension.
;; - **C:DV**: Dimension Vertical - Creates a vertical dimension.
;; - **C:DA**: Dimension Angular - Creates an angular dimension.
;; - **C:UPD**: Update Dimensions - Updates all dimensions to reflect current styles.
;; - **C:STA**: Dimension Status - Displays the current status of dimensions.
;; - **C:UCA**: UCS Align - Aligns UCS with a selected object.
;; - **C:UCW**: UCS World - Restores the UCS to World Coordinate System.
;; - **C:UCSR**: UCS Restore - Restores a saved UCS.
;; - **C:UI**: Toggle UCS Icon - Shows or hides the UCS icon.
;; - **C:VPT**: Viewports - Restores the previous viewport configuration.
;; - **C:VPT1**: Single Viewport - Switches to a single viewport layout.
;; - **C:VPT4**: Four Viewports - Switches to a four-view layout.
;; - **C:ML, C:MC, C:MW, C:MP**: Move by Last, Center, Window, or Previous selection.
;; - **C:COL, C:COC, C:COW, C:COP**: Copy by Last, Center, Window, or Previous selection.
;; - **C:CL, C:CC, C:CW, C:CPP**: Change properties of selected entities (Last, Center, Window, or Previous).
;; - **C:LEN**: Measure Length - Calculates and displays the length of a selected line or polyline.
;; - **C:LN**: Show Layer - Displays the layer of a selected object.
;; - **C:ALT**: Auto Trim - Trims entities to selected edges based on a picked side.
;; - **C:XT**: Boundary Edit - Adjusts entities to snap to an intersecting boundary edge.
;; - **C:CSS**: Change String - Batch replace a substring in multiple text objects.
;; - **C:ETEXT**: Edit Text - Modify text properties (style, height, or value) interactively.
;; - **C:LT300, C:LT200, ... , C:LT10**: Set Linetype Scale - Changes linetype scale to preset values.
;;
;; Notes:
;; - This script introduces custom zoom, dimension, and layer utilities for common tasks.
;; - Ensure your text styles, UCS, and layers are appropriately set before using these commands.
;;
;; Disclaimer:
;; This program is provided "as-is" without warranty of any kind.
;; Users are responsible for verifying changes and ensuring the accuracy of their drawings.
You just have to love AI sometimes
