coxsurf56

ok merci j'integre ca (les ligne osmode) nickel à mon prochain probleme

Merci beaucoup effectivement ca va etre mieux encore des progres a faire et les accroche aux objets sint effectivement trop sensible j'ai 3 resultats differents avec les meme valeurs osmode a 0 n'est pas suffisant? je vais mettre tous ca en application

salut je suis encore perdu avec ces histoires de entier et reel apres un fix la valeur devient un entier mais un entier je ne peux pas m'en servir comme distance pour un deplacement? si oui ,qui peut me dire comment faire pour le moment j'ai ca (setq ab(fix(/ b 20))) (setq abc(/ (- b (* ab 20)) 2 )) (if (= abc 0) ;_ expression test (progn ;; alors (command "deplacer" "106,438" "103,440" "" "0,0" "10,0" ) ;;sinon (command "deplacer" "106,438" "103,440" "" "0,0" (list abc 0)) ) ) quand j'ai b=400 ab=20 abc=0 donc deplacement de 10 si b=430 ab=21 abc=5 donc deplacement de 5 le deplacement de 10 se fait mais pas celui de 5

salut je fais un calcul dans mon lisp et j'ai un nombre a virgule en resultat je voudrais recuperer la partie entiere du nombre quelle fonction fait ca? en gros j'ai (setq a(/ b 20)) si b=405 donc "a" = 202.5, moi je voudrais recuperer 202 pour "a"

ok merci ca marche

j'ai modifé mais j'ai une erreur maintenant pour le 2e point comment je peux faire que ma valeur reel devienne une partie des coordonnées du 2e point?

salut merci pour la reponse je reagis un peu tard , je ne trouvais plus mon post effectivement j'ai oublié de mette lg devant a1 et a2 le calcul est passé merci une autre question je continue a essayer quand la commande etirer est lancé , il ne me fait bien la fenetre de selection point de base ok par contre pour le 2e point , j'aimerais que ce soit la valeur qui est dans malaet pour l'essai (60) mais ca marche pas qu'est ce qui deconne? le message d'erreur d'autocad "Spécifiez le point de base ou [Déplacement]: 0,0 Spécifiez le deuxième point ou : 60.00000000000000 Point incorrect. ; erreur: Fonction annulée " (defun c:massif() (setq malg(getreal "\nlongueur massif : ")) (setq mala(getreal "\nlargeur massif : ")) (setq mapt(getpoint "\npoint de depart : ")) (setq malget(/ (- malg 80) 2)) (setq malaet(/ (- mala 80) 2)) (command "scu" mapt "") (command "inserer" "m80x80" "0,0" "1" "1" "0") (command "decompos" "0,0") (command "etirer" "ca" "50,14" "-50,52" "" "0,0" malaet) (command "etirer" "ca" "50,-45" "-80,16" "" "0,0" malaet) (princ) )

je debute en lisp 2 questions 1er je cherche a memoriser un texte (nom d'une piece) dans une variable pour l'utiliser a plusieurs endroit dans le plan mais par setq ca ne marche pas 2e j'ai par saisi utilisateur des valeurs dans lglg a1 a2 je voudrais mettre dans lgpr le calcul de lglg-(a1+a2) J'ai ecris ca (setq lgpr (- lglg(+ lga1 lga2))) mais ca marche pas si quelqu'un peut m'expliquer comment on fait un calcul de variable

salut mes palettes sont aussi en reseau et pour les mettre a jour, si ca ne marche pas en auto il faut relancer l'importation des palettes (xpg) sur les autres postes j'ai l'impression que pour que ce soit a jour automatiquement il faut que tous les autocad soient fermés sauf celui qui modifie sinon il crée des indices derriere les noms de repertoires palettes, ce qui est logique vu qu'ils sont utilisés donc verrouillés. donc les autocad ne pointent plus vers les meme dossiers palettes

merci quand meme excalibur ca doit etre possible a moins qu'il n'est trafiquer la video je pense que c'est du lisp donc pas pour lt

oui c'est comm ca que je suis deja mais dans la video eux ils arrivent a ce que ce soit des numeros qui s'incrementent automatiquement c'est ca que j'aimerai avoir aussi au lieu de les taper un par un

menu ? et atelier des nouvelles fonctionalités ensuite autocad LT2008 cote et lignes de repere ligne de repere multiples video creer une ligne de repere multiple

salut dans l'atelier des nouvelles fonctionnalites dans la video de presentation des lignes de reperes multiples il clique et le 1 apparait il clique encore et la c'est le 2 et 3 ..... comment on fait ca? moi j'arrive a faire apparaitre un attribut et c'est a moi de le rentrer si quelqu'un peut m'expliquer ca

RESOLU La liste des echelles encore une fois je viens de le lire dans le post SOS FICHIER TRES LENT le pire c'est que je me suis fais deja avoir une fois apres un nettoyage, tout redeviens normal

Bonjour, en autcad lt2008 sous xp sp2 avec un fichier de4.3 mega je coupe un a4 avec un dessin dedans et je colle dans un nouveau fichier et ca met 3 min environ pour le coller je fais la meme chose avec un fichier de 6 mega et la ca marche bien j'ai fais un nettoyage disque controlé mon fichier rien quand je colle un element de ce fichier dans un nouveau dessin1.dwg 3min et que je coupe et colle de dessin1.dwg vers dessin2.dwg meme probleme ca met 3 min donc je coupe et colle le probleme avec. alors que de mon dessin de 6mega, je coupe et colle dans dessin3.dwg pas de probleme et de dessin3.dwg vers dessin4.dwg pas de probleme donc ca viens du fichier de 4.3 mega j'ai enregistré mon fichier en dxf et suis revenu en dwg , ca n'a rien changé quelqu'un a une idée?

CELUI JE CONNAIS

nickel j'avais fais une erreur dans ma ligne de commande tres pratique le = je connaissais pas merci bred

salut bred un debut de reponse je ne veux plus de boite de dialogue qui me demande de confirmer la redefinition du bloc ni de nom de bloc d'ailleur c'est dans mon icone deja

Salut j'insere regulierement un bloc avec des configs (calques....) le probleme quand je purge ,l'interrieur du bloc est purgé mais le bloc reste donc quand je le reinsere en ligne de commande il prend le bloc purger qui est en memoire et pas l'original, je suis oblige de re inserer et de redefinir le bloc pour le remettre en place l'ideal pour moi , ca serait de supprimer le bloc purger avant de reinserer le complet ou alors d'inserer en ligne de commande avec redefinition sans confirmation le bloc complet :casstet: tout le monde suis

salut j'ai le meme probleme mais rien dans les types de ligne qu'est ce qui faut faire pour enlever ce message a chaque ouverture?

salut en fait je comprend pas trop le lisp donc je bidouille plus qu'autre chose Je viens de m'apercevoir que la commande dymstyle est en lecture seul donc impossible de lui donner une valeur par contre par la commande on peut changer le style de cote donc je vais me rabattre sur des ligne de commande a la suite merci quand meme pour ton aide

merci ca marche en ligne de commande mais j'essaye de rajouter ca a un lisp que tu as cree :) mais ca ne et je ne suis pas doue si tu peux le corriger merci d'avance ;;; INTRODUCTION du PROGRAMME - Redéfinition de *error* (defun INTRO_PRG_ERR () (vl-load-com) (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (SAVE&SET_VAR "cmdecho" 0) (command "_undo" "_mark") (setq Sauv_EXerror *error*) ; enregistrement *error* autocad ; Enregistrement du environnement Actif (SCU / Calque /... (setq list_env_actif (list (getvar "ucsorg") (getvar "ucsxdir") (getvar "ucsydir") (getvar "ucsicon") (getvar "clayer") (getvar "orthomode") (getvar "dimstyle") (getvar "osmode"))) ; Gestion des Erreur remplaçant celle d'Autocad (setq *error* REDEF_ERROR) ) ;;; ROUTINE de GESTION des ERREURS remplaçant celle d'Autocad (defun REDEF_ERROR (msg) (if (or (= msg "Fonction annulée") (= msg "Function cancelled") (= msg "quitter / sortir abandon") (= msg "quit / exit abort")) (princ) (princ (strcat "\nErreur: " msg)) ) (command "_undo" "_back") (END_PRG_ERR) ) ;;; ROUTINE ENREGISTREMENT VARIABLE+MODIF VARIABLE ((gile) cadXP) (defun SAVE&SET_VAR (var val) (cond ((getvar var) (setq SavedSysVarLst (cons (list 'setvar var (getvar var)) SavedSysVarLst)) (if val (setvar var val))) ) ) (defun c:CBC () (INTRO_PRG_ERR) (setq Calq (getvar "CLAYER")) (setq dim (getvar "DIMSTYLE")) (SAVE&SET_VAR "CLAYER" "CHAINAGE") (save&SET_VAR "DIMSTYLE" "ech10-cm") (command "_DIMLINEAR" Pause Pause Pause) (setvar "CLAYER" Calq) (setvar "DIMSTYLE" dim) (princ) (END_PRG_ERR) ) ;;; RESTORE_VAR ;;; Restaure leurs valeurs initiales aux variables système de "SavedSysVarLst" ;;; ;;; ex: (RESTORE_VAR) ;;; -> (getvar "orthomode") : 0 ;;; -> (getvar "autosnap") : 63 ;;; -> SavedSysVarLst : nil (defun restore_var () (mapcar 'eval SavedSysVarLst) (setq SavedSysVarLst nil) ) ;;; FIN de PROGRAMME - ; retour *error* initial (defun END_PRG_ERR () ; Restauration de l'environnement Actif enregistré (command "_ucs" "_w" "_ucs" "_3" "_non" '(0 0 0) "_non" (nth 1 list_env_actif) "_non" (nth 2 list_env_actif) "_ucs" "_o" "_non" (trans (nth 0 list_env_actif) 0 1)) (setvar "ucsicon" (nth 3 list_env_actif)) (setvar "clayer" (nth 4 list_env_actif)) (setvar "orthomode"(nth 5 list_env_actif)) (setvar "osmode" (nth 6 list_env_actif)) (setvar "dimstyle" (nth 7 list_env_actif)) (mapcar 'eval SavedSysVarLst) ;remise à nil (setq *error* Sauv_EXerror list_env_actif nil SavedSysVarLst nil Sauv_EXerror nil scu_init nil) (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) )

Salut est il possible de memoriser le style de cote en cours dans une variable pour pourvoir cote un element avec un autre style de cote et revenir automatique a celui memoriser comme pour les calques (setq Calq (getvar "CLAYER")).....

en fait le fichier a ete cree sur 2007 mais je l'ai ouvert dans 2008 et j'ai le probleme sur ce fichier effectivement sur 2008 j'ai pas l'impression d'avoir ce probleme dans de nouveaux fichiers

salut j'ai un soucis avec des cotes je cote un element , si je le deplace certaine cotes ne suivent pas j'ai comparer les cotes qui suivent et qui suivent pas aucune difference , meme style de texte de cote j'ai essayer en cochant ou decochant cotes associatives dans option rien n'y fait le pire c'est que ca ne le fais pas tous le temps si quelqu'un a une idee