bryce

Bonjour, Oui, si c'est un Pdf "image". Mais il existe aussi des Pdf vectoriels, c'est là que c'est plus intéressant. ;) Justement parce que ce sont des Pdf vectoriels, pas des images.

Bonjour, Je ne me souviens pas avoir vu un jour une icône grisée, que ce soit dans le ruban ou dans une barre d'outils. A ma connaissance, ça n'est possible que dans les menus déroulants... :unsure:

Bonjour, Je ne comprends toujours pas ton souci... AutoCAD ne choisit rien du tout : c'est toi qui sélectionne les objets que tu veux isoler, c'est-à-dire garder visibles. Tous les autres objets sont donc masqués, les paramètres de la sélection similaire n'ont rien à voir là dedans...

Bonjour, Arf zut, je n'avais pas de LT sous la main pour tester... :( Ça pourra toujours servir pour ceux qui auraient une vieille version complète...

Mais si... *^C^C_dimlinear;\\\$m=$(if,$(eq," 0",$(substr,$(getvar,lastprompt),$(-,$(strlen,$(getvar,lastprompt)),4),2)),_dimoverride;dimlfac;$(*,$(getvar,dimlfac),100);;d;,^Z) :P Une condition pour que ça fonctionne : afficher le même nombre de décimales sur toutes les cotes (ne pas cocher "supprimer les zéros de fin" dans le style de cote). La macro ci-dessus est prévue pour des cotes avec 2 chiffres après la virgule.

C'est une notation courte pour créer une liste, au lieu d'utiliser la fonction (list). ;)

Bonjour, J'ai regardé vite fait, et ton problème vient du fait que pour un attribut multilignes il y a plusieurs codes 1, et le premier contient une chaîne vide... :huh: Du coup, je pense que c'est bien plus facile à faire en ActiveX. Exemple vite fait, sans aucune vérification du type d'objet cliqué: (defun c:dda (/ att newtex) (vl-load-com) (setq att (vlax-ename->vla-object (car(nentsel)))) (setq newtex (getstring "\nNouveau texte : ")) (vla-put-TextString att newtex) )

Bonjour, Tu fais un test pour savoir si la variable nombloc est nil, mais elle ne peut pas être nil puisque dès le départ on lui a affecté la valeur "Cartouche Aliance"... ;) Si j'ai bien compris ce que tu veux faire, on peut utiliser nombloc pour y stocker une liste de noms plutôt qu'un seul nom : ; Paramètres (setq nombloc '("Cartouche Aliance" "LU CARTOUCHE")) ; noms des blocs à traiter puis dans le code remplacer (if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (= nombloc (vla-get-effectivename obj)) (= :vlax-true (vla-get-hasattributes obj) )) par (if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (member (vla-get-effectivename obj) nombloc) (= :vlax-true (vla-get-hasattributes obj) )) pour tester si le nom du bloc en cours de traitement fait partie de la liste.

IUPRAPIDA, berk, c'est nul comme nom de commande ! :angry: Je préfère de loin QUICKCUI, ça sonne mieux ! :P

Bonjour, On peut charger et exécuter un lisp depuis un script. ;) Balyoa, tu n'aurais pas dans ton script 2 lignes vides après la commande wbl2, qui la feraient se répéter ?

Bonjour, Pour l'isolation, je ne comprends pas ton souci: Ce n'est pas lui qui les choisit, c'est toi... :huh: Pour la sélection similaire, en tapant la commande au clavier (SELECTSIMILAR) il y a une option PAramètres qui permet de choisir les propriétés prises en compte. Par défaut c'est même type d'objet, même calque (et même nom pour les blocs).

Bonjour, La semelle a une épaisseur 15.6, et tu essaies de faire un raccord de rayon 17.5... :huh:

Bonjour, Et au lieu de passer par la palette Propriétés, tu ne peux pas double-cliquer sur le bloc tout simplement ? :unsure: Le double-clic sur un bloc avec attributs lance directement l'éditeur d'attributs (ta 2e capture), tu gagnes déjà une étape. Si en plus tu penses à te positionner sur le bon attribut avant de double-cliquer, sa valeur sera déjà sélectionnée lors de l'affichage de l'éditeur (sauf si c'est un attribut multilignes, ce qui semble être le cas).

Bonjour, Le nom de la variable est LTSCALE. ECHLTP, c'est juste la commande française qui permet de modifier cette variable. On peut taper ECHLTP, LTSCALE ou MODIFVAR LTSCALE indifféremment. C'est une variable qui est enregistrée dans le dessin, et non une variable système. Si elle est réinitialisée à 2 à chaque ouverture d'un dessin, c'est sans doute parce que ça a été ajouté à un Lisp chargé automatiquement (peut-être acaddoc.lsp, acad2012.lsp, un fichier mnl...).

Bonjour, http://cadxp.com/index.php?/topic/33927-routine-cartouche/page__view__findpost__p__184164 ;)

Bonsoir, Vite fait... (defun C:PAGING( / nombloc attpage attnumpage adoc numtabs atts id lay_field) ; Paramètres (setq nombloc "Cartouche Aliance") ; nom du bloc cartouche (setq attpage "PAGE") ; étiquette de l'attribut numéro de page (setq attnumpage "#PAGE") ; ; étiquette de l'attribut nombre de pages ; Fin paramètres (vl-load-com) (setq adoc (vla-get-activedocument (vlax-get-acad-object))) (setq numtabs (itoa (length (layoutlist)))) (vlax-for lt (vla-get-layouts adoc) ;(vla-put-activelayout adoc lt) ; optionnel (vlax-for obj (vla-get-block lt) (if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (= nombloc (vla-get-effectivename obj)) (= :vlax-true (vla-get-hasattributes obj) )) (progn (setq atts (vlax-invoke obj 'getattributes)) (foreach x atts (if (= attpage (vla-get-tagstring x)) (progn (setq id (vla-get-objectid (vla-get-layout (vla-objectidtoobject adoc (vla-get-ownerid obj))))) (setq lay_field (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id)">%).Taborder \\f \"%tc1\">%")) (vla-put-textstring x lay_field) ) ) (if (= attnumpage (vla-get-tagstring x)) (vla-put-textstring x numtabs) ) ) ) ) ) ) ;(vla-put-activelayout adoc (vla-item (vla-get-layouts adoc) 0)) ; activer Layout1, optionnel (princ) ) (prompt "\nCommande à utiliser : PAGING") (princ)

Bonjour, Informé comment ? Par SMS ? :P

Bonjour, Voici une version de attout.lsp que j'ai modifiée pour ajouter la prise en charge des calques: http://www.creao.fr/uploads/lisp/attout.lsp Après avoir chargé le lisp, les commandes à utiliser sont les mêmes qu'avec la version d'origine (ATTOUT puis ATTIN). Si le calque défini dans Excel n'existe pas dans le dessin lors de l'utilisation de ATTIN, il sera créé automatiquement. Tu peux éventuellement remplacer le fichier attout.lsp d'origine (dans le dossier "Express" du répertoire d'installation d'AutoCAD), mais gardes-en une copie au cas où... ;)

Lovecraft, je crois que tu parles à un robot spammeur (regardes sa signature)... :D

Bonjour, Le fichier AutoCAD.pgp permet de personnaliser les alias de commandes. Pour les raccourcis clavier, c'est dans la boîte de dialogue "Personnaliser l'interface utilisateur" (commande CUI) que ça se passe. ;)

Bonjour, Une proposition: (defun lsubst ( l1 l2 liste / ) (mapcar '(lambda (x / i) (if (setq i (vl-position x l2)) (if (< i (length l1)) (nth i l1) x ) x ) ) liste ) )

Bonsoir, Sur les versions "récentes" (2007 et +), pas besoin de lisp pour faire une hélicoïde, il y a une commande native pour ça. Et la commande balayage ensuite pour faire une extrusion le long de la trajectoire hélicoïdale. ;)

Bonjour, Pour la grille, c'est un paramètre du dessin. Pour un nouveau dessin, c'est dans le gabarit que ça se passe.

Bonjour, Variable TEXTSTYLE ? :unsure: :P

Bonjour, Si les arcs sont dans un plan parallèle au plan XY, il suffit de changer la coordonnée Z du centre pour déplacer l'arc à une "altitude" de 0. Tes arcs sont pivotés par rapport au plan XY ?