Any on who knows how to connect or use a CAD control to in vb6? please help me. i would like to plot and save points in vb6 without opening autocad.

Try with following code




Private Sub Command4_Click()
Dim acadApp As Object

Set acadApp = CreateObject("AutoCAD.Application")
acadApp.Application.Visible = True

'' 2) Open desired file
Dim acadDoc As Object
Set acadDoc = acadApp.Documents.Open(App.Path & "\DRAWING.dwg")

''3) Do whatever you need to do with the drawing


acadApp.Application.Visible = True


LA.Caption = 625

SendKeys "% X~", True
SendKeys "{ESC}"
SendKeys "Z A~", True
SendKeys "{ESC}"
Dim SENDTEXT As String
SENDTEXT = _
"TEXT" & vbCrLf & "115.690,221.420" & vbCrLf & "0" & vbCrLf & Trim(LA) & vbCrLf &_


Clipboard.Clear

With acadDoc
Clipboard.SetText SENDTEXT End With

'4) Close the drawing
' acadDoc.Close True 'if you want the file to be saved or
' acadDoc.Close False 'close the file without saving

'5) Close AutoCAD
' acadApp.Quit

'6) Clean up
' Set acadApp = Nothing
' Set acadDoc = Nothing
End Sub





Sanjay Patil