DenisHen

Attention, si le chemin déclaré est : AutoCAD ne verra pas Il faut déclarer le répertoire AINSI que les sous-répertoires...

Attention... Si le chemin déclaré est : AutoCAD ne verra pas les sous-répertoires de LISP, donc, \LISP\blablabla ne sera pas vu par AutoCAD...

Salut, Pour bien faire, il faut placer son LISP ainsi que le DCL dans un répertoire connu d'AutoCAD, de cette façon, plus de problème de chargement... Pour connaitre ces répertoires, taper "OPTIONS" dans AutoCAD et ils se trouvent dans l'onglet "Fichier" en haut à gauche... Denis...

Bonjour à tous. J'ai ajouter DHDossier à mes LISP qui gère les propriétés personnelles du dessin. Encore merci à Patrick_35... Denis...

Re, Finalement, j'ai maintenant une autre approche... J'utilise la fenêtre des propriétés du dessin plutôt que de multiplier les lignes de saisie... Voici donc mon code ainsi qu'un cartouche "exemple" : Dossier.zip Ce code créé les variables s'il elles n'existent pas, puis, les affiches... Avec cette technique, les champs sont mis à jour à chaque changement... Je l'utilise quand j'ai des dizaines de cartouches dans des dizaines de présentations... C'est beaucoup plus rapide et sûr... Encore un grand merci à Patrick_35 (ça fait 1002...) Denis...

Que dire... Codes, explications... Tout est excellent... Un grand merci à toi Patrick_35... Denis...

Re. Par contre, lorsque je change ces variables, AutoCAD me répond : En fait, le addcustominfo ajoute une variable, mais ne la change pas... Comment changer le contenu de ces variables lorsqu'elles existent déjà ?

Salut Patrik_35. Mille mercis pour cette astuce... Je n'avais jamais pensé à passer par ce genre de variable... Ca fonctionne nickel ! ! Encore un grand merci (ça fait 1001 pour aujourd'hui... ;) ) Denis...

Re. Apparament pas, j'ai fais quelques testes sur différents DWG sur d'autres postes et les variables LISP ne sont pas enregistrées dans les DWG... Au démarrage d'AutoCAD, j'ai un LISP contenant : (setq DH_Departement (vlax-ldata-get "DenisH" "Departement")) (setq DH_Commune (vlax-ldata-get "DenisH" "Commune")) Ce qui me permet de placer dans les champs ces deux variables. Mais ce LISP, ou même ces deux lignes, doivent être lancées au chargement d'AuroCAD ou du DWG puisque les valeurs de ces variables sont bien dans le DWG avec (vlax-ldata... Les postes de mes clients n'ont pas ce LISP... Donc, ça ne fonctionnera chez moi, mais pas chez le client... Et je n'ai rien trouvé pour placer dans le champs une phrase LISP qui serait du type : (vlax-ldata-get "DenisH" "Departement") ;;; Ou alors (vlax-ldata-get "DenisH" "Commune") Peut-être dans une expression DIESEL... Mais je ne connais pas le DIESEL... Si quelqu'un a une astuce, un conseil... Je suis preneur... Denis...

Salut. Et merci à vous deux, ça fonctionne nickel... Juste une petite question. Est-ce que ces variables restent dans le DWG ? Si mes clients n'ont pas ce LISP, les champs garderont-ils leur valeur ? Denis...

Salut (gile)... Merci, c'est nickel... Encore un super LISP de (gile) à ajouter à nos bibliothèques... ;)

Salut à tous... Juste un petit truc sur cet excellent LISP, histoire de chipoter, les polylignes modifiées par PLINE2BRLINE ne gardent pas leurs propriétés (couleur, calque...) Mais c'est vraiment pour chipoter... ;) Denis...

Bonjour à la communauté. Voilà, j'ai fais un petit LISP qui créer des variables : ;;;Enregistrement des détails du dossier dans le fichier courant (defun c:DHDoss (/ DH_Departement DH_Commune) (princ "\nDéveloppé par Denis H. (V3.0)") ;;; Saisie de la commune*************************************************************************** (setq DH_Departement (vlax-ldata-get "DenisH" "Departement")) (if DH_Departement ; si donnee est déjà défini (progn (if (setq DH_Departement (getstring T (strcat "\nNom du département (" DH_Departement ") - Nouveau nom : " ) ;_ Fin:strcat ) ;_ Fin:getstring ) ;_ Fin:setq ; Si donnee est re-défini (if (/= DH_Departement "") (vlax-ldata-put "DenisH" "Departement" DH_Departement) ) ;_ Fin:if ) ;_ Fin:if ) ;_ Fin:progn ; si Ech n'est pas encore défini (progn (setq DH_Departement (getstring T "\nNom du département : ")) (vlax-ldata-put "DenisH" "Departement" DH_Departement) ) ;_ Fin:progn ) ;_ Fin:if ;;; Saisie de la commune*************************************************************************** (setq DH_Commune (vlax-ldata-get "DenisH" "Commune")) (if DH_Commune ; si donnee est déjà défini (progn (if (setq DH_Commune (getstring T (strcat "\nNom de la commune (" DH_Commune ") - Nouveau nom : " ) ;_ Fin:strcat ) ;_ Fin:getstring ) ;_ Fin:setq ; Si donnee est re-défini (if (/= DH_Commune "") (vlax-ldata-put "DenisH" "Commune" DH_Commune) ) ;_ Fin:if ) ;_ Fin:if ) ;_ Fin:progn ; si Ech n'est pas encore défini (progn (setq DH_Commune (getstring T "\nNom de la commune : ")) (vlax-ldata-put "DenisH" "Commune" DH_Commune) ) ;_ Fin:progn ) ;_ Fin:if ;;;Affichage des données saisies*************************************************************************** (setq DH_Departement (vlax-ldata-get "DenisH" "Departement")) (setq DH_Commune (vlax-ldata-get "DenisH" "Commune")) (alert (strcat "\nDépartement : \t" DH_Departement "\nCommune : \t" DH_Commune ) ;_ Fin de strcat ) ;_ Fin de alert (c:CtrlSvGrd) (princ) ) ;_ Fin de defun Mon problème est que lorsque j'insert un champs avec le nom du champs : VariableLisp et la variable dh_departement, j'ai le droit à "----" et nom au contenu de ma variable... L'expression est "%<\AcVar.17.0 Lisp.dh_departement>%" Je ne sais pas pourquoi, les deux derniers (setq ne fonctionnent pas, car si je le fais en ligne de commande, c'est OK... Si quelqu'un a une astuce, un conseil... Je suis preneur...

Ça ne pourrait pas fonctionner en faisant : ^C^C_select;p; Mais effectivement, ça ne marchera pas pendant une commande. Peut-être qu'en faisant : '_select;p; Mais il faudrait confirmation d'un expert en macro, comme Christian... Denis...

Salut. Ça fonctionne les ssget sous LT ? C'est du LISP il me semble... Denis...

Bonjour à la communauté. Et d'abord, un grand merci à (gile) qui fait de superbes programmes en Lisp, ObjectARX/DBX, C++, .NET, RealDWG, dont nous sommes des centaines à les utiliser. Je me sers très souvent des commandes de l'excellent ExcelAttribute_x.dll (EATT et IATT). Mais je tombe sur un petit problème et propose une évolution de ce programme. En effet, j'ai une multitude de présentations dans lesquelles j'ai des blocs que je balance dans Excel, fais quelques modifications (plusieurs VBA pour rassembler des données de plusieurs classeurs dans différents onglets) puis je réimporte mes données dans les blocs respectifs de mon DWG. Cette manipulation me fais créer autant de classeur que j'ai de présentation (plusieurs dizaines). Ma proposition serait que, pour chaque onglet AutoCAD (Objet, présentation1, présentation2.....) il y ait un onglet dans le classeur Excel, qui porteraient le même nom bien sûr.. Ce qui éviterait d'avoir, pour x onglet AutoCAD, autant de classeur Excel... Et pour le fait, il serait aussi judicieux de demander à l'utilisateur (à l'export comme à l'import) s'il veux mettre à jour tous les blocs du DWG ou seulement dans quelques onglets, voir même quelques blocs (en les sélectionnant par exemple). Je pense que cette "petite" évolution servira à un grand nombre d'utilisateurs et pas seulement moi, sans quoi, je ne me serais pas permis de poster cette requête. Je précise aussi que ce n'est ni un ordre, ni une demande personnelle. Juste l'observation d'un fervent utilisateur reconnaissant du travail qu'il faut pour développer de tels programmes... Encore merci à Maître (gile) pour tout ce qu'il fait pour nous... Denis...

En plus, ils le disent eux-même : "...pour améliorer son fonctionnement et pour répondre aux besoins de la prochaine génération d'utilisateur." Mais ils n'améliorent que trop peu de commandes qui, pour certaines, en ont un grand besoin... En plus, il y a beaucoup de pipeau dans leur discourt... Beaucoup... En gros, ils voient loin mais n'entendent pas de près...

Pas de soucis... Denis...

Ce que je fais généralement pour trouver une différence entre deux DWG. Je passe en SCU général dans les deux dessins et je compare les coordonnées d'un point commun (coin de mur, insertion de bloc...) dans les deux DWG. S'il y a une différence, c'est qu'ils sont dans deux systèmes de coordonnées différents, donc, même s'ils sont tous les deux en SCU général, ils ne seront pas "superposable" tel quel... Raison pour laquelle j'utilise, dans ce cas, la commande ALIGNER. Denis...

Pour que la commande aligner ne fonctionne pas, ta Xref n'est pas sur un claque verrouillé ?

Dommage... C'est curieux qu'il te parle de (command) alors qu'il n'y en a pas...

Salut. Je vais peut-être dire une co**erie, mais si tu ajoute (vl-load-com) après la première ligne du LISP ?

Salut (gile). Excellentes commandes ! ! ! De plus, il y a quelques mois, quelqu'un avait fait cette demande sur CadXP... Merci pour le temps passé et pour le partage... Denis...

Salut Guillaume, Donc, si les deux dessins sont bien dans le même SCU et que ça ne se superpose pas, as-tu essayé la commande "Aligner" ?

Il n'est pas possible de modifier "physiquement" la taille d'une entité (ligne, cercle...) en modifiant un attribut de bloc, quel qu'il soit. En tous cas, je n'ai jamais réussi à le faire... Il est possible de la faire via un lisp, mais je ne sais pas s'il existe...