presse papier depuis variable

[Tramber]

Ici, je cherchais un moyen d'injecter une variable dans le presse papier.

 

Mais aujourd'hui j'en ai besoin et mes recherches sont infructueuses.

 

Comment programmer la mise en presse papier d'une variable ?

 

Dois-je chercher avec "copypress" dans la doc ou sur Internet ?

[mlon]

je ne sais pas si ca va t'aider mais copierpress copie des entités autocad

peut etre que copierhist est plus proche de ce que tu désires puisque cette commande sort tout ca au format "texte"

[mlon]

reste plus qu'a comprendre comment copierhist fonctionne; je cois pas en lisp...;

ya peut etre aussi moyen d'utiliser la commande systeme windoze (si tu n'es pas sur mac etc..)

"copy" comme par exemple on peut utiliser "del" en ligne de commande...mais la ca dépasse completement mon entendement....(Définition de commandes externes dans l'aide autocad 2004)

je ne suis qu'a la 5eme page de "apprendre a programme pour les nuls" ;)

[Tramber]

Après qqes recherches, j'ai eu un éclair et le mot-clef enanglais est clipboard.

 

Il y a une fonction dans DOSLib

 

et puis j'ai trouvé ça :

 

;Make sure (vl-load-com) is loaded 
(setq clipOBJ (vlax-create-object "Lutzow.ClipBoard")) 
;Send text to the clipboard 
(vlax-invoke-method clipOBJ 'SetClipBoardText "Text") 
;Get text from the clipboard 
(setq textSTR (vlax-invoke-method clipOBJ 'GetClipBoardText)) 
;Clear the clipboard of any text 
(vlax-invoke-method clipOBJ 'ClearClipBoard) 
;If sucessful the value returned will be :vlax-true 
;If the clear failed then the returned value will be :vlax-false

[Patrick_35]

Salut Tramber

C'est pour faire quoi exactement, il n'est peut-être pas nécessaire de passer par le presse papier

 

@+

[Patrick_35]

Et en attendant j'ai trouvé ça aussi en vba

 

L’exemple suivant illustre les mouvements de données d’un contrôle TextBox vers le Presse-papiers, du Presse-papiers vers un objet DataObject et d’un objet DataObject vers un autre contrôle TextBox. La méthode GetFromClipboard transfère les données du Presse-papiers vers un objet DataObject. Les méthodes Copy et GetText sont aussi utilisées.
Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d’une feuille et vérifiez que celle-ci contient :

·	deux contrôles TextBox nommés TextBox1 et TextBox2,
·	un contrôle CommandButton nommé CommandButton1.

Dim MyData as DataObject

Private Sub CommandButton1_Click()
   'Sélectionnez un texte avant de le copier dans le
   'Presse-papiers
   TextBox1.SelStart = 0
   TextBox1.SelLength = TextBox1.TextLength
   TextBox1.Copy

   MyData.GetFromClipboard
   TextBox2.Text = MyData.GetText(1)
End Sub

Private Sub UserForm_Initialize()
   Set MyData = New DataObject
   TextBox1.Text = "Placez ces données dans " & _
        "le Presse-papiers, dans un objet " & "DataObject, puis dans le contrôle " & "TextBox2 !"

End Sub 

Copyright (c) 1996 Microsoft Corporation 

 

ps : j'ai fais un essai avec ton exemple et ça ne fonctionne pas :(

 

@+

[Tramber]

C'est pour faire quoi exactement, il n'est peut-être pas nécessaire de passer par le presse papier

 

Rien de spécial, dans mon prog, je n'en ai plus besoin.

Mais ca me sert ponctuellement dans un bricolage tout à fait spéicifque AutoCAD vers bloc-note.

 

Moi non plus, je n'ai pas pu faire marcher les lignes de code de mon message, sans m'être acharné. J'utilise la fonction du Doslib ;)

 

Merci pour ton info, mais je sais pas lire le VBA, où alors faut vraiment me forcer !

[Patrick_35]

Merci pour ton info, mais je sais pas lire le VBA, où alors faut vraiment me forcer !

Moi non plus, mais ça peut s'avérer utile

Dans ce sujet, l'exemple en vba m'a permis de le traduire en vlisp et de comprendre le cheminement qu'il fallait suivre

 

@+