Lisps de Patrick_35

[Matt666]

Ah oui ok !

Ah bah merci Gile, je comptais le faire, mais tu t'en es occupé, et très efficacement en plus ! (comme d'hab quoi !) :)

 

A bientot.

Matt.

[yusukens82]

BRAVO pour ce topic.[Edité le 18/12/2007 par yusukens82][Edité le 24/12/2007 par yusukens82]

 

[Edité le 13/2/2009 par yusukens82]

[mill]

Bonjour Patrick et avant tout merci pour tes lisp, c'est un sacré travail et c'est sympa d'en faire profiter les autres.

 

J'ai une petite question sur le "rea",

 

Je travaille en cm dans un cabinet d'architecture et je me demandais s'il etait simple de modifier le lisp pour qu il affiche le résultat en cm (autrement dit de diviser le résultat affiché par 1000).

 

Si tu pouvais m indiquer une soluce ce serait sympa.

[Patrick_35]

Salut

 

Tu remplaces cette ligne

(vla-put-textstring (vlr-data rea) (strcat (rtos (vla-get-area obj) 2 2) "M2"))

par

(vla-put-textstring (vlr-data rea) (strcat (rtos (/ (vla-get-area obj) 1000) 2 2) "M2"))

 

@+

[mill]

merci beaucoup c'est sympa de répondre si vite

[mill]

Petite question subsidiaire qui me ferait gagner un temps fou.

 

Peut on créer un attribut dans un tableau qui aurait pour résultat la valeur donnée le lisp Rea de Patrick 35.

 

L'idée serait bien sur un tableau qui se mettrait a jour en fonction de la polilygne liée.

[Patrick_35]

Salut

 

Avec LATT ?

 

@+

[mill]

merci je vais essayer.

[yusukens82]

Patrick_35

 

Je viens de tester ton LISP (REA)

Vraiment bravo, c'est vraiment fabuleux.

par contre pourai-je te demander une petite adaptation, en fait je travail essentiellement en centimetre or le lisp est conçu pour ceux qui travail en mettre. j'ai essayé de changer plusieur valeurs dans le fichier mais à faire je trouve pas.

Je me permet donc de venir directement voir la personne qui l'a conçu

 

Encore bravo au passage ^^

 

[yusukens82]

hihi en fait mill a posé la même question un peu plus haut dessolé pour les messages en doubles.

merci pour la réponce plus haut ^^

[lili2006]

Bonsoir à toutes et tous,

 

Patrick_35, j'ai eu l'occasion de me servir de Latt V6.40 et j'ai constaté un beug !

Lorsque l'incrémentation dépasse 10, le "1" est remplacé par le "!". Peut-être est-ce lié à la police ou autres ?

 

<!--url{0}-->

 

<!--url{1}-->

[Patrick_35]

Salu lili

 

C'est normal. Tu dois avoir un espace (chr 32) qui se convertit en ! (chr 33).

Pour résoudre le problème, part sur deux digits (01 au lieu de 1) au début.

 

@+

[lili2006]

Bonsoir à toutes et tous,

 

Tu dois avoir un espace (chr 32) qui se convertit en ! (chr 33).

C'est à dire ??

 

Merci Patrick_35 (Avec 01, pas de problème, mais c'est balot car du coup, je renomme les 9 premiers !!)

[Patrick_35]

Ce qui veux dire que je prends le code ascii que j'incrémente

 

Fais (chr 33) au clavier et tu auras comme réponse "!"

De même pour le (chr 32) --> " "

 

@+

[lili2006]

Re,

 

Fais (chr 33) au clavier et tu auras comme réponse "!"

De même pour le (chr 32) --> "

 

Fait et vu !

 

Merci Patrick_35

[(gile)]

Salut Patrick_35,

 

Peut-être une solution ici ?

[Patrick_35]

Merci (gile)

J'y ai pensé et je garde précieusement ta routine sous le coude.

Mais je conserve quand même ce mode d'incrémentation car on peut avoir besoin de passer de A9 à B0 et il est plus facile d'ajouter un zéro quand on veut une numérotation sur deux chiffres que d'ajouter une option qu'il ne faut pas oublier de paramétrer.

 

@+

[(gile)]

on peut avoir besoin de passer de A9 à B0

 

La routine le fait : (incsuff "A9" 1 T) -->"B0"

 

il est plus facile d'ajouter un zéro quand on veut une numérotation sur deux chiffres que d'ajouter une option qu'il ne faut pas oublier de paramétrer.

 

Je n'ai ajouté l'option "alpha" que pour pouvoir, dans certains cas, exclure les caractères alphabétiques de l'incrémentation.

Je pense que dans le cas de Latt, elle peut être laissée à T. La détermination de la partie suffixe de la chaîne ne dépend que du premier caractère non alphabétique ou numérique en partant de la fin.

 

Dans le cas de l'attribut de lili2006, c'est l'espace qui détermine le début du suffixe :

 

(incsuff "n 9" 1 T) --> "n 10"

[Patrick_35]

La routine le fait : (incsuff "A9" 1 T) -->"B0"

J'avais compris ;)

 

(incsuff "n 9" 1 T) --> "n 10"

Chapeau !

Subtile comme routine, comme je les aimes :)

 

A bien y réflechir, tu as raison, je modifie le lisp avec ta routine.

 

@+

[lili2006]

Bonsoir à toutes et tous,

 

Heu, que dire à part "merci les gars" ??!!

 

 

[Steven]

salut à tous.

 

J'ai voulu modifier le lisp IAT de manière à ce que les attributs s'incrémente en 01, 02, 03, 03, 04, 05, 06, 07, 08, 09, 10, etc et non en 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, etc.

Mais je n'est pas trouvé la ligne pour le faire.

C'est possible ou pas?

[Patrick_35]

Salut

 

Rien de plus simple, mais j'ai corrigé la routine avec incsuff de (gile)

 

@+

[nnajid]

Bonjour tout le monde et boujour à toi Patrick

 

Je tenais à te feliciter pour cette liste de lisp, cependant j'ai un souci avec LG.LSP

je charge bien mon lisp, et dans Outils-Option.....je lui donne le bon chemin mais quand je lance LG, il me donne le plus beau des messages

 

"

Commande: LG

 

Version d'excel inconnue ou non installée

 

"

 

ma config : AUTOCAD 2008

et EXCEL 2007

 

voilà

je n'y comprend rien

 

merci

[lili2006]

Bonsoir à toutes et tous,

 

Même constat chez moi.

J'ai réinstallé ma vieille V2003 et là, pas de problème,...

[Patrick_35]

Salut

 

Maintenant, Excel 2007 devrait être pris en compte. Je ne peux pas tester n'ayant pas la version.

Il faudrait que je reécrive le lisp afin de s'affranchir des versions, mais pas trop le temps

 

Donc, LG passe en version 1.22

 

@+