Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

AutoCAD & Database Connectivity

Status
Not open for further replies.

Guest_imported

New member
Jan 1, 1970
0
Hello,

Is there anyone who has experiences on this topic? I have a question : I tried to connect MS Access and AutoCAD. When I tried to reload lables, sometimes it worked, but sometimes it didn't. I'm wondering what's the reason. If you have the experience on it, could you give me an answer?

Your help is highly appreciated.

Helen
 
That's a very good question. I would like to know too. When you've an asnwer could you let me know?

Jos van Doorn.
AutoCAD specialist and AutoLISP programmer. Also publisher ACAD Newsletter. To subscribe send a blank e-mail to: acadnewsletter-subscribe@topica.com
 
It is possible to save Autocad files inside ACCCESS(2000) tables with a special wizard ("Autocad!WithACCESS").
 
Yes tons of experience.

I found Access '97 or Visual Basic works Best with AutoCAD 2000 or 14

Access 2000 has some problems with certain functions and does not work well.

here is some Must have code to start with.

' Set up variables for AutoCAD
Dim objAcadApp As AcadApplication
Dim ThisDrawing As AcadDocument
' Find instance of AutoCAD 2000
Set objAcadApp = GetObject(, "AutoCAD.Application.15") ' AutoCAD 2000
Set ThisDrawing = objAcadApp.ActiveDocument

'--------------- Open a drawing --------------------

ThisDrawing.Application.Documents.Open CommonDialog1.FileName
objAcadApp.Visible = True

'--------------- Print a drawing -------------------

ThisDrawing.Plot.PlotToDevice "Acrobat Distiller" ' Open AutoCAD Plot menu and get the exact
' sample Spelling of the Plot device "\\UNIVERSAL\HP LaserJet 4050 N PCL 5e"

'------------------ Close dwg -----------------------
'Close it and Save it
ThisDrawing.Application.ActiveDocument.Close True, DirName & DwgName

'Close it and DON'T Save it
ThisDrawing.Application.ActiveDocument.Close False


Here are some samples screen captures on my WEB site too.


We have the CAD room running so they don't have to key in anything related to Customer name etc. They just scan barcodes on work orders and their own drawings and Access takes care of filling in the title block attributes and so forth. Even the time is tracked in a VB program that reads the Job number and part number from the Drawing.
DougP, MCP

Visit my WEB site to see how Bar-codes can help you be more productive
 
DougP,

Can you access Autocad's find and replace function thru code?


Praxden
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top