Lisps de Patrick_35

pierricq · 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]

PHILPHIL · 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

Patrick_35 · 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.

@+

grosseel · 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 · 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)))))

@+

grosseel · 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 · 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)
)

@+

grosseel · le 5 juin 2009

:)

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

A+

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]

Tometdo · 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 · 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

le 22 juillet 2009

Où trouver ça ?

lecrabe · 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"

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) · 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.

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

bigoude · 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 · 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.

@+

bigoude · le 23 juillet 2009

Super,

je n'avais pas vu cette possibilité

Merci....

PHILPHIL · 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

Patrick_35 · 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.

@+

PHILPHIL · 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

Patrick_35 · le 4 août 2009

Salut

Dans la commande publier, tu choisis tes onglets.

J'ai du mal à comprendre.

@+

PHILPHIL · 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

Patrick_35 · le 4 août 2009

Alors pourquoi l'intégrer dans ONG ?

@+

PHILPHIL · 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

Lisps de Patrick_35

Messages recommandés

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

Messages populaires

Patrick_35

JUJUZAZA

Patrick_35

Images postées

Invité SAAIDI

Invité SAAIDI

Invité SAAIDI

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Information importante