Lisps de Patrick_35

[Magdi95]

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

[lex]

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]

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) 

 

@+

[PHILPHIL]

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

[Patrick_35]

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

 

@+

[lex]

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]

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

 

@+

[gainsbarre57]

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

[Patrick_35]

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.

 

@+

[philsogood]

1 merci suffira-t-il?

 

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

 

phil

[usegomme]

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]

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

 

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

 

@+

[Tonio68]

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]

[ludo07]

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]

Bonsoir à toutes et tous,

 

Voila j'ai ouvert un post sur autocad 2011

 

Ici

[Patrick_35]

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

 

@+

[ludo07]

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]

J'y vois plus clair avec des exemples

 

Donc, le lisp modifié

 

@+

[ludo07]

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]

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]

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.

 

@+

[ludo07]

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]

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

 

mais tu vas pas être content

Pas plus que ça ;)

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

 

@+

[ludo07]

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]

Bonsoir à toutes et tous,

 

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,