Patrick_35

Salut On sort du cadre du site, mais bon ;) Je suppose que tu vas faire un atelier avec plusieurs prises, donc combien de prises pour le garage et quel est la puissance du plus gros consommateur quel tu vas brancher sur ces prises ? Le poste à souder doit être électrique. Quel est sa puissance ? Tu as aussi besoin de l'éclairage pour le garage je suppose ? La porte est électrique ? Le plus gros du boulot est de bien cerner la puissance, après c'est facile @+

Ah oui, je n'avais pas vu. Ce que je t'ai donné est pour une version pleine A part un script, je n'ai pas d'autres solutions @+

Salut Un petit lisp pour toutes les fenêtres sur toutes les présentations @+ (defun c:vpc(/ js n txt) (defun MsgBox (Titre Bouttons Message / Reponse WshShell) (setq WshShell (vlax-create-object "WScript.Shell")) (setq Reponse (vlax-invoke WshShell 'Popup Message 0 Titre (itoa Bouttons))) (vlax-release-object WshShell) Reponse ) (defun InputBox (Titre Message Defaut / *acad* users1 valeur) (setq *acad* (vlax-get-acad-object) users1 (getvar "users1")) (acad-push-dbmod) (vla-eval *acad* (strcat "ThisDrawing.SetVariable \"USERS1\"," "InputBox (\"" Message "\", \"" Titre "\", \"" Defaut "\")")) (setq valeur (getvar "users1")) (setvar "users1" users1) (acad-pop-dbmod) valeur ) (setq txt (InputBox "VPC" "Veuillez donner le nom du calque de destination" (getvar "clayer")) n 0) (if (not (eq txt "")) (if (tblsearch "layer" txt) (if (setq js (ssget "x" (list (cons 0 "VIEWPORT")))) (progn (while (setq ent (ssname js n)) (setq ent (vlax-ename->vla-object ent)) (vla-put-layer ent txt) (setq n (1+ n)) ) (princ (strcat "\n" (itoa (1- n)) " Fenêtre(s) sur le calque " txt)) ) ) (MsgBox "VPC" 48 "Le calque n'existe pas") ) ) (princ) ) (princ "\nVPC chargé. Tapez VPC pour lancer le lisp.") (princ) ps : correction du lisp, j'ai été un peu trop vite ;) [Edité le 18/9/2006 par Patrick_35]

Salut Clique sur inverser le filtre @+

Salut Lecrabe Il est possible de faire quelque chose, mais pourquoi des xdatas et pas un dictionnaire ? De plus les xdatas doivent être rattachés à des entités, ce qui est déjà le cas pour des attributs (rattaché à un bloc) Ce qui fait que je ne comprends pas ce que tu souhaites faire exactement et où tu veux en venir ? Le Patrick_35 interrogatif @+

Oui Le lisp modifié (defun c:saisie(/ att sel) (while (setq sel (car (entsel "\nSélectionnez un texte (enter=exit) : "))) (setq sel (entget sel)) (if (member (cdr (assoc 0 sel)) '("TEXT" "MTEXT")) (progn (while (setq att (car (nentsel (strcat "\nValeur du texte à transférer : " (cdr (assoc 1 sel)) "\nSélectionnez un attribut (enter=exit) : ")))) (setq att (entget att)) (if (eq (cdr (assoc 0 att)) "ATTRIB") (progn (setq att (subst (assoc 1 sel) (assoc 1 att) att)) (entmod att) (entupd (cdr (assoc -1 att))) ) (princ "\nCe n'est pas un attribut.") ) ) (entdel (cdr (assoc -1 sel))) ) (princ "\nCe n'est pas un texte.") ) ) (princ) ) @+

Salut Un petit truc vite fait (defun c:saisie(/ att sel) (while (setq sel (car (entsel "\nSélectionnez un texte (enter=exit) : "))) (setq sel (entget sel)) (if (member (cdr (assoc 0 sel)) '("TEXT" "MTEXT")) (progn (while (setq att (car (nentsel (strcat "\nValeur du texte à transférer : " (cdr (assoc 1 sel)) "\nSélectionnez un attribut (enter=exit) : ")))) (setq att (entget att)) (if (eq (cdr (assoc 0 att)) "ATTRIB") (progn (setq att (subst (assoc 1 sel) (assoc 1 att) att)) (entmod att) (entupd (cdr (assoc -1 att))) ) (princ "\nCe n'est pas un attribut.") ) ) ) (princ "\nCe n'est pas un texte.") ) ) (princ) ) @+

Je suis d'accord Ce qu'il fait est la meilleure des publicités. C'est juste pour le taquiner un peu ;) @+

Oui, en ouvrant simplement le xref Utilise la commande lman des express tolols @+

Bonjour a vous tous Juste une question Autospeed Puisque tu donnes généreusement les astuces sur la manière de se servir de tes outils sans avoir besoin d'acheter une licence, pourquoi ne pas mettre tout ça mettre en free ? @+

Je crois que tu oublies notre cher Bonus :cool: @+

Oui, enfin les express tools (donc les acet-...) sont des outils à part, mais c'est du lisp qu'il faut savoir lire, ce qui n'est pas toujours évident. @+

Pour trouver les arguments de la boite de dialogue, tu fais sur la ligne de commande (acet-overkill-ui-dlg) et tu recopies dans la variable lst ton résultat @+ ps : c'est bien dans la ligne que tu as trouvé

Salut (setq js (ssget "x" (list (cons 0 "*POLYLINE")))) @+

Pour l'accès au pgp, j'aurai plutôt tendance à utiliser un (findfile "acad.pgp") @+

Le fichier à ouvrir est le AutoCAD.pgp qui est un fichier texte Donc un open avec un read-line ou un write-line devrait faire l'affaire. tout dépend de ce que ti souhaites faire @+

Salut Essaye ceci (load (findfile "overkill.lsp")) (acet-error-init (list '("cmdecho" 0) T)) (setq ss (ssget "x")) (setq ss (car (acet-ss-filter (list ss nil T)))) (setq lst '(1.0e-006 nil nil nil nil)) (if lst (progn (setq lst (cons ss lst)) (acet-overkill2 lst) ) ) (acet-error-restore) @+ ps : édité pour le rendre transparent [Edité le 13/9/2006 par Patrick_35]

Dans ce cas, utilise la syntaxe (c:aliasedit) @+

Salut Si tu regardes bien, il n'est pas si compliqué que ça. Il est construit de la même manière que Ctr @+

Salut J'ai un peu de mal à comprendre ce que tu souhaites exactement @+

Salut Oui, mais autant utiliser _aliasedit des express tools @+ [Edité le 13/9/2006 par Patrick_35]

Ajout dans la liste de la fonction JSD Correction d'un bug dans la légende ---> V1.11 Amélioration de LATT --> V6.32 @+

Salut Voici un lisp basé sur les réacteurs (donc à lancer à chaque ouverture de dessin) Tu fais ta commande dans autocad (par exemple copier) et tu désire déplacer ce qui a été copié. Donc tu lances la commande déplacer et durant la sélection, tu rentres le paramètre !jsd qui est la sélection de ce qui a été dupliqué @+ [Edité le 12/9/2006 par Patrick_35]

Dans l'aide Après plusieurs essais, je trouve que le sTitle n'est pas optionnel et impossible et lancer la boite de dialogue sur une racine, quelque soit le lecteur. J'ai essayé c, c:, c:\\ et enfin c:/ et la même chose sur d'autres lecteur, que nenni. Donc, si quelqu'un sait comment faire Merci d'avance @+

Ou encore comme ceci (mapcar '(lambda (x) (setvar "CTAB" x)(command "zoom" "_ex")) (layoutlist)) @+