MrWoolf

Merci.

Cela correspond à ta manière de coder ? Invite indique que l'argument est une question ? Ou est-ce une façon générale de l'indiquer ?

Merci pour la précision.

Bonjour Bruno, Pourquoi privilégies-tu la fonction (nentsel à la fonction (entsel ? La différence entre les deux est expliqué dans ce sujet mais visiblement dans mon cas, la fonction (entsel semble suffisant. Je ne comprends pas l'argument invite. Correspond-il à une question ?

Bonjour Bruno, Ah ouais ... Dans le principe, ça me convient : plus court, mieux structuré, plus mathématique. Maintenant faudra être capable de le répéter. Merci !

Bonjour Bryce, Et merci !

Bonjour à tous, Voici le code sur lequel je bute : ; 2. Choix du type de renseignement (setq quid (getstring "\nConnaissez-vous la hauteur sous plafond ? Si oui, entrez-la ; si non, validez.")) ; (if (/= quid nil) ; 3. Saisie de la valeur de hauteur sous plafond (progn (setq dz quid) (setq dz (atof dz)) ; COnversion de la chaine de caracteres en nombre (setq dz (rtos dz 2 2)) ; Definit le nombre de decimales ) ; 41. Extraction de l'altimetrie-plafond (z1) par selection du point 1 (pt1) (progn (setq pt1 (car (entsel "\nSélectionner l'altitude du plafond : "))) ; Selection de l'entite (setq z1 (cdr (assoc '1 (entget pt1)))) ; Extraction de la valeur de texte initiale (setq zz1 (atof z1)) ; Transformation de la chaine de caracteres en nombre reel ; 42. Extraction de l'altimetrie-plancher (z2) par selection du point 2 (pt2) (setq pt2 (car (entsel "\nSélectionner l'altitude du plancher :"))) ; Selection de l'entite (setq z2 (cdr (assoc '1 (entget pt2)))) ; Extraction de la valeur de texte initiale (setq zz2 (atof z2)) ; Transformation de la chaine de caracteres en nombre reel ; 43. Soustraction entre les deux valeurs altimetriques (setq dz (- zz1 zz2)) ; Calcul de la difference entre les deux altitudes (setq dz (rtos dz 2 2)) ; Definit le nombre de decimales ) ) Comme vous l'avez compris, je souhaite lancer deux commandes distinctes selon la réponse à la question. Avant j'utilisais deux réponses "Oui" et "Non". Code précédent: ; 2. Choix du type de renseignement (initget 128 "Oui") ;Liste de mot-cle valable pour la question suivante (setq quid (getkword "\nConnaissez-vous la hauteur sous plafond ? [Oui/Non] <Non> ")) ; 3. Saisie de la valeur de hauteur sous plafond (if (= quid "Oui") (progn (setq dz (getstring "\nSaisissez la valeur de la HSP -en m- : ")) (setq dz (atof dz)) ; COnversion de la chaine de caracteres en nombre (setq dz (rtos dz 2 2)) ; Definit le nombre de decimales ) ; 41. Extraction de l'altimetrie-plafond (z1) par selection du point 1 (pt1) (progn (setq pt1 (car (entsel "\nSélectionner l'altitude du plafond : "))) ; Selection de l'entite (setq z1 (cdr (assoc '1 (entget pt1)))) ; Extraction de la valeur de texte initiale (setq zz1 (atof z1)) ; Transformation de la chaine de caracteres en nombre reel ; 42. Extraction de l'altimetrie-plancher (z2) par selection du point 2 (pt2) (setq pt2 (car (entsel "\nSélectionner l'altitude du plancher :"))) ; Selection de l'entite (setq z2 (cdr (assoc '1 (entget pt2)))) ; Extraction de la valeur de texte initiale (setq zz2 (atof z2)) ; Transformation de la chaine de caracteres en nombre reel ; 43. Soustraction entre les deux valeurs altimetriques (setq dz (- zz1 zz2)) ; Calcul de la difference entre les deux altitudes (setq dz (rtos dz 2 2)) ; Definit le nombre de decimales ) ) Plutôt que de répondre "Oui" à la question "Connaissez-vous [...]", je souhaite rentrer la valeur connue et gagner une saisie. Seulement, c'est là que je bloque. J'ai essayé plusieurs variations (getkword, getstring, (if (= [...], (if (>= [...],, (if (/= [...], ...) D'avance merci. Et comme on dit, sur l'internet : http://zusiddiqui.files.wordpress.com/2012/08/sorry.jpg?w=519

Bonjour bonuscad, Et merci.

Bonjour à tous, D'abord merci pour vos réponses. En effet, avec le code de (gile), j'arrive à mes fins. Par contre, je ne comprends pas son fonctionnement. La fonction cadr permet d'extraire le deuxième élément de la liste contenant les données de définition de l'objet sélectionné pour le SCU. Pour une ligne, cette liste des données est : ((-1 . <Nom d'entité: -147cc8>) (0 . "LINE") (330 . <Nom d'entité: -154338>) (5 . "861F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "HSPT") (100 . "AcDbLine") (10 1005.01 500.243 0.0) (11 1005.25 498.858 0.0) (210 0.0 0.0 1.0)) Où -1 correspond au nom de l'entité -soit la ligne-, 0 correspond au type d'entité et 330 correspond à l'identificateur de pointeur logiciel. Mes questions : Pourquoi extrait-on la deuxième donnée alors que c'est la troisième qui est utilisée ? L'identificateur de pointeur logiciel (si je reprends mon bouquin : de code 330 à code 339) est-il orienté ? Comment un point peut-il posséder une orientation ? Est-ce parce qu'il est défini dans le SCO ?

Bonjour -Olivier-, Merci pour ton bout de code : en effet, cela fonctionne (à peu près) et cela m'a permis de mieux comprendre comment fonctionne le langage LISP (c'est mon 4ème jour dessus). J'ai écrit "à peu près" car l'orientation ne se fait pas selon l'origine choisie. L'aide "AutoCAD" indique concernant le SCU-Objet : Seulement peu importe la position de mon point de sélection sur l'objet, l'orientation du SCU sera la même. A savoir celle dans laquelle est orienté l'objet dans le SCG. Mes questions : Est-ce normal ? Puis-je y faire quelque chose ?

Bonjour, Je souhaite créer un LISP me permettant d'orienter deux textes selon une direction. L'idée est de créer un texte "HsPt :" et un texte issu d'une soustraction (effectuée dans la fonction AutoLISP) alignés entre eux et orientés selon une direction commune (différente de celle du SCU courant). Ex : Pour y arriver, j'appelle la commande AutoCAD dans le LISP : (command "SCU" "OBJET"). Ensuite j'écris tout le tintoin concernant la création des textes, leur dimension, leur couleur, etc ... Et je termine, pour revenir au SCU précédent, en rappelant la commande AutoCAD : (command "SCU" "P") Seulement la fonction ne dépasse pas l'étape du SCU-Objet (c'est con : c'est seulement la première étape). Je la supprime donc de mon code mais conserve l'étape me permettant de revenir au SCU précédent. Alors, je passe -via la ligne de commande- en SCU-Objet, j'appelle mon LISP et HOP! tout fonctionne (y compris le retour au SCU précédent). Mes questions sont donc : Pourquoi le passage en SCU-Objet, lorsqu’il est intégré à mon code, ne fonctionne-t-il pas ? Et pourquoi le retour au SCU précédent fonctionne-t-il lui correctement ? Est-ce parce qu'il est la dernière commande du LISP ? Est-ce le changement de SCU qui perturbe AutoCAD lors de l'exécution de la commande ? Y a-t-il une variable à renseigner ?

Merci encore pour cette commande : c'est vraiment très pratique, simple et rapide.

Bonjour, Je ne connaissais pas e-transmit : cela peut s'avérer utile notamment lors de transfert de dessins d'un poste de travail à un autre. Seulement je n'ai pas envie que mes clients se retrouvent avec toutes sortes de fichiers supplémentaires. J'ai donc créé des blocs pour mes images : un pour les logos, l'autre pour le plan de situation. J'ai passé mes images en .png, j'en ai profité pour les réduire. Résultat : De 16 765 Ko, on passe à 1 563 Ko. Youhou !! Merci à vous deux.

Bonjour à tous, De manière à conserver les images insérées dans mon dessin -et non pas me retrouver avec un chemin d'accès affiché- lors d'envoi au client, je les ai insérées tels des fichiers OLE. Je n'ai pas envie qu'à chaque fois que je lui envoie un dessin, je lui joigne une floppée de fichiers image pour que les chemins d'accès puissent être respectés. Seulement la taille de mon fichier .dwg a augmenté : elle est passé de 375 Ko à 16 700 Ko. BOUM ! Pas facile de l'envoyer par mail. Sont insérées deux images de 75 Ko chacune par présentation sur cinq présentations. Ma question est la suivante : Est-il possible, à la manière de WORD, POWERPOINT ou autre ..., de compresser la taille des images intégrées au dessin afin de réduire leur poids au strict nécessaire ? Note : N'étant pas borné, je suis preneur de toute méthode alternative. D'avance, merci.

Exact. Mais ça m'oblige à taper sur deux touches. :p