coxsurf56

salut dans la section autocad 2008 ,on a besoin de vos lumieres pour un lisp Liste d'echelle prédéfini merci d'avance

salut moi pas de probleme tu es sur de l'avoir mis au bon endroit C:\Documents and Settings\*******\Application Data\Autodesk\AutoCAD 2008\R17.1\fra\Support icons et fonctions ok chez moi

ma commande lisp pour les creer à la creation de chaque nouveaux plans (command "-MODIFLISTECHELLE" "s" "1:2" "s" "1:4" "s" "1:5" "s" "1:8" "s" "1:10" "s" "1:16" "s" "1:20" "s" "1:30" "s" "1:40" "s" "1:50" "s" "1:100" "s" "2:1" "s" "4:1" "s" "8:1" "s" "10:1" "s" "100:1" "a" "/10cm=1" "1:1" "a" "1/20cm=0.5" "0.5:1" "a" "1/50cm=0.2" "0.2:1" "a" "1/100cm=0.1" "0.1:1" "a" "1/200cm=0.05" "0.05:1" "a" "1/500cm=0.02" "0.02:1" "a" "ANNOTATION" "0.15:1" "a" "1/10m=100" "100:1" "a" "1/20m=50" "50:1" "a" "1/50m=20" "20:1" "a" "1/100m=10" "10:1" "a" "1/200m=5" "5:1" "a" "1/500m=2" "2:1" "q") par contre moi j'aimerais supprimer ceux qui existent deja et qui me servent a rien mais j'arrive a supprimer une partie mais pas ceux avec les " ex (1/16" = 1'-0") qui generent des erreurs dans le lisp lorsque l'on veut les supprimer

j'ai supprimé tous les lisp j'ai ferme autocad j'ai re ouvert autocad charger les lisp par appload au demarrage essayé ca marche pas fermé autocad et reouvert maintenant ca marche Le probleme viens certainement du fait que j'ai laisse autocad importé mon profil de la 2007 pas tres au point tous ca :casstet: Merci bien Bred ton aide a été tres productive Pour moi sujet clos

trouve une petite solution se creer une commande en lisp qui les cree toutes d'un coup avec la commande -MODIFLISTECHELLE;a;1/50;0.2:1;;1/100;0.1:1;;1/20;0.5:1;;1/10;1:1;q

effectivement ils ont changes ca aussi galere quel est l'interet de laisser la creation de cette liste dans outils option si elle n'est pas memorise pour tous les plans surtout que c'est chiant a rentrer

avec l'editeur visual ca marche bien vu un debut de reponse

appload et au demarrage certains marchent quand meme

reponse: chargé pour les 2

un de plus c'est quoi ce bordel :mad: (defun c:fe () (setvar "CLAYER" "ferraillage") (command "cercle" "t" pause pause "1.2") (command "-hachures" "pr" "solid" "S" "D"""""))

n lisp qui marchait tres bien en 2007 et la sur 2008 cb Commande inconnue "CB". Appuyez sur F1 pour obtenir de l'aide. pourtant le lisp est chargé si quelqu'un a une solution (defun c:CB ( / Calq old_err) (defun err_cb (ch / ) (setvar "CLAYER" Calq) (setq *error* old_err) (prin1) ) (setq Calq (getvar "CLAYER") old_err *error* *error* err_cb ) (setvar "CLAYER" "COTATION") (command "_.DIMLINEAR") (while (not (zerop (getvar "CMDACTIVE"))) (command pause) ) (setvar "CLAYER" Calq) (setq *error* old_err) (princ) )

salut tu fais outil option preference utilisateur modifier la liste d'echelle et la tu modifier ou ajouter des echelles

Salut j'ai regulierement des fichiers dxf format A3 je les importe dans un fichier gabarit ou les presentations sont deja creer le probleme c'est que j'arrive pas a les imprimer tous en meme temps sachant que un coup j'en aurais 10 un autre jour 20 j'ai donc cree un gabarit pour 25 plans et j'efface les onglets(presentation) en trop lorsque j'utilise publier ca marche (par la boite de dialogue), il detecte le nombre d'onglets presentation etn'imprime que ceux la (inclure lors de l'ajout de feuilles :onglets de presentation) quand je fais filedia 0 - publier il me demmande un fichier wmf ou dsd j'en ai donc creer un avec 25 pages dedans quand je l'utilise pour 10 plans (10 onglets) , il m'imprime 25 feuilles alors qu'il n'y a que 10 onglets dans mon plan, ceux qui m'ont servi a creer le wmf bien sur est ce que quelqu'un a une astuce pour pouvoir faire la meme chose en ligne de commande qu'en boite de dialogue merci d'avance

salut tu cliques bouton droite sur ton image de cote dans la palette propriete calque -> tu choisis

effectivement c'est sans la boite de dialogue qui m'interesse pour des macros mais il y a toujours moyen de contourner

merci nickel :D ca marche

filter en ligne d ecommande m'interesse, moi je ne trouve pas pour -calque merci tramber ,par contre si je veux filtrer par un mot au mileu du calque exemple: tous les calques cotations resultats rdc-cotations 1er-cotations

Bonjour, Je cherche la commande filter en ligne de commande pour changer les proprietes de plusieurs calque en meme temps c'est possible?

:) TOP Rien a dire reste plus qu'a trouver un lisp qui me serve un cafe!!!

effectivement j'ai plus d'option et c'est plus clair merci je viens de changer tous ca par contre j'ai voulu faire pareil pour la commande qdim et il ne reagit pas comme la commande qdim direct autocad quand je passe par le lisp le code (defun c:QD ( / Calq old_err) (defun err_QD (ch / ) (setvar "CLAYER" Calq) (setq *error* old_err) (prin1) ) (setq Calq (getvar "CLAYER") old_err *error* *error* err_QD ) (setvar "CLAYER" "COTATION") (command "_qdim") (while (not (zerop (getvar "CMDACTIVE"))) (command pause) ) (setvar "CLAYER" Calq) (setq *error* old_err) (princ) ) dans autocad qdim ou _qdim je peux faire une fenetre de selection pour choisir les objet a coter alors que par le lisp c'est un objet unique :casstet:

OK MERCI CA MARCHE NICKEL

Salut Je ne connais pas grand chose en lisp j'ai recupere un lisp pour memoriser l'etat du calque courant cote dans un autre calque (cotation)et revenir ensuite au precedent calque le probleme c'est en utilsant escape il reste dans le calque cotation j'ai vu sur le forum differentes reponses mais moi ca marche pas chez moi le code (defun c:CB () (setq Calq (getvar "CLAYER")) (setvar "CLAYER" "COTATION") (command "_DIMLINEAR" Pause Pause Pause) (setvar "CLAYER" Calq) (princ) ) la modification suivant les info recupere sur le forum ;;; INTRODUCTION du PROGRAMME - Redéfinition de *error* (defun INTRO_PRG_ERR () (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 "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:CB () (setq Calq (getvar "CLAYER")) (setvar "CLAYER" "COTATION") (command "_DIMLINEAR" Pause Pause Pause) (setvar "CLAYER" Calq) (princ) ) ;;; 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)) (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))) ) quand je l'utilise ,ca ne marche pas quand je fais escape ,il reste dans cotation il me met Commande: ; erreur: Fonction annulée mystere pour moi donc si quelqu'un peut m'aider

desole pas vu

trouve sur le net simple et efficace une navigation par onglet dans autocad 2007 http://autodesk.blogs.com/between_the_lines/2006/10/trick_or_treat_.html

fichier d'echange (4095mo) deplace sur la partition qui a le plus de place et ce matin :( au bout 10 12 plans ouverts et refermés et 4 chargés ca recommence impossible de modifier des hachures plus acces aux boites de dialogue sur mes 4 plans obligé de fermer tous les plans et autocad