Aller au contenu
Problème de lien d'inscription (résolu ?) ×

Routines LISP

Postez ici vos routines LISP. Une routine est du code court destiné à être réutilisé. Par exemple, un programme mettant à jour la valeur d'un attribut de bloc est une routine. Ne postez pas d'applications ici!

1 361 sujets dans ce forum

  1. Smartmap - un vieux mais puissant programme

    Par Nicky,
    • 2 réponses
    • 559 vues

  2. Récupérer les centres et les rayons de cercles

    Par Frog,
    • 2 réponses
    • 495 vues
    • Frog
    • Frog

  3. Routine lisp pour créer une légendes des objets dans un dessin

    Par Majaes,
    • 0 réponse
    • 670 vues

  4. PROPAGER ETAT DE CALQUE DANS LES FENETRES DE PRESENTATIONS

    Par PHILPHIL,
    • 3 réponses
    • 1,1 k vues

  5. [résolu] Lisp convertir texte en lignes de repère

    Par Raph_38,
    • 10 réponses
    • 4,1 k vues

  6. [Résolu] Lisp Tocc47 ne fonctionne plus

    Par William44850,
    • 10 réponses
    • 687 vues

  7. (wcmatch ... ) et les caractères spéciaux

    Par Déméter_33,
    • 5 réponses
    • 770 vues

  8. Archive

    Par sofianerm,
    • 14 réponses
    • 1,2 k vues

  9. Valeur par défaut non prise en compte avec GETWORD

    Par Déméter_33,   
    • 8 réponses
    • 856 vues

  10. Coordonnées non reconnues

    Par Déméter_33,
    • 1 réponse
    • 460 vues

  11. Erreur: type d'argument incorrect - Impossible de récupérer les coordonnées d'une polyligne

    Par Déméter_33,
    • 1 réponse
    • 463 vues

  12. COPIER ATTRIBUTS D'un bloc qui est dans un bloc / xref

    Par PHILPHIL,
    • 1 réponse
    • 590 vues

  13. Pb ecriture ou affichage Attribut

    Par julien1982,   
    • 8 réponses
    • 745 vues

  14. Archive

    Par sofianerm,
    • 2 réponses
    • 704 vues

  15. Créer ses motifs de hachures

    Par Invité Sylvainhinard,
    • 5 réponses
    • 5,7 k vues

  16. routine polyligne vers bloc

    Par philsogood,
    • 10 réponses
    • 1,1 k vues

  17. [Résolu] Longueurs de segments dans un polygone 1 2

    Par pierrevigneux,
    • 27 réponses
    • 8,1 k vues

  18. ucsfollow et modifbloc (bedit)

    Par eklundh80,
    • 6 réponses
    • 1,2 k vues

  19. Déplacer / Sélectionner Bloc

    Par helas,
    • 12 réponses
    • 2,1 k vues

  20. TO-LIN : erreur sur toutine

    Par philsogood,
    • 2 réponses
    • 549 vues

  21. métrés block dynamique

    Par x_all,
    • 14 réponses
    • 5,2 k vues

  22. TAR.BZ2 to DWG en masse

    Par Fraid,
    • 16 réponses
    • 5,8 k vues

  23. ESCALIER 2D EN PLAN ET COUPE

    Par PHILPHIL,
    • 4 réponses
    • 2,3 k vues

  24. Bloc "dubloc"

    Par GEGEMATIC,
    • 4 réponses
    • 788 vues

  25. Récurrences non reconnues (erreur: no function definition: BOUCLE)

    Par Déméter_33,
    • 5 réponses
    • 1,1 k vues


  • Statistiques des forums

    • Total des sujets
      49,2 k
    • Total des messages
      298,6 k

  • Sujets

  • Messages

    • AntoineB
      Nuage de points et DAO sur Mensura 12

      Par AntoineB · Posté(e)

      Salut et bienvenue, Je ne peux malheureusement pas t'aider, j'utilise les nuage de points de manière très basique. Par exemple, je fais des filtres sur mes points puis je transforme le tout en terrain. Bon courage
    • Geo34
      Autopiste / Mensura

      Par Geo34 · Posté(e)

      @Philippe_B  Je viens de lire l'intitulé de ton poste donc je rajouterai également une moins grande souplesse dans la création de giratoire et une création aléatoire pour le tracé des carrefours. La palette de signalisation est également moins complète , pas d'outil d'aide pour le tracé d'échangeur routier et autoroutier...  
    • >>NicoM
      Optimisation de l'insertion de blocs avec des attributs

      Par >>NicoM · Posté(e)

      Bonjour, Cela fait un moment que je n'ai pas posé de question sur ce forum, mais je suis bloqué sur un problème et j'aimerais obtenir des conseils. Je cherche à insérer un bloc comportant plusieurs attributs dans AutoCAD, en affectant leurs valeurs directement depuis une feuille Excel. Actuellement, j'ai une version fonctionnelle qui affecte les propriétés au dernier bloc inséré, et les attributs récupèrent et compilent ces propriétés. Cependant, le temps d'exécution est assez long, et j'aimerais optimiser ce processus (voir code ci-dessous). Mon objectif serait de sauter l'étape intermédiaire des propriétés et d'intégrer directement les attributs dans le bloc. Il me semblait qu'avec Entmake, Attdef et Attrib, c'était plus rapide et relativement simple, mais je n'arrive pas à comprendre leur fonctionnement. En parcourant le code Edit_bloc3.5 de (gile), j'ai l'impression d'être encore plus perdu qu'au départ. Auriez-vous des suggestions pour optimiser le temps d'exécution et simplifier ce processus ? Merci d'avance pour votre aide !   ;; BOUCLE POUR LES POTEAUX   (setq index 0)   (while (< index nb-row)       ;; Récupération de la liste courante     (setq lst (nth index data-list))       ;; Liste des variables à définir     (setq var1 '(ID A B phi H D C Nb N1 N1_larg N1_long S1 L1 fL1 fL2 N2 S2 E2 L2 fX2 fY2 N31 N312 S31 E31 L31 fY31 N32 N322 S32 E32 L32 fX32 V_béton P_tot Ratio pos_X pos_Y visi_sch))       ;; Liste des indices correspondants dans lst     (setq ind1 '(6 7 8 9 10 11 12 15 16 17 18 19 20 21 22 24 25 26 27 28 29 32 33 34 35 36 37 40 41 42 43 44 45 50 51 52 61 62 63))             ;; Association des variables aux valeurs récupérées         (mapcar '(lambda (var index) (set var (vlax-variant-value (nth index lst)))) var1 ind1)               ;; Conversion explicite des coordonnées en réel         (setq pos_X (if (numberp pos_X) pos_X (atof pos_X)))         (setq pos_Y (if (numberp pos_Y) pos_Y (atof pos_Y)))             ; insertion du poteau         (setq insertion-point (list pos_X pos_Y 0))         (command "_-insert" "# ptx 2 rangs - Barre droite" insertion-point 1 1 0)       (setq ent (entlast))               ; attribution des propriétés             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "ID") ID)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "A") A)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "B") B)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "phi") phi)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "H") H)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "D") D)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "C") C)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "Nb") Nb)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N1") N1)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "S1") S1)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "L1") L1)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "fL1") fL1)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "fL2") fL2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N2") N2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "S2") S2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "E2") E2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "L2") L2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "fX2") fX2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "fY2") fY2)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N31") N31)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N312") N312)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "S31") S31)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "E31") E31)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "L31") L31)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "fY31") fY31)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N32") N32)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N322") N322)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "S32") S32)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "E32") E32)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "L32") L32)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "fX32") fX32)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "N312") N312)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "V_béton") V_béton)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "P_tot") P_tot)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "Ratio") Ratio)             ; insertion du schéma         (setq insertion-point (list (+ 454 pos_X) (- pos_Y 17) 0))         (command "_insert" "# Schéma ptx Y2" insertion-point 1 1 0)         (setq ent (entlast))             ;; Liste des variables à définir     (setq variables3 '(N1_larg N1_long visi_sch))         ;; Liste des indices correspondants dans lst     (setq propriétés3 '("X" "Y" "Visibilité1"))                       ;; Association des variables aux valeurs récupérées             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "Y") N1_larg)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "X") N1_long)             (setpropertyvalue ent (strcat "AcDbDynBlockProperty" "Visibilité1") visi_sch)         ;; Incrémentation de l'index pour passer à l'itération suivante     (setq index (1+ index)))
    • Manu_CAD
      Remplacer une chaine de caractère par une autre

      Par Manu_CAD · Posté(e)

      Non il y a des textes et des multitextes et si le texte ou multiutexte se trouve dans le layer INFO_FR, on doit remplacer SF6 par GAZ et s'il se trouve dans le layer INFO_NL, on doit SF6 par GAS. C'est enfonction de la langue d'utilisation. Oui, pas de problème
    • didier
      Remplacer une chaine de caractère par une autre

      Par didier · Posté(e)

      Bonjour @Manu_CAD J'ai bien compris pour la première partie avec les noms de blocs avec préfixe S_IO_B*, je vais le faire. Par contre, je n'ai pas compris ce que vous appelez la troisième étape, c'est le nom du calque qu'il faut changer ? Dernière chose, je dois m'absenter quelques jours, je ne sais pas quand j'aurai du temps pour ce faire, mais je le ferai. Amicalement

  • Sujets

×
×
  • 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é