Patrick_35

Bonjour Je cherche à télécharger une version pleine. J'ai déjà la souscription mais impossible de mettre la main sur un lien sur de site d'Autodesk :blink: hors version d'essai. Merci @+

Salut Comme tu sembles avoir quelques problèmes avec tes chemins relatifs, voici un vieux lisp @+ Rxref.lsp

Salut Merci (gile) pour ces précisions. Si je résume, on utilise la syntaxe avec SendCommand comme pour un script. @+

Ma réponse va se faire en lisp ;) Dans la ligne de commande, quand tu fais Commande: (command "_.layer") Tu n'as pas la boite de dialogue. Maintenant, pour la faire apparaitre, tu fais en ligne de commande Commande: (initdia) Commande: (command "_.layer") Et miracle, le gestionnaire des calques :D @+

Je suis comme Olivier, je ne connais pas le VBA, mais j'ai déjà vu des codes qui font appels à des fonctions lisp en VBA, d'où ma réponse. Un thisdrawing.sendcommand("(initdia)") ? @+

Ben, avec la commande _.layer (calque) ps : avec un (initdia) auparavant en lisp @+

Salut Avec la commande _.layerclose (fermercalque) @+

Salut Eh bien, voilà une chose que j'ignorais. Dans mon esprit, une fonction vlax fait appelle à des objets vla. Merci Bruno @+

@philous2 Je viens de tester ton lisp et il ne répond pas à la demande Johann ? @pbrion Exact, le lisp ne traite pas des arcs de cercles. @zebulon_ Tu peux éviter d'utiliser un (car (reverse ...)) avec la fonction last @+

Je viens de l'améliorer si les deux polylignes ne sont pas dans le même sens (defun c:jpe(/ ent1 ent2 ent3 pts) (and (setq ent1 (entsel "\nSélectionnez la polyligne de référence : ")) (setq ent2 (entsel "\nSélectionnez la polyligne à joindre : ")) (setq ent1 (entget (car ent1))) (setq ent2 (entget (car ent2))) (eq (cdr (assoc 0 ent1)) "LWPOLYLINE") (eq (cdr (assoc 0 ent2)) "LWPOLYLINE") (setq pts (vl-remove-if-not '(lambda(x)(eq (car x) 10)) ent2)) (setq ent3 (append (vl-remove-if '(lambda(x)(vl-position (car x) '(-1 5 330))) ent1) (if (< (distance (cdr (assoc 10 ent1)) (car pts)) (distance (cdr (assoc 10 ent1)) (last pts)) ) (reverse pts) pts ) ) ) (setq ent3 (subst (cons 90 (+ (cdr (assoc 90 ent1)) (cdr (assoc 90 ent2)))) (assoc 90 ent3) ent3)) (setq ent3 (subst (cons 70 1) (assoc 70 ent3) ent3)) (entmake ent3) (progn (entdel (cdr (assoc -1 ent1))) (entdel (cdr (assoc -1 ent2))) ) ) (princ) ) @+

Salut Un lisp vite fait (defun c:jpe(/ ent1 ent2 ent3) (and (setq ent1 (entsel "\nSélectionnez la polyligne de référence : ")) (setq ent2 (entsel "\nSélectionnez la polyligne à joindre : ")) (setq ent1 (entget (car ent1))) (setq ent2 (entget (car ent2))) (eq (cdr (assoc 0 ent1)) "LWPOLYLINE") (eq (cdr (assoc 0 ent2)) "LWPOLYLINE") (setq ent3 (append (vl-remove-if '(lambda(x)(vl-position (car x) '(-1 5 330))) ent1) (reverse (vl-remove-if-not '(lambda(x)(eq (car x) 10)) ent2)))) (setq ent3 (subst (cons 90 (+ (cdr (assoc 90 ent1)) (cdr (assoc 90 ent2)))) (assoc 90 ent3) ent3)) (setq ent3 (subst (cons 70 1) (assoc 70 ent3) ent3)) (entmake ent3) (progn (entdel (cdr (assoc -1 ent1))) (entdel (cdr (assoc -1 ent2))) ) ) (princ) ) ps : Grillé par zebulon_ mais je laisse quand même le code @+

Salut Pour cela, tu as aussi GEF @+

C'est bien cela, mais on se méfie des abus de langage. (AddAttribute pour des attributs) @+

Si tu as trouvé tout seul, bravo, c'est comme cela qu'on progresse vite. Je remarque que tu fais la création d'un texte et qu'ensuite tu changes plusieurs choses. Tu as déjà regardé la fonction lisp entmake ? @+

Salut @+

Salut Un de mes forums préférés :D @+

Salut Fonctionne pour un Texte (et non mtext ni attribut) (vlax-put noutext 'alignment 2) Fonctionne pour un attribut (setq position (vlax-get noutext 'insertionpoint)) (vlax-put noutext 'alignment 2) (vlax-put noutext 'textalignmentpoint position) @+

Salut En général, on met un "" pour terminer une commande quand c'est nécessaire. @+

Salut Notre bibliothécaire aux pinces d'or ;) @+

Salut La réponse de capde06 est excellente. Insérer un champ --> Variable système --> ctab @+

Salut Et avec LXL ? @+

Salut Je t'ai fait un lisp qui remplace tout les wipeouts par des hachures solide avec la couleur 255,255,255. Même dans les blocs. Edit : Mise en arrière plan des hachures. @+ Rwh.lsp

Tu es sur la bonne voie. Pour tester, tu fais le tout en ligne de commande, histoire de bien valider la syntaxe. Une fois que c'est ok, on le met en forme dans un fichier texte et pour terminer, on recopie la ligne lisp directement sur la ligne de commande et on regarde le résultat. Normalement, c'est bon. (command "script" "chemin+fichier script") --> peut-être besoin de la fonction strcat (strcat chemin fichier), ou besoin de doubler les "\". Regarde la structure avec (findfile "acad.exe") (command "_qsave") --> là, ça devrait fonctionner ;) . Une ligne en lisp de bonne @+

Au tant pour moi. Je viens de comprendre ton histoire d'angle au vu du bloc de Steven. Je pensais à l'angle de l'objectif qui changeait en fonction de la portée. Du moment que tu as trouvé ton bonheur ;) @+

Et le bloc que j'ai donné en exemple ne fonctionne pas ? @+