Discussion :

[a23peter43]

Bonjour à tous !
Etant assez novice en programmation, j'ai quelques difficultés concernant une macro qui me permettrait de réaliser la fonction "insérer bloc" dans la feuille active d'autocad.
Je sais que le code doit surement ressembler à quelque chose dans ce style

Code :

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

AcadApp.ActiveDocument.SendCommand "(insert ""Nom du répertoire"")"

Mais il faudrait qu'en plus de l'insérer, on ai le choix du point d'insertion et de l'orientation du bloc.
J'ai essayé avec filedia 0 pour avoir les lignes de commandes mais je n'arrive pas à extraire le code et je ne trouve pas grand chose à ce sujet sur internet.
Si vous pouvez m'éclairez

Pierre

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub blocktest()
 Dim oBlkRef As AcadBlockReference
 Dim position(2) As Double
 Dim sName As String
position(0)= 1500
position(1)=200
 
 sName = "c:\testblock.dwg"
 Set oBlkRef = AcadApp.ThisDrawing.ModelSpace.InsertBlock(position, sName, 1#, 1#, 1#, 0#)
 End Sub

[a23peter43]

Bonjour,
Merci pour la réponse !
J'ai rentré les lignes de code dans un module mais j'obtiens une erreur que j'avais à chaque fois lors des différents test que j'ai fait, c'est à dire "Erreur de compilation, type non défini par l'utilisateur" dès la ligne 2
D'où viens cette erreur ?

Pierre

[Invité]

Bonjour,
Si tu n'as pas cocher la case AutoCAD dans les références! C'est normal.
Utilise la méthode creatobject("autocad.application")

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
Sub blocktest()
Dim AcadApp as object
 Dim oBlkRef As object
 Dim position(2) As Double
 Dim sName As String
position(0)= 1500
position(1)=200
 
 sName = "c:\testblock.dwg"
AcadApp = creatobject("autocad.application")
AcadApp.visible=true
Dim doc
Set doc=AcadApp.documents.add
 Set oBlkRef = doc.ModelSpace.InsertBlock(position, sName, 1#, 1#, 1#, 0#)
 End Sub

[a23peter43]

Bonjour,
J'ai modifier le code pour qu'il corresponde à mon problème mais malheureusement cela ne marche toujours pas..J'ai bien activer toutes les références Autocad

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
Sub Autocadt()
Dim AcadApp as object
 Dim oBlkRef As object
 Dim position(2) As Double
 Dim sName As String
position(0)= 1500
position(1)=200
 
 sName = "c:\testblock.dwg"
AcadApp = CreateObject("autocad.application")
AcadApp.visible=true
Dim doc
Set doc=AcadApp.documents.add
 Set oBlkRef = doc.ModelSpace.InsertBlock(position, sName, 1#, 1#, 1#, 0#)
 End Sub

J'ai l'erreur 91: Variable objet ou variable de bloc WITH non définie
A quoi sert la fonction Createobject ? Enfin que fait-elle exactement ? C'est cette ligne qui à l'air de ne pas fonctionner lorsque j’exécute le programme..
Cordialement

[Invité]

bonjour,
avec ce code tu n'as pas à activer les différences!
dessolé! set AcadApp = CreateObject("AutoCAD.Application").
CreateObject créer une nouvelle instance d'autocad!

CreateObject("AutoCAD.Application") permet d'utiliser AutoCad sans tenir compte de la version et donc sans activer les références!