Patrick_35

Salut Avec DEF par exemple @+

Dans le tuto, tu as des exemples de dcl avec le lisp qui va bien pour exploiter la bd. Prenons le 1er exemple Le dcl //--------------------------------------------------------------------------------------------------------- // MyFirst //--------------------------------------------------------------------------------------------------------- MyFirst : dialog { label = " Hello World"; spacer; : text { label = "This is my first dialog."; alignment = centered; } spacer; ok_only; } Le lisp ;---------------------------------------------------------------------------------------------------------- ; c:MyFirst - You've got to start somewhere ; Syntax: MyFirst ;---------------------------------------------------------------------------------------------------------- (defun c:MyFirst (/ Dcl_Id%) (princ "\nMyFirst")(princ) ; Load Dialog (setq Dcl_Id% (load_dialog "MyDialogs.dcl")) (new_dialog "MyFirst" Dcl_Id%) ; Dialog Actions (start_dialog) ; Unload Dialog (unload_dialog Dcl_Id%) (princ) );defun c:MyFirst Je remarque déjà dans le lisp cette instruction (setq Dcl_Id% (load_dialog "MyDialogs.dcl")) qui me donne le nom du fichier DCL à sauvegarder Puis un copier/coller du lisp en ligne de commande pour tester la fonction c:MyFirst Et pour bien comprendre le lisp, il faut tester les instructions une par une @+

Salut Je te conseil de faire un tour ici car tu vas trouver ton bonheur dans le DCL @+

Salut Avec filter, tu fais Ajouter l'objet sélectionné (un texte avec les m²). Dans la liste tu fais ton tri, et pour la valeur de texte, en remplace le nombre par * @+

Salut (setq js (ssget "x" (list (cons 0 "TEXT,MTEXT") (cons 1 "*m²,*M²")))) @+

Bonjour On le trouve maintenant ici ps : Tous les lisps ont migré sur le blog indiqué dans ma signature @+

Mouais :casstet: No comment

Ben, je n'ai pas trop de temps en ce moment ^^ Je suis comme lili, sceptique. L'inconvénient de LXL par rapport a une extraction global, c'est qu'avec LXL, il faut tout pointer et affecter à chaque attribut une cellule excel; mais une fois fait, c'est que du bonheur. Les mises à jour fonctionnent dans les deux sens. C'est possible avec LXL, plusieurs dwg qui pointent sur le même fichier et pourquoi pas, sur les mêmes onglets (excel) C'est le but, qu'ils rendent service et en plus, comme rien n'est protégé, on peut s'en inspirer pour créer ses propres lisps Regarde avec SAS. L'avantage est que l'on peux utiliser un script de base à appliquer sur autant de dessins que l'on souhaite. Il en est de même avec Scriptor qui en plus permet de traiter une branche complète d'arborescence, quelque soit le nombre de dessins. @+

Salut Je n'ai pas pris le temps de tout lire, mais pourquoi ne pas utiliser LXL pour créer les liaisons et ensuite utiliser XL->ATT ou ATT->XL en script pour traiter tous les dessins ? Un lien pour voir tout ce qui accompagne LXL @+

Salut La réponse est OUi, mais il s'agit d'un développement spécifique Regarde avec (vlax-dump-object (vlax-get-or-create-object "Word.Application") T) @+

Salut Après le menubar à 1, Outils --> Espace de travail --> Autocad classique @+

Salut (vla-get-path (vla-get-activedocument (vlax-get-acad-object))) Pour tout connaitre sur le document actif (vlax-dump-object (vla-get-activedocument (vlax-get-acad-object)) T) @+

Salut Et avec Rbloc ? @+

Salut (vlax-release-object obj) ; J'update mon object Non, tu effaces de la mémoire l'objet, regarde l'aide à ce sujet Il existe (vla-update obj) Et inverse la sauvegarde avant d'effacer l'objet (vla-save doc) (vla-close doc) (vlax-release-object doc) ; Mon document du début n'existe plus ps : un (vla-close doc T) permet la sauvegarde du dessin @+

Salut Je n'ai pas le temps de m'étendre sur le sujet, mais je trouve que la prog itérative/impératif est plus intuitif et simple à mettre en oeuvre (a mon sens). De plus, elle évite les débordements de pile. Définir une variable voir deux (pour les itérative) contre une fonction (pour les récursives). Why not! Quant aux "effets de bords", je veux bien croire que cela peut avoir une incidence en c++, mais en lisp... Surtout si le prog est bien structuré et que l'on a bien fait attention à ses variables (locale/globale) Donc pour vérifier que jé n'ai pas oublié de variable qui "traine", j'utilise cette procédure (setq vtmp (atoms-family 1)) Je lance le lisp et fait toutes les manips possible. Et pour vérifier que tout est ok au niveau variables (vl-remove-if '(lambda(x)(member x vtmp))(atoms-family 1)) ps : Je ne reste pas fermé aux récursives, bien au contraire, mais je préfère le simple et fonctionnel, surtout quand il s'agit de modifier un lisp qui a été fait, il y a quelques temps déjà. pps : Bien vu pour la coquille. ppps : Que je remercie au passage pour ses routines et ses lignes de codes dans lesquels il m’arrive de puiser allègrement Merci, c'est gentil et tu as raison, c'est de cette manière que l'on progresse pppps : ben non, ça suffit ;) @+

Salut Je ne vais pas revenir sur ce qu'a indiqué (gile) Avec JAV, de 1577ko à 58ko @+

Salut Je n'avais pas percuté sur les blocs imbriqués. C'est ta solution qui est la plus simple. ps : wcmatch est quand même mieux qu'un substr et permet plus de solutions @+

Salut Et pourquoi ne pas utiliser (ssget "x" '((0 . "INSERT") (2 . "Marque*"))) @+

Salut C'est bien, mais avec polar, tu peux additionner les angles. Avec le point de base, la longueur et la largeur, les calculs pour un triangle rectangles sont faciles. Tout cela pour éviter la rotation et donc dessiner directement le rectangle correctement. @+

Bonjour Ma réponse au quiz du jour. Je pense que les attributs n'ont plus le mode invisible (code dxf 70) ou encore que la variable ATTMODE est sur 2. @+

Salut Tu as déjà regardé la fonction polar ? @+

Bonjour Tous mes lisps se trouvent maintenant sur le lien en bas de ma signature, soit cette adresse http://patrick.blog-cao.com/ @+

Salut Pourquoi toujours faire une récursive ? (defun pa:c-member (expr lst / tab) (while (and (/= (car lst) expr) lst) (setq tab (cons (car lst) tab) lst (cdr lst) ) ) (reverse tab) ) @+

Salut Dans ton lisp général, Tu peux ajouter le chargement Par exemple (load"c:/dir1/dir2/dir3/mbak.lsp") (c:mbak) ps : le ms-dos ne nous rajeunit pas ;), mais tellement pratique quand on le connait bien @+

Non, c'est un dossier nommé bak qui est créé dans le répertoire du dessin courant. Tu peux avoir d'autres dessins dans le répertoire qui utiliseront le même dossier. Pour la manip, il suffit de faire la simplement de faire la sauvegarde. Le reste se fait tout seul (contrairement au lisp movebak des express tools) grâce aux réacteurs. Il suffit pour cela de charger le lisp au lancement de chaque dessin, c'est tout (autoload, appload, etc… faire une recherche sur ce sujet). Pour le nom du dossier, voir de l'emplacement général (par exemple en répertoire pour tous les dessins), j'ai indiqué quelle variable modifier. @+