bryce

Je ne pense pas que quelqu'un ait l'intention de le copier sur son disque dur pour vérifier... ;)

Bonjour, Mon antivirus ne veut pas que je télécharge ce fichier.. :unsure: J'ai déjà vu des fichiers acaddoc.lsp qui se répliquaient eux-même (un peu comme des virus), sur certaines versions pas très officielles...

Le code que tu viens de poster n'exclut pas les objets dans l'espace Papier, mais oblige à faire une sélection manuelle. Pour sélectionner toutes les lignes ou polylignes (2D, 3D et "légères") dans l'espace Objet: (if (setq ss (ssget "_A" '((0 . "LINE,*POLYLINE")(410 . "Model"))))

Relis bien le bout de code que j'ai posté... ;)

Bonjour, (if (setq ss (ssget "_A" '((0 . "LWPOLYLINE")(410 . "Model")))) :unsure: Ton Lisp ne prend en compte que les polylignes en fait...

Sinon, un petit Lisp vite fait: (defun c:font ( / st acdoc) (vl-load-com) (setq acdoc (vla-get-activedocument (vlax-get-acad-object)) st (vla-get-TextStyles acdoc) ) (vlax-for s st (vla-put-FontFile s "simplex.shx") (vla-put-Height s 0.0) (vla-put-Width s 0.7) ) (vla-regen acdoc 0) )

Bonjour, Pourquoi ne pas tout simplement créer un style avec les caractéristiques souhaitées, puis l'appliquer à tous les textes existants (avec la palette Propriétés par exemple) ?

Bonjour, C'est quand même autre chose que du langage SMS, bravo ! ^_^

Bonjour, Tu es vraiment 100% sûr(e) que tes textes ne sont pas annotatifs ? Tu devrais poster un fichier en exemple, ce serait plus facile pour t'aider. ;)

Bonjour, 100% d'accord avec Christian, l'aide de la 2013 est une grosse bouse... <_< On a plus vite fait de passer par Google... quand on a une connexion...

Bonsoir, 1) En effet, il faut extrapoler la syntaxe Lisp à partir de ce qui est indiqué dans l'aide VBA. 2) Les deux fonctionnent, à ma connaissance. 3) C'est bien cela (même si on ne récupère pas le nom de l'objet, mais l'objet lui-même). 4) Pas d'éditeur VLisp dans ZWCAD à ce jour, mais Notepad++ fait très bien l'affaire. Ça oblige à réfléchir un peu plus lors du débogage, c'est tout... :P

Bonsoir, C'est le cas depuis la 2011 en fait, quand PICKADD est à 2 (par défaut). Sauf que dans la 2011 et la 2012, lorsque SELECT était utilisée dans une macro c'était l'ancienne version de la commande qui était lancée. On pouvait forcer l'utilisation de la nouvelle version avec ^R: ^c^c^Rselect;\_move;@;\ fonctionne sur une 2011, 2012 ou 2013... Apparemment, c'est maintenant la nouvelle version qui est lancée par défaut, d'où le changement de comportement. A priori, pas d'autre choix que de modifier la macro, ou mettre PICKADD à 1... :mellow:

Bonsoir, Non, l'assistant de migration d'une LT ne "voit" pas les versions complètes installées sur le poste.

Bonjour, (getpoint) retourne une liste de coordonnées (X Y Z). (car) permet de récupérer le 1er élément d'une liste, et (cadr) le 2nd. Donc si tu fais (setq P0 (getpoint "Choix du point : ")) alors (car P0) te donne la coordonnée X du point saisi, et (cadr P0) sa coordonnée Y. ;)

Bonjour, Pas si elle est utilisée en tant qu'image d'arrière-plan (voir la boîte de dialogue "Gestionnaire de vues")... ;)

Bonjour, Bonne nouvelle en effet, est-il possible de beta-tester cette nouvelle version ? :unsure:

Bonjour, En cas d'erreur ou d'interruption lors de l'exécution, l'interpréteur LISP appelle automatiquement la fonction *error*, en lui passant comme argument un message d'erreur. La fonction *error* par défaut ne fait a priori pas grand chose, à part afficher dans la ligne de commande le message d'erreur reçu en argument. Pour mettre en place ta propre gestion d'erreurs, il te suffit donc de redéfinir la fonction *error*. Voici un exemple basique: (defun *error* (errmsg) (setvar "osmode" accro) (setvar "cmdecho" echo) (if errmsg (print errmsg) ) (princ) ) Mais il faut aussi penser à restaurer la fonction *error* par défaut une fois l'exécution de ton programme terminée, tout comme tu restaures les variables OSMODE et CMDECHO. Pour cela, le plus simple est de déclarer dans ton programme une variable locale *error*, et de redéfinir la fonction *error* localement (à l'intérieur même de ton programme). Ainsi elle remplacera la fonction *error* par défaut durant l'exécution de ton programme, puis sera automatiquement détruite. Par exemple: (defun c:cdernier (/ *error* ss1 ang dist0 dist1 pt1 pt2 echo accro) (defun *error* (errmsg) (setvar "osmode" accro) (setvar "cmdecho" echo) (princ errmsg) ) (princ "\Copie depuis dernier point :\n") (princ) (setq echo (getvar 'cmdecho) accro (getvar 'osmode)) ... )

Bonjour, Tu voudrais une démo de quoi exactement ? Tu ne sais pas comment créer un bloc avec attributs ? :mellow:

C'est possible, il faut prévoir des attributs dans tes blocs et modifier la formule Excel pour en tenir compte.

Voici un exemple en vidéo à partir de tes données: Il faudra peut-être adapter si les blocs doivent être insérés en 2D, ou s'ils comportent des attributs, etc.

Bonjour, Il vaut mieux en effet ne pas utiliser ce type de ligne, sous peine de galérer en permanence pour gérer les échelles des types de ligne. Je te conseille de les remplacer par un motif de hachures si c'est possible, ou par un bloc dynamique comme le suggère FormaBois. Voici un exemple de bloc: http://www.box.com/s/07ed2b648bdb78a41d1e Il suffit de lui donner une échelle d'insertion correspondant à l'épaisseur d'isolant (en mm), puis d'utiliser la poignée pour définir la longueur.

Voici une vidéo concernant les versions antérieures :

On peut le faire dans toutes les versions >= 2004, il faut si besoin créer une nouvelle action de double-clic pour les cotes. ;)

Bonjour, Voici un extrait du contenu du fichier que tu as envoyé: 16,2238826.009,1711547.121,39.381,,11 17,2238816.385,1711543.789,39.859,,12 18,2238806.522,1711539.656,40.125,,30 Je suppose que le premier chiffre de chaque ligne est un matricule, et que c'est le dernier chiffre qui indique le type de point, et donc le nom du bloc à insérer ?

Si tes points sont des blocs, il faut simplement récupérer la valeur de l'attribut qui contient le numéro du point. Tes points topos sont-ils des blocs ?