Linking excel cells with autcad parameters

[Anonymous]

Hello!

Is there someone who can tell me, a rule (macro) to link cells from excel with parameters in auto cad. For a exceple, i have a radius, and a parameter in excel, and i whant drive that radius in auto cad with my excel

Thank you

Aleksandar Jovicic

[Anonymous]

Hi,

You should explain more what you need.

It's possible to link to Acad with Excel and do more than assigning a radius but you shoul tell us what to do with that raduis after getting it's value from Excel.

[Anonymous]

Hi and thank you for the reply.

I want ti drawn a crircle (or a recatngle), define the parameter in auto cad, and make a linke between the parameters from autoCAD and excel cell (for exemple, R=10 mm).

And after changing the parameter from excel, i want to change the dimensions (parameters) in atuo CAD

Thanks

Aleksandar Jovicic

[Anonymous]

Hi,

Why don't you draw cercles with Excel by specifying X,Y and radius I think other parameters....

Take a look here:

http://www.myengineeringworld.net/2014/03/drawing-circles-autocad-excel-vba.html

[Anonymous]

Hi,

This exemople that you just send me doesend work in my excel and auto cad.

and I would like to leran hoe to link excel and autoCAD, in a simple exemple, with circle or rectangle.

[Anonymous]

Hi,

what version of Autocad do you have?

[Anonymous]

Hi

I use AutoCAD 2015 and excel 2013

[Anonymous]

Well!!

Try this code. It work fine with Excel VBA but don't forget to load autocad library in references tools...

Public Sub Circl()

Dim BaCercle As AcadCircle
Dim PtCentre(0 To 2) As Double
Dim dblRayon As Double
Dim CalquenCours As AcadLayer
Dim intCouleur As Integer

PtCentre(0) = 200
PtCentre(1) = 100
PtCentre(2) = 0
dblRayon = 50

Set BaCercle = AutoCAD.Application.ActiveDocument.ModelSpace.AddCircle(PtCentre, dblRayon)
Set CalquenCours = AutoCAD.Application.ActiveDocument.ActiveLayer
Select Case CalquenCours.name
Case "0"
intCouleur = 5
Case "MURS"
intCouleur = 3
Case "CLOISONS", "PORTES"
intCouleur = 2
Case Else
intCouleur = 1
End Select
BaCercle.Color = intCouleur
BaCercle.Update

End Sub

It allows to choose the layer and to set a color if layer XXX is active...Vey easy to understand.

@+

[Anonymous]

Hello and much thanks for the VBA!

I can define any cell in my excel tabell?

For exeple A1 (name), B1 (diameter), C1 (unit)?

Or wich cell muss I take?

[Anonymous]

No need to define cell!

Create a new module

Excute