gile

Salut, Je me permet de répondre à la place de fabcad La routine ne contient pas de code pour la gestion des erreurs, donc en cas d'erreur ou d'échap les variables système ne sont pas restaurées à leur valeur initiale. Pour remédier à cela, il faudrait charger, avec la routine, un truc du genre (defun croix-hangars-err (msg) (if (or (= msg "Fonction annulée") (= msg "quitter / sortir abandon") ) (princ) (princ (strcat "\nErreur: " msg)) ) (setvar "cmddia" var-cmddia) (setvar "osmode" var-accrobj) (setvar "cmdecho" var-cmdecho) (setq *error* m:err m:err nil ) (princ) ) Et ajouter ceci au début de la routine -avant la sauvegarde des variables- pour redéfinir la fonction *error* standard : (setq m:err *error* *error* croix-hangars-err ) et ceci à la fin -avant le dernier (princ)- pour restaurer le *error* original : (setq *error* m:err m:err nil )

Salut, Tu peux créer un DWF avec la commande "Publier..." ou "Imprimer..." et celui qui n'a pas le logiciel pourra le voir et l'imprimer à partir d'un viewer : DWF Viewer de chez AutoDesk est gratuit. [Edité le 1/9/2005 par gile]

Merci Eric, J'ai effectivement trouvé des clés Cadxp dans la base de registre, les ai supprimé, çà n'a rien changé. Tant pis, celà reste un soucis mineur, il suffit de me déconnecter en tant que membre pour avoir la page d'accueil par défaut.

Salut, Je vais essayer d'être clair : (list) regroupe un nombre queconque d'expressions dans une liste, (cons) ajoute un élément au début d'une liste ou construit un élément de liste associative (c'est le cas dans l'exemple que tu donnes) : renvoie (0 . "INSERT") évalue les arguments (n) et renvoie (410 . "model") et renvoie la liste constituée de ces deux éléments : ((0 . "INSERT") (410 . n)) Pour résumer, utilisé avec une liste comme second argument (cons) ajoute le premier argument en début de liste : (cons 'A '(B C D)) renvoie (A B C D) utilisé avec un élément (atom) comme second argument (con)s renvoie une paire : (cons 'A 'B) renvoie (A . B) [Edité le 31/8/2005 par gile]

Salut, Je suis déjà sur Firefox alors j'ai essayé avec internet explorer, mais dès que je me connecte en tant que membre les derniers messages disparaissent. L'ultime solution est peut-être d'ouvrir un nouveau compte.

Salut, Honte sur moi, je viens de faire exactement la même bétise et je trouve ce fil en cherchant à réparer. J'ai essayé toutes les solutions proposées ici, mais aucune n'a fonctionné. Si quelqu'un avait une autre solution, je suis preneur...

Salut, La commande "align" est une commande définie extérieurement (traduction littérale) comme d'autres expliquées dans l'aide sous" AutoLISP references". Il faut s'assurer de leur chargement : (if (not (member "geom3d.arx" (arx))) (arxload "geom3d") ) On peut ensuite les utiliser avec la fonction "command" ou directement comme des fonctions AutoLISP : (command "_align" obj "" pt1 pt2 pt3 pt4...) ou (align obj "" pt1 pt2 pt3 pt4 ...)

Salut, Si c'est pour que le texte apparaisse sur fond blanc : Clic droit dans la fenêtre -> Masque d'arrière-plan... Cocher "Utiliser masque d'arrière-plan" et choisir la couleur.

Salut, Patick a mis en téléchargement une petite bibliothèque de chassis dynamiques Il s'agit de chassis (menuiserie ou serrurerie) qui conservent un maillage régulier quand on les redimensionne. Pour ces blocs, j'ai fait un petit LISP : ;;; Affiche dans la fenêtre de texte les dimensions du chassis dynamique sélectionné (defun c:dim_chassis (/ obj prop_lst count haut larg ep_mt ep_tv maille m_ver m_hor) (sssetfirst nil) (while (or (not obj) (/= (cdr (assoc 0 (entget obj))) "INSERT") (not (member (vla-get-effectivename (setq obj (vlax-ename->vla-object obj)) ) '("Chassis1X1" "Chassis2X1" "Chassis3X1" "Chassis4X1") ) ) ) (setq obj (car (entsel))) ) (setq prop_lst (vlax-safearray->list (vlax-variant-value (vla-getdynamicblockproperties obj) ) ) count 0 ) (while (< count (length prop_lst)) (cond ((and haut larg ep_mt ep_tv maille) (setq count (length prop_lst)) ) ((= (vla-get-propertyname (nth count prop_lst)) "Hauteur" ) (setq haut (vla-get-value (nth count prop_lst)) count (+ count 1) ) ) ((= (vla-get-propertyname (nth count prop_lst)) "Largeur" ) (setq larg (vla-get-value (nth count prop_lst)) count (+ count 1) ) ) ((= (vla-get-propertyname (nth count prop_lst)) "Épaisseur Mt" ) (setq ep_mt (vla-get-value (nth count prop_lst)) count (+ count 1) ) ) ((= (vla-get-propertyname (nth count prop_lst)) "Épaisseur Tv" ) (setq ep_tv (vla-get-value (nth count prop_lst)) count (+ count 1) ) ) ((= (vla-get-propertyname (nth count prop_lst)) "Visibilité" ) (setq maille (vla-get-value (nth count prop_lst)) count (+ count 1) ) ) (T (setq count (+ count 1))) ) ) (foreach n '(haut larg ep_mt ep_tv maille) (set n (vlax-variant-value (eval n))) ) (setq m_ver (read (substr maille 8 1)) m_hor (read (substr maille 10 1)) ) (textscr) (princ (strcat "\n\n " maille "\n\n Hauteur totale : " (rtos haut 2 0) " mm\n Largeur totale : " (rtos larg 2 0) " mm\n Épaisseur des montants : " (rtos ep_mt 2 0) " mm\n Épaisseur des traverses : " (rtos ep_tv 2 0) " mm\n Dimensions intérieures du maillage :\n X : " (rtos (/ (- larg (* (1+ m_ver) ep_mt)) m_ver) 2 1) " mm\n Y : " (rtos (/ (- haut (* (1+ m_hor) ep_tv)) m_hor) 2 1) " mm\n Débit :\n - 2 Montants de : " (rtos haut 2 0) " mm\n - " (itoa (1+ m_hor)) " Traverses de : " (rtos (- larg (* 2 ep_mt)) 2 0) (if (< 1 m_ver) (strcat " mm\n - " (itoa (* (1- m_ver) m_hor)) " Entretoises de : " (rtos (/ (- haut (* (1+ m_hor) ep_tv)) m_hor) 2 0) ) "" ) " mm\n Total linéaire : " (rtos (* (+ (* 2 haut) (* (1+ m_hor) (- larg (* 2 ep_mt))) (* (1- m_ver) (- haut (* (1+ m_hor) ep_tv))) ) 1e-3 ) 2 3 ) " m\n Surface totale : " (rtos (/ (* haut larg) 1e6) 2 2) " m2" ) ) (princ) ) Ce LISP ne marche évidemment que pour ces chassis dynamiques et devra être modifié en cas de modification des unités des blocs. Toute remarque ou suggestion est bienvenue.

Salut, Je ne suis pas sûr que cela réponde à ta question, mais tu peux essayer de rajouter une action d'étirement sur le paramètre "L" avec un "variateur de distance" (clic droit sur l'action ou fenêtre de propriétés) égal à 1 et une autre sur le paramètre "P" avec un facteur de -0.5 [Edité le 22/8/2005 par gile]

Re, Si je peux me permettre, il me semble qu'il y ait une petite erreur : dans le cas d'aucun changement, la variable variable locale "renvoi" ne retourne pas "null" mais une liste de "". Je propose donc de remplacer : par : (if (apply '= renvoi) (prompt "\nAucune variable modifiée.") [Edité le 20/8/2005 par gile]

Salut, La commande "décomposer" décompose un objet en différents objets AutoCAD dont l'objet primitif était constitué. Quand tu insère une image, tu ne crée pas à proprement parler un objet AutoCAD mais plutôt un lien vers un fichier extérieur. La décomposition doit casser ce lien, d'où la disparition de l'image. Pour "exploiter" une image raster on est souvent obligé de redessiner par dessus.

Salut, Encore une fois merci et bravo à Bonscad, ces deux routines (STATVAR et STATENV) seront sûrement très utiles à tous ceux qui pratiquent (ou s'essayent) à la programmation. Mais j'ai une question : où peut on trouver la liste des variables d'environnement pour les versions ultérieures à 2002. J'avais déjà posé cette question à propos de la variable "acedChangeCmdEchoWithoutUndo" qui n'existait pas dans la version 2002, je n'avais pas eu de réponse parceque la question s'était perdue au milieu des autres. Si quelqu'un connait la réponse, elle pourrait servir pour éditer la routine pour les nouvelles versions.

Salut, Je dis peut-être une bétise, mais pourquoi ne pas introduire au début du LISP de Patrick35 (que je ne connais pas) : (setq old_dia (getvar "filedia")) (setvar "filedia 0") et à la fin : (setvar "filedia" old_dia)

Salut, (Pour plagier Tramber ;)) Comme nous ne sommes pas spécifiquement dans le forum Vlisp, je propose plutôt : (alert (strcat "La valeur est de : " (rtos valeur))) [Edité le 13/8/2005 par gile]