COPIER AVEC PT DE BASE

[MONEYS]

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

[(gile)]

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

[Big666]

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 ????

[MONEYS]

C'est un début :(rires forts)::)

 

le problème c'est qu'il faut ensuite garder l'entité en mémoire pour ensuite réinjecter :D

 

pas simple <_<

[Patrick_35]

C'est un début <img src='http://cadxp.com/public/style_emoticons/<#EMO_DIR#>/laugh.gif' class='bbc_emoticon' alt=':(rires forts):' />:)

 

le problème c'est qu'il faut ensuite garder l'entité en mémoire pour ensuite réinjecter :D

 

pas simple <_<

Salut

 

En utilisant un bloc et en le décomposant

 

ps : (command "_.*insert" ...)

 

@+

[MONEYS]

bloc ? mais pourquoi ?

[Patrick_35]

bloc ? mais pourquoi ?

Pour insérer la même chose dans plusieurs dessins via un script

 

@+