CadGuruCool - Source Code 2

CadGuruCool
Source Code Page 2 of 3

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 !

	LightIX.zip (1 kb)	MaxScript - Light Include Exclude. Call it from a toolbar in MAX or a button in a MAX Script floater. I have tested this one in both 3D Studio Max R 2.5 and R 3.0. Give it a try and don't forget to tweak. Read MaxScript.txt for detailed step by step instructions on how to use this Max Script.
	Cur.zip (1 kb)	A DCL Graphics program to demonstrate mouse click events.
	VBseRect (2 kb)	Visual Basic for Solid Edge code demonstrates how you can create rivet holes on a MS plate using the RectangularArray feature. Copy this code to the Click event of a button Name the button - cmdRectPattern Solid Edge should be running but no document be open Tested with Solid Edge 7 only - They dropped the objModel.RectangularPatterns.Add method in SolidEdge 10
	Hide.zip (1 kb)	A DCL program to demonstrate the techniques to hide dialog boxes.

	DDpa.zip (2 kb)	Dialog interface for the polar array command.
	QuadCol.zip (2 kb)	A DCL program demonstrates mouse click events in an image tile.
	Spiral.zip (2 kb)	AutoLISP program to draw spiral in AutoCAD.
	Hatch34.zip (1 kb)	Cool hatch patterns. After unzipping, read coolpat.txt ...
	Active.zip (2 kb)	A DCL fun program to convert sentences in Active voice to Passive voice.
	AlphaOnly.zip (5 kb)	VBA code with a form - shows how you can force the user to enter alphabets only.

	Spin.zip (2 kb)	DCL program - simulates a Spinner or UpDown tile not found in DCL. Also frees hackers of the 32768 upper limit for integers.
	tt.zip (1 kb)	Trim multiple lines at once - AutoLISP
	VBseThin.zip (1 kb)	Visual Basic for Solid Edge code. This code uses the Add method to create a thinwall feature. It also uses several of the methods and properties of the ThinWall object to modify the feature once it is constructed. A simple model to run with is a square cube. Before running the sample, make sure Solid Edge is running and this part is open. To run, paste the code into the General section of a form. Then press F5 and click the form.
	MSdist.zip (2 kb)	This MAX Script code emulates the AutoCAD Distance command in MAX. No more tedious tape helpers. 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.
	VBseXtru.zip (1 kb)	Visual Basic for Solid Edge code. demonstrates AddFinite Method. This code creates a profile containing the wireframe geometry for a circle. Then extends the circle to create an extruded protrusion for the model.

	VBAptGon.zip (1 kb)	VBA code that tells if a point is inside a polygon or outside.
	VBAblkDl.zip (1 kb)	VBA AutoCAD code. Allows the user to select (pick from graphics screen) an AutoCAD entity (especially blocks) within a drawing & then Search the dwg database for each instance of that entity (including nested entities - in both paper and model space) Perform an operation (eg. erase all instances - in both tilemodes and nested within other blocks) & then Purge the block definition(s) from the dwg database.
	VBseForm.zip (1 kb)	Visual Basic for Solid Edge code. How to use Solid Edge Formulae through VB (Tested in Solid Edge 10 only).
	VBseNuWn.zip (1 kb)	Visual Basic for Solid Edge code. Creating a new assembly window with different NewWindowOptions (Tested in Solid Edge 10 only).
	Resist.zip (1 kb)	AutoLISP program to calculate the voltage drop across two resistors.
	Spot.zip (1 kb)	AutoLISP program with DCL dialog for Civil Engg. label spot elevations on an AutoCAD drawing.

	VBAd2r.zip (1 kb)	VBA code convert degrees to radians.
	VBAdi2P2.zip (1 kb)	VBA code calculate distance between two points from the fundamentals without using the AutoCAD dist command.
	VBAdis2P.zip (1 kb)	Another method to calculate distance between two points with VBA with error trapping....keep scratching.
	VBAdonut.zip (1 kb)	VBA code to draw a donut - good to put marks everywhere in the drawing for pending work.
	VBAdoor.zip (14 kb)	VBA code with form to draw doors of two types.

	VBAdrg.zip (6 kb)	VBA code with form to drag and drop between two lists.
	ShpLight.zip (1 kb)	AutoCAD Shape file and compiled .shx file to create this Theatrical Light. For an indepth and illustrated tutorial on Creating Shape files in AutoCAD, go to the Tutorials 4U page.
	Cool1.zip (1 kb)	AutoCAD Linetype file to produce the 200 contour line. For an indepth and illustrated tutorial on Creating New linetypes and Hatch patterns in AutoCAD, go to the Tutorials 4U page.

Now some graphics download - most of em are dwg files

A.	Skeleton.zip	Take home this shy skeleton for a click and don't forget to put it on your wallpaper.
B.	Shuttle.zip	Discovery Space Shuttle - perspective view (Worms Eye View).
C.	BigTruck.zip	Download this Big Truck with care.
D.	US50.zip	US map dwg file.
E.	Toilets.zip	8 Toilet blocks - ready to use.

More graphics download on page 2

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

page.

Thats not the END.

More LSPs
More DCLs - More VBA
More VLISP - More DWG
More MAX - More More
More More More
On Next Page...

Click Here for Page 3