Skip to content

Instantly share code, notes, and snippets.

@jecolasurdo
jecolasurdo / elevations.lsp
Created November 20, 2017 00:03
Calculate elevations above grade along lines that are not orthogonal to the slope of the deck or roof.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Elevation command
;;Type EV to run this command
;;Triangulates the elevation of a point between two other points of known elevations
;;useful for calculating BOD and other deck elevation related measurements
;;Type "ELEVATION" to run this routine
;;1/27/2008 Written by Joe C.
;;1/29/2008 streamlined data entry to require less keyboard usage
;;2/15/2008 streamlined data entry some more (added loop through unknown point entry)
;;2/20/2008 changed to accept architectural input rather than just decimal feet
@jecolasurdo
jecolasurdo / HydGraphPrograms.lsp
Created November 19, 2017 23:58
Hydraulic Calculation Programs for Water Pumps
;;THE FOLLOWING COMMANDS, 'SUPPLY', 'SYSTEM', AND 'PT' ARE COMMANDS TO DRAW THE HYDRAULIC GRAPH
;;--------------------
;;;supply and system programs for the supply curve graph 2/19/99
(setq qsc (getvar "userr1"))
(setq pc (getvar "users1"))
(defun c:supply (/ lc pt3 pt1 pt2 q2 q1 q sp ps)
(graphscr)
(setvar "cmdecho" 0)
(setvar "plinewid" 0.2)
@jecolasurdo
jecolasurdo / replacestuff.go
Created October 27, 2017 16:57
Needed to make some replacements that were a bit much for sed, and didn't want to use awk, perl, or python.
package main
import (
"fmt"
"io/ioutil"
"log"
"os"
"path/filepath"
"regexp"
"strings"