usegomme

Salut Je n'aime pas vraiment xplode et toutes ses options que je n'utilise pas ,et surtout quand il faut répondre. On va dire que ça tombe bien , car justement hier je me suis fais une petite routine pour décomposer dans le calque de l'objet en remplacement d'une très ancienne qui ne me satisfaisait plus , il s'agit de lexplode.lsp ,certains doivent le connaitre , j'ai conservé le même nom pour ne pas modifier mes menus. Il se peut qu'il y ait des améliorations à faire car c'est tout neuf. ;; usegomme 03-09-2008 ;; decompose en concervant le calque de l'objet (defun c:lexplode (/ js ent lent typent ss ca ca0 i1 i2) (setvar "cmdecho" 0) (setq ca0 (cdr (assoc 70 (tblsearch "layer" "0")))) (if (>= ca0 4)(command "_layer" "_u" "0" "")) (setq js (ssget)) (setq i1 0) (repeat (sslength js) (setq ent (ssname js i1)) (setq lent (entget ent)) (setq typent (cdr (assoc 0 lent))) (setq ca (cdr (assoc 8 lent))) (command "_explode" ent) (if (not (zerop (getvar "cmdactive")))(command)) (if (and (setq ss (ssget "p"))(/= typent "3DSOLID") (/= typent "SURFACE")(/= typent "REGION")) (progn (setq i2 0) (repeat (sslength ss) (setq ent (ssname ss i2)) (command "_change" ent "" "_p" "_layer" ca "") (setq i2 (1+ i2)) ) ) ) (setq i1 (1+ i1)) ) (if (>= ca0 4)(command "_layer" "_lo" "0" "")) (setvar "cmdecho" 1) (princ) ) Nota: Si on sélectionne plusieurs objets et que certains ne soient pas décomposable , le message " rien trouvé" ne concerne que les objets en questions , les autres sont bel et bien décomposés. [Edité le 4/9/2008 par usegomme]

Salut Si c'est des calques que tu veux parler , c'est probablement qu'ils sont définis à l'intérieur du bloc , il faut alors utiliser l'éditeur de bloc ou modifier le dessin du bloc dans la bibliothèque et mettre à jour ton bloc dans le dessin sur lequel tu travailles.

J'ai pris bonne note , je vais le commander sous peu. A+

Non , mais si tu me le conseilles se sera volontiers.

Merci pour le compliment. C'est une inexacte interprétation de la réalité . On confond capacité d'adaptation à l'environnement avec évolution. Il est faux de croire que le besoin crée l'organe. Je ne me doutais pas que tu étais si balaise , plus fort que les théoriciens spécialistes des grands nombres. Chapeau bas. des théories et des affirmations scientifiques qui se sont révélées inexactes on doit pouvoir en citer des pages. cordialement

Un doute affreux m'assaille , et si on faisait parti d'un jeux vidéo ??? :casstet:

Merci les gars pour la lecture ,si on persiste on finira peut être par être calé d'ici qlq années. Je viens d'apprendre que l'énergie sombre = énergie du vide mais que c'est le terme consacré aux grandes échelles pour éviter les confusions avec l' energie du vide quantique. Tout en sachant que le vide c'est aussi l'espace-temps et que cette donc énergie de l'espace-temps représente 70 % du total. Effectivement on peut se poser la question de savoir ce qui est réel entre l'écran (l'espace-temps) ou les images représentées par les pixels (les atomes). D'autant que l'on a vu (dans une autre discussion) que la th. de la relativité décrit qu' un observateur extérieur verrait un véhicule se déplaçant à une vitesse proche de la lumière , comprimé dans le sens de la longueur sans pour autant que les passagers aient conscience du phénomène. Très étrange car ça fait tout à fait l'effet d'une projection cinéma sur un support déformé.

Bien sûr, c'est la partie aléatoire , comme est aléatoire le geste du lanceur de la pièce de monnaie , la trajectoire , elle ne l'est pas. Salut

On ne peut pas théoriser sur Dieu , il faut faire des constats . On est complétement dépasser d'un point de vue conceptuel. La science fait bien des constats et n'attend pas de savoir l' ultime pour avancer. On ne connait toujours pas la structure intime de la matière. L' énergie quoi-t-est-ce ? Je viens juste de regarder sur un site . On parle de mouvement de particule , d'attraction de particule , en fin bref c'est le flou artistique. C'est de "l'électricité " en gros , mais bon ! Et bouquet final : l'espace-temps . Alors la c'est la totale , Il a des effets mécaniques que l'on calcule plutôt bien ,mais à part ça rien .

Bonjour Si le "hasard" est calculable , c'est qu'il est régit par des lois . Et pour que les lois existent et qu' elles soient cohérantes entre elles et qu'il n'y ait pas le bazar , il faut de l'intelligence derrière. Je ne connais pas de machine ou machinerie qui se construise toute seule , et d'abord pourquoi le ferait-elle ? Sans concience , sans but , sans intelligence , sans perception. Et pourquoi l'énergie aurai-t-elle la moindre chance d'apparaitre dans le néant , comme ça , pouf ! par hasard. Pourquoi y a-t-il quelque chose plutôt que rien , comme ils disent dans science&vie.

Toutes mes ficelles de calçon ! Extra-super ! Ca mériterait d'être au bonus du futur autocad (avec royalty bien-sûr). Salut :)

En ce qui me concerne , l'etat des calques est bien concervé dans l' onglet objet , mais pas dans les présentations .Ce que j'ai gelé avec msfreeze est gelé aussi dans les présentations à l'ouverture du fichier (l'ouverture se faisant dans l'onglet objet) , c'est ensuite que je regarde du coté des présentations. Il suffit que je démarre msfreeze et le referme sans rien modifier pour que tout redevienne normal , les calques gelés avec le lisp dans la session précédente apparaissent alors normalement dans les présentations. Autre chose si je ferme mon fichier sur une présentation , à la réouverture tous les calques gelés par msfreeze se sont dégelés et msfreeze a perdu la mémoire . Mais Je ne trouve pas ça génant . J'espère que ça ne viens pas de chez moi et que je ne te fais pas chercher inutilement. Quelqu'un d'autre l'aurait-il testé ? Hé ho ! Cadxpiens. Merci encore (gile). Je n'ai pas essayé avec les xref , je te fais confiance Lili vu la tartine que tu nous présentes. Bon weekend.

Bonjour. Merci pour les infos, (gile) , par contre je n'arrive toujours pas à ce qu'il restore les calques des l'ouverture du dessin ,j'ai rajouté également le (vl-load-com) dans acaddoc.lsp pour que les vlax..... fonctionnent , mais comme je ne comprend rien au vlisp je suis dans les choux , sûr qu'il doit me manquer une fonction qlq part . Je suppose que Lili2006 n'a pas le problème car tous ses lisp sont chargés à l'ouverture du dessin , alors que je passe par autoload.

Et pourtant c'est vrai, si tu étais connaisseur tu verrais que je suis à des années-lumières de nos ténors de Cadxp . Je ne suis que dans le registre lispeur-bricoleur , mais c'est tout de même bien pratique. A+

Salut , j'ai un peu du mal à faire des cases de dialogue , je ne suis qu'un médiocre lispeur. Ceci dit , les diametres et options sont disponibles au bouton droit , ça me semble suffisant. Il est vrai que si tu utilises les épaisseurs de tube , il faut à chaque changement de diametre redéfinir l'épaisseur.Perso je préfère pas ,c'est bien plus simple à mettre en oeuvre , mais je sais qu'ils y en a qui ont besoin de connaitre le poids de la ferraille. Si necessaire , j'ai déjà fait une version qui permet d'avoir des dimensions suivant une norme, mais c'est juste au niveau de la structure du lisp , car je ne me suis pas amusé à rentrer des normes qui ne me servent pas.

Salut, Aprés réouverture du fichier ,pour que les présentations retrouvent leur config , je dois lancer MSFREEZE , ai-je raté mon installation ? En tout cas , je suis baba que tu puisses mémoriser l'etat des calques.

Retour au grand classique pas si mal , mais en conservant l'origine du SCU et possibilité de pré-sélection pour faire un zoom objet .(bon j'espère que je ne pollue pas trop le site avec mes tergiversations. ; point de vue 3 D ; avec conservation de l'origine de SCU ; + zoom objet si présélection ; dix nouvelles commandes sont créées taper : ; 0 puis Enter -> bas ; 1 puis Enter -> isométrique sud ouest ; 2 puis Enter -> avant ; 3 puis Enter -> isométrique sud est ; 4 puis Enter -> gauche ; 5 puis Enter -> haut ; 6 puis Enter -> droite ; 7 puis Enter -> isométrique nord ouest ; 8 puis Enter -> arrière ; 9 puis Enter -> isométrique nord est (defun pointdevue (v / or obj) (setvar "cmdecho" 0) (setq or (getvar "ucsorg")) ;; obj-cibl est pour accord avec PDVO.lsp (if (ssget "_i")(setq obj-cibl (setq obj (ssget)))) ;;nouveau point de vue (command "_.view" v) ;; les points de vue non iso modifient le SCU , ;; les lignes ci-dessous permettent de recupérer ;; l'origine du SCU précédent sans empêcher le pivotement. (if (or (= v "_left")(= v "_front")(= v "_right") (= v "_back")(= v "_bottom")(= v "_top") ) (command "_ucs" "_o" "_none" (trans or 0 1)) ) (if obj (command "_zoom" "_o" obj "")) ;;(if obj-cibl (command "_zoom" "_o" obj-cibl "")) (setvar "cmdecho" 1) (princ) ) (defun c:0 () (pointdevue "_bottom")) (defun c:1 () (pointdevue "_swiso")) (defun c:2 () (pointdevue "_front")) (defun c:3 () (pointdevue "_seiso")) (defun c:4 () (pointdevue "_left")) (defun c:5 () (pointdevue "_top")) (defun c:6 () (pointdevue "_right")) (defun c:7 () (pointdevue "_nwiso")) (defun c:8 () (pointdevue "_back")) (defun c:9 () (pointdevue "_neiso"))

Salut Lili , salut Gile (et les autres), toujours super tes lisp .GELOBJ marche trés bien mais pour MSFREEZE il me manque la fonction STR2LST. Mis à part l'interface et la possibilté de sélection ,y a-t-il une différence entre les deux. Sinon , petite question de pratique (j' essaie de débuter en 3D), y a-t-il un intérêt , pour un plan d'ensemble de travailler dans l'onglet objet , vu le fouilli de calques. Les lisps que tu as créé permettent certes d'y remédier ,mais si ça dépanne bien , est-ce vraiment mieux que de dessiner dans une fenêtre. En passant merci pour edit_bloc , je ne m'en suis servi qu'une fois , mais sans lui , j'étais coincé . [Edité le 25/8/2008 par usegomme]

Salut ,ça doit dépendre du type de référencement , il y a " association" ou "superposition" . Tes xref doivent être insérées en "superposition" , ce mode ne permet pas d'avoir les imbrications . Mais je ne sais pas comment modifier ce paramètre. Problablement qu'un expert en xref pourra d'aider.

Salut, pour que lisp fonctionne correctement quelque soit la valeur de la variable DELOBJ 0 , 1 ou 2 , j'ai corrigé la fonction "generetube" et la commande " TU ". (avec -2 ce n'est pas correct). (defun generetube (ent pt / circonftuy) (if (or (= tuy:ep nil) (= tuy:ep 0.0)) (progn (command "_circle" "_none" pt ddia ) (if (= 0 (getvar "delobj"))(setq circonftuy (entlast))(setq circonftuy nil)) (command "_sweep" "_L" "" ent) ;; balayage (if circonftuy (entdel circonftuy)) ) (progn (command "_circle" "_none" pt ddia) (if (= 0 (getvar "delobj"))(setq circonftuy (entlast))(setq circonftuy nil)) (command "_sweep" "_L" "" ent) (if (= 2 (getvar "delobj"))(entdel ent)) (if circonftuy (entdel circonftuy)) (setq tubext (entlast)) (command "_circle" "_none" pt (- ddia tuy:ep)) (if (= 0 (getvar "delobj"))(setq circonftuy (entlast))(setq circonftuy nil)) (command "_sweep" "_L" "" ent) (if circonftuy (entdel circonftuy)) (command "_subtract" tubext "" "_L" "") ) ) ) (defun c:TU (/ sel typent ent pt eptub ) (diam-t3d) (if (not tuy:ep) (setq tuy:ep 0)) (initget "Epaisseur") (while (setq sel (entsel (strcat "\nSélectionner l'AXE du TUBE ,[Epaisseur] = "(rtos tuy:ep 2 4)" :"))) (if (= sel "Epaisseur") (progn (setq eptub (getdist (strcat "\nEpaisseur tube ou 2 pts <" (rtos tuy:ep 2 4) ">: "))) (if eptub (setq tuy:ep eptub)) ) (progn (setq typent (cdr (assoc 0 (entget (setq ent(car sel)))))) (cond ((or (= typent "LINE")(= typent "ARC")(= typent "POLYLINE")(= typent "LWPOLYLINE") (= typent "ELLIPSE")(= typent "CIRCLE")(= typent "SPLINE")(= typent "HELIX") ) (setq pt (cadr sel)) (generetube ent pt) ) ) ) ) ;; if ) (princ) )

Salut . Ta cde décaler à été redéfinie , elle doit normalement fonctionnée avec le point devant comme indiqué par Patrick_35. Il faudrait néanmoins que tu supprimes la redéfinition . Essaie de redéfinir la cde decaler de la façon suivante dans autocad. Commande: REDEF Nom de la commande: DECALER D' aprés mon vieux manuel ça devrait marcher sinon cherche du coté des AutoCAD.pgp ou AutoCAD*.lsp ou *.mnl . Essaie de voir avec les dates de modification des fichiers en rapport avec l'installation de Bibli [Edité le 14/8/2008 par usegomme]

Petit nota: Si on ne veut pas redéfinir le scu , à l'invite de la commande, il faut répondre par l'option origine. En bref : o return return

Malgré le peu de succés de mon bricolage je persiste à essayer de vendre mon point de vue. Voici deux nouvelles versions qui ont un petit intérêt me semble-t-il, dans le fait que l'origine du scu n'est pas perdue lors d'un pt de vue non iso contrairement à la cde autocad. PDVZO.lsp avec centrage sur objet(s) PDVZS.LSP avec centrage sur origine scu. POINT DE VUE SUR OBJET ; usegomme 13-08-08 ; point de vue 3 D avec conservation du zoom par présélectionner objet(s) ; pour définir ou redéfinir la cible ; et concervation de l'origine de SCU. ; nota: quand l'origine semble perdue, elle est en fait hors zone ecran. ; dix nouvelles commandes sont créées taper : ; 00 puis Enter -> bas ; 11 puis Enter -> isométrique sud ouest ; 22 puis Enter -> avant ; 33 puis Enter -> isométrique sud est ; 44 puis Enter -> gauche ; 55 puis Enter -> haut ; 66 puis Enter -> droite ; 77 puis Enter -> isométrique nord ouest ; 88 puis Enter -> arrière ; 99 puis Enter -> isométrique nord est (defun pointdevue-z (v / or h ce) ; permet de définir ou redéfinir la cible par ;;présélection (objet/action) (if (ssget "_i")(setq obj-cibl (ssget))) ; si pas de cible définie (if (not obj-cibl)(setq obj-cibl (ssget))) (setvar "cmdecho" 0) (setq or (getvar "ucsorg")) (setq h (getvar "viewsize")) ;;nouveau point de vue (command "_.view" v) ;; les points de vue non iso modifient le SCU , ;; les lignes ci-dessous permettent de recupérer ;; l'origine du SCU précédent (if (or (= v "_left")(= v "_front")(= v "_right") (= v "_back")(= v "_bottom")(= v "_top") ) (command "_ucs" "_o" "_none" (trans or 0 1)) ) ;;restoration du zoom (command "_zoom" "_o" obj-cibl "") (setq ce (trans (getvar "viewctr") 1 0)) (command "_zoom" "_c" (trans ce 0 1) h) (setvar "cmdecho" 1) (princ) ) (defun c:00 () (pointdevue-z "_bottom")) (defun c:11 () (pointdevue-z "_swiso")) (defun c:22 () (pointdevue-z "_front")) (defun c:33 () (pointdevue-z "_seiso")) (defun c:44 () (pointdevue-z "_left")) (defun c:55 () (pointdevue-z "_top")) (defun c:66 () (pointdevue-z "_right")) (defun c:77 () (pointdevue-z "_nwiso")) (defun c:88 () (pointdevue-z "_back")) (defun c:99 () (pointdevue-z "_neiso")) POINT DE VUE ORIGINE SCU ; usegomme 13-08-08 ; point de vue 3 D avec conservation du zoom ; et concervation de l'origine de SCU qui est la cible ; dix nouvelles commandes sont créées taper : ; 0+ puis Enter -> bas ; 1+ puis Enter -> isométrique sud ouest ; 2+ puis Enter -> avant ; 3+ puis Enter -> isométrique sud est ; 4+ puis Enter -> gauche ; 5+ puis Enter -> haut ; 6+ puis Enter -> droite ; 7+ puis Enter -> isométrique nord ouest ; 8+ puis Enter -> arrière ; 9+ puis Enter -> isométrique nord est (defun pointdevue-zs (v / or h ce) (setq ce '(0.0 0.0 0.0)) (if (equal ce (getvar "ucsorg")) (progn (prompt "\n Définir le SCU") (command "_ucs") (while (not (zerop (getvar "cmdactive")))(command pause)) ) ) (setvar "cmdecho" 0) (setq or (getvar "ucsorg")) (setq h (getvar "viewsize")) ;;nouveau point de vue (command "_.view" v) ;; les points de vue non iso modifient le SCU , ;; les lignes ci-dessous permettent de recupérer ;; l'origine du SCU précédent (if (or (= v "_left")(= v "_front")(= v "_right") (= v "_back")(= v "_bottom")(= v "_top") ) (command "_ucs" "_o" "_none" (trans or 0 1)) ) ;;restoration du zoom (command "_zoom" "_c" ce h) (setvar "cmdecho" 1) (princ) ) (defun c:0+ () (pointdevue-zs "_bottom")) (defun c:1+ () (pointdevue-zs "_swiso")) (defun c:2+ () (pointdevue-zs "_front")) (defun c:3+ () (pointdevue-zs "_seiso")) (defun c:4+ () (pointdevue-zs "_left")) (defun c:5+ () (pointdevue-zs "_top")) (defun c:6+ () (pointdevue-zs "_right")) (defun c:7+ () (pointdevue-zs "_nwiso")) (defun c:8+ () (pointdevue-zs "_back")) (defun c:9+ () (pointdevue-zs "_neiso")) [Edité le 25/8/2008 par usegomme]

Merci. J'ai qu'en même rajouté une correction pour un problème peu fréquent mais.. ;;usegomme le 12-08-2008 ;; commande repère améliorée ;;le while sur la cde SCU permet d' utiliser les options ;;de cette dernière. (defun c:rp (/ ce h xdir ydir) (setvar "cmdecho" 1) (setq ce '(0.0 0.0 0.0)) (setq xdir '(1.0 0.0 0.0)) (setq ydir '(0.0 1.0 0.0)) (command "_ucs" ) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq h (getvar "viewsize")) (if (equal ce (getvar "ucsorg")) (progn (if (or (not (equal xdir (getvar "ucsxdir"))) (not (equal ydir (getvar "ucsydir")))) (command "_ucs" "") ) (setq ce (getvar "viewctr") ) (command "_circle" "_none" ce (* h 0.5)) (command "_plan" "_c") (command "_zoom" "_o" (entlast) "") (command "_erase" (entlast) "") (setq ce (getvar "viewctr") ) ) (command "_plan" "_c") ) (command "_zoom" "_c" ce h) (princ) )

Non tu ne passes pas pour , tu es un rabas-joie , mais bon pour cette fois tu es pardonné , car c'est pour la bonne cause. Bon, j'ai amélioré le fonctionnement ,mais ce ne sera pas encore parfait . PS : Cela n' entre pas en ligne de compte pour le lisp. ;;usegomme le 12-08-2008 ;; commande repère améliorée ;;le while sur la cde SCU permet d' utiliser les options ;;de cette dernière. (defun c:rp (/ ce h ) (setvar "cmdecho" 1) (setq ce '(0.0 0.0 0.0)) (command "_ucs" ) (while (not (zerop (getvar "cmdactive")))(command pause)) (setq h (getvar "viewsize")) (if (equal ce (getvar "ucsorg")) (progn (setq ce (getvar "viewctr") ) (command "_circle" "_none" ce (* h 0.5)) (command "_plan" "_c") (command "_zoom" "_o" (entlast) "") (command "_erase" (entlast) "") (setq ce (getvar "viewctr") ) ) (command "_plan" "_c") ) (command "_zoom" "_c" ce h) (princ) )