Aller au contenu

Messages recommandés

Posté(e)

Bonjour à tous.

 

Voilà, certains hauts protagonistes de ce forum m'ont mis en tête la création d'un post uniquement dédié à mes Lisps.

 

Alors en voici quelques uns, c'est peu, mais j'en écris d'autres en ce moment...:

 

Dessin de flèches : 3 tailles et un "panneau de configuration". Le zip contient 4 icônes. Les tailles à donner sont en "millimètre papier". Les commandes sont :

- ConfigFleches : fenêtre de configuration des flèches,

- DHPetiteFleche : dessine une petite flèche selon l'échelle,

- DHMoyenneFleche : dessine une flèche moyenne selon l'échelle,

- DHGrandeFleche : dessine une grande flèche selon l'échelle,

DH_Fleches.zip

 

Sauvegarde incrémentielle : cette routine incrémente une sauvegarde autre que celle d'AutoCAD. Il suffit de placer "(CtrlSvGrd)" avant la dernière parenthèse fermante de vos lisps. Elle sauvegarde le dwg tout les 10 appels. Mais on peut changer cette valeur.

SauvegardeIncrémentielle.zip

 

Somme de polylignes par calques : calcul la somme des polylignes contenues dans un ou plusieurs calques. Les commandes sont :

- SomPoly : calcul sur le calque courant (lisp de (gile)),

- DHSomPoly : même calcul mais sur plusieurs calques (issu du lisp de (gile)).

SomPoly.zip

 

Orientation du plan : oriente le plan par rotation sans changer le système de coordonnées. Attention, cette commande passe en grades, l'axe des X est à l'EST... Comme pour un géomètre. La commande est : DHOrientSCU

(mise à jour : 23 août 2016)

DHOrientSCU.zip

 

Joint_Text_Cote : joint une cote à un texte avec le symbole "=". Exemple, dans un plan avec une altitude (102.59) et un texte (Seuil), la routine donnera Seuil=102.59. La commande est : Joint_Text_Cote

Joint_Text_Cote.zip

 

Renseignements de tampons : écrit une étiquette avec X, Y, Z et 3 radiers avec une flèche de positionnement. Tout est configurable. Le zip contient deux icônes. Les commandes sont :

- DHConfEtiqTampon : pour configurer les étiquettes,

- DHRens_Tamp : pour placer les étiquettes, le Z est demandé si le point cliqué n'en a pas.

Rens_Tamp.zip

 

Configuration de calques : cette routine lit un fichier .lst avec les noms de calques. Le fichier .lst est construit ainsi :

AncienCalque;NouveauCalque;Commentaires (le séparateur est un ";" point-virgule.)

ATTENTION, à la fin du traitement, le calque "CALQUE_A-FAC" sera effacé avec son contenu, c'est une petite astuce qui permet d'effacer les calques inutiles...

La commande est "ConfigCalques". J'ai joins un fichier "Cadastre.lst" dans le zip pour exemple ainsi qu'un icône...

Le fichier lst est juste un fichier "texte" avec l’extension lst.

ConfigCalques.zip

 

Remplacement de blocs : cette routine lit un fichier .lst avec des noms de blocs (anciens et nouveaux). Le fichier .lst est construit ainsi :

AncienBloc;NouveauBloc (le séparateur est un ";" point-virgule.)

ATTENTION, les caractères génériques sont acceptés, comme :

"Ancien*;Nouveau" signifie que tous les bloc ayant pour début de nom "Ancien" seront remplacés par le bloc "Nouveau". Comme Ancien, Ancien_Old ou Ancien-15x22.

ATTENTION, ces bloc n'ont pas d'attribut...

La commande est "RemplBloc". Le fichier lst est juste un fichier "texte" avec l’extension lst.

RemplBloc.zip

 

Cotation XYZ : cette routine écrit les coordonnées XY (et Z s'il existe) au bout d'une flèche de rappel.

La commande est "DHXYZSimple". Elle oriente les textes selon la variable SNAPANG qui correspond à la rotation du réticule pour que les coordonnées soient toujours horizontales selon l'écran. Pour ça, j'ai créé la routine "Orientation du plan" qui simplifie nettement les orientations des plans tout en restant dans le système de coordonnées courant.

Ce lisp utilise le style de texte "Coordonnées" et il ne doit pas y avoir de hauteur par défaut. S'il n'existe pas, il sera créé. Le ZIP contient une icône.

PS : j'ai ajouté l'option avec cadre (2 type : complet ou stylisé) ou sans grâce (merci à Maître (gile)).

(mis à jour : 30 semptambre 2016)

DH_Fleches.zip

 

Texte déporté avec flèche de rappel : cette routine écrit un texte multiligne de plusieurs lignes au bout d'une flèche de rappel.

La commande est "FlechText". l'orientation du texte se fait selon la variable SNAPANG qui correspond à la rotation du réticule pour que le texte soit toujours horizontal selon l'écran. Pour ça, j'ai créé la routine "Orientation du plan" qui simplifie nettement les orientations des plans tout en restant dans le système de coordonnées courant.

Il y a plusieurs formes de cadre et une option pour tracer une trame sous le texte dans le même calque ou dans un nouveau.

Il y a un maximum de 5 lignes par texte, mais on peux en ajouter une infinité...

Un grand merci à Maître (gile) pour la boite de dialogue "InputBox".

(mis à jour : 6 octobre 2016)

Flech&Text.zip

 

Flèche + XYZ + Textes : cette routine conjugue "Cotation XYZ" et "Texte déporté avec flèche de rappel".

Avec en options : avec ou sans XYZ, avec ou sans texte (avant et/ou après les XYZ), option de sauvegarde/récupération des paramètres.

Un petit mode d'emploi en PDF est dans le ZIP.

Un grand merci à (gile) pour ses commandes "InputBox" et "str2lst"...

(mise à jour : 13 octobre 2016)

Flech&XYZ&Text.zip

 

Changement d'échelle du dessin + étiquette "papier" : cette routine permet de placer dans le DWG une échelle, elle est utilisée dans plusieurs de mes routines. La commande est : "DHChangEchelle".

Cette routine permet aussi d'ajouter une petite étiquette "kutchable" dans l'espace papier. Elle est gérée par la commande "DHInsEchelle" et insert le bon blocs de l'échelle utilisée. Ils sont dans le ZIP, à décompresser dans un répertoire connu d'AutoCAD.

Deux icônes sont inclus dans le ZIP.

(mise à jour : 27 septembre 2016)

DHChangeEchelle.zip

 

Changement de projection d'un DWG : cette routine, comme son nom l'indique, permet de changer la projection d'un DWG.

Il faut pour celà, ouvrir un nouveau fichier et lancer "DHReProjection"

ATTENTION : ça ne devrait fonctionner que sur MAP et, peut-être sur CIVIL, les autre AutoCAD, jene sais pas, ce serait sympa un petit retour là-dessus.

Le nom du fichier source est "analysé" pour vérifier sa bonne projection...

Un grand merci à (gile) pour sa commande "ListBox"...

(mise à jour : 12 octobre 2016)

DHReProjection.zip

 

Propriétés du dessin : cette routine permet de créer des variables dans la personnalisation des données du dessin, on peut donc les utiliser dans des champs (catégorie "Document") pour qu'elles soient directement à jour dans les blocs les utilisant. La commande est "DHDossier". Le ZIP contient le LISP et un cartouche exemple. Ainsi, si on a 50 fois ce cartouche dans 50 présentations, toutes ces variables seront mise à jour en une seule fois... Et autre gros avantages, une fois qu'elles sont créées, on peut utiliser ces variables sans LISP, en tapant "_DWGPROPS"

ATTENTION : une variable vide donnera "----" ou "####". Pour palier à ce problème, placer un espace dans la variable.

Un grand merci à Patrick_35...

DHDossier.zip

 

Recherche de variables : C'est écrit en VBA dans un document WORD, mais comme cela concerne les LISP, je poste ici... C'est un document qui recherche les variables dans un LISP. Il suffit de copier/coller son code dans la page WORD et de faire [Alt]+[F8] et de lancer la commande "ChercheVariables". Testez-le sur un petit LISP, car plus le code est long, plus la recherche est longue...

Voici le lien pour le télécharger, il faut dézipper les deux fichiers dans le même répertoire.

 

Un petit problème est survenu lors de l'attachement de la pièce jointe sur CadXP.

Peut-être un problème lié au site ? ?

Je reviendrais régulièrement pour le mettre à jour...

 

J'espère que ces quelques lisp serviront... J'en posterais d'autres lorsqu'ils seront terminés.

 

Et merci à CadXP et à ces membres sans qui, jamais je n'aurais "lispé"...

 

Denis...

  • Upvote 3

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

De rien, c'est un plaisir de rendre service, surtout à ceux qui l'ont fait pour nous...

 

Ajout de DHOrientSCU

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Ajout de "Joint_Text_Cote".

 

Suite la demande d'un client, j'en aurais énormément besoin, je pense ne pas être le seul...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Ajout de "Renseignements de tampons". Toujours pour faire suite à des commandes pour des plans d’assainissement...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Effectivement, comme j'ai un peu de temps devant moi, j'adapte mes lisps pour les rendre utilisables à un plus grand nombre...

 

Je suis tellement reconnaissant envers CadXP pour la somme astronomique d'aides que j'y ai trouvé que c'est un minimum de partager mes lisps...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Ajout de "Configuration de calques"...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Avec plaisir... Sers-toi...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Ajout de "Remplacement de blocs"

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

  • 3 semaines après...
  • 1 mois après...
Posté(e)

Bonjour à tous.

 

J'ai ajouté une petite routine, que je viens de finir, qui écrit les coordonnées d'un point cliqué au bout d'une flèche de rappel. Si le point n'a pas de Z, les coordonnées n'en auront pas, si le point cliqué est en 3D, le Z sera compris dans les coordonnées.

 

Le plus judicieux serait d'orienter le réticule (avec SnapAng) pour qu'il soit parallèle à l'écran afin que les coordonnées le soient aussi... Encore mieux, utiliser mon Lisp "Orientation du plan".

 

Il est aussi intéressant d'utiliser mon Lisp "Changement d'échelle du dessin" (que je viens d'ajouter aussi) pour uniformiser la hauteur des textes...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Découverte d'un dysfonctionnement dans la cotation des XYZ.

 

En effet, le point d'insertion du texte contenant les coordonnées se fait mal si le plan est "à l'envers". Si le NORD est en bas...

 

Je cherche à réparer ce défaut... Je pense que c'est là où je cherche dans quel cadran se trouve le texte par rapport à la direction de la flèche...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Pfff ! ! ! C'est la galère ! ! !

 

Si quelqu'un sait comment faire pour savoir dans quel quart du cercle trigo on se trouve par rapport à un angle... Même supérieur ou inférieur à pi. Car je n'arrive pas à comprendre pourquoi j'ai des angles supérieurs ou inférieurs à pi...?

 

Je crois que c'est là que je bute...

 

Voici la partie du code qui déconne :

  (setq ZoneCadran (- VarSnapAng (angle pt_ins pt_ins_Txt)))
 (princ (strcat "\nVarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran brut=" (rtos ZoneCadran 2 5)))
 (if (< ZoneCadran (* pi -1))
   (setq ZoneCadran (+ ZoneCadran pi))
 ) ;_ Fin de if
 (if (> ZoneCadran pi)
   (setq ZoneCadran (- ZoneCadran pi))
 ) ;_ Fin de if
 (if (and (>= VarSnapAng (/ pi -2)) (<= VarSnapAng (/ pi 2)))
   (progn (cond ((and (<= ZoneCadran 0) (>= ZoneCadran (/ pi -2)))
                 (princ (strcat "\nInsertion A1  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "BG")
                )
                ((and (< ZoneCadran (/ pi -2)) (>= ZoneCadran (* pi -1)))
                 (princ (strcat "\nInsertion A2  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "BD")
                )
                ((and (> ZoneCadran 0) (<= ZoneCadran (/ pi 2)))
                 (princ (strcat "\nInsertion A3  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "BD")
                )
                ((and (> ZoneCadran (/ pi 2)) (<= ZoneCadran pi))
                 (princ (strcat "\nInsertion A4  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "BG")
                )
          ) ;_ Fin de cond
   ) ;_ Fin de progn
   (progn (cond ((and (<= ZoneCadran 0) (>= ZoneCadran (/ pi -2)))
                 (princ (strcat "\nInsertion B1  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "BG")
                )
                ((and (< ZoneCadran (/ pi -2)) (>= ZoneCadran (* pi -1)))
                 (princ (strcat "\nInsertion B2  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "BD")
                )
                ((and (> ZoneCadran 0) (<= ZoneCadran (/ pi 2)))
                 (princ (strcat "\nInsertion B3  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "HG")
                )
                ((and (> ZoneCadran (/ pi 2)) (<= ZoneCadran pi))
                 (princ (strcat "\nInsertion B4  VarSnapAng=" (rtos VarSnapAng 2 5) "   ZoneCadran=" (rtos ZoneCadran 2 5)))
                 (setq OptionIns "HD")
                )
          ) ;_ Fin de cond
   ) ;_ Fin de progn
 ) ;_ Fin de if

 

Avec :

VarSnapAng = variable SnapAng

Pt_ins = un point cliqué représentant la pointe de la flèche

Pt_ins_Txt = un point cliqué représentant le pied de la flèche

OptionIns = le choix du point d'insertion du texte (HG=Haut Gauche...)

 

J'ai placé des drapeaux un peu partout pour tenter de comprendre, mais rien n'y fait ! ! !

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Bonjour à tous.

 

Mon problème (messages 16 et 17) a été résolu par didier ici, un grand merci à lui...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Bonjour à tous.

 

J'ai ajouté une option à "Orientation du plan", on peut revenir à l'orientation par défaut du DWG.

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

  • 4 semaines après...
Posté(e)

Bonjour à tous.

 

J'ai ajouter DHDossier à mes LISP qui gère les propriétés personnelles du dessin.

 

Encore merci à Patrick_35...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

  • 2 semaines après...
Posté(e)

Bonjour à tous.

 

J'ai ajouté à la commande DHChangeEchelle la commande DHInsEchelle qui insert un petit bloc "kutchable" correspondant à l'échelle du DWG. A utiliser dans l'espace papier.

 

Le ZIP contient le LISP des deux commandes, leurs deux icônes et les blocs allant de 1/10 à 1/5000 mais vous pouvez en construire autant que désirés, tant qu'ils sont nommés avec la même "logique" d'incrémentation :

"Titre_Echelle" + échelle + ".dwg" (ex : "Titre_Echelle250.dwg" pour 1/250).

 

Bonne journée à tous...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Salut à tous...

 

J'ai "amélioré" ma commande "Cotation XYZ" qui propose maintenant l'option d'avoir un cadre (complet ou stylisé) autour des coordonnées ou pas...

 

Merci à (gile) pour calculer les quatre coins d'un MText...

 

Je viens de mettrte mes routines à jour sans avoir demandé l'accord de (gile) pour utiliser son bout de code qui calcul ces quatre coins...

 

(gile), ai-je ton accord post-publication ? ;)

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Re.

 

J'ai ajouté à mes routines "Changement de projection d'un DWG".

 

Elle fonctionne sur MAP, mais pour les autres AutoCAD, je n'en sais rien... Si je pouvais avoir un petit retour, ce serait cool... ;)

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Salut.

 

J'ai ajouté "Texte déporté avec flèche de rappel"...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Bonjour à tous...

 

J'ai ajouté "Flèche + XYZ + Textes"... Très complet.

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant



×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité