sergeluc

Gile je n'ai pas suivi le sujet des images mais il y a eu ce post http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=3940#pid12328 de bruno_l . J'ai trouvé ceci dans mes archives ,j'espère ne pas etre à coté du sujet : ;; ! *************************************************************************** ;; ! IM_GetImagesLst ;; ! *************************************************************************** ;; ! Function : Returns the list of all images attached to the current drawing ;; ! Arguments: 'none' ;; ! Returns : The attached images are returned as a list of path and image file nalist IMAGE file name wil complete path ;; ! Action : ;; ! Updated : March 3, 2000 ;; ! e-mail : rakesh.rao@4d-technologies.com ;; ! Web : www.4d-technologies.com ;; ! **************************************************************************** (defun IM_GetImagesLst( / ImgLst _ImgLst ename ) (setq ImgLst (dictsearch (namedobjdict) "ACAD_IMAGE_DICT")) (if ImgLst (progn (setq ImgLst (LI_mitem 350 ImgLst)) (if ImgLst (progn (setq _ImgLst '()) (foreach ename ImgLst (setq _ImgLst (cons (LI_item 1 (entget ename)) _ImgLst)) ) (setq ImgLst (reverse _ImgLst)) )) )) ImgLst ) [Edité le 10/6/2006 par sergeluc] ;avec ceci (defun LI_mitem( Code entl / Lst itm ) (setq Lst '()) (foreach itm entl (if (= (car itm) Code) (setq Lst (cons (cdr itm) Lst)) ) ) (if Lst (reverse Lst) nil) ) [Edité le 10/6/2006 par sergeluc] Pour ceux qui ne connaisse pas ce site :www.4d-technologies.com Il y a de belles routines.... [Edité le 10/6/2006 par sergeluc]

bonjour Gile Désolé je l'avais vu et corrigée ,j'ai complètement oublié de le signaler....dans la précipitation. c'est pas sérieux de ma part ,je serai plus vigilant a l'avenir .

Bonjour Gile , Ta dernière proposition marche sur autocad2000 . Merci à tous Gile,Bonuscad et Patrick_35

Bonjour Gile (vl-load-com) est bien chargé ,il est déclaré dans ta routine .J'ai encore fais des tests sur autocad2000 et c'est bien la fonction "vla-get-Path" qui est mal interprètée dans cette version d'autocad .Je viens de remarquer que je me suis trompé dans le message du posté le 6/6/2006 à 20:14 ou je fais référence à "vla-detach " (cette dernière ne pose pas de problème) J'essaie de trouver une solution à "vla-get-Path" en vlisp .Je manque de temps en ce moment mais ca va venir....

Bonjour Gile , Pour ta 1ere question : il m'est acquis par (vla-get-Name ...) Ta 2eme question : me retourne : ; erreur:no function definition: VLAX-ENAME->VLA-OBJECT Et pour ma remarque : "je n'ai pas vérifié sur une autre version ". "purge_xref" fonctionne sur autocad2006 . Je vais regardé cela plus en détail........ merci Gile [Edité le 7/6/2006 par sergeluc]

bonjour Gile , j'ai testé ta routine "purge_xref" sur un autocad 2000 et la fonction "vla-detach " a la ligne "(setq path (vla-get-Path (vla-item (vla-get-blocks acdoc) x)))" retourne ces messages d'erreur : 1); erreur: Erreur Automation Clé dupliquée 2); erreur:Le serveur ActiveX a renvoyé l'erreur: nom inconnu: Path A première vue je pense que c'est un problème dans le nom complet chemin+nom+extension En interrogeant la variable "path" , elle reste à nil . Je ne maitrise pas encore les fonctions vlisp ,je ne peux donc pas apporter de solution. Ou autre possibilité une fonction "VLA" de plus qui fonctionne mal sur acad2000 ,je n'ai pas vérifié sur une autre version . [Edité le 6/6/2006 par sergeluc]

Bonjour , pour les xrefs,Il y a ce lien http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=10289#pid39470

Bonjour DenisH Si je peux me permettre il y a un forum "Débuter en lisp" (significatif) et des PDF d'initiation au lisp .Je pense que tu peux lancer des demandes d'explications dans ce forum de manière a le faire vivre d'avantage ,cela pourra amener d'autres personnes dans ton cas . D'autre part moi aussi j'ai fais l'erreur par le passé d'écrire dans le mauvais forum si fait que les questions ne peuvent suivre les réponses . Je me permet de te conseiller de faire des recherches "tous forums" par mots clé pour trouver des réponses à certaines questions . voilà ,bon courage ,il faut du temps ,un peu de patience et motivation....nous en sommes tous là .

Encore un grand merci gile pour ta gentillesse et tes compétences .

merci gile , c'est exactement ce dont j'avais besoin. Mon but est de pré-traiter des fichiers reçu par "E-transmit" .Il me restait à faire une analyse (cohérente) de manière a pouvoir assembler les plans déclarés en xref ,de nettoyer le reste et de sortir un listing de résultat car celui fait par autocad ne me convient pas. De plus cela va me pousser à me mettre au visual lisp ,c'est parfait . Bonne soirée

Bonjour Manuellement cela ne m'a jamais posé de problème,j'ai mis ce message dans la rubrique lisp/vlisp pour obtenir une éventuelle réponse ou orientation dans ce sens. [Edité le 28/5/2006 par sergeluc]

Bonjour à tous , J'ai rencontré une situation que je n'ai pas encore pu maitriser. Elle concerne un dwg avec des xrefs imbriqués dont certains introuvables et pour finir des références croisées (dwgs insérés en blocs et déclarés en xref). C'est ce dernier point qui me pose un problème . Mon but est d'obtenir une compilation avec ce qui peut l'ètre avec l'option "lier" , de détacher le reste et de supprimer ces références croisées en Lisp ou Vlisp. Pour détacher avec : (command "_.-XREF" "_d" "*") cela ne suffit pas à cause des références croisées. Si quelqu'un peut m'orienter ,merci d'avance .

Bonjour gile , 1)Quelle est la différence entre "toute la collection" et "tous les blocs insérés" 2)La mise à jour des attributs se fait automatiquement.Si certains attributs ont été modifiés volontairement (en rotation ,désignation...) que se passe-til?.je n'ai pas encore vérifié et le visual lisp ??? . PS: Bravo! ton programme est très bien écrit donc très performant .Pour moi qui suis encore à l'autolisp c'est une leçon.

Bonjour Gile je viens d'essayer ton programme sur une version 2000 et j'ai ce massage d'erreur : "Erreur: no function definition: VLA-PUT-UNITS" sur une 2006 pas de problème . [Edité le 11/5/2006 par sergeluc]

Bonjour Gile je viens de trouver dans l'aide d'autocad 3 variables pour controler l'échelle d'insertion des blocs (elles servent aussi au DesignCenter) INSUNITS (pour les unités) INSUNITSDEFSOURCE INSUNITSDEFTARGET à plus.................

bonsoir ou bonjour Gile Je viens de découvrir ton programme alors je vais oser te suggérer un supplément : le traitement des blocs d'un repertoire quelconque en se servant d'un dessin vierge . (d'une bibliothèque de blocs en quelque sorte ). Ce n'est peut-etre pas l'objet de ta routine ,j'ai bricolé quelque-chose dans ce sens à l'époque si ça t'intéresse. à plus..............

Bonjour Bonuscad Le lien pour "UCSimport" ne fonctionne plus si tu as encore ce fichier peux-tu le mettre à disposition . merci d'avance

(gile) et Patrick_35 je vous remercie. J'ai focalisé sur des équivalences (eq et =) au lieu d'utiliser "member" . Pour la 2eme question je vais m'en sortir avec ce que tu as mis (gile) . Le but est de comparer les 2 listes de types de lignes et de changer celles du dwg non reconnues par l'acad.lin . (cette fois çi je ne vais pas oublier "member" J'avoue quand relisant mon message d'origne j'ai du mal comprendre la 2eme question . milles excuses ....(trop pressé) patrick_35 "vlax-for " est-il équivalant à "foreach" ? encore merci à tous les deux .

Bonjour, 1)Je tourne en rond pour arriver à modifier la table de certains layers d'un dwg dans leur couleur suivant des critères de recherche de couleur et avec une couleur de remplacement . exemple : si les couleurs 2 50 et 51 sont trouvées ,alors tous les layers correspondant à ces couleurs sont transformés en couleur 7 . (sans tenir compte des xrefs et blocs) cela fait 2 jours que j'écris des routines différentes sans succès alors je sature et comme je suis à droite et à gauche je fais appel à vous . merci Autre point recherché ,je n'ai rien trouvé sur le site ,c'est une vérification des noms des types de lignes présents dans un DWG et correspondant à l'acad.lin ,si les noms ne sont pas trouvés dans l'acad.lin alors on les transforment en "CACHE" que l'on charge au préalable avant. Le 2eme point je le signale pour gagner du temps au cas ou quelqu'un aurait quelque-chose. merci.....à plus

Je te remercie Gile , je devrais m'en sortir avec toutes ces infos . [Edité le 1/5/2006 par sergeluc]

Si quelqu'un a une idée pour récupérer un environnement SCU courant " NON NOMME" merci d'avance [Edité le 30/4/2006 par sergeluc]

merci Bonuscad , cette routine va bien m'aider .

Bonjour à tous Je cherche à récupérer en autolisp ou visual lisp : 1) l'orientation d'un scu non nommé de l'espace objet d'une présentation pour le reproduire sur la présentation d'un autre dwg (ou d'une nouvelle présentation) 2)Pouvoir cocher ou décocher dans paramètres SCU "Enregistrer le scu avec la fenetre" merci

Je viens de découvrir sur autocad 2006 une nouvelle commande "LSPSURF" des express tools sans doute qui lance un gestionnaire des lisp et variables.hélas je n'ai pas eu le temps de regarder en profondeur.A voir .......

voici un petit lisp qui permet de récupérer tous les "c:defun" en l'adaptant un peu tu peux tout récupérer suivant ton besoin (defun c:lsp-cmd ( / lst n a ) (setq lst (atoms-family 1) lst (acad_strlsort lst) ) (setq n 0);setq (repeat (length lst) (setq a (nth n lst));setq (if (equal "C:" (strcase (substr a 1 2))) (princ (strcat "\n" (substr a 3))) ) (setq n (+ n 1));setq ) (princ) ) J'ai répondu en meme temps que gile sa réponse est meilleure [Edité le 26/4/2006 par sergeluc]