Discussion :

[john-cad]

Bonjour à tous,
j'ai voudrais savoir s'il existe de piloter autocad depuis calc en basic libre office
je m'explique, j'ai un fichier calc avec 4 colonnes du type Numéro X Y Z, fichier qui est ouvert en même temps que mon dessin autocad
chaque ligne correspond à un point connu en coordonnées
et je voudrais que depuis calc, un bouton qui lance une macro en basic pour insèrer dans autocad un texte aux coordonnées du point en question
je connais la commande sous Autocad pour insérer du texte mais je sais pas comment lier les deux et demander à calc de piloter autocad
Merci par avance de vos réponses
John

[john-cad]

J'ai fait une petite ébauche de programme de vb, macro dans calc de libre office mais je dois mal utiliser certaines fonctions ou méthodes
le principe étant de récupérer la position de la cellule active dans la feuille active et visible dans le fichier ouvert
récupérer le numéro de ligne de cette cellule active
récupérer la valeur dans les colonnes A, B, C et D de cette ligne et c'est la que je bug
j'ai programmer un peu en VBA dans le temps sous Excel mais là en VB je n'y suis plus du tout

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
31
32
Option Explicit
 
Sub Zoom
 
Dim acad as Application
 
Dim fichier as Object
Dim feuil as Object
Dim cell as Object
Dim row as Integer
 
Dim num as String
Dim ptx as Single
Dim pty as Single
Dim ptz as Single
 
acad = Application.Autodesk
 
fichier = ThisComponent
feuil = ThisComponent.CurrentController.ActiveSheet
cell = ThisComponent.CurrentSelection
row = feuil.getCellAdress
 
 
num = feuil.getCellRangeByName("A;"row)
ptx = feuil.getCellRangeByName("B;"row)
pty = feuil.getCellRangeByName("C;"row)
ptz = feuil.getCellRangeByName("D;"row)
 
(command "_texte" (ptx, pty, ptz) num) 
 
End Sub

Merci par avance de votre aide

[zoom61]

Avec quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    fichier = ThisComponent
    feuil = ThisComponent.Sheets.getByName(ThisComponent.CurrentController.ActiveSheet.Name)
    cell = ThisComponent.CurrentSelection
    row = cell.CellAddress.Row
 
    cell = feuil.getCellByPosition(0,row)
    num = cell.Value
    cell = feuil.getCellByPosition(1,row)
    ptx = cell.Value
    cell = feuil.getCellByPosition(2,row)
    pty =cell.Value
    cell = feuil.getCellByPosition(3,row)
    ptz = cell.Value

[Papy Octet]

Bonjour john-cad,

...

Code :

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

1
2
3
4
5
6
...
num = feuil.getCellRangeByName("A;"row)
ptx = feuil.getCellRangeByName("B;"row)
pty = feuil.getCellRangeByName("C;"row)
ptz = feuil.getCellRangeByName("D;"row)
...

Merci par avance de votre aide

La fonction getCellRangeByName demande du texte en paramètre. Ici tu donnes "autre chose". Tu devrais concaténer "A;" et row puis convertir le tout en texte.

A+

[john-cad]

Bonjour zoom61
Ça marche très bien en effet pour récupérer les valeurs contenus dans plusieurs cellules selon une ligne identifié par la cellule active
merci
sujet résolu