bonuscad

La commande _extend outre la sélection à besoin de connaitre le/les point(s) de sélection pour savoir quelle extrémité est à prolonger. Peut être avec la fonction (ssnamex) tu pourrais obtenir ces information de sélection de ton jeu "e1" si la sélection s'est faite par un mode approprié (capture, trajet....)

Salut, Essaye de jouer avec la variable HPGAPTOL, peut être que c'est lié à ton problème ! Voir l'aide pour plus de précision.

Merci pour l'astuce Bred, J'avais déjà remarqué cette impossibilité avec les fichiers .lsp, du coup je me servais d'un utilitaire. Cela va simplifier la procédure ;)

Même constat. D'autres avancent aussi un problème de DLL dut à une mise à jour automatique de msoffice. Peut être à creuser si tu n'as pas de réponse...

Un petit suivi. Justement, bien que la partie visible soit impressionnante (malgré que BP tente de la camoufler à coup de dispersant) il y a aussi une masse énorme située entre deux eaux que personne ne peut vraiment quantifier. Il y a aussi tout les gaz invisibles dont: le méthane, le sulfure d'hydrogène et le chlorure de méthylène, pour ne citer que les plus dangereux. (environ 3000 à 6000 fois les doses admises) auquel on peut rajouter le Corexit 9500. La partie immergée de l'iceberg de pétrole à la mi-juillet. On peut voir que cela atteint maintenant les cotes du Yucatan. Le volcan n'est pas près de se calmer, l'essai de la tête du puit n'a eu que pour effet d'augmenter la pression est de créer/accentuer d'autre fuites dans le sol fissuré. Pour l'instant seule les photos satellite (ils seront capable de les trafiquer) nous montre la réalité des choses, les médias officiels sont simplement là pour minimiser au mieux la situation.

(defun c:tg () (initdia)(command "_mtext" (getpoint) "_j" "_bl")) Mieux vaut internationaliser sur un forum français bl=BottomLeft=BasGauche gloub doit être sur une version anglaise! Moi le premier, j'ai commencé aussi comme ça! ;)

De mémoire sans avoir testé. Je crois aussi qu'il peut être intéressant d'utiliser le caractère "~" dans le groupe 2 à la manière de (wcmatch) (voir l'aide de wcmatch pour les autres caractères possible) pour filtrer finement les caractères.

Bonsoir, Pour faire court! (ssname jeu-de-sélection index) retourne le nom de l'entité d'un jeu de sélection de l'index concerné. Ce nom d'entité ne peut être exploité qu'avec une fonction comme (entget), ou avec (vlax-ename->vla-object) pour accéder à la définition de celle-ci

Voir réponse page 2, 5eme réponse. T'es pas un fan de couche ! ;)

Moi de même..., on reconnait ceux qui aiment leurs donnée en sécurité. Quand j'admind un disque (surtout avec windows) je fais encore une partition supplémentaire pour le/les dossier(s) "temp" (beaucoup moins de frags) [Edité le 29/7/2010 par bonuscad]

Faut il comprendre Projection parallèle? :P Trop fort oxymore... :)

Tu n'es pas très explicite sur ce que tu veux faire... J'ai vaguement l'impression que tu cherche à faire pivoter un attribut contenu dans un bloc (ce qui expliquerai l'écart du point d'insertion; celui de l'attribut n'est pas le même que celui de l'insertion du bloc) Comme je ne suis pas devin... En tout cas le bidouillage en programmation donne rarement de bon résultat ;)

Attention, Vérifie bien que tu es dans le SCG (et non dans un SCU proche du SCG) lorsque tu interroge ton point d'insertion. En règle générale (sauf cas très particulier) le lisp retourne les coordonnées de l'objet depuis SCG (quelque soit le SCU en cours) Est ce que: (rtos (car (trans pnt 0 1)) 2 4) et (rtos (cadr (trans pnt 0 1)) 2 4) serait équivalent à: NB: Quand est-il de l'accroche objet utilisé lorsque que tu as interrogé à l'origine ton bloc pour avoir sont point d'insertion? [Edité le 29/7/2010 par bonuscad]

Déjà bonjour :exclam: Autrement cela est correct. Pour t'en convaincre fais (rtos (car pnt) 2 4) pour le X et (rtos (cadr pnt) 2 4) pour le Y, et tu verras que les valeurs retournées sont identiques. Ne tiens pas compte de l'affichage tronqué des valeurs réelles, Autolisp travaille bien avec la valeur exacte. Lors de l'usage de mantisse élevée (6 chiffres avant la virgule dans tons cas) l'affichage des valeur est tronqué.

Mais si au moins ces résolutions pouvaient vraiment être reconnues et appliquées. Si elles sont juste là pour ce donner bonne conscience...

J'ai un truc bizarre en ce moment que je n'ai jamais eu. Ça bloque sur la page noire de connexion... Si je relance le lien sur CadXp, je me vois connecté mais je suis avec le thème par défaut, mais dès que je vais dans les réponses par exemple, pouf!! la page s'affiche avec mon thème... :o :casstet: :exclam: Un peu déroutant, mais bon ça fonctionne quand même!

Je suis peut être à coté, mais en regardant ce sujet Pour ce que j'avais proposé, il suffirait de changer (ssget '((0 . "POINT"))) par (ssget '((0 . "INSERT"))) pour que cela fonctionne avec des blocs... à voir!

Si ont fait une recherche sur CadXp avec "calque" ou "claque", je crois qu'on obtiendrais pratiquement le même nombre de résultats. A croire que les dessinateurs en DAO sont tous dyslexiques, ou alors on a tous des têtes à claques :calim: C'est marrant cette faute presque systématique que l'on trouve sur les forums en Français: on pense calque et on écrit claque.

Il y avait bien ce sujet , qui date un peu. Mais je partais d'une LWPOLYLINE et non d'une 3DPOLY et elle ne fonctionnait qu'avec des 3DFACE. (obligé de décomposer une polymesh pour pouvoir l'utiliser) Oui SFR a supprimer tous les pages perso provenant de NEUF. (après avertissement je vous rassure, et comme je n'ai pas fais le transfert, la redirection ne se fait pas) Je veux simplement profiter de l'occasion pour remettre en ligne des routines réactualisées. Ça se fera, mais ce n'est pas ma priorité majeure. Donc à bientôt sur ma future page SFR...

Interroger la variable 'UNDOCTL (en transparence)? Suivant sa valeur cela pourrait expliquer le paramétrage de la commande ANNULER (_UNDO)...

Une mise à jour du code ci-dessus Il sera plus facile de le tester; définition des paramètre de départ adapté à la vue en cours. J'ai rajouté le déplacement et l'échelle (facteur de 2 par rapport à celle calculée de la vue initiale). Dans l'état ce code n'a aucune influence sur le dessin en cours, les trace sont virtuelles (mis à part la variable SNAPANG, si la routine est "breakée")

Hey, un coup de gueule. Si un jour on nous empêche pas de respirer au nom du profit. Je leur ferait bien "bouffer" moi, leur diamants. :mad: De l'eau pour les bushmen Y aura-t-il un terme à toute cette bêtise que l'on constate dans notre soit disant société évoluée? [Edité le 27/7/2010 par bonuscad]

Bonsoir à tous, Je vous présente un bout de code, qui dans l'état est encore fun Je pense aller plus loin. L'idée de départ et de faire une marque de pliage en dynamique de format A4 pour réaliser une mise en page la plus adéquate possible. L'idée finale sera de faire un carroyage lambert le plus simplement possible de façon assistée (j'essaye de reprendre réécriture, plus actuelle, de mes anciens codes) Voici où j'en suis rendu, je pense ajouter par la suite la notion de déplacement, d'échelle (gérer la notion d'échelle maxi par rapport à la possibilité d'un format A0 rouleau) ainsi qu'un pliage portrait ou paysage. Le code qui je l'espère pourra vous formuler des idées. (defun des_vec (lst col / lst_sg) (setq lst_sg (list (cadr lst) (car lst))) (setq lst (cdr lst)) (while lst (if (cadr lst) (setq lst_sg (cons (cadr lst) (cons (car lst) lst_sg))) (setq lst_sg (cons (last lst_sg) (cons (car lst) lst_sg))) ) (setq lst (cdr lst)) ) (setq lst_sg (cons col lst_sg)) (grvecs lst_sg) ) (defun c:A4_dyn ( / hview old_snapang pt_ins dx dy format_scale pt_tmp ang key pt_key n nb_column nb_raw pt_row count s_ang) (setq hview (getvar "VIEWSIZE") old_snapang (getvar "SNAPANG") pt_ins (list (- (car (getvar "VIEWCTR")) (* hview 0.5)) (- (cadr (getvar "VIEWCTR")) (* hview 0.5))) dx 210.0 dy (* 210.0 (sqrt 2)) format_scale 1.0 pt_tmp pt_ins ang (getvar "SNAPANG") ) (if (> (fix (/ hview dy)) 3) (while (> (fix (/ hview dy)) 3) (setq format_scale (* format_scale 10) dx (* dx 10) dy (* dy 10)) ) ) (if (< (fix (/ hview dy)) 1) (while (< (fix (/ hview dy)) 1) (setq format_scale (* format_scale 0.1) dx (* dx 0.1) dy (* dy 0.1)) ) ) (princ "\nSpécifiez le coin haut droit ou [R] pour effectuer une rotation, [D] un déplacement, [+/-] un changement d'échelle: ") (while (and (setq key (grread T 4 0)) (/= (car key) 3)) (cond ((eq (car key) 5) (setq pt_key (cadr key)) (setq n (* (setq nb_column (fix (/ (+ (* (- (car pt_key) (car pt_ins)) (cos ang)) (* (- (cadr pt_key) (cadr pt_ins)) (sin ang))) dx))) (setq nb_raw (fix (/ (- (* (- (cadr pt_key) (cadr pt_ins)) (cos ang)) (* (- (car pt_key) (car pt_ins)) (sin ang))) dy))) ) pt_row pt_ins count 0 ) (redraw) (repeat n (des_vec (list (list (car pt_ins) (cadr pt_ins)) (list (+ (car pt_ins) (* dx (cos ang))) (+ (cadr pt_ins) (* dx (sin ang)))) (list (+ (car pt_ins) (- (* dx (cos ang)) (* dy (sin ang)))) (+ (cadr pt_ins) (+ (* dy (cos ang)) (* dx (sin ang)))) ) (list (- (car pt_ins) (* dy (sin ang))) (+ (cadr pt_ins) (* dy (cos ang)))) ) 3 ) (setq count (1+ count)) (if (< count nb_column) (setq pt_ins (list (+ (car pt_ins) (* dx (cos ang))) (+ (cadr pt_ins) (* dx (sin ang))))) (setq pt_ins (list (- (car pt_row) (* dy (sin ang))) (+ (cadr pt_row) (* dy (cos ang)))) pt_row pt_ins count 0) ) ) (setq pt_ins pt_tmp) ) ((or (eq (cadr key) 114) (eq (cadr key) 82)) (initget 0) (setq s_ang (getorient pt_ins (strcat "\nNouvel angle<" (angtos (getvar "SNAPANG")) ">: " ) ) ) (if (not s_ang) (setq s_ang ang)) (if (and (> s_ang (/ pi 2)) (<= s_ang (/ (* 3 pi) 2))) (setq ang (+ s_ang pi)) (setq ang s_ang) ) (setvar "SNAPANG" ang) (princ "\nSpécifiez le coin haut droit ou [R] pour effectuer une rotation, [D] un déplacement, [+/-] un changement d'échelle: ") ) ((or (eq (cadr key) 100) (eq (cadr key) 68)) (initget 9) (setq pt_ins (getpoint "\nSpécifiez le coin bas gauche: ")) (setq pt_ins (list (car pt_ins) (cadr pt_ins)) pt_tmp pt_ins) (princ "\nSpécifiez le coin haut droit ou [R] pour effectuer une rotation, [D] un déplacement, [+/-] un changement d'échelle: ") ) ((eq (cadr key) 43) (setq format_scale (* format_scale 2.0) dx (* dx 2.0) dy (* dy 2.0)) ) ((eq (cadr key) 45) (setq format_scale (* format_scale 0.5) dx (* dx 0.5) dy (* dy 0.5)) ) ) ) (setvar "SNAPANG" old_snapang) (princ "\n") (redraw) (prin1) ) [Edité le 27/7/2010 par bonuscad]

Araignée du soir, espoir. Araignée du matin, chagrin. Heureusement que c'est le soir, car ce post me rend chagrin :( J'ai renoncé quelque peu à ma participation, mais ce genre de propos me renforce dans mon choix. Pour ma part il ma semblé d'avoir partagé facilement ce que je pouvais connaitre. Des propos acerbes sur un site très riche en réponses constructives (si on se donne la peine de consulter un peu l'historique), désolé mais j'ai du mal à comprendre... Pour ma part, je pense que c'est le revers d'internet. Questions - réponses de plus en plus inaudibles sans chercher l'enrichissement du passé. Tout doit être instantané, l'information nouvelle chasse l'information d'hier. Une incompréhension ne peut surgir que de cet état de faits, la construction devient fragile car la source est occulté. Au départ je pensais insuffler une envie, mais cela c'est vite très vite limité à quelques membres. (je pense qu'il se reconnaitrons, puisqu'ils sont très actifs maintenant). Maintenant cela se limite de plus en plus à; j'ai besoin, vous pouvez me fournir...! C'est un sens du partage très unidirectionnel. C'est du P2P: on partage les sources mais on ne créer plus rien. Tout ça est bien dommage, sans jeter la pierre à quiconque, car on est tous responsable de par no actes.

Bonjour, Les médias traditionnels font un black-out sur l'information de cette catastrophe majeure. Le survol aérien du golfe est même interdit par les Américains :mad: Heureusement les images satellite de la NASA n'ont pas encore été rendues inaccessibles. cliché du 25 juin2010 Mais cet article fait froid dans le dos. :( Une vidéo Américaine d'un interview (sous-titré en français) d'un aumonier présent sur la plate-forme BP corrobore les faits. Quand on voit ce qu'un forage traditionnel à pu provoquer en indonésie et que 4 ans après aucune solution fiable n'a été trouvé... et bien, on a du mouron à se faire. Désolé de plomber l'ambiance :exclam: