Lisps de Patrick_35

[pierricq]

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]

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]

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]

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]

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]

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]

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]

:)

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

 

A+

[Invité SAAIDI]

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]

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

 

[lecrabe]

 

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

 

[Invité SAAIDI]

Où trouver ça ?

[lecrabe]

 

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"

 

[Invité SAAIDI]

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

 

A très bientôt.

 

 

[(gile)]

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]

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]

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]

Super,

je n'avais pas vu cette possibilité

 

Merci....

[PHILPHIL]

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]

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]

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]

Salut

 

Dans la commande publier, tu choisis tes onglets.

J'ai du mal à comprendre.

 

@+

[PHILPHIL]

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]

Alors pourquoi l'intégrer dans ONG ?

 

@+

[PHILPHIL]

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