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
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- Suivant
- Page 17 sur 28

## Messages recommandés

### pierricq

Posté(e) le 6 mai 2009

### pierricq

- Membres
- - 92

Posté(e) le 6 mai 2009

Bonjour,

tout dabord je voudrai te remercier pour ces lisp c'est tres sympa.

ensuite je suis a la recherche d'une routine qui me permettrai de remplacer des points (avec données d'objets) par des blocs qui récupereraient ces derniere...

de plus j'aimerai que cela soit possible avec une selection par calque...

Je m'expilque:

J'ai un semis de points genre shape que j'insert sur autocad map, ces points sont ordonné par calque (suivant le type de données d'objet qui y sont integrée)

j'aimerai dire:

je veux tout les points qui sont dans ce calque (et leur données associées)

et les remplacer par tel bloc (qui récupère les données des points...)

j'espere avoir été assez clair... <acronym class=dict title=

C'est possible de faire ça en lisp???

[Edité le 1/2/2010 par pierricq]

- 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

### PHILPHIL

Posté(e) le 6 mai 2009

### PHILPHIL

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

Posté(e) le 6 mai 2009

hello patrick

merci encore

pour GEF 3.30 beta

tu peux remplacer gef 2.20 par 3.30 pour moi ca marche

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 7 mai 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 7 mai 2009

Bonjour

shosh

Il faut faire un clic droit sur le bloc.

pierricq

Fais plutôt un nouveau message pour ta demande que de continuer sur ce fil de discussion.

PHILPHIL

Je viens de mettre à jour.

@+

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

- 4 semaines après...

### grosseel

Posté(e) le 4 juin 2009

### grosseel

- Membres
- - 44

Posté(e) le 4 juin 2009

Bonjour Patrick_35,

Je me permet de te demander un modification de ton lisp OOG afin de palier un manque d'un routine qu'avait créer Bred (CEP, création de présentation selon bloc dans espace Objet) et que j'ai mis à jour suivant mes besoins.

La demande consiste à classer les onglets par ordre AlphaNumérique de facon automatique.

Merci d'avance.

### Patrick_35

Posté(e) le 4 juin 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 4 juin 2009

Salut

On m'avais demandé de classer les onglets dans leur ordre d'affichage, ce que j'ai trouvé logique et donc fait.

Si c'est pour revenir à l'ordre alphanumérique, tu remplaces.

    (vlax-for lay lays
     (setq lst (append lst (list (cons (vla-get-taborder lay) lay))))
    )
    (while (assoc n lst)
     (setq ordre (append ordre (list (cdr (assoc n lst)))))
     (setq n (1+ n))
    )

par

    (vlax-for lay lays
     (setq lst (cons lay lst))
    )
    (setq ordre (vl-sort lst '(lambda(a b) (< (vla-get-name a)(vla-get-name b)))))

@+

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

### grosseel

Posté(e) le 5 juin 2009

### grosseel

- Membres
- - 44

Posté(e) le 5 juin 2009

Salut,

Ma demande ne concerne pas l'ordre d'affichage des onglets de Présentations dans la fenêtre DCL, mais d'automatiser le traitement fait manuelllement avec la fenêtre .

a+

### Patrick_35

Posté(e) le 5 juin 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 5 juin 2009

Ah ok

Je n'avais pas bien compris le besoin.

    (defun c:ton(/ doc express lay lst n)
     (vl-load-com)
     (setq doc (vla-get-activedocument (vlax-get-acad-object))
    n 1
     )
     (if (eval 'acet-ui-progress-done)
       (progn
         (acet-ui-progress-init "" (1- (vla-get-count (vla-get-layouts doc))))
         (setq express T)
       )
       (progn
         (princ "\nTravail en cours...")
         (princ)
       )
     )
     (vla-startundomark doc)
     (vlax-for lay (vla-get-layouts doc)
       (setq lst (cons (list (vla-get-taborder lay) lay) lst))
     )
     (foreach lay (vl-sort (vl-remove (assoc 0 lst) lst) '(lambda(a b)(< (vla-get-name (cadr a))(vla-get-name (cadr b)))))
       (vla-put-taborder (cadr lay) n)
       (and express (acet-ui-progress-safe n))
       (setq n (1+ n))
     )
     (and express (acet-ui-progress-done))
     (princ (strcat "\nTri de " (itoa (1- n)) " présentation(s)."))
     (vla-endundomark doc)
     (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

### grosseel

Posté(e) le 5 juin 2009

### grosseel

- Membres
- - 44

Posté(e) le 5 juin 2009

:)

Merci, ca répond super bien à ma demande.

A+

- 1 mois après...

### Invité SAAIDI

Posté(e) le 9 juillet 2009

### Invité SAAIDI

- Invités

Posté(e) le 9 juillet 2009

Le Lisp MAT fonctionne très bien sur un bloc unique qui apparait plusieurs fois dans le dessin.

Pour le choix de plusieurs blocs (noms différents) qui ont le même nom d'attribut. (valeur à entrer identique pour tous les blocs, exist-il un lisp ? Ici ou ailleurs

Merci.

[Edité le 9/7/2009 par SAAIDI]

- 2 semaines après...

### Tometdo

Posté(e) le 22 juillet 2009

### Tometdo

- Membres
- - 5

Posté(e) le 22 juillet 2009

Merci par avance pour toutes ces merveilles, je suis sure que lorsque j'aurai compris comment les utiliser, ce sera encore mieux!!! ;)

### lecrabe

Posté(e) le 22 juillet 2009

### lecrabe

- Moderateurs
- - 10,7 k
- Location Loire (42) Forez

Posté(e) le 22 juillet 2009

Hello SAAiDI

Si MAT ne te suffit pas ...

Tu fais qq recherches sur :

SSTAG et MODATT-TAG

par exemple ... :P

Encore merci à Gilles & Patrick, Le Decapode

Autodesk Expert Elite Team

### Invité SAAIDI

Posté(e) le 22 juillet 2009

### Invité SAAIDI

- Invités

Posté(e) le 22 juillet 2009

Où trouver ça ?

### lecrabe

Posté(e) le 22 juillet 2009

### lecrabe

- Moderateurs
- - 10,7 k
- Location Loire (42) Forez

Posté(e) le 22 juillet 2009

Hello

La politesse est un élément important des forums ! :o

Les pauvres truffes qui perdent du temps a essayer d'aider les autres

peuvent se fatiguer vite !!! :exclam:

Le Decapode "vieux diplodocus fatigue en ce moment"

Autodesk Expert Elite Team

### Invité SAAIDI

Posté(e) le 22 juillet 2009

### Invité SAAIDI

- Invités

Posté(e) le 22 juillet 2009

Tu as oublié de mettre un accent à a. Pour le reste, je suis déja fatigué.

A très bientôt.

### (gile)

Posté(e) le 22 juillet 2009

### (gile)

- Moderateurs
- - 12,2 k

Posté(e) le 22 juillet 2009

> Citation
> Tu as oublié de mettre un accent à a. Pour le reste, je suis déja fatigué.

> A très bientôt.

Que d'arrogance de la part de quelqu'un qui semble incapable de trouver de l'eau dans la mer !

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

### bigoude

Posté(e) le 23 juillet 2009

### bigoude

- Membres
- - 15

Posté(e) le 23 juillet 2009

Bonjour patrick_35

Super le dernier lisp GEF en détaillant les fenetres dans les presentations.

ceci dit comme je travaille avec de nombreuses presentation composé de plusieurs fenetres, il est difficile de savoir dans de ton lisp a quel fenetre dans la presentation on fait reference.

Le top si ce n'est pas trop demandé se serait d'avoir un visuel de l'onglet avec les presentations auquel on fait reference

### Patrick_35

Posté(e) le 23 juillet 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 23 juillet 2009

SAAIDI

Je ne peux qu'être d'accord avec Lecrabe et (gile).

Inutile d'en rajouter.

bigoude

Le lisp a quand même des limites et en voici une.

Il reste la solution d'aller sur l'onglet et de d'utiliser le bouton de sélection pour choisir sa/ses fenêtre(s).

Le lisp pointera dessus.

@+

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

### bigoude

Posté(e) le 23 juillet 2009

### bigoude

- Membres
- - 15

Posté(e) le 23 juillet 2009

Super,

je n'avais pas vu cette possibilité

Merci....

### PHILPHIL

Posté(e) le 30 juillet 2009

### PHILPHIL

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

Posté(e) le 30 juillet 2009

hello patrick

juste pour info

il y a quelles differences entre GEF 3.01 et GEF 3.03 ???

gef 3.03 adopté de toute facon

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 30 juillet 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 30 juillet 2009

Salut

Il y avait un bug dans la gestion d'affichage des calques avec le filtre de choix des fenêtres ainsi qu'une mauvaise interprétation dans la saisie du filtre du choix des fenêtres.

On peut faire 0,2,5 par exemple pour choisir la présentation, la fenêtre 2 et 5.

On peut faire 1-5,9-12,18 par exemple pour choisir les fenêtres 1 à 5,de 9 à 12 et la 18.

Il faut juste que je trouve le temps de mettre à jour le lien de la page principale.

@+

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 3 août 2009

### PHILPHIL

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

Posté(e) le 3 août 2009

HELLO patrick

bonnes vacances

bonnes vacances ? ( le ? fait toute la différence ) l o llll

sur le super ONG y'a t il moyen de rajouter un bouton pour envoyer les présentations sélectionnées vers la commande "publier"

a+

merci

phil

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

### Patrick_35

Posté(e) le 4 août 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 4 août 2009

Salut

Dans la commande publier, tu choisis tes onglets.

J'ai du mal à comprendre.

@+

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 4 août 2009

### PHILPHIL

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

Posté(e) le 4 août 2009

hello

"publier" marche dans les deux sens

tu peux aussi choisir les onglets

clique bouton droit

"publier les présentations sélectionner"

et la "publier" n'affiche que les présentations sélectionnées ( logique et encore heureux )

y'a plus qu'a envoyer plus rapide

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 4 août 2009

### Patrick_35

- Membres
- - 6,4 k

- Auteur

Posté(e) le 4 août 2009

Alors pourquoi l'intégrer dans ONG ?

@+

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 4 août 2009

### PHILPHIL

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

Posté(e) le 4 août 2009

HELLO

"ong" n'avait pas été concus a la base pour sélectionner plus facilement les onglets ?

plutot que de les faire defiler avec les petites fleches

disont qu'avec plus de 100 présentations sur un fichier ca va bcp plus vite et surtout plus facile a repérer

tu vas me dire ca marche en selectionnant les onglets et cliquant sur "imprimer"

mais ca il a tendance ( autocad ) a passer par l'espace papier avant de passer a l'onglet suivant

d'ou le double de regenération pour rien

a+

phil

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

- Précédent
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- Suivant
- Page 17 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
×