DenisHen

Salut le Décapode... Et merci de me répondre. J'ai trouvé le souligné : "%%u", vieux souvenir d'AutoCAD 12... Non non, pas 2012... ;) Mais ça ne fonctionne pas dans les textes multilignes... :angry:

Et ne pas oublié d'y joindre le fichier MDB.

Salut. Je pense même que ce fichier est issu d'Atlas et c'est, ce qu'on appelle : Carto200. Il y a deux types de Carto200, la V2 et la V3, ici, on parle de V3 ("...c200v3..." = c200 pour Carto200 et v3... pour V3). Mes collègues travaillent dessus et, lorsqu'ils me donnent un DWG, ils doivent IMPÉRATIVEMENT faire l'export depuis Atlas. S'ils le font depuis MicroStation, ça ne fonctionne pas.

Curieux, "Ouvrir dans la fenêtre de l'application" fonctionne sous mon MAP 2014 et MAP 2018... Ton AutoCAD est à jour ?

Bonjour à tous. Voilà, je fais des textes multilignes depuis mon Lisp. Je sais déjà que "\\P" saute une ligne. Mais comment faire pour l'italique, le souligner et le gras ? Sans pour cela définir le texte avec une police autre que le style de texte utilisé. Si quelqu'un a une astuce, un conseil... Je suis preneur...

Salut. Il me semble que tu as la possibilité d'ouvrir un fichier depuis le DesignCenter en cliquant à droite dessus. A moins que je n'ai pas compris ta question...

Salut. Je ne pense pas que l'épaisseur "-1" soit comprise par "-calque". Mais lors de la création d'un calque, c'est bien "par défaut" qui est... par défaut.

Salut. As-tu essayé d'importer des présentations avec le DesignCenter ? C'est très pratique...

Salut. As-tu bien la liste des points en faisant : Covadis 2D->Points topographiques->Afficher la liste des points ?

Salut à vous. C'est dans cette optique que j'ai répondu...

Salut. Ça m'étonnerais beaucoup que quelqu'un ait ça dans sa besace, mais on ne sait jamais. Après, le Lisp ne doit pas être bien compliqué...

Je vois qu'on a la même allergie... ;)

J'ai aussi souvent ce message, mais en redémarrant AutoCAD, ça disparaît... Je n'ai jamais compris pourquoi... Il y a aussi l'excellent AutoWBlock de DotSoft. PS : j'ai modifier le lien pour qu'il pointe sur la bonne page.

tape "B )" avec un espace entre B et ) et la "traduction" des émoticônes ne se fera pas.

Salut à tous. J'ai écris cette petite routine "vite fait" : ;;;********************************************************* ;;; Sauvegarde toutes les présentations dans une vue étendue ;;; Pour philsogood de CadXP.com ;;;********************************************************* (defun c:TestSauvPresZoomEtendu ( / lay Pos LstPresent) (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (setq LstPresent (cons (cons (vla-get-taborder lay) (vla-get-name lay)) LstPresent)) ) ;_ Fin de vlax-for (setq Pos 1) (while (/= (cdr (assoc Pos LstPresent)) nil) (command "_.layout" "_set" (vl-princ-to-string(cdr (assoc Pos LstPresent)))) (command "_zoom" "t") (setq Pos (1+ Pos)) ) ;_ Fin de while (command "_qsave") (command "_close") (princ) ) ;_ Fin de defun Tu peux maintenant faire un alias avec SP pour SauvePrésentation SP, *TestSauvPresZoomEtendu Pourrais-tu me faire un petit retour si ça fonctionne bien chez toi ?

Google me fait souvent penser à un contrôleur fiscal.. Ou l'inverse... ;)

Bon, j'ai écris ça : ;;;******************************************************** ;;; Place toutes les références externes en arrière plan ;;;******************************************************** (defun c:XrefDessous (/ Select) (if (setq Select (ssget "_X" '((0 . "INSERT")))) (progn (setq i 0) (while (setq ent (ssname Select i)) (setq NomXref (cdr (assoc 2 (entget ent)))) (if (not (tblsearch "block" NomXref)) (progn (command "ordretrace" ent "" "ar") ; (princ "\nNomXref=") ; (princ NomXref) ) ;_ Fin de progn ) ;_ Fin de while (setq i (+ i 1)) ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if (princ) ) ;_ Fin de defun Mais les noms des références externes sont incluses dans la table des blocs...

Re. @didier : je n'ai pas compris la solution, raison du #12. Je ne sais toujours pas faire la différence. Peut-être en comparant le code 2 de la Xref à la liste des blocs inclus dans le dessin ? ? ?

Salut. Perso, je suis bipolaire (sous thymorégulateurs depuis 7 ou 8 ans) donc, jamais "heureux" jamais "triste". Toujours entre les deux... Mais ça va...

C'est très curieux comme comportement, voici la liste des codes DXF d'une XRef :

Didier. Je pensais à placer ma proposition dans un bouton après la commande "_XATTACH". Comme ça, pas de clique ni de saisi en plus... exemple à placer dans un bouton : "^C^C_XATTACH;(command "ordretrace" (entlast) "" "ar");". Ce qui fonctionne chez moi. Pour ré-inventer la roue... Je n'y pensais même pas... :huh: Amicalement aussi...

Merci à vous pour votre aide. @Bonuscad : je n'arrive pas à faire fonctionner ton lisp : (defun c:TestXref ( / i) (vlax-for i (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-Acad-Object))) (if (= (vla-get-IsXref i) :vlax-true) (print (vla-get-name i)) ) ;_ Fin de if ) ;_ Fin de vlax-for ) ;_ Fin de defun AutoLisp me dit qu'il y a une parenthèse fermante absente ou mal placée... @didier : j'ai écris "coder" car je dois modifier ce code pour l'adapter à mes besoins. Mais effectivement, j'ai commencé par le copier... ;)

Bonjour didier, et merci pour cette réponse, qui fonctionne parfaitement... Je n'ai plus qu'à la coder dans mon Lisp... Encore merci...

Bonjour à tous. Voilà, je cherche, via un Lisp, à ne sélectionner que les références externes via un (ssget, mais v'là ti pô que le code DXF 0 d'une XRef est... "INSERT" ? ? ? Donc, comment faire ? ? ? Si quelqu'un a une astuce, un conseil... je suis preneur...

Salut. Je pense à un truc, si tu tapes "(command "ordretrace" entlast "" "ar")" après l'insertion de ta Xref, que se passe t'il ?