Feel Free to Fiddle with the Free code

 
Legend

  AutoLISP routine

  DCL based AutoLISP routine

  MAX Script / Visual MAX Script

  Visual Basic for Applications (AutoCAD) Code

  Visual Basic for Applications (Solid Edge) Code


Click filenames to access and enjoy !
 
Cam.zip
(2 kb)
AutoLISP program to create a Simple Harmonic Motion cam displacement diagram and cam profile given base circle diameter and follower height.
  Hatch56.zip
(1 kb)

Cool hatch patterns. After unzipping, read coolpat.txt

...
MSdist.zip
(2 kb)
MAX Script code.

No more tedious tape helpers. AutoCAD Distance command in MAX.

Just pick two points with Snap ON in MAX and you get AutoCAD style output distance, Delta-X, Delta-Y, Angle in XY plane, etc.
VBsecBor.zip
(2 kb)

Visual Basic for Solid Edge code. Create a counterbore. ( Solid Edge 10 only)
VBseCent.zip
(1 kb)

Visual Basic for Solid Edge code. Find centroid of closed boundaries. ( Solid Edge 10 only)
 
VBsefCdt.zip
(1 kb)

Visual Basic for Solid Edge code. Get facet data for body objects. ( Solid Edge 10 only)
VBseFlNm.zip
(1 kb)

Visual Basic for Solid Edge code. Get fullname of the current Assembly document. ( Solid Edge 10 only)
MSoffset.zip
(2 kb)

This MAX Script emulates the AutoCAD offset command in MAX with AutoCAD like prompts and result.

Call it from a toolbar in MAX or a button in a MAX Script floater.
MStrimEx.zip
(2 kb)
This MAX Script emulates the AutoCAD Trim and Extend command in MAX with AutoCAD like prompts and result.

Call it from a toolbar in MAX or a button in a MAX Script floater.
VBAlstAd.zip
(5 kb)
VBA code with form to add contents of a text box to a list.
 
VBAlwPln.zip
(6 kb)
VBA code to create a LightWeight polyline.
VBAmf.zip
(6 kb)
VBA program with form that tells you sex. Just enter your name.
VBApi.zip
(1 kb)
K.V.S.S. Venkat Ayer from South India recently entered the Guiness Book of World Records for calculating the value of pi upto 245 decimal places using Vedic Mathematics. Use this VBA code on your P-IV.
VBAPline.zip
(1 kb)
VBA code to create the good old HeavyWeight polyline.
VBAPtCur.zip
(1 kb)
VBA code returns a point at a given distance along the length of a curve.
 
VBAround.zip
(1 kb)
VBA code to round to the nearest 0.25
VBAselst.zip
(1 kb)
VBA code to create selection sets.
VBAsysvr.zip
(1 kb)
VBA code to toggle system variable that have only two values - On or OFF.
VBAtxtsl.zip
(1 kb)
VBA code to create a filtered selection set of just text entities.
VBAzoom.zip
(1 kb)
VBA code to zoom to limits by reading system variables LIMMIN and LIMMAX.
 
Bend.zip
(2 kb)
AutoLISP program to calculate the bend allowances for sheetmetal parts made with soft steel.
  ShpResis.zip
(1 kb)


AutoCAD Shape file and compiled .shx file to create this Resistor symbol.

For an indepth and illustrated tutorial on Creating Shape files in AutoCAD, go to the Tutorials 4U page.
  Cool2.zip
(1 kb)


AutoCAD Linetype file to produce the 300 contour line.

For an indepth and illustrated tutorial on Creating New linetypes and Hatch patterns in AutoCAD, go to the Tutorials 4U page.
  Cool3.zip
(1 kb)

AutoCAD Linetype file to produce the linetype shown below :
__ _ . _ __ _ . _ __ _ . _ __ _ . _ __

For an indepth and illustrated tutorial on Creating New linetypes and Hatch patterns in AutoCAD, go to the Tutorials 4U page.
CC.zip
(2 kb)
AutoLISP program to Program to draw circle using Bressenham's algorithm in AutoCAD.

Now some graphics download - most of em are dwg files

 
A. Skull.zip Skull.dwg
B. Table3D.zip Designer table - Put it in your dinning room.
C. WarBird.zip World War II Warbird - Download and fly it now.

More graphics download on page 2

 


Full blown projects in AutoLISP and VBA, are on the AutoLISP Projects page.

 

Home
Source Code 1 2 3   |   Queries and solutions   |   AutoLISP Projects
Tips n Tricks   |   Knowledge Base   |   Tutorials 4U   | Daily AutoLISP Code
CAD Standards   |   Fatal Errors   |   Real ACAD User   |   CAD Cartoons
CAD CrossWord   |   CAD Games   |   CAD Puzzle   |   CAD Illusions   |   CAD Cans
Easter Egg   |   CAD WinAmp Skins   |   Seven Habits   |   About Me

Also visit :   CadGuruCool   |   SeGuruCool   |   ProeGuruCool