multiple \"copier avec point de base + coller\"

[gillespj]

Bonjour,

 

Est-il possible en une action de copier avec point de base toutes les primitives de chaque fichiers dxf/dwg puis de tous les coller dans un unique nouveau fichier ?

 

C-à-d : ouvrir fichier, tout sélectionner, copier avec point de base puis coller dans le nouveau fichier.

 

Merci.

[Fraid]

Bonjour,

 

Tu peux utiliser la commande WBLOC

[FormaBois]

Salut,

je ne veux pas être bête trop longtemps ...

C'est quoi ce que vous appelez une "primitive" ? ...à par le fait d'être la femme du primitif :P :exclam: :)

 

 

[Edité le 26/3/2011 par FormaBois]

[pierrevigneux]

Bonjour !

 

Pour ma part j'utise fréquemment,la commande copy with base point, que tu met à 0,0

et paste to original coordinate dans le menu édit.

 

Salutations !

[gillespj]

Salut,

je ne veux pas être bête trop longtemps ...

C'est quoi ce que vous appelez une "primitive" ? ...à par le fait d'être la femme du primitif :P :exclam: :)

 

 

[Edité le 26/3/2011 par FormaBois]

primitives = tous les "traits" sauf images, tableau...

 

Bonjour !

 

Pour ma part j'utise fréquemment,la commande copy with base point, que tu met à 0,0

et paste to original coordinate dans le menu édit.

 

Salutations !

Justement, j'aimerais faire cela en masse car j'ai une centaine de fichiers à assembler.

 

[FormaBois]

primitives = tous les "traits" sauf images, tableau...

Merci gillespj pour cette précision, n'étant pas tombé dans la marmite petit, j'ai quelques fois du mal avec ce vocabulaire... et aussi d'autres fois avec le "FranGlais" employé par certain.

 

[(gile)]

Salut,

 

Encore une fois, je rappelle qu'il est déconseillé d'utiliser, dans AutoCAD, les 'commandes Windows' qui utilisent le presse-papier parce qu'elle ne sont pas toujours très stables et qu'il est préférable d'utiliser les commandes AutoCAD : COPIER, BLOC, WBLOC.

[Fraid]

Bonjour,

 

J'ai l'impression qu'ont tourne en rond dans ce post ;)

 

Voici un bout de code qui me sert tout les jours

 

 

(defun c:w0 (/ O<)

(lispon)

(if (= (getvar "worlducs") 0)(progn(vl-cmdf "_.ucs" "")(setq O< 1)))

(if (ssget)(vla-wblock *acdoc* "C:\\temporaire.dwg" (vla-get-activeselectionset (dev-*acdoc*))))

(if O< (vl-cmdf "_ucs" "p"))

(lispoff)

)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

(defun c:v0 (/ O<)

(lispon)

(if (= (getvar "worlducs") 0)(progn(vl-cmdf "_.ucs" "")(setq O< 1)))

 

(if (findfile "C:\\temporaire.dwg")

(progn

(vla-explode (vla-insertblock (vla-get-modelspace (dev-*acdoc*)) (vlax-3d-point '(0 0 0)) "C:\\temporaire.dwg" 1 1 1 0))

(ErasBloc "temporaire")

(vl-cmdf "_.-purge" "b" "temporaire" "n")

(vl-file-delete "C:\\temporaire.dwg")

)

(vl-cmdf "__pasteclip" '(0 0 0))

)

(if O< (vl-cmdf "_ucs" "p"))

(lispoff)

)

 

(defun LispOn (/)

(if *FlagLisp*

(setq *FlagLisp* 2)

(progn

(setq m:err *error*

*error* std_err

)

 

(save&set_var "filedia" 0)

(save&set_var "cmdecho" 0)

(save&set_var "menuecho" 1)

(save&set_var "osmode" 0)

 

(vla-startundomark (dev-*acdoc*))

(setq Name (getvar "dwgname")

*FlagLisp* 1

)

)

)

)

 

(defun LispOff (/)

(if (= *FlagLisp* 2)

(setq *FlagLisp* 1)

(progn

(setq *error* m:err

m:err nil

)

(vla-endundomark (dev-*acdoc*))

(mapcar 'eval SavedSysVarLst)

 

(setq *FlagLisp* nil

*acdoc* nil

)

(princ)

)

)

)

 

(defun dev-*acdoc* (/)

 

(setq *AcDoc* (vla-get-ActiveDocument (vlax-get-acad-object)))

 

)

;;; Fonction SAVE&SET_VAR (Gile)

;;; Enregistre la valeur initiale de la variable système dans une liste

;;; et lui attribue sa nouvelle valeur (si val est non nil)

(defun save&set_var (var val)

(cond

((getvar var)

(setq SavedSysVarLst(cons (list 'setvar var (getvar var)) SavedSysVarLst))

(if val

(setvar var val)

)

)

)

);Fin Fonction SAVE&SET_VAR

 

;;; Fonction redéfinition de *error* -cadxp-

(defun std_err (msg)

(if (or

(= msg "fonction annulée")

(= msg "quitter / sortir abandon")

)

(princ)

(princ (strcat "\nerreur: " msg))

)

(vl-cmdf)

(vl-cmdf "_undo" "_end")

(mapcar 'eval savedsysvarlst)

(setq *error* m:err

m:err nil

)

(princ)

);Fin Fonction std_err

 

 

je ne suis pas sûr que la gestion des erreurs sois nécessaire

 

et que cela réponde a ta demande :P

 

[Edité le 29/3/2011 par Fraid]

[Steven]

Tu peux aussi glisser tes objets d'un dessin à un autre.

tu mets tes deux dessins ou fichier en mosaïque. Dans le dessin où il y a tes objets, tu sélectionnes tout puis, tu fais un clic droite puis sans lacher le clic, tu glisses tes objets dans le second dessin. Quand tu est dans le second dessin, tu laches le clicdroite de ta souris puis dans le menu contextuel qui s'affiche, tu vas sur Coller dans les Coordonnées originales.

 

Sinon, tu peux appeler dans un nouveau dessin tous tes autres dessins en tant que Xref, puis tu lies ensuite tes Xref en sélectionnant Insérer.

 

Mais il reste la méthode du Wbloc qui fonctionne à tous les coups.

[vincentp010]

Sinon, tu peux appeler dans un nouveau dessin tous tes autres dessins en tant que Xref, puis tu lies ensuite tes Xref en sélectionnant Insérer.

 

Je pense que c'est la méthode la plus simple, après il suffit juste de supprimer ce qui n'est pas "primitf" avec la commande filtrer