Patrick_35

Bonjour Youri Je viens de voir à l'instant dans l'info rapide que tu cherche un lisp pour la création d'une liste de calques, voici une routine extraite d'un programme qui le permettra La liste crée n'intègre pas les calques dépendant des xref (variable xref_plan), les calques gelés (variable gele_plan), les calques inactif (variable acti_plan) et les calques verrouillés (variable verr_plan) @+ (defun creation_liste_des_plans(/ acti_plan couche etat_plan gele_plan verr_plan xref_plan) (setq couche (tblnext "layer" T) position_plan 0) (while couche (setq etat_plan (cdr (assoc 70 couche)) acti_plan (cdr (assoc 62 couche)) gele_plan (logand etat_plan 1) verr_plan (logand etat_plan 4) xref_plan (logand etat_plan 16)) (if (and (/= verr_plan 1) (/= gele_plan 1) (>= acti_plan 0) (/= xref_plan 16)) (setq liste_plans (cons (cdr (assoc 2 couche)) liste_plans)) ) (setq couche (tblnext "layer")) ) (setq liste_plans (acad_strlsort liste_plans) etat_plan 0) (while (nth etat_plan liste_plans) (if (= (cdr (assoc 9 liste_bibles)) (nth etat_plan liste_plans)) (setq position_plan etat_plan) ) (setq etat_plan (1+ etat_plan)) ) )

Bonjour Patrick Et justement, ce serait très bien si un bouton existait pour permettre de joindre une image ou bien un programme lisp, qui éviterait un copier/coller dans la réponse et un traitement de la réponse par le site, qui fait par exemple sauter les espaces et rendre le programme un peu moins compréhensible ou encore, de bien illustrer ce que l'on veut exprimer. @+

Salut C'est dans le guide d'installation, mais apparemment, c'est un peut plus complexe En vb, je ne sais pas, mais en lisp, tu peut passer par la fonction getenv et setenv ex : (setq envir (getenv "path")) --> récupération des chemins de recherche @+

Bonjour Tout est expliqué dans l'aide d'autocad, il faut aller au chapitre 4 -- Configuration et optimisation d'autocad, puis dans utilisation des variables d'environnement @+

Voila un lien qui pourrait être utile http://www.cadalog.com/swsearch.php en faisant une recherche avec align, on trouve une liste intéressante @+

La commande _align n'existe pas sur une LT ? C'est une question surprenante, pourquoi développer un lisp qui reprend une commande qui existe, à part se faire plaisir et uniquement pour ça ? @+

Je suis d'accord avec Patrick, si le clic droit=entrée dans la config d'autocad, la dernière commande sera répèté. @+

Par le jeu de recherche/remplacer devrait faire l'affaire recherche \W et remplace par rien ou il y a encore le lisp cht qui était fournit avec la version 12 qui permettra de la faire aussi @+

Salut boris Je viens de trouver un lien qui pourrait t'intéresser http://telecharger.01net.com/windows/Multimedia/cao_et_dao/fiches/24323.html @+

La variable est UCSICON @+

Et toujours pour les vieux (enfin pas tant que ça), il y aura véronique jannot ??? :angel:

Oups..... à force de faire du lisp, j'en oublie les choses les plus simple @+

En ecrivant ^C^C(setq sel (ssget))(princ "\nPoint de base : ")(setq xy (getpoint))(command "_rotate" sel "" xy "90")(princ) c'est en une seule ligne. Pour une rotation a 180, il suffit de remplacer le 90 par 180 @+

Bonjour, Patrick, la lecture de vos différents messages m'amène à penser qu’il serait utile d’ajouter un bouton dans le message de réponse pour joindre une image ou un fichier afin de bien se faire comprendre ou de fournir une explication plus détaillée. Ce n’est qu’une idée, mais pourquoi pas @+

Bonjour, j'ai un peu de mal à comprendre le problème, peut être la fin de la journée Pour modifier l'echelle de type de ligne sur tout le dessin, il y a la commande echltp Pour modifier l'echelle de tout le dessin, par la commande echelle Ou encore, pour modifier que quelques lignes pour l'echelle du type de ligne, par la fenetre des propriétées @+

Un lisp que j'ai fait il y a un petit moment (fonction CAT) ;;;================================================================= ;;; ;;; CAT.LSP V1.10 ;;; ;;; Copier des attributs ;;; ;;; Copyright © ;;; ;;;================================================================= (defun c:cat(/ chemin cmd fichier nom_bloc s) ;;;--------------------------------------------------------------- ;;; ;;; Gestion des erreurs ;;; ;;;--------------------------------------------------------------- (defun *errcat* (msg) (if (/= msg "Function cancelled") (if (= msg "quit / exit abort") (princ) (princ (strcat "\nErreur : " msg)) ) (princ) ) (setq *error* s) (setvar "cmdecho" cmd) (princ) ) ;;;--------------------------------------------------------------- ;;; ;;; Routine principale ;;; ;;;--------------------------------------------------------------- (defun changer_texte_attributs(/ a b c n p r s ttt u v) ;;;------------------------------------------------------------- ;;; ;;; Changement de texte de l'entité ;;; ;;;------------------------------------------------------------- (setq p (getvar "pickadd")) (setvar "pickadd" 0) (princ "\nSélectionner le Bloc de Référence.") (setq s (ssget)) (setvar "pickadd" 1) (if (/= s nil) (progn (setq r (entget (ssname s 0))) (if (= (cdr (assoc 0 r)) "INSERT") (progn (if (= (cdr (assoc 66 r)) 1) (progn (princ "\nSélection des Blocs à Mofifier.") (setq s (ssget)) (setvar "pickadd" p) (if (/= s nil) (progn (setq n 0) (setq u 0) (while (/= (ssname s n) nil) (setq a r) (setq v 0) (setq b (entget (ssname s n))) (if (= (cdr (assoc 0 b)) "INSERT") (setq ttt 1) ) (if (and (/= (cdr (assoc -1 a)) (cdr (assoc -1 b))) (= (cdr (assoc 2 a)) (cdr (assoc 2 b)))) (progn (while (and (/= (cdr (assoc 0 a)) "SEQEND") (/= (cdr (assoc 0 b)) "SEQEND")) (setq c (subst (assoc 1 a) (assoc 1 b) b)) (entmod c) (setq a (entget (entnext (cdr (assoc -1 a))))) (setq b (entget (entnext (cdr (assoc -1 b))))) (setq v 1) ) (if (/= v 0) (progn (entupd (cdr (assoc -1 (entget (ssname s n))))) (setq u (1+ u)) ) ) ) ) (setq n (1+ n)) ) (if (and (= ttt 1) (= u 0)) (alert "Pas de blocs correspondant au bloc de référence.") ) (if (= ttt nil) (alert "Pas de blocs sélectionnés.") ) (if (/= u 0) (princ (strcat "\n" (itoa u) " blocs modifiés...")) ) ) ) ) (alert "Bloc sans Attributs") ) ) (alert "Pas de Bloc Sélectionné...") ) ) (princ "\nAucune Sélection...") ) ) ;;;--------------------------------------------------------------- ;;; ;;; Routine de lancement ;;; ;;;--------------------------------------------------------------- (setq s *error*) (setq *error* *errcat*) (setq cmd (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_.undo" "_group") (changer_texte_attributs) (command "_.undo" "_end") (setq *error* s) (setvar "cmdecho" cmd) (princ) ) (setq nom_lisp "CAT") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ)

Merci, je vais voir de suite sur le site, dommage qu'Autodesk n'intègre pas ces fonctions surtout si elles sont en gratuiciel @+

Bonjour Y aurait-il une astuce pour faire une sélection multiple à partir de la fonction lisp getfiled Merci @+

Bonjour, et en passant par le format wmf (commande _wmfout) , powerpoint permet l'insertion d'image de ce format @+

Bonjour, Renommer le bloc par la commande _rename sur le dessin de destination @+

Bonjour, En modifiant l'echelle des hachures par exemple @+

Bonjour, il faut aller dans les options de layer manager puis cocher les cases pour selectionner les propriétés à restaurer @+

Génial, ça marche :cool: Merci

Bonjour Dans un dessin, impossible d'attribuer un sytle de tracé en .ctb, Autocad reste bloque sur un .stb :mad2: , que ce soit en espace papier ou objet. Quand je fais un nouveau dessin, pas de problème, ca marche, et dans mes options de traçage, je pointe bien sur utiliser le style de tracé dependant des couleurs et non en tracé nommé ! Merci d'avance @+

Il y a un Lisp bibles qui est à télécharger dans la section membre qui pourrait répondre à ton besoin @+