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

- Routines LISP

# Lisps de Patrick_35

Par Patrick_35
le 8 août 2006 dans Routines LISP

Partager
Abonnés 4

- Précédent
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- Suivant
- Page 20 sur 28

## Messages recommandés

### Magdi95

Posté(e) le 14 avril 2010

### Magdi95

- Membres
- - 15
- Location Bordeaux

Posté(e) le 14 avril 2010

Salut Patrick,

Ca fait quelque temps que je me dis qu'il faut que je laisse un ptit post pour TE mais aussi Vous remercier du temps que vous passez à nous rendre service, à élargir nos connaissances et mettre a disposition toutes ces routines qui pour ma part me font gagner beaucoup de temps ;)

Ca s'est fait!

Alors continue(z), continue(z)....

@+ Magdi

- Réponses 693
- Créé 18 a
- Dernière réponse 3 a

#### Meilleurs contributeurs dans ce sujet

- 214

- 45

- 39

- 34

#### Jours populaires

- le 23 janv.

  14

- le 7 févr.

  12

- le 9 août

  12

- le 10 juil.

  11

#### Meilleurs contributeurs dans ce sujet

- Patrick_35 214 messages

- PHILPHIL 45 messages

- lili2006 39 messages

- lecrabe 34 messages

#### Jours populaires

- le 23 janv. 2007

  14 messages

- le 7 févr. 2022

  12 messages

- le 9 août 2006

  12 messages

- le 10 juil. 2008

  11 messages

#### Messages populaires

##### Patrick_35

le 8 août 2006

Bonjour à vous tous Cela fait un moment que je fais des lisp et que je les publie sur ce forum On en trouve un peu partout et j'ai donc décidé de les regrouper dans ce post

##### JUJUZAZA

le 19 août 2006

patrick 35 tu as eu 1 superbe idée de tout regrouper et encore + fort de partager tes lisp . 1 grand merci

##### Patrick_35

le 22 août 2006

Ajout de la fonction Ctr @+

#### Images postées

### lex

Posté(e) le 15 avril 2010

### lex

- Membres
- - 69

Posté(e) le 15 avril 2010

Salut PATRICK_35, j'ai testé ton lisp cat,, mais si j'ai bien compris

on sélectionne la source d'information pour l'injecter au symbole cible qui doit être identique à la source, c'est chouette, mais serait-il possible d'adapter sans te commander, à l'heure actuelle j'utilise le lisp attout et attin dans les expresstools.

en pratique j'execute des plans elec ma source (exemple symbole d'une sonde de température) j'extraie ses informations pour les injecter à

2 autres symboles diffèrent en forme (exemple un symbole représentant un contact et l'autre un bornier avec ses câbles) mais qui contiendront les même informations que le symbole source.

pour que cela fonctionne mes symboles ont les même étiquettes et invits mais je dois transiter par un fichier txt.

l'idéal c'est un lisp comme cat mais inter symbole en s'inspirant de attout et attin sans transiter en txt

merci au plaisir.

### Patrick_35

Posté(e) le 16 avril 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 16 avril 2010

Salut

    ;;;=================================================================
    ;;;
    ;;; CAT.LSP V2.00
    ;;;
    ;;; Copier des attributs
    ;;;
    ;;; Copyright (C) Patrick_35
    ;;;
    ;;;=================================================================

    (defun c:cat(/ att bl doc ent sel)
     (vl-load-com)
     (setq doc (vla-get-activedocument (vlax-get-acad-object)))
     (vla-startundomark doc)
     (and	(setq ent (entsel "\nSélectionnez le bloc d'origine : "))
    (setq ent (vlax-ename->vla-object (car ent)))
    (eq (vla-get-objectname ent) "AcDbBlockReference")
    (eq (vla-get-hasattributes ent) :vlax-true)
    (princ "\nSélectionnez les blocs destinataires")
    (ssget (list (cons 0 "insert") (cons 66 1)))
       (progn
         (setq att (vlax-invoke ent 'getattributes))
         (vlax-for bl (setq sel (vla-get-activeselectionset doc))
    (mapcar '(lambda(a b)(vla-put-textstring a (vla-get-textstring b))) (vlax-invoke bl 'getattributes) att)
         )
         (princ (strcat "\n" (itoa (vla-get-count sel)) " bloc(s) modifié(s)."))
         (vla-delete sel)
       )
     )
     (vla-endundomark doc)
     (princ)
    )

    (setq nom_lisp "CAT")
    (if (/= app nil)
     (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp)
       (princ (strcat "..." nom_lisp " chargé."))
       (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter.")))
     (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))
    (setq nom_lisp nil)
    (princ)

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### PHILPHIL

Posté(e) le 16 avril 2010

### PHILPHIL

- Membres
- - 1,3 k
- Location: NANTES

Posté(e) le 16 avril 2010

hello patrick

avec GEF 3.04

est ce qu'il serait possible d'avoir l'option quand on copie des onglets presentations qu'ils soient directement mis a la fin plutot que copier juste apres

un bouton qui copie juste apres ( c'est le cas actuellement )

un bouton qui copie et met a la fin

bon week end

a+

phil

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

### Patrick_35

Posté(e) le 19 avril 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 19 avril 2010

Salut

C'est de ONG dont tu parles ?

Si oui, je n'ai pas le temps actuellement, mais rien ne t'empêche de le faire

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### lex

Posté(e) le 20 avril 2010

### lex

- Membres
- - 69

Posté(e) le 20 avril 2010

Bonjour patrick_35, désolé j'ai cru que mon message n'était pas passé,

j'a teste ton lisp, cat v2 mais ça donne le mémé résultat que cat v1

comme dans l'explication donné à gille, ça fonctionne que si le block attribut source est le même que le block cible.

le code de gille est adapté à mes besoins.

merci d'avoir consacré du temps à mon problème.

a+

### Patrick_35

Posté(e) le 22 avril 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 22 avril 2010

Salut

Le lisp fonctionne avec des blocs différents. Tu as du te mélanger les pinceaux.

Si avec le lisp de (gile), tu as trouvé ton bonheur, tant mieux

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

- 2 semaines après...

### gainsbarre57

Posté(e) le 5 mai 2010

### gainsbarre57

- Membres
- - 23
- Location 57100

Posté(e) le 5 mai 2010

Bonjour Patrick

MILLES MERCI POUR TOUT CES LISP!!!!!!!!!!!!!!!!!

J'ai charger le lisp IXL mais je ne comprend pas trop le fonctionnement du lisp :(

Je sais que cela peut paraitre un peu simple mais peux tu me donner de plus amples détails sur le fonctionnement.

Autre question, il y a t'il un moyen de bloquer les fichiers dwg en ecriture et copie avec un lisp ou un pgm en vb?

Merci pour ton aide

Gainsbarre57

Allez Salut les P'tits Gars

- 2 semaines après...

### Patrick_35

Posté(e) le 17 mai 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 17 mai 2010

> Citation
> Bonjour Patrick

> MILLES MERCI POUR TOUT CES LISP!!!!!!!!!!!!!!!!!

> J'ai charger le lisp IXL mais je ne comprend pas trop le fonctionnement du lisp :(

> Je sais que cela peut paraitre un peu simple mais peux tu me donner de plus amples détails sur le fonctionnement.

> Autre question, il y a t'il un moyen de bloquer les fichiers dwg en ecriture et copie avec un lisp ou un pgm en vb?

> Merci pour ton aide

> Gainsbarre57

Salut

Le principe d'IXL est d'insérer un/des bloc(s) depuis Exel en précisant le point d'insertion, le calque, l'angle, l'échelle et les attributs si besoin.

Un fichier d'exemple est joint avec le zip

Pour bloquer le dwg en écriture, tu as la possibilité lors de l'ouverture du dwg de choisir de l'ouvrir en lecture seule.

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### philsogood

Posté(e) le 24 mai 2010

### philsogood

- Membres
- - 3,1 k

Posté(e) le 24 mai 2010

1 merci suffira-t-il?

qd je vois ce que je sais faire et qd je vois ce que d'autres font...

phil

Projeteur Revit Indépendant - traitement des eaux/CVC

### usegomme

Posté(e) le 24 mai 2010

### usegomme

- Membres
- - 621

Posté(e) le 24 mai 2010

Patrick_35 , ton lisp ONG m' a rendu un grand service pour réparer une mauvaise initiative sur une bonne série de plans , il fonctionne parfaitement avec une case de dialogue trés efficace et rapide. Si j'avais eu à supprimer la ribambelle d'onglets un part un , j'aurais maintenant la main en compote.

Merci beaucoup

### Patrick_35

Posté(e) le 25 mai 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 25 mai 2010

philsogood : Oui, un seul suffit du moment qu'il est sincère ;)

> Citation
> qd je vois ce que je sais faire et qd je vois ce que d'autres font...

Petit à petit, l'oiseau fait son nid :cool:

usegomme : C'est le but, se faciliter la vie :D

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

- 2 mois après...

### Tonio68

Posté(e) le 17 août 2010

### Tonio68

- Membres
- - 6
- Location Roderen

Posté(e) le 17 août 2010

Bonjour,

J'ai testé PAT.

Super.

Et merci.

Seulement, sur un dossier il ne fonctionne pas.

Le nom du bloc et de l'attribut commencent par un $.

Est-ce lié ??

Comment y remédier?

Merci d'avance.

PS : MESSAGE D'ERREUR AUTOCAD "bad argument type: VLA-OBJECT nil"[Edité le 17/8/2010 par Tonio68]

[Edité le 22/9/2010 par Tonio68]

Nous ne voyons pas d'autre explication !!!

Expert en progiciel de schématique électrique et de note de calcul

SOLID WORKS Electrical (Issu de elecworks) / SEE Electrical Expert / elec calc HT/BT|BIM|EP / archelios

"Il vaut mieux mobiliser son intelligence sur des conneries, que de mobiliser sa connerie sur des choses intelligentes."

- 1 mois après...

### ludo07

Posté(e) le 21 septembre 2010

### ludo07

- Membres
- - 441

Posté(e) le 21 septembre 2010

Bonsoir a tous et surtout a patrick.

Voila j'ai ouvert un post sur autocad 2011, mais suivant les conseils de lili2006 je refais une demande ici:

Voila j'ai utilisé ton lisp LG car il correspond a ce que je chercher.

Tu proposes deux possibilités soit utiluser un gabarit via xls soit via un gabarit dwg. Et c'est justement cette derniere option que je souhaite utiliser cependant j'ai un probléme c'est que en utilisant mon gabarit legende dwg ton lisp fonctionne mais la colonne de quantité n'apparait pas.

Est ce que je l'utilise mal?

Dans le cas ou le lisp avec un gabarit dwg ne permet pas d'avoir cette colonne quantité. Peux tu la rajouter? Car j'ai fait egalement un essai avec un gabarit xls la colonne de quantité et bien créée. Cependant je trouve qu'utiliser un gabarit dwg et plus souple pour moi.

Merci a toi patrick

### lili2006

Posté(e) le 21 septembre 2010

### lili2006

- Moderateurs
- - 12,6 k

Posté(e) le 21 septembre 2010

Bonsoir à toutes et tous,

> Citation
> Voila j'ai ouvert un post sur autocad 2011

Ici

Civil 3D 2025 - COVADIS_18.3d

https://www.linkedin...3%ABt-95313341/

### Patrick_35

Posté(e) le 22 septembre 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 22 septembre 2010

Salut

Le lisp modifié pour ajouter les quantités.

Pour que cela fonctionne, il faut que le texte qui indique la quantité est la valeur 0

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### ludo07

Posté(e) le 22 septembre 2010

### ludo07

- Membres
- - 441

Posté(e) le 22 septembre 2010

Bonjour Patrick et Merci,

J'ai essayais ton LG modifié et c'est exactement ce que je souhaite.

Cependant j'ai un soucis quand je fais ma propre légende et que j'utilise le lisp.

Pour information j'ai d'abord fait un essai avec un bloc dynamique dans lequel il y a plusieurs etat de visibilité. Le fichier Lg-QI.dwg correspond à ma légende. De plus je te joint un fichier Lg-QI-fichier-essai.dwg qui correspond a mon fichier de travail pour la légende Lg-QI avec bloc dynamique.

Ensuite me disant que le problème venais peut être des blocs dynamiques j'ai essayais avec des blocs indépendant (non dynamique). Le fichier Lg-QI2.dwg correspond à ma légende. De plus je te joint un fichier Lg-QI2-fichier-essai.dwg qui correspond a mon fichier de travail pour la légende Lg-QI2 avec bloc non dynamique.

Voila le message que j'obtiens avec les fichiers Lg-QI2(blocs non dynamique)

[surligneur] Commande: lg

Position de la Légende : Définition à double du bloc ivv ignorée.

Définition à double du bloc ibp ignorée.

Impossible d'imbriquer des définitions de blocs.

Erreur : groupe DXF incorrect: (1 . 0)[/surligneur]

Le bloc ne se crée pas et le tableau va automatiquement en 0,0 et les quantités ni sont pas.

Et voila le message que j'obtiens avec les fichiers Lg-QI (un bloc dynamique).

[surligneur] Commande: lg

Position de la Légende : Définition à double du bloc commande-eclairage

ignorée.

Erreur : type d'argument incorrect: lselsetp nil.[/surligneur]

Ci-dessous le lien sur lequel je te joint mes fichiers.

http://cjoint.com/?jwoYExmbO0

Peut tu regarder si tu as les même problèmes?

Merci

A+

### Patrick_35

Posté(e) le 22 septembre 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 22 septembre 2010

J'y vois plus clair avec des exemples

Donc, le lisp modifié

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### ludo07

Posté(e) le 22 septembre 2010

### ludo07

- Membres
- - 441

Posté(e) le 22 septembre 2010

Merci patrick t'es un cheffffffffffffffffffff.

une dernière chose, mais je t'en voudrait pas si tu le fait pas.

Pourrait tu ajouter la selection d'objet.

Car dans certains cas si le projet n'est pas volumineux je peux avoir 2 voir 3 niveaux sur le même fichier.

Le lisp actuellement quantifie dans le dessin entier. En ajoutant un jeu de selection cela me permettrais d'avoir mes légendes par niveau.

;)

Et encors un grand Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

A+

### ludo07

Posté(e) le 23 septembre 2010

### ludo07

- Membres
- - 441

Posté(e) le 23 septembre 2010

Bonjour Patrick,

Il est important que tu sois consciens que ce message n'enléve en rien tous les remerciment de mon message précédent.

Cependant j'ai un problème avec le lisp.

Ci-dessous le lien de téléchargement de mon fichier gabarit légende Lg-QI3.dwg et un fichier essais sur lequel j'ai le problème.

http://cjoint.com/?jxovRBUdnQ

Explication:

Mon futur fichier gabarit légende comportera environs 50 lignes comprenant une 20éne de blocs non dynamique et des blocs dynamique ayant différent état de visibilité (conforme a l'exemple ci-joint).

Donc fort du succés de hier, je reprends le gabarit Lg-Qi.dwg (que je t'ais joint hier) et j'ajoute tous simplement une ligne de plus (en faisant un copier / coller d'une rangée existante:polyliligne fermée, les différents textes et j'insere un nouveau bloc).

Quand j'essais le lisp Lg avec mon fichier gabarit Lg-Qi3.dwg il me crée le bloc légende à l'endroit ou j'ai pointé la souris, mais il n'intégre pas la nouvelle ligne que j'ai crée. En 0,0 il y a la nouvelle rangé avec mon nouveau bloc.????

Est que j'ai pas compris la subtilité de la création du fichier gabarit légende dwg?

Dis moi si je fais quelque chose de mal?

Je m'y prend peut être pas de la bonne façon.

Merci

A+

### Patrick_35

Posté(e) le 24 septembre 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 24 septembre 2010

Grumf

J'ai donc revu la partie de l'analyse du gabarit (que j'ai optimisé, car on évolue dans les techniques) et cela ne devrait plus poser de problèmes.

Donc, la nouvelle version.

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### ludo07

Posté(e) le 24 septembre 2010

### ludo07

- Membres
- - 441

Posté(e) le 24 septembre 2010

Bonjour,

Et merci Patrick, mais tu vas pas être content, car aprés essayais le lisp modifié, ou j'ai obtenu ma légende.

J'ai fermé et réouvert le fichier et le bloc légende été modifié avec la rangé des titres de colonne en double et avec l'inscription suivante: [surligneur] Référence circulaire pour le bloc *U[/surligneur]

ci-joint le fichier essai.

http://cjoint.com/?jyoVqTS5eH

désolé :D

A+

### Patrick_35

Posté(e) le 24 septembre 2010

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 24 septembre 2010

Salut

Une référence circulaire est une formule qui fait appel à son propre résultat.

Ce qui veut donc dire que tu as un bloc dans le dessin qui se réfère à lui-même et provoque donc une erreur

> Citation
> mais tu vas pas être content

Pas plus que ça ;)

Je suis si raleur que ça ? :cool: , donc un bon français :D

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

### ludo07

Posté(e) le 24 septembre 2010

### ludo07

- Membres
- - 441

Posté(e) le 24 septembre 2010

Salut Patrick,

Je sais que le forum est un échange de connaissance entre les différents membres, et il est vrais que depuis le début je ne t'ais pas forcément était d'une grande aide à l'inverse de toutes l'aide précieuse que tu m'a apportée.

Donc parfois il est vrais que je ne voudrais pas trop abuser de ton temps et il est vrais que parfois je me dis que tu erais d'en ton droit de m'envoyais C....

Aprés cette déclaration trés émouvante, je vais quand même te faire part de mes différent éssai et des problémes que je rencontre avec le lisp. ;) hihihihi

1) Je reviens sur mon message précédent: j'avous que j'ai la facheuse mani quand j'enregistre un plan de purger et de controler mon plan avant de fermer.

Fais un essai de ton côté mais quand tu lance la commande controler puis oui (_audit;o) il se passe un phénoméne qui quand tu re ouvre le fichier il apparaît "référence en double du bloc....."

2) ensuite j'ai l'impression que si dans ma légende j'intégre un bloc avec un attribut, le lisp ne fonctionne pas. Il insere bien le bloc gabarit légende mais il ne suprime pas les lignes des blocs non utilisés et il ne fait pas non plus le comptage. De plus à la ligne de commande apparît "objet complexe detecté".

Voilà je te laisse avec ces 2 points et je te souhaite un bon week end Patrick.

A+

### lili2006

Posté(e) le 24 septembre 2010

### lili2006

- Moderateurs
- - 12,6 k

Posté(e) le 24 septembre 2010

Bonsoir à toutes et tous,

> Citation
> Ce qui veut donc dire que tu as un bloc dans le dessin qui se réfère à lui-même et provoque donc une erreur

Quelles sont les causes de ce phénomène ?

Merci d'avance,

Civil 3D 2025 - COVADIS_18.3d

https://www.linkedin...3%ABt-95313341/

- Précédent
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- Suivant
- Page 20 sur 28

## 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
Partager
Abonnés 4
Aller sur la liste des sujets

## 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é

deleted
×