Lisps de Patrick_35

[Patrick_35]

Salut

C'est curieux :casstet:

 

Tu peux m'envoyer un exemple.

 

@+

[oran]

Bonjour,

...

...Tu peux m'envoyer un exemple.

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

[Patrick_35]

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

 

@+

[lesourd2]

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]

Salut

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.

 

@+

[lesourd2]

Salut

 

Merci.

bonne journée.

[felipe63000]

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]

Bonjour

 

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

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

 

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.

 

@+

[felipe63000]

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]

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

 

@+

[felipe63000]

: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]

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

 

@+

[FRAXA]

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?

 

[Patrick_35]

Salut

 

Oui, par prog uniquement

 

@+

[sechanbask]

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

[Patrick_35]

Je pense que tu fais allusion à ce message

 

C'est résolu.

 

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

 

@+

[scake]

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]

Salut

 

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

Bientôt

 

@+

[scake]

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]

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]

[scake]

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]

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]

Salut

 

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

 

@+

[Matt666]

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.

[(gile)]

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