Patrick_35

Salut Par exemple @+

Salut Par exemple, pour une fusion de deux cellules (ligne 2+3) sur la même colonne (colonne 0) (setq tbl (vlax-ename->vla-object (car (entsel)))) ; choix du tableau (setq l1 2 ; ligne 1 l2 3 ; ligne 2 c1 0 ; colonne 1 c2 0 ; colonne 2 ) (vla-mergecells tbl l1 l2 c1 c2) ; fusion des cellules @+

Salut Ben, le lisp donné en réponse 3 @+

Salut Merci Tramber ;) C'est le but. Ecrire nos routines lisp qui utilisent les fonctions d'Api_xls pour fonctionner avec un tableur, Excel ou Open Office, voir SQL Comme ça, plus de soucis. :D @+

Bonjour La version 2.00 disponible @+

Salut J'aimerai savoir si tu as réussi à ouvrir un fichier avec Open Office en mode invisible. Normalement, avec les arguments Hidden et vlax-true, cela devrait fonctionner, mais nada. Il est possible ensuite de cacher le fichier, mais une fois ouvert, et je ne trouve pas cette solution terrible. @+

C'est pas les idées qui manquent, comme cliquer un texte (ou attribut) que l'on a sous le nez afin de sélectionner les autres, mais le temps ;) @+

Salut Ben, en utilisant un copier/coller, je ne vois que les réacteurs. Par-contre, je te rejoins pour les précisions. @+

Salut Oui, mais tout dépend comment tu as créé ta liste. Lambda est utilisé pour définir une fonction anonyme Ce qui suit indique l'ordre de trie Par exemple (setq a (nth 0 ma_liste)) (setq b (nth 1 ma_liste)) Si le premier élément de la liste a et égal au premier élément de la liste b, alors (if (= (car a) (car b)) Si le second élément de la liste a et égal au second élément de la liste b, alors (if (= (cadr a) (cadr b)) Si le troisième élément de la liste a et égal au troisième élément de la liste b, alors (if (= (caddr a) (caddr b)) Trier sur le quatrième élément de la liste a&b (en indiquant le sens de trie avec < ) (< (cadddr a) (cadddr b)) Sinon, trier sur le troisième élément de la liste a&b (en indiquant le sens de trie avec < ) (< (caddr a) (caddr b)) Fin du if ) Sinon, trier sur le second élément de la liste a&b (en indiquant le sens de trie avec < ) (< (cadr a) (cadr b)) Fin du if ) Sinon, trier sur le premier élément de la liste a&b (en indiquant le sens de trie avec < ) (< (car 0 a) (car 0 b)) Fin du if ) @+

Salut Donc, lili2006 et lecrabe, sujet clos grace au lisp de (gile) @+

En relisant, je viens de voir que j'ai fais un niveau de trop, mais c'est plus compréhensif Donc, le même mais pour 4 niveaux (vl-sort lst '(lambda(a b)(if (= (car a) (car b)) (if (= (cadr a) (cadr b)) (if (= (caddr a) (caddr b)) (< (cadddr a) (cadddr b)) (< (caddr a) (caddr b)) ) (< (cadr a) (cadr b)) ) (< (car 0 a) (car 0 b)) ) ) ) @+

eh ben :cool: Si avec tous les liens donnés pas (gile) VDH-Bruno n'y arrive pas ;) @+

Salut jammasterjay : Non, le lisp n'est pas prévu pour les scripts. Ce sera l'objet d'une prochaine version. lili2006 : Non, car le lisp parcours tous les textes et s'il trouve une partie du texte recherché, alors il l'affiche. Pour répondre à ta demande, cela nécessiterait deux boucles, une pour compter le nombre de textes, l'autre pour pouvoir zoomer dessus. Donc une routine deux fois plus lente. Déjà qu'avec une recherche sur des xrefs, c'est pas très rapide :( @+

Salut (vl-sort lst '(lambda(a b)(if (= (nth 0 a) (nth 0 b)) (if (= (nth 1 a) (nth 1 b)) (if (= (nth 2 a) (nth 2 b)) (if (= (nth 3 a) (nth 3 b)) (< (nth 4 a) (nth 4 b)) (< (nth 3 a) (nth 3 b)) ) (< (nth 2 a) (nth 2 b)) ) (< (nth 1 a) (nth 1 b)) ) (< (nth 0 a) (nth 0 b)) ) ) ) @+

Salut (gile) parle de la récursivité qui peut parfois se réveler indispensable. Mais il existe aussi les fonctions itératives et avec les tests au benchmark, c'est plus rapide et on évite aussi les débordements de pile. Exemple d'itération (while une_liste ... (setq une_liste (cdr une_liste)) ) @+

Salut Repiqué aux marais (if (= (getenv "PROCESSOR_ARCHITEW6432") nil) 32 64 ) @+

Salut Je vais te faciliter la tâche (non testé) (defun c:TestTXT (/ Liste Fich texte) (setq Fich (open "Vendeur.txt" "r")) (while (setq texte (read-line Fich)) (setq Liste (cons texte Liste)) ) (close Fich) (princ (reverse Liste)) ) ;_ Fin de defun @+

Salut Une fois lié, l'import/export n'est plus qu'un jeu d'enfant @+

Salut Tu as aussi ce sujet @+

Le préfixe peut-être dans le texte. Tu peux avoir par exemple PK001, ce qui donnera ensuite PK002, PK003, etc... Tu as plusieurs lisps dans le même fichier. Tout est indiqué lors du chargement du lisp. ps : le lisp doit être toujours chargé, même sans le lancer pour avoir les réacteurs. nb : Si tu fais une copie d'un attribut lié, la copie sera automatiquement incrémenté de +1 par rapport au dernier. De même que si tu effaces un attribut, la chaine de liaisons des attributs se remet en ordre. @+

Salut Tu as LATT @+

Salut Ou encore LXL @+

Oui, du moins ceux que je juge indispensable. (par exemple, je ne pense pas mettre LG, car le lisp tabloblo est mieux adapté, ni lstbl car lstatt est plus performant) @+

Salut Ah, oui Mais comme tu accèdes au dessin, tu peux charger manuellement les lisps dont tu as besoin. @+

Salut Regarde la signature ;) @+