Discussion :

[hocine]

salut,
je souhaite réaliser une application avec access2003, j'ai pu ouvrir autocad depuis access, maintenant je souhaite ouvrir une image satellite dans autocad, j'ai réussi dans vba autocad, mais j'ai perdu mon projet dû à un formatage de mon pc, maintenant dans vba autocad j'ai thisdrawing mais dans vba access, par quoi la remplacer.
je souhaite votre aide.
MERCI

[hocine]

bonjour,
j'ai fini par faire le premier pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Commande2_Click()
 Dim AcadApp As AutoCAD.AcadApplication
  Dim BlocRef As AcadBlockReference
  Dim Row, i, Column As Integer
  Dim rs As Database
  Dim rst As DAO.Recordset
 Dim chemin As String
Dim AC As AutoCAD.AcadApplication
 
 
  ' Connexion avec AutoCAD (on le lance si il n'est pas en cours d'exécution)
  On Error Resume Next
  Set AcadApp = GetObject(, "AutoCAD.Application")
  On Error GoTo 0
  If AcadApp Is Nothing Then
    Set AcadApp = New AutoCAD.AcadApplication
  End If
  AcadApp.Visible = True
Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotAngleInDegree As Double, rotAngle As Double
 
Dim raster As AcadRasterImage
insertionPoint(0) = 4#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
    scalefactor = 1#
    rotAngleInDegree = 0#
    rotAngle = rotAngleInDegree * 3.141592 / 180#
 
Set raster = AcadApp.ActiveDocument.ModelSpace.AddRaster("D:\visiomap\region\plans\00001330.jpg", insertionPoint, scalefactor, rotAngle)
AcadApp.ZoomExtents

ce code me permet d'ouvrir autocad et de lancer l'image raster et faire un zoom étendue.
il me reste maintenant sur autocad d'envoyer les point et traits sélectionnés sur l'image pour les stocker sur ma table access.
MERCI.