Classement

Bonjour, Je cherche à créer un lisp qui permettrait de copier avec point de base puis coller vers coordonnées d'origine en lot sur plusieurs dwg (appliquer sur un répertoire). Merci d'avance de votre aide

bonjour cela ne correspond pas a ta demande mais ce il peut faire sur un fichier ce que tu veux faire sur plusieurs celui ci copie (defun c:CC () (command "SCU" "G" ) (princ "\nSELECTIONNER LES ENTITES A COPIER ") (setq select (ssget)) (command "_COPYBASE" "0,0,0" select "") (command "SCU" "P" ) ) celui la colle (defun c:CV () (command "SCU" "G" ) (command "_PASTECLIP" "0,0,0" ) (command "SCU" "P" ) ) ne me demande pas ou j'ai trouvé ça???? autre chose par contre pourquoi je ne peut joindre un fichier ????

Salut, Il est important de comprendre qu'AutoLISP s'exécute dans un contexte document. C'est à dire qu'un LISP lancé dans un document (fichier dessin DWG) ne peut pas poursuivre son exécution dans un autre document. Il est possible, en utilisant le composant ActiveX ObjectDBX, d'accéder depuis le document actif aux bases de données d'autres fichiers DWG sans ouvrir ceux-ci dans l'éditeur (faire une recherche avec "ObjectDBX" ou "AxDbDocument"). Dans ce cas, on ne peut accéder à la ligne commande de ces fichiers et on est donc obligé d'utiliser les fonctions visual LISP vla-CopyObjects pour la copie d'objet et vla-TransformBy pour le déplacement des objets copiés et vla-SaveAs pour enregistrer les modifications. Si tu n'es pas à l'aise avec ActiveX / Visual LISP, il est certainement plus simple de passer par un script avec SuperAutoScript : - copier les objets et spécifier le point de base dans le fichier source (ces informations sont stockées dans le presse-papier Windows) - lancer un script qui fait le collage (COLLERORIG ou _PASTEORIG) dans les fichiers cible avec SuperAutoScript