Thursday, June 27, 2013

Printing DataGridView's on a sheet in VB

This one is for you VB programmers out there that need a little help with the DataGridView printing.  Lately I have been writing a lot of selection and list programs, and one that I have written was for engineers to list out valves, control valves, and equipment for projects to be able to send them out for quoting and design purposes.  One issue that I ran into was being able to get the DataGridView to print each line that is entered into the grid.  But, I was able to find a bit of code and with a few modifications of my own...I was able to get it to print all lines entered into the grid, and also allow the programmer to change location of the grid on the printdocument file.
So, below is the code for the datagridview:

Dim mRow As Integer = 0
Dim newpage As Boolean = True
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim tmpSize As New SizeF()
Dim tmpFont As Font
For i As Integer = 0 To DataGridView1.Columns.Count()
tmpFont = DataGridView1.ColumnHeadersDefaultCellStyle.Font
If tmpFont Is Nothing Then
tmpFont = DataGridView1.DefaultCellStyle.Font
End If
For j As Integer = 0 To DataGridView1.Rows.Count - 1
tmpFont = DataGridView1.Rows(j).DefaultCellStyle.Font
If tmpFont Is Nothing Then
tmpFont = DataGridView1.DefaultCellStyle.Font
End If
Dim cellsPerRow As New List(Of Integer)
Dim rowHeight As Integer = DataGridView1.ColumnHeadersHeight + DataGridView1.Rows(0).Height
Dim cellWidths(DataGridView1.Columns.Count - 1) As Integer
Dim rowWidths As New List(Of Integer)
Dim cellCounter As Integer = 0
With DataGridView1
Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit)
fmt.LineAlignment =
StringAlignment.Center fmt.Trimming =
StringTrimming.EllipsisCharacter Dim y As Single = e.MarginBounds.Top + 120
Do While mRow < .RowCount
Dim row As DataGridViewRow = .Rows(mRow)
Dim x As Single = e.MarginBounds.Left
Dim h As Single = 0
For Each cell As DataGridViewCell In row.Cells
Dim rc As RectangleF = New RectangleF(x, y, cell.Size.Width, cell.Size.Height)
e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)
If (newpage) Then
e.Graphics.DrawString(DataGridView1.Columns(cell.ColumnIndex).HeaderText, .Font,
Brushes.Black, rc, fmt)
e.Graphics.DrawString(DataGridView1.Rows(cell.RowIndex - 1).Cells(cell.ColumnIndex).FormattedValue.ToString(), .Font, Brushes.Black, rc, fmt)
End If
x += rc.Width
h =
Math.Max(h, rc.Height) Next
newpage =
False y += h
mRow += 1
If y + h > e.MarginBounds.Bottom Then
e.HasMorePages =
True mRow -= 1
newpage =
True Exit Sub
End If
mRow = 0
End With
End Sub

So, the bit of code that is highlighted in yellow is where you can control the vertical location of the grid on the printdocument.  Also if you want to change the location of the grid horizontally then; three lines below "dim y" there is the code line for the "dim x as single" you can change the value of that to change the horizontal location of the grid.

Happy Coding!

Binding XREF's in CADWorx...

Lately I ran across an issue with trying to bind xref's within CADWorx 2013, and I would always get an error dealing with proxy objects.  Come to find out it was the parts that I had created in CADWorx Equipment that was causing the errors when trying to bind the xref's.
So, in order to fix this you must make CADWorx equipment run in the same session as CADworx plant in order for it to recognize the equipment files.

To get CADWorx Equipment to run in CADWorx Plant here are the steps that need to be done:

1. In Plant TOOLS>OPTIONS (or for those of you that use the keyboard for commands "OP")

2. On the Files tab; expand "Support File Search Path" item.

3. Click Add, and browse to the CADWorx Equipment support directory.  Shown below:

 4. Close CADWorx Plant Session.

5. Start Windows Explorer and browse to CADWorx Plant support directory.  Shown below:
 6. Locate the file Acad.arx, and open it using a text editor

7. Below CADWorxPlant2013.arx type in CADWorxEquipment2013.arx

Note: If CADWorxEquipment2013.arx is above the CADWorxPlant2013.arx, then the tool tips for Plant will not function properly.

8. Save and close the text editor

9. Reopen CADWorx Plant .  Equipment should start simultaneously with plant; if not then in the command line type LOADMENUEQUIP.

Tuesday, June 25, 2013

Inventor Ilogic and Estimation form creation

Creating an Estimation form with Inventor iLogic and Excel...

To be able to create an estimation form and link it to information within your Inventor model is a huge time saver in my line of work.  One thing that I have been working on is developing a form that will help our Project Managers estimate the cost of a project (at least structural steel wise) a little bit better, and quicker so that they can get initial bids out to customers quicker.

Below is a pic of the form that I have been creating:
and basically all the information but the added totals of everything is exported from an Inventor model.  Below is another pic showing the iLogic forms that are built to supply this information that also control the construction of my model.

Here is an example of how some of this is done...
SyntaxEditor Code Snippet' SyntaxEditor Code SnippetSyntaxEditor Code Snippet

'drafting hours and cost
GoExcel.CellValue("export.xls", "Sheet1", "A37")= drafting_hours
GoExcel.CellValue("export.xls", "Sheet1", "C37")= drafting_rate
'engineering cost and hours
GoExcel.CellValue("export.xls", "Sheet1", "A41")= engineering_hours
GoExcel.CellValue("export.xls", "Sheet1", "C41")= engineering_rate

'grating description and cost
GoExcel.CellValue("export.xls", "Sheet1", "A49")= grating_descrip
GoExcel.CellValue("export.xls", "Sheet1", "E49")= d126+1    'qty of 3ft wide panels
GoExcel.CellValue("export.xls", "Sheet1", "F49")= grating_cost


I have found that when you are attempting to export Bill of Material data out with a template that the template must be in a 97-2003 file format for it to work.

Monday, June 17, 2013

Somewhat automated lettering...(diesel macro)

I built this macro this morning upon a challenge issued to me a while ago.  Figured that I could post it on here just in case there is someone else out there that would ever need to use something like this.

To those who would like some way to automate lettering in AutoCAD is a Diesel Macro for LT that will allow you to atleast automate up to "AF":

*^C^C_text;\;$m=$(if, $(<=,$(getvar,userr1),7),$(nth,$(getvar,userr1), A, B, C, D, E, F, G, H),$(if,$(>=,$(getvar,userr1),8),$(nth,$(getvar,userr3), I, J, K, L, M, N, O, P)),)$(if,$(>=,$(getvar,userr1),15),$(nth,$(getvar,userr4), Q, R, S, T, U, V, W, X),)$(if,$(>=,$(getvar,userr1),23),$(nth,$(getvar,userr5), Y, Z, AA, AB, AC, AD, AE, AF),);setvar;userr1;$M=$(+,$(getvar,USERR1),$(getvar,USERR2));setvar;userr3;

This macro requires more input on the users part than the number automation, but it works for a small amount of lettering.

Before you run the command for the first time you need to make sure that your userr1 is set to a value of 0, and that your userr2 is set to a value of 1 (which is for the incrementing).

When you run the command and you place the first letter; you will notice that it prompts you for the userr3, userr4, and userr5 values...just enter through these for now because you won't mess with them until a little further on.

Now, one thing that you need to keep in mind is the letters that are associated with which userr variable:

userr1 - starts at A and ends with H
userr3 - starts at I and ends with P
userr4 - starts at Q and ends with X
userr5 - starts at Y and ends with AF
knowing this will help with understanding when to change variable values as you keep going up the alphabet.  So, for example, once you place an "H"; when the prompt for userr3 appears change it to a value of 0.  Once this is done you don't have to edit it anymore; you can just keep hitting enter through the variables until the end of that letter set on the userr variable.
On another note:
If you are a AutoCAD non-Lt user then the text command is a little different for you.
Instead of:
You will have this:
And then if you want to add justification to it (for example...middle center justification)
If anyone uses this macro and has issues please comment and let us know what changes you had to make to the macro.

Thank you for reading this post!

Friday, June 14, 2013

Diesel Macro Auto Increment Numbers...

I received a question not too long ago from some one wanting to know how to automate sequential numbering in AutoCAD LT. So, i thought that this would be a good topic to put out there because I am sure that others have wanted to know if this was possible as well. the topic.

First, the Macro:


One thing that you have to remember is

USERR1 value is going to be your initial value (i.e...99 to start with 100)
Then your USERR2 value is the increment in which you are wanting to increase with each placement of text.
To set these values type userr1 into your command line and hit enter and then enter in the initial value
see pics below:

Once value is set for USERR1, press enter, and then repeat for USERR2.

Now that your starting and incremental value have been set you can run the command and start picking away.

The above macro justified the text to bottom left; the below macro is modified to justify to middle center.



Wednesday, June 12, 2013

Using Excel to Insert names automatically

A while ago I had a question posed to me about linking an excel document to Autocad and then having a diesel macro that establishes a user variable and then returns that value to the excel document which in turn returns another variable to Autocad for labeling functionality.  For instance if you were assigning names to office spaces and you had them all in an excel document.  You could create a vlookup function in a cell, and have the cell that autocad will return a value to as the one that the vlookup is looking at to return your name. 

The diesel macro establishes a user variable is the indexing number and another one as the incrementing number.  Each time you use the command it will update one table which in turn updates the excel document and returns you the name that is associated with that number.

Is there anyone that has needed this function or any one who would like to have this function?  If so, keep reading this post.

Alrighty…the instructions to automating (fingers crossed) the names being inserted by table and then exploded.
First up…creating a new table style:

In the command line type: tables  

Then hit enter.

The following dialog box should come up.

Once you click the “New…” button enter whatever name you want to name it.
In the next dialog box follow as shown in pic below

In the borders tab change the border to be “No Border”
Then hit okay.
Once done you will go back to the main dialog for the table styles.
Make sure that the current style set is the one that you just created.

Now comes is the fun part…
First…lets create a table that is (1) column x (1) row. And then insert that into your drawing.
Now pick on that table and highlight cell “A1”…
Then on the ribbon panel you will see a button that says field…click that button. 

Then in the field dialog change your “Field category:” to show “Other”.
In the “Field names:” column pick “DieselExpression”.
And then in the box to the right enter the diesel expression that is shown.
See pic below on next page for clarification…
Once the expression is entered then click the okay button to get out of the dialog box.  And then escape out of your table.  If done right then the value in the cell should look like what is in the above picture…gray with white text.

Next is some of the tricky stuff.
Pick the table that you just created
And click on the link cell button as shown in picture below.

Then follow the steps that are shown below in pictures.

Here is where you will select the excel file with the names that you are going to be generating in your cad file.

Be sure to select the “link to range” button and then put a random cell in there that you can remember for later when you have to get into your excel doc and create a vlookup value.

p.s. you have to do at least a 2 cell range or it won’t take it.  Also, make the sheet a different one from where the names are as well.

Now…we need to get into the excel file, and I am kind of hoping that you have the names numbered 1-300 or something because it will make it a lot easier, but if you have a different case of associating a number to names then leave a comment about what you are needing and I will see what I can do to help remedy the issue.
In the excel doc…on the sheet with the names; off to the right of those columns pick an empty cell and create a vlookup…the “Sheet?!A!” is referring to whatever sheet and cell you linked the table to that you have already created.


Make sure you save the excel doc and then close it…
We are going to go through the creating the datalink to the same excel doc but this time the linked range is going to be the one that is going to show the name in it.
When creating this datalink…I would recommend naming it “names2” just because that name is already built into the macro.
Now once you have that done you are basically ready to create the button with the macro…
Below is the macro for the button…


It is amazing how short it is, and yet there is so much work prior to being able to use it.
When you run the macro the first thing it will do is prompt you to pick a table…and you will pick the initial table that you built that has the updating variable number.  Once you pick it then the next thing you do is place the name.
Once you place it you will notice that it has borders…and that is because it is inserted as a block and then explode in the macro.  The border lines won’t print out on your drawing.
Again, we are using userr1, and userr2; so userr2 always stays as a value of 1.
Okay…I think that is it…at least I hope that is it.
Let me know if there is anything else that you need clarified and I will do my best to help clarify things.

Tuesday, June 11, 2013

Text Style Change with Macro

I know that one thing some people have problems with is when you xref or insert a title block into a drawing file; the text style changes back to the original font type.  This was happening with the title block that our company is standardizing.  So, I came up with a quick fix for our design group to take the standard text style and change the font type to the proper font so that the text would look the way it was meant to.

Here is the macro:
-STYLE;STANDARD;Arial Unicode MS;.125;;;;;

So, first in this code is obviously the command; which in this case is our text style command.  Then you will list the text style that you are wanting to change; next will be the font style that you are wanting to change it to, and then finally the height of the text.  Last there are a bunch of semi-colons attached to the end of the code to enter through other questions that comes with changing the text style, but none of them applied in this case.

Below is an example of this being used in one of my titleblock macros for inserting a title block and creating new layers for discipline specific drawings:

^C^C-STYLE;STANDARD;Arial Unicode MS;.125;;;;;ATTDIA;0;layout;set;layout1;
^C^C-insert;D-SIZE_BOTTOM(22X34)(REV_D);0,0;XYZ;1;1;1;0;;;;;;^C^C-INSERT;*REV-TEXT.DWG;0,0;1;0;^c^cpsetupin;"D_SIZE-PID.DWG" "*";



Automatic Trimming around P&ID blocks...

One thing that always comes up when creating P&ID's is; "how can you make it simplier to insert blocks and not have to take the time to do all the trimming of the lines once the block is in?"
I was actually able to create a couple of ways that allowed AutoCAD LT users and full version AutoCAD users to be able to do this.  I have posted the LT version with the diesel macro, but today I am going to go over the lisp routine route.

Below you will see today's code that we are going to go over:

*^c^cattdia;0;^c^c_.insert;CHECK;\;1;\;;^C(setq edata (entget (setq en (entlast))));^c^cbreak;\f;(setq edata (entget (entnext (cdr (assoc -1 edata)))))(setq ip1 (cdr (assoc 10 edata)));(setq edata (entget (entnext (cdr (assoc -1 edata)))))(setq ip1 (cdr (assoc 10 edata)));^c^cattdia;1;^c

Okay...let's dive into this.
It isn't as overwhelming as it is actually quite simple.

So, first we are calling the attdia command and setting it to 0.  We are doing this so that the 2 attributes that are attached to the block won't show up with a dialog prompt box.

Next we start the insert command and in this example we are inserting a check valve.

CHECK;\;1;\;; - the forward slash is to prompt for user input and this is for the insertion point.
CHECK;\;1;\;; - here we are telling it what scale the block is going to be inserted at.
CHECK;\;1;\;; - This is to set the rotation of the block...another user input prompt.
CHECK;\;1;\;; - and these last two semicolons are to enter through the 2 attributes that are attached to
                           the block.

Next, we will be going into the routine that recalls the block and calls for the point locations.
^C(setq edata (entget (setq en (entlast)))) - here we are telling AutoCAD to look up the last block that was inserted.
Now we call on the break command with the fence option.

Now comes the fun part of calling for the attribute points.
(setq edata (entget (entnext (cdr (assoc -1 edata)))))(setq ip1 (cdr (assoc 10 edata)));(setq edata (entget (entnext (cdr (assoc -1 edata)))))(setq ip1 (cdr (assoc 10 edata)));^c^cattdia;1;

For both points the code is the same, so once you type it once you will be able to copy and paste for the second point, and you can see that by the semicolon that has been made bold and underlined to help you see it.

But here is the code:
(setq edata (entget (entnext (cdr (assoc -1 edata)))))(setq ip1 (cdr (assoc 10 edata)))

the first (setq) grouping is calling for the bp1 attribute in the check valve block, and then the second (setq) grouping is what returns the coordinate values of the attribute, and then establishes the first point.

Now all you got to do is add a semicolon and then copy and paste the code for the second point and then end it with a semicolon and you are done.

Happy Trimming...

Diesel Macros in AutoCAD & AutoCAD LT

Topic of the day: Diesel Macros in AutoCAD and AutoCAD LT

I am going to begin with an example of a diesel macro that is written to insert a block and trim the line...the only difference with this one is that the 0,0 location of the block is offset from the actual center of the block.  The reason for this is that when you begin the break command; if you have the insertion point of the block on an actual line entity in that block then it will default that point as its first fence break point.
So, below is an example of a diesel macro that has the insertion point offset from center of the block and how calculate the break points to trim the line.

 Alright, let's go in and break this down some...

The First snippet of code that starts us off is to turn off the attribute dialog box; so, instead of a dialog box this will end up prompting you for the attribute values in the command line which we will just assign a return value to it later on.

Here we have our insert command with the title of the block called out.  the "\" calls for user input for the insertion point.  "1" is to input the xy scale value of the block, and then the last "\" is to call for user input on the rotation of the block.

In AutoCAD there are 5 "USERR" variables that you can set and it stores that variable so that you can recall it later when you need to.  We are just using "USERR3" for this example.  So, we call for "USERR3" and then we have "\" to call  for user input; and this input is where you will put the rotation angle for you block.  So, if you inserted it at a 45° angle then you will enter "45".
Also later on you will see that we call out for "USERR1"...the default for this stored variable is "0"

Here is where we start incorporating Diesel expressions into our macro...
We start with our standard break command, and then we start our Diesel expression.  Anytime you want Autocad to evaluate a string as a diesel expression it must begin with "$M="...this is what tells Autocad that you are beginning a diesel string.  So, in this example we are telling Autocad to find the insertion point of the block since that was the last point that was used.  Once done with that then you want to move into the fence command by using "F".

Okay, here is where you need to know the distance from the insertion point of your block to the far left edge of your block.
First we start the point evaluation with "@"; this is the old style of point definition with polar coordinates.
Then we tell it that we are going to start another Diesel expression.  So, within that first grouping of parenthesis we find "$(+,-.0625,$(Getvar,userr1)); here we are saying...starting at the insertion point I want to move -.0625, but you have to have to do this with a formula.  And when doing a formula with diesel this is how it is to be set up:
Then we also have "$(*,1" here we are just telling it to multiply that previous formula by 1.
and then we pass it the system variable that we set up for the rotation of the block at insertion.

The second point is basically set up the same way as the previous evaluation string; the only difference is I have within the first formula I am moving it half the distance of the block with "$(+,.125,$(getvar,USERR1))" and then I am telling it to multiply that formula by a value of 2.

Diesel programming is very useful when you have an office that have half the people on full Autocad and then the other half on Autocad LT.