WJBzone Autocad Stuff




Autocad is a trademark of Autodesk
Below are compiled versions of lisp utilities I write and use.
Free to download and use.
No guarentee on accuracy, let me know if you find errors.
bill@wjbzone.com


DeedCalcV005.XLS
DeedCalc.XLS.
Spreadsheet to enter Metes and Bounds from deed and calculate coordinates.
Option to output a script file for input into Autocad.
Creates layer(s) in Autocad for Polyline, Label, Line Number.
and Bearning/Distance. Draws a circle at each endpoint.
Spreadsheet Contains Macros to write the script file and chart the data.
GcodeOut.fas - (compiled lisp program).
Generates a Mill CNC Gcode file into the current Autocad drawing folder.
User selects polylines and 3dpolylines. Current UCS is program zero.
Works in Autocad 2000, 2004.
Post is setup for TurboCNC. Post can be changed.
Gcodein.fas - (compiled lisp program).
Reads Mill CNC Gcode file into the current Autocad Layer.
Set the number of lines to read each time you hit Enter.
Rapids are color White, Feeds are color Bylayer
Ver 2
--Updated 4-29-04--
GcodeOutL.fas - - (compiled lisp program) .
Generates a Lathe CNC Gcode file into the current Autocad drawing folder.
User Selects polylines. Current UCS is program zero. Autocad X is lathe Z, and 2Y is lathe X.
Ver 2. Added OD and ID grooves.
Ver 3. Faces added
GcodeinL.fas - (compiled lisp program).
Reads Lathe CNC Gcode file into the current Autocad Layer.
Set the number of lines to read each time you hit Enter.
Color changes with tool change
Ver 2
tt.fas - - (compiled lisp program).
Labels a line with a Bearing.
Use for a survey drawing.
Uses dimtxt for text size
Ver 1
3D Gcode using MDT. Turn flowwires into toolpaths.
DeedOut
DeedOut.fas (compiled lisp program)
Writes a deed description based on selected polyline
to folder where your drawing is saved.

Also labels drawing lines with bearing and (optional distance)
CrossSection
CrossSection.fas (compiled lisp program)
Draws a crossection aligned to select baseline points and topographical contours.
Beta Version - works but need to add grid.
Contact me about these items
Future downloads to be posted:
ReameOut - Generates text file to run with REAME.exe
SwaseOut - Generates text file to run with SWASE.exe
SedimotOut - Runs sedimot from spreadsheet
ContourLine - Generates an interopolated contour line based on existing contours.
GPSin - reads in file from Corpscon converted Garmin file and plots points and labels.
StatePlaneOut - Outputs state plane coords (KY South only so far) for use with Corpscon and GPS.
Triangle.fas - Compiled Lisp Program
Contour Surfacing
Creates 3d-faces (triangles) between contours that can be converted to solid.
Option to run in manual or automatic mode
Works with lwpolylines, 2d and 3d polylines.
M. B. Engineering
Programs Inc.
These programs are not Autocad Related.
Contact me about these Mining related DOS programs:
(formerly sold under MB Engineering Programs)
Reame.exe - Rotational Equlibrium Analysis of Multilayered Earthworks
(Program developed by Dr Yang H Haung 1976)
Swase.exe - Sliding Wedge analysis for slope failure.
Sedimot.exe - Pond design
Sdbk - (simplified dambreak)

Basic programs:
Open - OPEN CHANNEL ANALYSIS
Pipesize - Pipe size calculations are based on critical flow theory
Phreatic - Phreatic line calculation for Reame use with dams.
Tahlcam.com
Link to Tahlcam.
Create cnc Mill programs in Autocad. Has many more features then my lisp program above.

My uncompiled version (lsp) of the above (fas) Autocad files may be purchased.
$10.00 each - contact bill@wjbzone.com
No guarentee on my programming technique.



Below are the standard template, acad.lsp and utility files I use for my Autocad drawings.
(I never know when I might need them on the road.)

My Autocad 2000 template. (acad.dwt)
Saved views, UCS, dimstyle
acad.lsp
My Autocad 2000 acad.lsp file. (acad.dwt)
Defines keys, reads in other utility lsp programs
acad.pgp
My Autocad 2000 acad.pgp file. (acad.pgp)
Defines keys not defined in acad.lsp
cpp.lsp
Function to copy selection into current layer.
zpp.lsp
Function to copy selection into a layer named "z-save".
Example use: Copy a polyline before you extrude or solid before subtract.
(selection will be saved in layer Z-save)
lathexz.lsp
Function to label a point with XZ lathe values
Lathe programming tool.
lineang.lsp
Function to calculate the 3d angle between two lines
ll.lsp
Function to change to layer of selected object
lll.lsp
Function to create a new layout
(from template named 1-layout.dwt layout named dtl-)
mvv.lsp
Function to create a new model view on current layout in Layer 0
pp.lsp
Function 3dorbit about target
a2004setup.zip
Autocad 2004 Setup Notes.
a2004pgp.zip
Autocad 2004 acad.pgp file.
a2004wjblisp.zip
Autocad 2004 wjb.lsp. Called from acad.lsp (load "wjb.lsp")
a2004template.zip
Autocad 2004 New Drawing Template.
a2004tmpllayout.zip
Autocad 2004 New Layout Template (used by lll.lsp)