Tramber

Mieux vaut utiliser le BALAYAGE car l'extrusion est une science du décalage parfois...

J'utilise depuis longtemps des fonctions de pastellisations telles que tu les demandes et que j'ai pu batir grâce à deux fonctions : ;;;HSL value should be integer ;;;The formular is obtained from the website of easyRGB ;;;The hsl is taken from Autocad H:[0,360],S:[0,100],L:[0,100] (defun hsl2rgb (hsllist / h s l r g b var2 var1 func ) (defun func (v1 v2 vh / result) (if (< vh 0) (setq vh (1+ vh)) ) (if (> vh 1) (setq vh (- vh 1)) ) (cond ((< (* 6 vh) 1) (setq result (+ v1 (* 6 vh (- v2 v1)))) ) ((< (* 2 vh) 1) (setq result v2) ) ((< vh 0.66667) (setq result (+ v1 (* 6 (- v2 v1) (- 0.666667 vh)))) ) (t (setq result v1) ) ) result ) (setq h (/ (nth 0 hsllist) 360.0) s (/ (nth 1 hsllist) 100.0) l (/ (nth 2 hsllist) 100.0) ) (cond ((= s 0) (setq r (* l 255) g (* l 255) b (* l 255) ) ) ((/= s 0) (cond ((< l 0.5) (setq var2 (* l (1+ s))) ) (t (setq var2 (- (+ l s) (* s l))) ) ) (setq var1 (- (* 2 l) var2) r (* 255 (func var1 var2 (+ h 0.33333))) g (* 255 (func var1 var2 h)) b (* 255 (func var1 var2 (- h 0.33333)))) ) ) (list (fix r) (fix g) (fix B)) ) ; Author : jme ; Copyright : MENZI ENGINEERING GmbH, Switzerland ;;; by Menzi, for convert rgb value to hsl value (defun MeCalcHslModel (Rgb / ColDta ColHue ColLum ColSat MaxVal MinVal TmpRgb) (setq TmpRgb (mapcar '/ Rgb '(255.0 255.0 255.0) ) MaxVal (apply 'max TmpRgb ) MinVal (apply 'min TmpRgb ) ColDta (- MaxVal MinVal) ColLum (/ (+ MaxVal MinVal) 2.0) ColSat 0.0 ColHue 0.0 ) (if (/= MaxVal MinVal) (setq ColSat (if (<= ColLum 0.5) (/ ColDta (+ MaxVal MinVal)) (/ ColDta (- 2.0 MaxVal MinVal)) ) ColHue (cond ((= (car TmpRgb) MaxVal) (/ (- (cadr TmpRgb) (caddr TmpRgb)) ColDta) ) ((= (cadr TmpRgb) MaxVal) (+ 2.0 (/ (- (caddr TmpRgb) (car TmpRgb)) ColDta)) ) ((= (caddr TmpRgb) MaxVal) (+ 4.0 (/ (- (car TmpRgb) (cadr TmpRgb)) ColDta)) ) ) ColHue (* ColHue 60.0) ColHue (if (minusp ColHue) (+ ColHue 360.0) ColHue ) ) ) (list (if (> ColSat 0.0) (fix ColHue) nil ) (fix (* ColSat 100.0)) (fix (* ColLum 100.0)) ) ) Je réponds rapidement sans trop explorer les réponses. Avec mon fils tout le temps malade, il faut dire que je suis complètement sous l'eau ! Au moment où j'écris, Monsieur réclame mes soins.... il n'y aura pas d'explications !

Ben voilà, ça baisse chez vous car ça augmente chez moi. C'était pour ça B)

J'abonde avec nosset. J'ai (re)commencé avec AutoCAD Autodesk Architectural Desktop. Disons 800€ il y a quatre années. Le produit s'est transformé et j'ai eu REVIT, 900€ Maintenant on me dit qu'il n'y a plus qu'une suite et c'est 1100€. Obligé de les payer plus tard si j'en trouve les moyens. Pas eu le choix. Un peu de la vente forcée en somme. Si vous pensez que je ne suis pas dégouté :P

Pas grand chose ? A mon avis oui et non, comme d'hab. Le lasso m'impressionne ! On voit aussi que la coupure au point restera ce qu'elle est ad-vitam ? B)

Ouais.... Ce qui n'est pas systématique puisque seules quelques commandes peuvent être utilisées en transparence. Ce que je dis c'est que personnaliser des boutons ne sert pas beaucoup à qui a sa main sur la clavier et pense à la version courte obtenue depuis l'apostrophe + le raccourci de commande.

l'instruction DI est déclarée en tant que commande. Pas besoin de l'écrire en entier. Moi, je n'ai même pas de bouton, je tape directement 'DI ! Je le fais aussi pour 'Z comme ZOOM.

C'est quand même pas une histoire de calques gelés ? Il fait si beau...

C'est surtout que je suis l'homme à la maison, alors tout m'incombe :P Code plus propre et décompte d'objets. (defun C:SMASH3(/ selecti n nb potz ent) (setq selecti(ssget "_X" '((0 . "INSERT") )) n -1 nb 0) (while(setq ent(ssname selecti(setq n(1+ n)))) (setq potz(cdr(assoc 10(entget ent)))) (if(not(equal(caddr potz)0.0 0.5))(setq nb(1+ nb))) (entmod(subst (cons 10 (list (car potz)(cadr potz) 0.0) )(assoc 10(entget ent)) (entget ent))) ) (princ(strcat"\n"(itoa nb)" objets redescendus")) (princ) ) Bon WE (je pars en WE, enfin !), on prend le train, il va adorer ;)

En principe, SMASH3, prend tous les blocs et met le Z à zéro. Des blocs seulement. J'ignore si ça va bien marcher pour ton affaire. J'ajoute que, par soucis de simplification, je n'affiche pas de décompte final. Dis-moi si tu en avais besoin. (defun C:SMASH3() (setq selecti(ssget "_X" '((0 . "INSERT") ))) (setq n -1) (while(setq ent(ssname selecti(setq n(1+ n)))) (setq potz(cdr(assoc 10(entget ent)))) (entmod(subst (cons 10 (list (car potz)(cadr potz) 0.0) )(assoc 10(entget ent)) (entget ent))) ) )

Il faut reprendre mon code avec une autre façon de faire. C'est vraiment pas long mais je suis desespéré : au moment où j'écris, j'étais prêt à me lancer mais le petit hurle. Il est malade et je le garde cette semaine ! Si vous saviez comme ma vie a changé ! Dans quelques minutes, j'aurai peut-être le temps.

J'ai fait des tests. Cela marche très bien dans certains dessins, pas du tout dans d'autres :unsure: JE suis bien embarassé. Il faut dire que cette méthode des 1e99 est un peu particulière. PS: j'ai corrigé une ligne dans le code ci-dessus.

(defun C:SMASH2 ( ) (setq selecti(ssget "_X" '((0 . "INSERT") ))) (setq n -1 nsele (ssadd)) (while(setq ent(ssname selecti(setq n(1+ n)))) (if(>(caddr(cdr(assoc 10(entget ent))))1e90 ) (setq nsele(ssadd ent nsele)))) (and(not(zerop(sslength nsele)))(command "_.move" nsele "" "0,0,0" "0,0,-1e99" )) (princ(strcat"\n"(itoa(sslength nsele))" objets redescendus")) (princ) ) Attention, j'ai demandé aux objets de descendre une fois. Tous les objets au dessus de 1e90 (marge de 1e10). Mais je n'ai pas manipulé leur points d'insertion. Cette routine ne fait que descendre d'un gros étage (1e99) ceux qui sont restés trop haut. Ceux qui seraient en altitude 2e99 se retrouveraient en 1e99 et il faudrait faire tourner encore une fois la routine.

Ah ben oui, je donnais le premier au lieu du dernier ! J'avais testé la première routine mais point (!) la seconde version. :P Merci Olivier.

Si je remplace ta fonction (defun c:PO2TXT (/ file points c i) ;POints to TeXT (setq nomfic "C:/test/CoordPoint.txt") (setq file (open nomfic "w")) (setq points (ssget '((0 . "POINT"))) i 0) (cond(points (setq dernier(cdr (assoc 10 (entget (ssname points(1-(sslength points))))))) (write-line (strcat (rtos (car dernier)) " ; " (rtos (cadr dernier)) " ; " (rtos (caddr dernier)) ) file) )) (close file) (Princ) ) Cela devrait fonctionner pour le dernier point créé dans une sélection (je crois que l'ordre de création est pris en compte). Si tu veux le dernier point créé dans le dessin entier, je peux te changer la formule.... ou toi-même en replacant : (ssget '((0 . "POINT"))) par (ssget "_X" '((0 . "POINT")))

Pour info, le double-clic reproduit la dernière hauteur d'extrusion. Ce qui fait encore plus mal à l'index quand il faut le faire 50 fois !

Alors il y a la solution de la table de tracé. Donner une couleur intermédiaire (des couleurs peu utilisées) qui soit compatible avec tes deux écrans et faire que celle-ci soit imprimée en (presque) blanc, par exemple. Cela devrait marcher.

Je pense que la solution de passer la variable : DIMTFILL à 1 permet de répondre au problème pour la cote à suivre. Ou alors, car la manœuvre ainsi faite provoque un sous-style de cote, préférer le faire dans le style où j'ai mis "arrière-plan" comme couleur de remplissage. Je ne vois pas de soucis. Il faut régénérer en cas de changement dans les options.

Malin. Merci pour la lecture, animal de bord de mer.

Je ne sais plus si c'est en Anglais mais j'avais aussi vu des services en ligne ! B) Il y a pas mal de logiciels et je pense aussi en avoir croisé en plugs-in AutoCAD visible dans les applications exchange. PS : j'ai trouvé. C'est bien en ligne, lien trouvé dans l'exchange et ça n'est donc pas réellement un plug-in. http://www.nestlibonline.com/

Ouais, je les ai regardé. Mais, pas évident de les lire rapidement, n'Est-ce pas ? J'ai vu, dans un autre message, que tu avais le courage d'entrer dedans ! Enfin, c'est ce que je crois comprendre quand tu te renseignes sur xplode. En tous les cas, bon courage ;)

Oui, je pense que XPLODE est un lisp. Sans doute compilé donc on ne le trouve pas. En tous les cas je pense que c'est comme une commande express, supplémentaire en qqe sorte. Car pour moi, la fonction est recherchée (temps d'attente au premier lancement), ca serait une preuve....

RG suffira.

Pour maitrise du HTML et du jQuery ? :mellow: Car j'ai codé moi-même la page web B) Ce dont je suis le plus fier. B) Merci. Les fins observateurs verront que j'ai un point de contrôle en trop dans une des splines mais la conclusion est que, puisqu'on ne maitrise pas grand chose des trajectoires des ces objets, il faut faire des doublons de points de contôles, pas plus ou pas moins, si l'on doit résoudre en 3D des splines ne rendant pas trop de vagues et faisant un chemin de fer correct. Le travail par les poignées des objets est décidemment très puissant. Sinon, côté programmation, j'assure qu'il n'y a pas grand chose au final : j'avance sur la spline médiane par interpolation basique puis stoppe quand un côté a atteint la limite des 140mm avant de passer à la planche suivante.

Ca roule. Mon AV est AVG, je l'avais précisé. Je viens de regarder 4000 fichiers. Ca tient le choc. Quelques secondes d'attente. J'aime bien les statistiques. PS : tu avais raison, le zip ne change rien. J'ai du désactiver ma protection.