DenisHen

J'appelle ça du sabotage ! ! !

Si elle existe, je ne la connais pas... Et je ne serais pas le seul... ;)

Salut. Pour garder l'interaction entre AutoCAD et Excel, j'utilise le super ExcelAttribut.

Salut didier. Hier aussi c'était le 3 décembre ? ;) Courage... Je suis allé chercher de l'aide sur ton site hier, et je l'ai trouvé, c'était pour (assoc...

Du coup, j'ai écris ça : ;;; Écriture dans un fichier (.long) la couleur et ;;; la longueur d'une plusieurs segments de polylignes (defun c:LongPoly ( / Coul) (setq NbDec (getvar "luprec")) (setq Select (car (entsel "\npolyligne :"))) (setq Long (getpropertyvalue Select "Length")) (setq Long (rtos Long 2 NbDec)) (setq Coul (cdr (assoc 62 (entget Select)))) (cond ((= Coul 1) (setq Coul "rouge")) ((= Coul 2) (setq Coul "Jaune")) ((= Coul 3) (setq Coul "Vert")) ((= Coul 4) (setq Coul "Cyan")) ((= Coul 5) (setq Coul "Bleu")) ((= Coul 6) (setq Coul "Magenta")) (T (setq Coul "DuCalque")) ) ;_ Fin de cond (setq Fichier (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))) (setq Fichier (strcat (getvar "dwgprefix") Fichier ".long")) (setq FichierEcrit (open Fichier "a")) (write-line (strcat Coul " = " Long ) FichierEcrit) (close FichierEcrit) (princ) ) ;_ Fin de defun Ce code écrit, dans un fichier .long au même emplacement que le .dwg, la couleur suivi de la longueur des différentes polylignes cliquées dans le dessin... Encore merci à didier... ;)

J'ai commencé à programmer en Basic et en Pascal (début des années 90), puis en Turbo Basic, puis en Visual Basic... Eh bien il n'y avait pas d'internet pour avoir de l'aide à cette époque... Ce qui me fait penser que je ne suis pas si jeune que ça... Mais merci, je le prend comme un compliment... ;)

Salut... Que dire... Nickel. Mille mercis...

Bonjour à tous... J'essai de connaitre la longueur d'une polyligne en cliquant dessus pour intégrer dans une routine plus longue. J'ai écris ça en ligne de commande, mais évidement, ça plante : (progn (setq pl (entsel)) (vlax-for pl (setq Long (vla-get-Length pl))) (princ Long)) Si quelqu'un a un conseil, une solution... Je suis preneur...

Salut à tous... Ben... Comment dire... Tout est dans le titre du sujet... Il serait judicieux qu'AutoDesk nous donne la possibilité de renommer en masse les présentations...

Je n'étais pas un fan, mais c'était un grand homme et j’avoue que j'ai certaines de ses chansons dans la tête depuis ce matin... L'idole des jeunes, Retiens la nuit, Le pénitencier (premier titre à ma guitare), Noir c'est noir, Que je t'aime, Oh Ma Jolie Sarah, La Musique Que J'aime, Gabrielle, J'ai Oublié De Vivre, Elle M'oublie, Souvenirs Souvenirs,... Et j'en oublie plein... Surtout celle où il braque une banque, j'ai oublié le titre... Adieu l'ami et merci pour tout... Ça y est, je m'en souviens, c'est "Requiem Pour un Fou"...

Ok, merci encore...

Salut (gile), et merci pour ces précisions. Donc, pour être sûr d'être dans un onglet "présentation" et en espace papier, je devrais avoir TILEMODE = 0 CVPORT = 1

Salut Olivier... C'est pile ça, je cherchais avec CVPORT... J'en étais loin... Merci...

Bonjour à tous. Pour les besoins d'une routine, je cherche à savoir si on est dans l'espace objet ou dans l'espace papier... Il doit y avoir une variable mais je n'arrive pas à mettre la main dessus... Si quelqu'un la connait, je suis preneur...

Salut lrdb, et merci pour ce lien... Mais je n'arrive pas à ouvrir le lien de l'avant dernière réponse... PS : après une recherche, j'ai trouvé le fichier cible, mais une "erreur system" se fait lors de l'installation de ces pilotes...

@Sinan : mon administrateur me demandera forcément avec quelles licences je travaillerais dans une machine virtuelle... :huh: Remarque, je pourrais toujours lui répondre : Avec les pilotes qui fonctionnaient sous Windows 7 ou 8... :angry:

Bienvenue à toi...

Salut didier, et merci pour ta réponse. Le problème est que je n'ai pas eu le choix, l'administrateur a tout passé en Windows 10 sans même nous consulter... Résultat, on a dû reconfigurer une vieille machine pour faire tourner un truc (DécaTop) sous XP... En outre, notre 1050C n'est plus sous maintenance et commence à montrer de sérieux signes de faiblesse... Donc... Investissement... Je pensais justement à une T520...

Bonjour à tous. Depuis Windows 10 et AutoCAD 2018, il m'est impossible de tracer directement sur ma HP 1050C vieillissante... On va devoir investir dans une table traçante... Mais laquelle ? ? ? Ce serait pour faire quasiment que du vecteur avec les couleurs style arc-en-ciel (rouge, vert, cyan, bleu, magenta...). C'est du plan topo à 95%. Si quelqu'un a un conseil, je suis preneur...

C'est nous qui te remercions...

La proposition de didier tiens bien la route, c'est vrai qu'un lisp faisant ce que tu désir tiendrais en quelques lignes tout en restant "simple" et nickel pour débuter en lisp... Si tu fais le saut, n'hésite pas à nous demander de l'aide...

@La Lozère, assoc y est (Médianes dans triangle) mais il n'est pas... Mode d'emploitisé, locution inventée pour faire plaisir à didier... ;) @didier, pour les exercices que tu comptes placer dans ton site... Il y en a beaucoup dans Débuter en Lisp. J'y ai trouvé une aide incroyable et très utile, mais je pense que tu sais déjà quoi faire et où prendre des exercices... ;)

Voici comment : ;;; Pour Hydro8 de CadXP.com ;;; Fait par DenisHen de CadXP.com (defun c:CoproTxt (NomPiece / Pt_Ins) (if (not (tblsearch "style" "NomPiece")) (command "-style" "NomPiece" "arial.ttf" "" "" "" "" "" "") (command "textstyle" "NomPiece") ) ;_ Fin de if (setq Haut 0.5) ; Hauteur du texte (setq Rotat 100) ; Rotation du texte (setq Pt_Ins (getpoint "\nPoint d'insertion du texte : ")) (command "_.text" "j" "mc" Pt_Ins Haut Rotat NomPiece) (command "_move" "_last" "" "_non" Pt_Ins pause) ; <-- Ajoute cette ligne *********************** (princ) ) ;_ Fin de defun En premier lieu, ne place pas le texte là où il doit être. Place-le à coté, puis, après, positionne-le exactement là où tu veux...

On peut faire apparaître le texte, mais ça demande un clique de plus...

J'ai eu la même chose avec AutoCAD 2017 sous Windows 8.1... J'ai dû formater et tout réinstaller... Depuis, j'ai désactivé toutes les mises à jours Windows et je n'ai plus jamais de problèmes... Et nous sommes un paquet à faire ça...