Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3055 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Autocad Déplacement en spécifiant une coordonnée

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA Autocad Déplacement en spécifiant une coordonnée

n°1972252
JeffC1977
Posté le 09-03-2010 à 13:43:07  profilanswer
 

Bonjour
 
Est-il possible de déplacé du texte et de lui imposé une coordonnée.
 
En d'autres mots, j'ai du texte qui est à la coordonnée 0,0 et je veux la placer à la coordonne 10,10
 
Je suis capable de déplacer le texte mais si je lui mets une coordonnées, il se positionne vraiment pas là où il devrait être.
 
Je vous mets le bout de code que j'utilise mais c'est le code qui fonctionne pas avec les coordonnées.
 
merci de votre aide
 

Code :
  1. If returnString = "Non" Then
  2.         textObj.Delete
  3.         ActiveDocument.Regen acActiveViewport
  4.         Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
  5.         textObj.Alignment = acAlignmentTopCenter
  6.         textObj.TextAlignmentPoint = alignmentPoint
  7.         textObj.Rotation = Angle - Pi
  8.         textObj.Update
  9.         Dim Point1(0 To 2) As Double
  10.         Dim Point2(0 To 2) As Double
  11.         Point1(0) = 0: Point1(1) = 0: Point1(2) = 0
  12.         Point2(0) = 0.6: Point2(1) = -0.6: Point2(2) = 0
  13.         textObj.Move Point1, Point2
  14.         textObj.Update

mood
Publicité
Posté le 09-03-2010 à 13:43:07  profilanswer
 

n°1972372
JeffC1977
Posté le 09-03-2010 à 17:30:15  profilanswer
 

Erreur de ma part ou oublie... enfin... mettre le fichier en UCS World
 
 ActiveDocument.SendCommand "_ucs" & vbCr & "W" & vbCr


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Autocad Déplacement en spécifiant une coordonnée

 

Sujets relatifs
Simulation de Alt tab sous VBA (Excel)VBA Tourner sur lui même du texte dans autocad
[VBA] Excel: propriété ForeColor d'un UserFormVBA et emails
Cellules Excel / VBAappeler une feuille externe avec VBA
[VBA] Récupérer le nombre de pages d'une feuilleExcel calcul sur date en VBA
Word: VBA pour trouver et changer une couleur RGB en une autre 
Plus de sujets relatifs à : VBA Autocad Déplacement en spécifiant une coordonnée


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR