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
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- Suivant
- Page 8 sur 28

## Messages recommandés

### Patrick_35

Posté(e) le 3 août 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 3 août 2007

Salut

C'est curieux :casstet:

Tu peux m'envoyer un exemple.

@+

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

- 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

### oran

Posté(e) le 3 août 2007

### oran

- Membres
- - 249

Posté(e) le 3 août 2007

Bonjour,

...

> Citation
> ...Tu peux m'envoyer un exemple.

quel genre d'exemple exactement...?? ;)

### Patrick_35

Posté(e) le 3 août 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 3 août 2007

Un exemple qui fait la même erreur que celle que tu décris afin que je puisse essayer de trouver d'où elle provient

@+

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

- 1 mois après...

### lesourd2

Posté(e) le 18 septembre 2007

### lesourd2

- Membres
- - 543

Posté(e) le 18 septembre 2007

Bonjour PATRICK

Un grand bravo pour un grand boulot, et surtout un grand merci pour cette generosité.

Pour ma part j'utilise souvent IAT.

J'aurais une demande d'evolution, à savoir:

Incrementation des attributs au-dela de 9.

Par exemple lorsqu'on incremente de R1 à R9 on passe ensuite à S0,S1,s2 etc...

Serait-il possible de modifier ce LISP pour incrementer jusqu'à R20 par ex.

Par avance merci.

@+

### Patrick_35

Posté(e) le 18 septembre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 18 septembre 2007

Salut

> Citation
> Incrementation des attributs au-dela de 9.

Je suppose que tu parles de LATT.

La réponse est non, car si tu ne veux travailler que sur deux caractères, c'est la solution idéale.

Pour répondre à ton souhait, plutôt de de commencer à R1, tu peux faire R01, et là, plus de problèmes.

@+

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

### lesourd2

Posté(e) le 19 septembre 2007

### lesourd2

- Membres
- - 543

Posté(e) le 19 septembre 2007

Salut

Merci.

bonne journée.

- 3 semaines après...

### felipe63000

Posté(e) le 9 octobre 2007

### felipe63000

- Membres
- - 47

Posté(e) le 9 octobre 2007

Bonjour patrick,

bravo et merci pour ton travail exeptionnel sur les lisp. Je suis débutant, et j'ai essayé ta routine "Rea" qui est vraiment extra. je l'utilise associée à une macro diesel que j'ai créé afin de générer un texte de surface automatiquemment en cliquant sur une entité.

Le seul souçis c'est qu'aprés enregistrement et réouverture du dessin, les réacteurs ne se font plus. J'ai beau éplucher l'ensemble des discussion, je ne vois pas pourquoi cela ne fonctionne pas (puisque tu dis que cela doit se relancer automatiquement à la réouverture du dessin).

Pourrais-tu m'aider ?

Toutes mes félicitations pour la qualité de ton site, auquel je participe de temps en temps, et l'esprit d'enraide qu'il y règne.

Cordialement

### Patrick_35

Posté(e) le 12 octobre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 12 octobre 2007

Bonjour

> Citation
> Toutes mes félicitations pour la qualité de ton site

Merci, mais c'est plutot Patrick EMIN, notre webmaster qu'il faut remercier

> Citation
> Le seul souçis c'est qu'aprés enregistrement et réouverture du dessin, les réacteurs ne se font plus

Il faut que le lisp soit chargé pour que les réacteurs fonctionnent.

@+

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

### felipe63000

Posté(e) le 15 octobre 2007

### felipe63000

- Membres
- - 47

Posté(e) le 15 octobre 2007

merci pour ta réponse Patrick,

J'ai confondu les patrick, mais les remerciements sont les mêmes !!

mais vraiment lorsque je réouvre un dessin, les réacteurs ne se font plus, et pourtant le lisp est bien chargé (dans liste de démarrage des lisp), et la fonction est disponible pour une nouvelle selection/texte.

Je ne vois vraiemnt pas pourquoi cela ne fonctionne pas chez moi. J'ai peut-être fait une erreur en la copiant ?? (pourtant en copier/coller)

Bon je vais recommencer tous, je trouverai bien j'espère..........

:casstet:

### Patrick_35

Posté(e) le 15 octobre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 15 octobre 2007

Si tu l'as téléchargé depuis la première page, pas de copié/collé ?

@+

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

### felipe63000

Posté(e) le 17 octobre 2007

### felipe63000

- Membres
- - 47

Posté(e) le 17 octobre 2007

:cool: :cool: :cool: :cool:

MERCI PATRICK !!

en effet j'avais fait un copié/collé qui, je suppose, n'avait pas été fait correctement.

En téléchargeant cela fonctionne à merveille. :)

Par contre, la fonction change mon texte (ex : 9.6m2 devient 96171.78m2), j'essaie de modifier le lisp seul, mais j'avoue coincer un peu........

Et une deuxième amélioration est-elle possible ? je souhaiterai que lorsque j'efface soit la poly ou le texte, le reacteur ne se fasse plus (en cas de modifs quelconques).

je suppose que ce sujet à, en plus, déjà été abordé. Je ne veux pas t'embéter, et seulement si tu as le temps, pourrais tu m'indiquer quelles lignes changer dans ton lisp pour que mon texte reste tel qu'avant REA.

merci beaucoup Patrick_35

[Edité le 17/10/2007 par felipe63000]

### Patrick_35

Posté(e) le 17 octobre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 17 octobre 2007

C'est indiqué dans ce sujet ou encore dans celui-ci

@+

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

### FRAXA

Posté(e) le 17 octobre 2007

### FRAXA

- Membres
- - 367

Posté(e) le 17 octobre 2007

Bonjour Patrick_35!

Je viens de découvris le lisp Latt que je trouve génial mais existe t-il un moyen de lier un attribut visible avec un attribut invisible?

HPZ400 Workstation

Intel Xeon W3550 3.07 GHz

6 Go ram

QUADRO FX 1800

### Patrick_35

Posté(e) le 17 octobre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 17 octobre 2007

Salut

Oui, par prog uniquement

@+

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

- 3 semaines après...

### sechanbask

Posté(e) le 2 novembre 2007

### sechanbask

- Membres
- - 1 k
- Location Poitiers

Posté(e) le 2 novembre 2007

En chargeant ton LISP et en mettant le fichier DCL dans un dossier/ chemin de recherche de fichier de support, AutoCAD me dit fichier DCL introuvable.

??

C'est bête car j'en aurais bien besoin pour tirer plein de présentation en pdf alors qu'elles sont définis sur notre traceur

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

### Patrick_35

Posté(e) le 5 novembre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 5 novembre 2007

Je pense que tu fais allusion à ce message

C'est résolu.

Mais j'ai aussi cru comprendre que tu étais allergique au lisp ?

@+

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

### scake

Posté(e) le 6 novembre 2007

### scake

- Membres
- - 29

Posté(e) le 6 novembre 2007

Bonjour Patrick.

Une question : est-il possible que la liste des présentations de "Ong" les renvoie dans l'ordre du fichier plutôt qu'alphabétique ?

Merci

### Patrick_35

Posté(e) le 6 novembre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 6 novembre 2007

Salut

Oui c'est faisable, et j'y ai déjà pensé, mais pas encore pris le temps pour le faire.

Bientôt

@+

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

### scake

Posté(e) le 7 novembre 2007

### scake

- Membres
- - 29

Posté(e) le 7 novembre 2007

Merci petit Papat Noël ...

Peut-être une piste ?

(defun ax:ListLayouts (/ layouts c lst lay)

(setq layouts (vla-get-layouts

(vla-get-activedocument (vlax-get-acad-object))

)

c -1

)

(repeat (vla-get-count layouts)

(setq lst (cons (setq c (1+ c)) lst))

)

(vlax-for lay layouts

(setq lst

(subst

(vla-get-name lay)

(vla-get-taborder lay)

lst

)

)

)

(reverse lst)

)

Ou une autre :

http://discussion.autodesk.com/thread.jspa?messageID=1113356

Malgré tous mes efforts, c'est malheureusement du chinois pour moi ...

[Edité le 7/11/2007 par scake]

### Patrick_35

Posté(e) le 8 novembre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 8 novembre 2007

Le père noël est passé en avance ;)

Merci pour ton code que je viens juste de voir.

Pour info, j'ai procedé de cette manière.

    (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
     (setq lst (cons (cons (vla-get-taborder lay) (vla-get-name lay)) lst))
    )
    (setq liste_lay (mapcar 'cdr (vl-sort lst '(lambda (a b)(< (car a) (car b))))))

@+

[Edité le 9/11/2007 par Patrick_35]

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

### scake

Posté(e) le 13 novembre 2007

### scake

- Membres
- - 29

Posté(e) le 13 novembre 2007

Encore merci Patrick.

Cela fonctionne exactement comme je pouvais l'espérer.

Pour les bouts de code, c'est avec plaisir. Avec le temps, j'espère passer au plus vite de "google" à la pratique simple de la progammation.

Bonne journée, et à bientôt.

http://www.flickr.com/photo_zoom.gne?id=331001451&size=o

[Edité le 13/11/2007 par scake]

### felipe63000

Posté(e) le 15 novembre 2007

### felipe63000

- Membres
- - 47

Posté(e) le 15 novembre 2007

Bonjour Patrick_35,

j'utilise ton isp "REA" qui fonctionnait trés bien, jusqu'à ce que je tombe sur un dessin ou, parfois, cela ne fonctionne pas. J'ai 2 plines fermées, sur l'une le lisp fonctionne et pas l'autre. J'ai copié les propriétés de celle qui fonctionne sur l'autre, mais aucun résultat. Aurais-je fait une erreur quelquepart ?? Peux-tu m'aider ??

J'ai le dwg avec cet exemple que je viens de te raconter, mais ne sait pas comment le mettre à ta disposition........ :casstet: (à part te l'envoyer par mail bien sûr !!)

Cordialement

### Patrick_35

Posté(e) le 19 novembre 2007

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 19 novembre 2007

Salut

Recopier les propriètés ne sert à rien, comme avec un copier. Il faut faire la liaison avec rea

@+

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

- 3 semaines après...

### Matt666

Posté(e) le 6 décembre 2007

### Matt666

- Membres
- - 736
- Location Rennes

Posté(e) le 6 décembre 2007

Salut Patrick_35 !

Bravo pour tout ça, c'est impressionant !!

Petite question, concernant ta routine ONG.

Le code ci dessous

    (vlax-for
       lay
       (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
       (setq lst (cons (cons (vla-get-taborder lay) (vla-get-name lay)) lst))
    )

n'est pas lisible par un moteur intellicad, et j'aurais aimé (si possible) que tu me donnes un exemple de résultat de ce bout de code... Pour pouvoir le transcrire en autolisp...

là je vois que tu as deux variables lay et lst. après je ne comprends plus rien !!

Merci d'avance !

A bientot.

Matt.

"Chacun compte pour un, et nul ne compte pour plus d'un."

### (gile)

Posté(e) le 6 décembre 2007

### (gile)

- Moderateurs
- - 12,2 k

Posté(e) le 6 décembre 2007

Salut,

L'accès aux propriétés des objets non graphiques est plus compliqué en pur AutoLISP.

Il faut récupérer la liste des données de la collection des présentations (dictionnaire), dans cette liste récupérer les nom d'entité des présentations puis faire un entget sur ces noms d'entités pour accéder aux propriétés de chaque présentation (dont l'ordre des onglets)

    (setq dict (dictsearch (namedobjdict) "ACAD_LAYOUT"))
    (foreach p dict
     (if (= 3 (car p))
       (setq
         lst (cons
        (cons (cdr (assoc 71 (entget (cdr (assoc 350 (member p dict))))))
    	  (cdr p)
        )
        lst
      )
       )
     )
    )

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

- Précédent
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- Suivant
- Page 8 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é

Connectez-vous pour activer le suivi