Patrick_35

Salut C'est bien d'indiquer quand tu post sur d'autres forums @+

J'ai fais une config avec install pour plusieurs postes. Lors de la 1ere utilisation, Autocad demande de valider le répertoire des lisps, puis plus jamais grâce cet extrait. Si le dossier des lisps n'est pas dans les préférences utilisateurs, il est automatiquement ajouté. Pour cela, tu as deux chemins. - Celui des chemins de recherches Outils --> Options --> Fichiers --> Chemin de recherche de fichiers de supports en cours d'utilisation (vla-get-supportpath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) - Celui des emplacements approuvés Outils --> Options --> Fichiers --> Emplacements approuvés (getvar "TRUSTEDPATHS") @+

Salut J'ai un fichier que je charge automatiquement sur Autocad et qui contient ceci : (setq chemin "c:\\...\\Mon_répertoire") ; Redéfinition des chemins de recherches (or (vl-string-search (strcase chemin) (strcase (vla-get-supportpath (setq pref (vla-get-files (vla-get-preferences (vlax-get-acad-object))))))) (vla-put-supportpath pref (strcat chemin ";" (vla-get-supportpath pref))) ) (setq pref nil) (and (getvar "TRUSTEDPATHS") (not (vl-string-search (strcase chemin) (strcase (getvar "TRUSTEDPATHS")))) (if (eq (getvar "TRUSTEDPATHS") ";") (setvar "TRUSTEDPATHS" (strcat chemin ";")) (setvar "TRUSTEDPATHS" (strcat chemin ";" (getvar "TRUSTEDPATHS"))) ) ) @+

Le breton Lispix a du mal à comprendre l'étoile du matin qui irradie sa journée. Ca fonctionne ou pas ? ps : le krank-saoz à bien raison. @+

Le lisp modifié (defun c:stl(/ blo doc ent lay changer fichier liste) ;;; =========================================================================== ;;; Paramètres à définir par l'utilisateur ; La liste des types de lignes à remplacer (setq liste '( ("CONTINU" "CONTINUOUS") ("HIDDEN" "CACHE") ("CENTER" "CENTRE") ("PHANTOM" "FANTOME") ) ) ; Le fichier de lignes à charger --> acad.lin ou acadiso.lin (setq fichier "acad.lin") ;;; Fin des paramètres à définir par l'utilisateur ;;; =========================================================================== (defun changer(obj / new) (and (setq new (assoc (strcase (vla-get-linetype obj)) liste)) (progn (or (tblsearch "ltype" (cadr new)) (vla-load (vla-get-linetypes doc) (cadr new) (findfile fichier)) ) (vla-put-linetype obj (cadr new)) ) ) ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (foreach ltp liste ) (vlax-for lay (vla-get-layers doc) (changer lay) ) (vlax-for blo (vla-get-blocks doc) (vlax-for ent blo (changer ent) ) ) (vla-endundomark doc) (princ) ) (c:stl) @+ ps : Le lisp n'est plus sensible à la casse, mais il faut que les types de lignes recherchées soient en majuscules dans la liste.

1) De rien 2) Même pas, car tu as à la fin du lisp (c:stl), ce qui veut dire qu'il se lance dès qu'il est chargé. 3) C'est pour cela que j'ai déclaré la variable fichier. C'est au choix. @+

Salut Tu as juste le lisp à charger (defun c:stl(/ doc lay new fichier liste) ;;; =========================================================================== ;;; Paramètres à définir par l'utilisateur ; La liste des types de lignes à remplacer (setq liste '( ("CONTINU" "CONTINUOUS") ("HIDDEN" "CACHE") ("CENTER" "CENTRE") ("PHANTOM" "FANTOME") ) ) ; Le fichier de lignes à charger --> acad.lin ou acadiso.lin (setq fichier "acad.lin") ;;; Fin des paramètres à définir par l'utilisateur ;;; =========================================================================== (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (vlax-for lay (vla-get-layers doc) (and (setq new (assoc (vla-get-linetype lay) liste)) (progn (or (tblsearch "ltype" (cadr new)) (vla-load (vla-get-linetypes doc) (cadr new) (findfile fichier)) ) (vla-put-linetype lay (cadr new)) ) ) ) (vla-endundomark doc) (princ) ) (c:stl) @+

Salut Tu as regardé dans le lien donné précédemment, la réponse 11 de BonusCad ? @+

Le padawan remercie la lumière céleste. @+

Oh mon crabinou Le crabe aux pinces d'or L'homme aux 2000 routines Le référent d'Autocad La mémoire vivante de Cadxp Peux-tu dans ton extrême bonté Nous octroyer un peu de ta sagesse A savoir un pdf réactualisé Que nos yeux impurs Puissent s’abreuver de cette prose Venant nous apporter compréhension et sagesse Pdf oh! combien important Qui nous guide vers le chemin De la re-projection @+

Salut Oui. Je suis sur une 2017, c'est peut-être la différence. J'ai aussi découvert il y a peu une nouvelle fonction. (vla-postcommand (vla-get-activedocument (vlax-get-acad-object)) ...) Quid du command, command-s, vl-cmdf et maintenant vla-postcommand ps : tu n'as pas compris la subtilité du or ;) @+

Oui, et c'est bien ce que me retourne Autocad d'après ton exemple. J'ai la bonne valeur. Je te proposais une solution alternative. @+

Salut Ben oui, je ne vois pas où est le problème ? Par exemple (or (setq def (vlax-ldata-get "DenisH" "EtiqPRD_OptionIns"))(setq def "Automatiquement")) @+

Salut Il est ajouté un décalage de 5% par rapport à la largeur et à la hauteur Si tu veux augmenter en x, tu modifies (* dix 1.05) Et pour les y (* my 1.05) Pour le nombre de blocs par lignes, il faut changer cette valeur (eq col 10) @+

Salut Tu as aussi le BlackBoard. @+

Salut Et en plus, avec une fonction :D Bravo, le Lisp n'a bientôt plus de secrets pour toi. @+

Salut Le plus simple est de contacter son auteur. Je sais qu'on peut le trouver sur ce site (pseudo : Andrea). @+

Salut Non, surtout que Lee Mac est très bon, mais quand ça ne marche pas et qu'il y a une solution alternative. ps : Le château des ducs de Bretagne est à Nantes et c'est en 1955 que la Loire-atlantique quitte le giron de la Bretagne par décret (qui peut-être facilement annulé). pps : Les gens d'Ille-et-Vilaine ne sont pas considérés comme Breton par le Finistère, tout comme la galette de sarrasin, alors... @+

Salut Tu as regardé ONG ? @+

Salut Regarde la variable TDUPDATE @+

Salut Avec JAV, normalement, tu peux purger les images orphelines. Ensuite, pour intégrer définitivement une image dans un dessin, sans avoir recours à un chemin, tu fais la manip suivante. Tu ouvres ton image avec Paint par exemple, puis Ctrl+A (sélectionner tout) et ensuite Ctrl+C (copier). Dans Autocad, tu fais Ctrl+V (coller) et tu as ton image intégrée dans le dessin sans chemin. @+

Il n'est jamais trop tard :D Oui, c'est pour cela que tu as le mode d'affectation des cellules, une sélection en continue, Ajouter Bloc pour éviter un maximum de saisie (tous les attributs du bloc sont alors pris en compte), voir Insertion/Copie qui utilise les réacteurs. C'est à toi de voir selon ton besoin. Mais une chose, c'est que tu peux très bien faire des liaisons avec une feuille Excel, réutiliser le dessin pour un autre projet et affecter une autre feuille ou un autre fichier Excel et ainsi, conserver tes liaisons. De plus, tu as des outils pour scripter et faire des mises à jour d'Autocad vers Excel ou inversement. @+

Salut On va faire un pas à pas. Tu lances LXL. La seule action possible dans la boite de dialogue est d'ajouter un fichier Excel. Tu choisis donc ajouter et tu vas rechercher un fichier Excel existant. Tu valides. Dans la boite de dialogue, tu as maintenant accès à la Feuille Excel. Tu fais ajouter et tu choisis une feuille Excel. Maintenant que tu as définis l'espace de travail avec Excel, tu choisis le bouton Ajouter Attribut/Texte et tu sélectionnes 1 attribut ou un texte dans Autocad. Il te sera demandé sur quelle cellule d'Excel sera reportée ou importée la valeur. On choisit par exemple la cellule A1, puis on valide pour quitter la suite de saisie. Tu remarqueras que la valeur de ton attribut/texte est reportée dans la liste "Valeur actuelle" et que tu as la cellule A1 affecté dans la boite de dialogue. Pour vérifier que tout fonctionne bien et en directe, tu ouvres avec Excel ton fichier. Dans Autocad, tu fais Mise à jour d'Autocad vers Excel et ta valeur est reportée sur la cellule A1. Tu changes par exemple la valeur de ta cellule A1 et tu fais dans Autocad l'inverse, Mise à jour d'Excel vers Autocad et la valeur de ton attribut/texte prends la valeur de ta cellule A1. Les liaisons sont conservées dans le dessin. Commence avec un exemple simple. @+

Salut Sinon, tu as cette . @+

Salut (gile) t'as donné le minimum requis pour créer une cote avec entmake. Les autres codes dxf permettent d'affiner ton besoin, comme le calque (dxf 8), la couleur (dxf 62), etc... Les codes non indiqués dans un entmake prennent les valeurs par défaut. Donc, pour le code 70, tu peux aller voir ce lien. @+