Récupérer le nom du calque

[yusukens82]

Bonsoir,

 

Avez-vous un petit LISP sous le coude permettant de copier le nom du calque courant dans la presse papier ?

 

Merci

 

[bseb67]

Salut!

 

voici une fonction que j'avais trouvé (je ne sais plus où):

(defun _SetClipBoardText ( text / htmlfile result )

   ;;  Caller's sole responsibility is to pass a
   ;;  text string. Anything else? Pie in face.

   ;;  Attribution: Reformatted version of
   ;;  post by XShrimp at theswamp.org.
   ;;
   ;;  See http://tinyurl.com/2ngf4r.

   (setq result
       (vlax-invoke
           (vlax-get
               (vlax-get
                   (setq htmlfile (vlax-create-object "htmlfile"))
                  'ParentWindow
               )
              'ClipBoardData
           )
          'SetData
           "Text"
           text
       )
   )

   (vlax-release-object htmlfile)

   text

)

 

Pour toi, il suffit de l'appeler ainsi (_SetClipBoardText (getvar "clayer"))

[yusukens82]

Bonjour bseb67,

 

je n'arrive pas à faire marcher ton lisp

en modifiant comme tu as dis, j'ai :

(defun (_SetClipBoardText (getvar "clayer"))

   ;;  Caller's sole responsibility is to pass a
   ;;  text string. Anything else? Pie in face.

   ;;  Attribution: Reformatted version of
   ;;  post by XShrimp at theswamp.org.
   ;;
   ;;  See http://tinyurl.com/2ngf4r.

   (setq result
       (vlax-invoke
           (vlax-get
               (vlax-get
                   (setq htmlfile (vlax-create-object "htmlfile"))
                  'ParentWindow
               )
              'ClipBoardData
           )
          'SetData
           "Text"
           text
       )
   )

   (vlax-release-object htmlfile)

   text

)

 

quand je charge le lisp, il me dit :

Commande: ; erreur: erreur de syntaxe

[bseb67]

Resalut,

 

Désolé, mais tu as du mal me comprendre:

(defun (_SetClipBoardText (getvar "clayer")) => normal que ca donne un message d'erreur.

 

Laisse la fonction comme je l'ai donné au début et déclare celle-ci en plus après:

 

(defun c:ccpp()

(_SetClipBoardText (getvar "clayer"))

) ; c:ccpp

 

comme-ca il suffit de tapper la commande ccpp (j'ai pris ce nom pour copie calque presse papier)

[yusukens82]

Magnifique

 

tu peux pas savoir comment ce lisp va me servir, je passe un temps fou à chaque fois à récupérer manuellement le nom de chacun des calques.

 

Merci beaucoup