Patrick_35

C'est bon, j'ai trouvé. C'étaiit un bug dans LATT. Je verrouillais un peu trop mes vérifications @+

On passe maintenant à la version 6.03 Un bug a été corrigé. Maintenant, les réacteurs prennent en compte si une modif sur un attribut géré par LATT par un lisp @+

Ah oui, c'est exact. Ca ne change pas. :( Apparemment, la modification par un réacteur sur un objet n'est pas pris en compte par un autre réacteur sur le même objet :casstet: Si un spécialiste lit le post, je passe pourtant par :vlr-modified et j'ai testé aussi avec :vlr-subObjModified et au cas où par :vlr-modifiedXData, mais rien ??? :mad: Je continue de chercher et je vous tiens au courant @+

La commande LATT est pour faire des liaisons de trois types : Identique, croissant ou somme. Si un attribut est lié avec la commande rea et qu'ensuite tu lies cette attribut avec un autre (avec latt du type identique), le second prends la même valeur que le premier (qui se modifient donc logiquement tous si tu bouges ta poly). Maintenant, si tu fais une copie du bloc avec l'attribut lié, la liaison avec l'attribut du bloc copié se fait automatiquement (et comme elle est du type identique, ce sera donc la même valeur pour l'attribut) @+

grandsteak44 En version corrigé (vla-put-textstring ent[b]t[/b] (strcat "S=" (rtos (/ (vla-get-area obj) 10000) 2 2) "M2")) esbe Oui, pour cela, utilise ce lisp @+

Merci pour vos complements ;) La version 6.02 maintenant disponible Deux petites mise à jour - Prise en compte du copier/coller - Surbrillance enlevée de la sélection lors d'une commande autre que copy @+

Salut Esbe Sur la réponse N° 29,grandsteak44 a modifié le lisp pour une utilisation avec des attributs ps : à lui de faire aussi la même modif que la mienne par rapport à sa remarque @+

Salut Si c'est ce que tu souhaites. Le lisp prends comme calque à copier le calque courant (defun c:cpp() (vl-bb-set "Patrick_35" (vla-get-activelayer (vla-get-activedocument (vlax-get-acad-object)))) (princ "\nCopier prêt.") (princ) ) @+ (defun c:clp(/ newlay lay tblay) (if (setq lay (vl-bb-ref "Patrick_35")) (progn (setq tblay (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))) (setq newlay (vla-add tblay (vla-get-name lay))) (vla-put-color newlay (vla-get-color lay)) (vla-put-freeze newlay (vla-get-freeze lay)) (vla-put-layeron newlay (vla-get-layeron lay)) ; (vla-put-linetype newlay (vla-get-linetype lay)) (vla-put-lineweight newlay (vla-get-lineweight lay)) (vla-put-lock newlay (vla-get-lock lay)) ; (vla-put-plotstylename newlay (vla-get-plotstylename lay)) (vla-put-plottable newlay (vla-get-plottable lay)) (vla-put-viewportdefault newlay (vla-get-viewportdefault lay)) (vla-put-activelayer (vla-get-activedocument (vlax-get-acad-object)) newlay) ) (princ "\nPas de copier d'effectué auparavant.") ) (princ) ) (vl-load-com) (princ "\nLisp chargé. Faites CPP pour un copier et CLP pour un coller dans un autre dessin") (princ)

Salut Je t'ai fais la modif en gras sur le listing pour que si la surface ne correspond pas au texte, que cela se remette à jour @+ ps : On ne donne pas ses sources à ses petits camarades ;) pps : As tu regardé ce lisp

Certes, mais c'est aussi le prix de la tranquillité @+

Salut Je viens de tomber sur ceci par hazard Il va falloir que je fasse un tri, quitte à mettre tous les lisps dans la rubrique "Routines lisps" @+

Salut Si j'ai bien compris la question, c'est oui (setq sel (car (entsel))) (redraw sel 3) ; pour la surbrillance (redraw sel 4) ; pour enlever la surbrillance @+

Salut heu... oui... Regarde Bibles @+

Salut Un logiciel que j'utilise souvent est GhostSurf qui permet de naviguer sans laisser de trace, de se protéger et du coup, je n'ai jamais eu ce type de problème. Bon, j'ai aussi Kaperspy anti-virus et anti-hacker ainsi que Spyware doctor que je lance de temps en temps afin de faire un bon nettoyage @+

Si c'est en tant que bénévole, total respect @+

Je viens de faire évoluer le lisp dans ce post @+

Bonjour Je viens de terminer ce lisp qui permet de lier des attributs entre eux Le type de liaison que vous pouvez définir peut être : - Identique --> Tous les attributs de la chaîne de liaison ont la même valeur. - Croissant --> Tous les attributs de la chaîne s'incrémentent dans l'ordre de sélection (ou de trie avec la commande TATT) - Somme --> Le premier attribut de la chaîne fait le total des autres. Ces chaînes de liaisons sont dynamiques et se mettent à jour avec des copier, effacer, décomposer,undo etc... Quand vous ouvrez un dessin sur lequel vous avez effectué des liaisons, vous les retrouverez automatiquement à condition que le lisp soit chargé @+

Je ne peux que rejoindre la réponse de (gile) Tous le monde est gagnant et c'est ce qui m'a permis de progresser aussi par le biais des questions qui ont été posées et de la qualité des réponses des membres. Et quoi de plus plaisant que de voir un membre qui commence petit pour finir comme un pro. On peut se dire qu'on y est un peu pour quelque chose, mais surtout que la personne a bien compris. Il n'est pas toujours aisé de comprendre la question, car la personne utilise souvent sa "propre logique" et si parfois certaines réponses sont éronnées, elles sont toujours donnés de bon coeur. Cadxp est un site de partage des connaissances, des idées et ce qui est en plus agréable, courtois, sans agréssivité et taquin de temps à autre. Parfois, des coups de geules passent, mais c'est la vie comme partout ailleur. Donc un grand merci à notre cher Webmaster qui se donne de la peine à faire fonctionner ce site, même si on le vois un peu moins depuis quelques temps ainsi qu'à tous les membres qui prennent de leurs temps et de leurs énergie à donner de leurs connaissances. @+

Comme ça, ce n'est pas idiot. J'avais plutôt pensé, après la création du nouveau bloc, à utiliser vla-minsertblock L'élève est en train de dépasser le maître ;) @+

Oh, je ne suis pas le roi du vlisp, mais je prends le plus simple, et puis si tu peux m'en apprendre, je suis preneur ;) Ce que tu fais, c'est créer un bloc avec les entités des autres blocs, mais pas de les imbriquer les un aux autres :P @+

Salut Pour créer le bloc (entmake (list (cons 0 "block") (cons 2 "MOn_BLOC") (cons 70 64) (cons 10 '(0.0 0.0 0.0)))) (entmake (list (cons 0 "insert") (cons 2 "Bloc1") (cons 10 '(0.0 0.0 0.0)))) (entmake (list (cons 0 "insert") (cons 2 "Bloc2") (cons 10 '(0.0 0.0 0.0)))) (entmake '((0 . "endblk"))) Il ne reste plus qu'à l'insérer @+

Et encore Pour l'instant, la tendance est d'avoir les fichiers sur son propre réseau sans les partager avec l'extérieur, de recevoir ou d'envoyer des dossiers complets. Un jour viendra, j'en suis persuadé, ou ces fichiers seront partagés en temps réel entre plusieurs entreprises. Travaillant dans le bâtiment, une modif archi arrive souvent et par ce biais, tous le monde sera à jour. Je sais que cela se fait actuellement, mais on en est encore qu'au début @+

Salut En utilisant par exemple la commande _appload @+

Oui et de les poster dans la rubrique Routines par exemple @+

oui, enfin tu continues avec les commands puis avec le ssadd et ainsi de suite