Topic: Pasteing excel spreadsheets into autocad

[ELOQUINTET]

murphy it's working swwwwweet

i'll have to play around with it a bit. a couple questions:

my cells are not merged how do i get them to merge
can you draw multiple sheets from excel as seperate schedules
can you have double lines underneath borders like excel

those are the first questions that come to mind i'm sure i'll have more after i play with it this weekend

does anyone have example settings they have customized i can look at as an example.

thanks that's pretty cool

[Murphy]

murphy it's working swwwwweet

Thank you. Glad you like it

i'll have to play around with it a bit. a couple questions:

my cells are not merged how do i get them to merge

You select the cells you want to merge, right click and select Format Cells.
On the Alignment tab at the bottom you will see a check box labeled Merge. Check it.

can you draw multiple sheets from excel as seperate schedules

Yes you can.

can you have double lines underneath borders like excel

It will not actually draw two lines. It will change line thickness per what it is set in Excel. That is an idea I will add to the wish list.

does anyone have example settings they have customized i can look at as an example.

The settings that are in there are my working settings. They are for drawing schedules at full scale so that they can either be drawn in Paper space or in Model space and use a 1:1 viewport scale.

[ELOQUINTET]

murphy i know how to merge cells in excel. i am talking about when i draw it in cad they are no longer merged. how do i specify that i want it to draw each tab from excel as a seperate schedule. we do our schedules by floor. a thick line i understand how to do but a double line we use to seperate our schedule and totals, it's just our standard way. nice program regardless.

[Murphy]

The problem with merged cells is if you apply a border to the individual cells before you merged them those borders will show up in cad. Try unmerging, change borders to desired results then merge again.

The macro will not draw the double lines. It will make one really thick line. You can draw a second line if you wish and it should be good for any updates. Unless, of course, the schedule gets longer.

If I have time over the long weekend I will look into correcting these problems.

[ELOQUINTET]

murphy i appreciate it but our schedules are far too complicated for this application i believe. you can try if you are really up for a challenge. the problem also is our schedules are not always the same and redesigning the templatre everytime is just not efficient. for simple schedules it works good but for more complex ones it's more work than paste from excel. i'll still try to fool arounf with it over the weekend and will come back with suggestions. thanks

[Jim Yadon]

*PSSST* SPANNER http://www.wfcadtools.com/span40.htm

[Murphy]

The nice thing about it is that you can save as many versions as you want.
Or, better yet, you can save a copy of the settings sheet into your workbooks for different settings. However you want to do it. Set them up once and never have to mess with them again.

[Murphy]

Spanner is free?
Spanner gives you quick support for suggestions?

Eloquintet,

Please go to the link in my signature to download the newest version.

Updates are:
Will only draw the outside borders for merged cells.
Will now draw double lines for double line border in Excel.

[ELOQUINTET]

murphy not sure how this will appear with the new setup but when i click draw in cad i get a message compile error variable not defined goes to this section of the code???


Public Sub GetStarted()
Dim strPrmt As String
Dim strTitle As String
Dim dgAns As VbMsgBoxResult
On Error GoTo Err_Handler
'Set Values for User Input of Range
strTitle = "Create Acad Spreadsheet"
strPrmt = "Select cells to link ('Ok' for All)"
If DefRange = "" Then
    '030805 bill defrange not set yet
    DefRange = ActiveSheet.UsedRange.Address
End If
Set objRange = Application.InputBox(Prompt:=strPrmt, _
Title:=strTitle, Default:=DefRange, Type:=8)
If objRange Is Nothing Then
    GoTo Exit_Here
End If
'If User accepts default or selects a new range
'Then objRange is assigned. If Cancel is clicked
'Code execution exits
If Connect Then
Call EraseOldRef
If objAcad.Visible = False Then

[Murphy]

I take it you donwloaded the update?

If so, you need to go through the instructions and change it to work with 2006.
Sorry, but I do not have cad at home (which is where the update was done) and I only have 2002 at work.