GEGEMATIC

Salut, en fait je n'avais même pas remarqué cette différence de comportement, car aujourd'hui je n'utilise presque que mes composants, presque tous basés sur des blocs, donc je choisi la taille. j'ai trouvé ton clapet, en effet c'est magique, et je suis allé voir dans ses propriétés, rien de flagrant. il faudrait comparer finement avec l'un des notres. a+ gégé

salut à tous, dans ma quête sur les pdf, je sui tombé sur cette page, je ne me suis pas intéressée à la problématique de migration, je suis encore sous 2015 et 2017, mais c'est également intéressant pour les emplacement de dictionnaire des underlay pdf, dwf et dgn Mon lien a+ Gégé

Salut Didier, pas mieux depuis, mais en fait le chargement/déchargement ne change pas beaucoup par rapport à la visibilité oui/non a+ Gégé

salut à tous, pour les xref de type dwg, on a la commande -xref pour les images on a la commande -image mais pour les pdf, je ne trouve rien enligne de commande, je ne peux le faire que depuis la palette xref je précise que je ne cherche pas la commande -ATTACHERPDF, ce que je veux faire c'est charger ou décharger un pdf. merci, a+ Gégé

Salut, Effectivement, car j'avais choisi un teste combinant des sous-listes surquotées et d'autre non, donc je passais par un lambda pour tester l'existence ou non de ce quote, ce qui était d’ailleurs ma question initiale ... ce sont des problèmes mile fois vus, mais ils finissent par s'oublier ... a+ Gégé

Salut, En effet, c'est incroyable, tout mon problème vient d'avoir confondu la syntaxe d'eval et d'apply ! et plus j'ai pataugé, plus la confusion m'a embrouillé ! merci A+ Gégé

Salut, effectivement, c'est encore mieux ! a+ gégé

Re salu, c'est en rédigeant ma réponse que m'est enfin apparu la solution, si simple! j'étais resté bloqué sur le fait qu'equal n'accepte que 2 argument (defun pw_egal_list (lst / i long) (setq long (length lst)) (setq i 0) (while (and (< i (- long 1)) (equal (nth i lst) (nth (+ 1 i) lst) ) ) (setq i (+ 1 i)) ) (if (= i (- long 1)) T nil ) ) et là il n'y a plus de limitations: Commande: (pw_egal_list '((1 2) 1 "r" '(2 3))) nil Commande: (pw_egal_list '((e r) ("e" "r")(1 2 3))) nil Commande: (pw_egal_list '('(1 2 3) '(4 5 6) '(7 8 9))) nil Commande: (pw_egal_list '('(1 2 3) '(1 2 3) '(1 2 3))) T Commande: (pw_egal_list '('(1 2 3) '(1 2 3) '(1 2 3 4))) nil Commande: (pw_egal_list '((1 2 3) (1 2 3) (1 2 3))) T Commande: (pw_egal_list '('(1 2)'(1 2))) T Commande: (pw_egal_list '(1 2 3)) nil Commande: (pw_egal_list '(1 1 1)) T Commande: (pw_egal_list '((1 2 3) (4 5 6) (7 8 9))) nil Commande: (pw_egal_list '(((1 2) 3) ((4 5) 6) ((7 8) 9))) nil Commande: (pw_egal_list '(((1 2) 3) ((1 2) 3) ((1 2) 3))) T Commande: (pw_egal_list '(((1) (2) (3))((1) (2) (3))((1) (2) (3)) )) T a+ Gégé

re salut à tous, en fait le problème que j'ai rencontré, c'est un problème de parcours de liste par variable "déléguée" c'est le problème du mapcar, et du vl-every Un petit rappel: Commande: (setq a '('( 1 2))) ((QUOTE (1 2))) Commande: (setq b '(( 1 2))) ((1 2)) Commande: (setq c (list (list 1 2))) ((1 2)) Commande: (car a) (QUOTE (1 2)) Commande: (car B) (1 2) mais en fait avec vl-every: Commande: (setq lst '('(1 2) '( 1 2))) ((QUOTE (1 2)) (QUOTE (1 2))) Commande: (eval (append '(vl-every '= ) lst)) T Commande: (setq lst '((1 2) ( 1 2))) ((1 2) (1 2)) Commande: (eval (append '(vl-every '= ) lst)) "fonction incorrecte: 1" error success; redéfinir après erreur Donc vl-every n'est utilisable qu'avec un nombre d'argument listes connu à l'avance, ce qui finalement en limite sérieusement l'interet pour cet usage. parceque bien entendu (je dis ça pour frimer mais je suis tombé dans le panneau) Commande: (setq lst '((1 2) ( 1 2))) ((1 2) (1 2)) Commande: (mapcar '(lambda (x) (quote x)) lst) (X X) Moralité on ne peu surquoter les éléments d'une liste qu'a la main ... Donc je suis arrivé à ça, et franchement je trouve ça pas très beau, ni très efficace, puisque le nombre de sous liste est limité à 1 : ;*************************************************************************** ;§/listes/compare les elements d'une liste : oui s'ils sont tous identiques/lsp ;retourne nil si lst est vide ;;;Commande: (pw_egal_list '((1 2) 1 "r" '(2 3))) ;;;nil ;;;Commande: (pw_egal_list '((e r) ("e" "r")(1 2 3))) ;;;nil ;;;Commande: (pw_egal_list '('(1 2 3) '(4 5 6) '(7 8 9))) ;;;nil ;;;Commande: (pw_egal_list '('(1 2 3) '(1 2 3) '(1 2 3))) ;;;T ;;;Commande: (pw_egal_list '('(1 2 3) '(1 2 3) '(1 2 3 4))) ;;;T ;;;Commande: (pw_egal_list '((1 2 3) (1 2 3) (1 2 3))) ;;;T ;;;Commande: (pw_egal_list '('(1 2)'(1 2))) ;;;T ;;;Commande: (pw_egal_list '(1 2 3)) ;;;nil ;;;Commande: (pw_egal_list '(1 1 1)) ;;;T ;;;Commande: (pw_egal_list '((1 2 3) (4 5 6) (7 8 9))) ;;;nil ;;mais atention ! ;;;_$ (pw_egal_list '(((1 2) 3) ((1 2) 3) ((1 2) 3))) ;;;nil ;;;_$ (pw_egal_list '(((1) (2) (3))((1) (2) (3))((1) (2) (3)) )) ;;;nil ;;;_$ (defun pw_egal_list (lst / lcuted lsample lres tmp toutes_egales) ;;------------------------------------------------- ;;(toutes_egales '((1 2 3) (4 5 6) (7 8 9))) -> nil ;;(toutes_egales '((1 2 3) (1 2 3) (1 2 3))) -> T (defun toutes_egales ( llistes / long i ltmp) (setq llistes (mapcar '(lambda (x) (if (= 'quote (car x)) (cadr x);_supprime le quote x) ) llistes)) (setq long (length (car llistes))) (setq i 0) (while (and (< i long) (apply '= (mapcar '(lambda (x) (nth i x)) llistes)) ) (setq i (+ 1 i)) ) (if (= i long) T nil ) ) ;;------------------------------------------------- (if lst (cond ((= (length lst) 1) ;_un seul élément T ) ;;membres tous des listes ((apply '= (cons t (setq tmp (mapcar 'listp lst))));_ (apply '= (cons t (setq tmp (mapcar 'listp '((1 1)(2 2)))))) -> T (and (pw_egal_list (mapcar 'length lst));_de même longueur (toutes_egales lst);_chaque élément identique ;;(eval (append '(vl-every '= ) lst)));_ne marche pas car les sous listes ne sont pas quotées ) ) ;;membres aucun n'est une liste ((apply '= (cons nil tmp)) (apply '= lst) ) ;;mélange de liste et autre (t nil ) ) nil ) ) a+ Gégé

Salut Bruno, J'ai vraiment un mal fou à bien définir le problème, du coup mes réponses ne seront peut-être pas très claire Oui, c’est une de 3 solutions de lee mac : (defun every1 ( prd ls1 ls2 ) (or (not ls1) (not ls2) (and (prd (car ls1) (car ls2)) (every1 prd (cdr ls1) (cdr ls2))) ) ) (defun every2 ( prd ls1 ls2 ) (apply 'and (mapcar 'prd ls1 ls2)) ) (defun every3 ( prd ls1 ls2 / x y ) (while (and (setq x (car ls1)) (setq y (car ls2)) (prd x y)) (setq ls1 (cdr ls1) ls2 (cdr ls2) ) ) (or (not ls1) (not ls2)) ) Elles ne résolvent rien au problème que j’ai avec vl-every, mais c’est intéressant En fait, ce que j’entendais par double quote, c’est ça : ’(‘(1 2 3) ‘(1 2 3) ‘(1 2 3)) Dans le message suivant je vais essayer de vous faire comprendre la problématique qui m’ait apparue. A+ Gégé

Salut Patrick, mon exemple n'était pas bon, j'ai en fait plus de 2 listes à comparer. je vais regarder le tuto de Gile. a+ gégé

Salut à tous, je me suis aperçu que je suis tombé souvent sur ce problème, mais je l'ai toujours contournée, jamais résolu. si j'ai un liste : (setq maliste '((1 2)(1 2)) ) et que je veux savoir si ses membres sont égaux: je ne peux pas faire: (apply '= maliste) car j'aurai 1 : fonction inconnue par contre si j'ai (setq maliste '('(1 2)'(1 2)) ) (apply '= maliste) marche c'est un cas particulier ou vl-every ne m'arrange pas trop non plus, en fait, je veux juste savoir si la liste (1 2) et déjà quotée ou non. ce n'est pas urgent, mais vous savez, la curiosité ... a+ Gégé

salut à tous, un petit témoignage que je trouve surprenant ma fille est en 3eme année d'archi, et on peut dire qu'elle à appris à dessiner en 3d sketchup au début, puis une vraie formation revit. ce n'est qu'en 3eme année qu'elle a appris (sans formation) à utiliser Autocad, dans le cadre d'un projet d'urbanisme. de retour sur un nouveau projet de bâtiment, elle n'est pas repartie sur Revit, mais sur Autocad: Elle est persuadée qu'elle ira plus vite, et elle trouve que sa créativité est meilleure avec ce logiciel. pourtant, ses lacunes sous Autocad sont terribles, elle n'a vraiment pas eu de formation. son principe est valable pour un projet, elle est consciente qu'une agence d'archi qui fait souvent le même type de projet, avec le même type de composants tous déjà paramétrés, gagnera du temps avec Revit. Je n'aurais jamais cru qu'on puisse faire ce genre de "régression" à 20 ans ... mais ça se tient. a+ Gégé

Salut, et merci de ta confirmation finalement j'ai compris: Parfois je génère plusieurs coupes différentes à partir d'une même ligne de coupe: dans ce cas là, mep propose le dernier paramètre utilisé. si la ligne de coupe n'a qu'une seule coupe associée, c'est bien ton fonctionnement qui prévaut. moralité c'est la ligne de coupe qui porte le nom du paramètre, et j'aimerai bien savoir comment. car j'aimerai bien pouvoir automatiser la génération de coupes pour évaluer rapidement les effets d'un changement de paramètre ... a+ Gégé

salut à tous, lorsque l'on fait une coupe ou une élévation, on définit un style (genre Standard MEP (Masqué)) et un paramètre d'affichage (genre Coupe et élévation MEP) le style reste bien accroché à la coupe, mais le paramètre non. naïvement, je croyais que "régénérer" et "actualiser" reprendraient le paramètre original, mais il semble que ce ne soit pas le cas: on dirait que MEP propose toujours le dernier paramètre utilisé savez-vous comment on fait pour savoir avec quel parmètre une coupe à été faite ? merci Gégé

Salut, merci pour ce lien précieux, on s'était habitué à l'inhabituel: comment un logiciel à 1000€ par an de souscription a pu avoir une aide inutilisable pendant 7 ans ... l'aide, je crois que c'est quand même un sujet réglé depuis longtemps, sous windows ? moi j'utilisais jusqu'a présent la dernière version de l'aide développeur utilisable celle de la 2010, mais parfois, il y avait des manques ... a+ gégé

salut, tu as utilisé la résection du contrôleur trimble ? (chez leica on dit station libre ...) si tu exporte les données brutes de ta géobase (GDM), dans covadis tu peu refaire ce calcul de résection, car les données brutes n'enregistrent que les DI, AH et AV. dans ta géobase, tu n'aura qu'a inverser les 2 mesures de références. si tu n'as besoin que du z de la station, tu fait comme Vincent te l'as dit, en prenant la moyenne des 2 mesures ... a+ Gégé

salut Une idée peut être idiote, mais microstation ? question compatibilité dwg, la version 2004 était vraiement top, même plus compatible qu'Autodesk, je m'en servais pour debugger les dessins ... rien de vraiment déroutant pour un usage normal (interface pas plus déroutante que draftsight, pour moi) et puis la vitesse ! adieu les lourdeurs d'Autocad. le seul hic, rédhibitoire pour moi: pas de lisp, c'est à cause de ça que j'ai abandonné ustation. a+ gégé

Salut, Le fonctionnement est le même pour iPhoto et iTune: une interface te cache ce qu'il y a dans ton ordi. ça te choque, comme moi, mais c'est plébiscité par les gens qui aiment les macs. Pour les photos et la musique, on est arrivé à les trouver, mais je ne me rappelle plus ou et comment, mais je peut te dire qu'il y a moyen. (il me semble qu'il faut faire un export) A+ gégé

salut, 100% avec toi vieux crabe, même si il y a quelques fonctionnalités que je n'utilise pas, mais c'est une bonne liste. A rajouter pour moi: avoir le droit d'avoir des tables ayant le même nom contenant des champs différents dans des dessin différents. c'est pour moi un problème, car parfois, ponctuellement on a besoin d'un champ supplémentaire, pour une demande particulière. mais ajouter un champs peut couter cher si on a le malheur de devoir associer ce dessin particulier avec d'autre (par exemple on a fait un étude particulière sur un commune, et ensuite on veut faire des requêtes sur l'ensemble du syndicat, c'est foutu ! a+ gégé

Salut à tous, je suis tombé sur ça dans l'aide 2012: "A propos des étiquettes de nomenclature" help2012/filesUsersGuide/WScedd0d2069f88934137c60dfa2566d240-7fd9.htm Je me suis dit, c'est ce qu'il me faut, sauf que ça ne s'applique qu'aux etiquettes de nomenclatures, que l'on crée avec AECSCHEDULETAG et qui sont des blocs à vue multiple, celle pour lesquelles on peut déja créer une ligne repère ... moi je ne m’intéresse au etiquettes de type "AECB_LABEL_CURVE", que l'on crée avec la commande la commande LABELCURVEADD et là, malheureusement, ça a pas l'air d'être prévu ... a+ gégé

Salut Steven, Oui, comme je ne suis pas arrivé à joindre par cadXp, je pensais joindre par un autre moyen, mais j'ai oublié ... ça ne sert plus à rien car pour la partie nomenclature, j'y suis arrivé. au passage, je fait mes excuses à FlyingLotus, j'avais fait une faute de frappe ! reste maintenant mon dernier problème: créer une etiquette du même type que les étiquette "standard" ou "standard tuyau" mais ayant un ligne repère: ça me parrait absurde que ce ne soit pas possible a+ Gégé

Salut STEVEN, Je ne suis pas vraiment d'accord: J'ai posté un message, et un alias de message, je n'ai pas posté 2 fois le même message ... Certaines personnes ne sont que sur mep, et ceux qui sont sur archi ignorent le forum mep, c'est l'explication de ma démarche... a+ Gégé

re salut, finalement je suis arrivé à une nomenclature mixte blocs, composant MEP et tuyaux en utilisant les formules ce qui ets le plus important c'est de comprendre qu'un champ non existant retourne ?, ce qui en chaine de carractère fait "?" J'ai dans ma nomenclature 3 colonnes, 2 source une cible, les 2 sources sont cachées: du coup j'arrive à avoir un champ désignation unique pour 2 colonnes distinctes: If "[Nomdelatailleducomposant]" = "" Or "[Nomdelatailleducomposant]" = "?" Then RESULT = "[Nom]" Else RESULT = "[Nomdelatailleducomposant]" End If Très important pour moi, car les nomenclatures,en manuel, c'est l'enfer ... par contre, toujours pas trouvé une annotation avec une ligne de repère utilisable en iso ! a+ Gégé

Salut FlyingLotus (tout un programme ...) merci pour ta réponse, le forum est assez désert ... Technique inintéressante intéressante, je vais la garder pour un autre usage de mon coté, j'ai réussi a obtenir ce partNumber en utilisant une formule, qui va la chercher dans la un autre jeu de propriété Oui j'ai déjà ce problème, en effet, mais comme je retravaille ma nomenclature sous excel, ce n'est pas trop grave, d'ailleur il doit y avoir moyen de le régler par une formule. maintenant, je croyais être arrivé au bout de mon problème, en numérotant mes pièce avec l'outil de mep : repère de composant rectangulaire: mais horreur, pas moyens d’afficher ces repères en vue isométrique ! comment faire pour obtenir une ligne repère qui s'insère en 3d, et que l'on peut lire en vue isométrique ? merci Gégé