hiridimah 0 Posted January 26 Report Share Posted January 26 Comment détacher une image dans plusieurs fichiers DWG automatiquement à l'aide d'un script ou LISP??? Quote Link to post Share on other sites
Curlygoth 3 Posted January 27 Report Share Posted January 27 vba possible ? 1 Quote Mon site Web (en cours de construction) : Site - gileCAD - de @(gile) : DA-CODE de @didier Link to post Share on other sites
lecrabe 65 Posted January 27 Report Share Posted January 27 Hello A priori le Script est tres simple ! Commande: -XREFEntrez une option [?/Lier/déTacher/Chemin/TYpechemin/Décharger/Recharger/Superposer/Attacher] : TEntrez le(s) nom(s) de Xref à détacher: ENTCADRE Puis re-enregistrer puis ouvrir le DWG suivant ... LA SANTE, Bye, lecrabe 1 Quote Autodesk Expert Elite Team Link to post Share on other sites
hiridimah 0 Posted January 27 Author Report Share Posted January 27 je veux détacher une image dans plusieurs fichiers DWG automatiquement sans ouvrir les fichiers un par un Quote Link to post Share on other sites
Aleck_Ultimate 19 Posted January 28 Report Share Posted January 28 Nous l'avons bien compris. Ici Lecrabe parle autant de la procédure à suivre manuellement que de l'algorythme à suivre pour le coder. Le fait est que, sauf exception mais ce n'est pas le cas ici, si c'est faisable manuellement en ligne de commande c'est bien plus facile à coder. Non pas que ce soit dans mes compétence pour autant. Quote Membre d'Extinction Rebellion, car pour sauver le monde il n'est jamais trop tard, amour et rage ! Pour écrire un vraie point médian (e·x·e·m·p·l·e) [Alt + 0183] ou ajout d'un raccourci clavier personnalisé (ex. [AltGr + ;]) Utilisateur d'AutoCAD 2018 sous Windows 10 Link to post Share on other sites
Olivier Eckmann 58 Posted January 28 Report Share Posted January 28 Bonjour, Avec un script du genre _-IMAGE _D NOM_DE_L_IMAGE_A_DETACHER Puis Superautoscript pour traiter tout un ensemble de fichier DWG Olivier 1 Quote Link to post Share on other sites
hiridimah 0 Posted January 28 Author Report Share Posted January 28 merci mais j'ai pas arrive de télécharger Superautoscript vs pouvez m'aider merci. Quote Link to post Share on other sites
hiridimah 0 Posted January 28 Author Report Share Posted January 28 merci Olivier Eckmann si bon Quote Link to post Share on other sites
Fraid 7 Posted January 29 Report Share Posted January 29 Bonjour, Effectivement, en Lisp ce n'est pas facilesi on ne veut pas ouvrir les dessins, ObjetDBX et VLA oblige.Donc pour détacher les images des dessins contenus dans un dossier (vl-load-com) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:dtimg (/ axdoc lf dir) (if (setq dir (getdir) lf (vl-directory-files dir "*.dwg" 1)) (foreach f lf (vlax-for obj (vla-get-modelspace (setq axdoc (getaxdbdoc (strcat dir f)))) (if (= (vla-get-objectname obj) "AcDbRasterImage") (vla-delete (vla-item (vla-item (vla-get-dictionaries axdoc ) "ACAD_IMAGE_DICT") (vla-get-name obj) ) ) ) ) (vla-saveas axdoc (strcat dir f)) (vlax-release-object axdoc) ) ) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun getdir( / shell rep) (setq shell (vlax-create-object "Shell.Application") rep (vlax-invoke shell 'browseforfolder 0 "Sélectionnez le dossier" 512 "") ) (vlax-release-object shell) (strcat (vlax-get-property (vlax-get-property rep 'self) 'path) "\\") ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun getaxdbdoc (filename / axdbdoc release) (setq axdbdoc (vlax-create-object (if (< (setq release (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa release)) ) ) ) (if (vl-catch-all-apply 'vla-open (list axdbdoc filename)) (not (vlax-release-object axdbdoc)) axdbdoc ) ) Étrangement, la méthode vla-detach ne concerne pas les imageset je n'ai pas réussi à utiliser vla-remove pourtant prévue pour effacer les entrées dans un dictionnaire. Cela détache les images dans l'espace objet.ATTENTION, pas de retour en arrière possible. Quote ...plus je sais où je suis, moins je sais où je vais....Extrait d'une double interview simultanée d'une particule élémentaire. Link to post Share on other sites
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.