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

Personnalisation, macros, DIESEL

La personnalisation, c'est la modification de menus sans utiliser de langage de programmation par exemple. Le DIESEL est un langage de macro intégré aux versions LT.

310 sujets dans ce forum

  1. Fonctions utilisables dans les formules de champ

    Par (gile),
    • 11 réponses
    • 10 k vues

  2. Macro : Bloc

    Par Reyoh,
    • 18 réponses
    • 613 vues

  3. [Terminer] Macro : interagir avec les propriétés d'un objet

    Par Reyoh,
    • 17 réponses
    • 1,1 k vues

  4. Modifier un texte dans plusieurs présentation

    Par AutoKad,
    • 12 réponses
    • 11,9 k vues

  5. Changer le calque de l'attribut

    Par nen,
    • 3 réponses
    • 770 vues
    • nen
    • nen

  6. Charger un lisp avec un script

    Par nen,
    • 2 réponses
    • 664 vues
    • nen
    • nen

  7. Rotation des blocks automatique

    Par pawel,
    • 3 réponses
    • 926 vues
    • DOMI
    • DOMI

  8. Paramètres de fonction dans une macro

    Par Nathalie,
    • 0 réponse
    • 809 vues

  9. macro "dévérouiller tous les calques"

    Par magalie,
    • 18 réponses
    • 10,3 k vues

  10. intégrer des raccourcis clavier dans des scripts ou macro

    Par Tryks,
    • 0 réponse
    • 1,4 k vues

  11. Macro ligne par 2 points avec cotation automatique

    Par pawel,
    • 2 réponses
    • 1,9 k vues

  12. Remplacement de texte dans plusieurs fichiers

    Par JVC,
    • 8 réponses
    • 2,9 k vues

  13. Comment créer un filtre de propriété de calque dans un fichier SCR ?

    Par DenisHen,
    • 5 réponses
    • 1,9 k vues

  14. Chargement de type de ligne par macro

    Par jifi,
    • 11 réponses
    • 7,2 k vues

  15. validation attribut dans script

    Par litelsousa,
    • 18 réponses
    • 2,5 k vues

  16. Nombre de bloc dans une cellule tableau légende ?

    Par Oeil2bidule,
    • 4 réponses
    • 4,2 k vues

  17. Détecter une touche clavier en diesel

    Par rrobert,
    • 2 réponses
    • 2,3 k vues

  18. Créer un champ avec une macro-commande

    Par nen,
    • 11 réponses
    • 3,3 k vues
    • nen
    • nen

  19. Compiler deux commandes dans une macro

    Par nen,
    • 1 réponse
    • 2,2 k vues
    • nen
    • nen

  20. Personnaliser le menu

    Par l56,
    • 3 réponses
    • 5 k vues
    • l56
    • l56

  21. Diesel DWGPREFIX et publication de présentations

    Par seebd,
    • 0 réponse
    • 2,4 k vues

  22. [Résolu] Sélectionner des textes avec un bouton

    Par Dubloc,
    • 7 réponses
    • 8,1 k vues

  23. macro qui ne va pas jusqu'au bout

    Par BaB,
    • 11 réponses
    • 6,1 k vues
    • BaB
    • BaB

  24. Créer macro pour éviter ouverture fenetre "DCL" Covadis

    Par Demixav,
    • 6 réponses
    • 5,8 k vues

  25. AutoCAD 2018 For MAC : Utilisation de la liaison de donné et ligne de repères multiples

    Par AkuZz,
    • 1 réponse
    • 4,4 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é