marionsname

Merci beaucoup

Bonjour à tous et toutes, et joyeux noel. Y-a-t il un lisp pour vérifier si un entier est pair ou impair? Merci pour votre aide

Bonjour, Rhinoceros (ou rhino 3D pour ceux qui connaissent pas, et ça mérite bien un forum ici bien plus qu'accurender ;) ) qui va depuis ses débuts sur les sentiers d'AutoCAD devance actuellement ce dernier sur nombre de plans. Rhino contient une option qui permet d'ignorer les accrochages sur les objets qui se trouvent sur des calques vérrouillés. Et ça ne ralentit nullement la bécane. Je me demande vraiment pourquoi ça n'a pa été intégré bien avant la 2009. Les Autocadiens l'auront peut etre en 2015... [Edité le 2/12/2008 par marionsname]

Peut être ici la réponse à ta question

Pas de problème Bonuscad, et merci beaucoup pour ton aide :)

Ok, merci beaucoup gile :) . Je crois que j'ai pas le choix là, je vais devoir arrêter et me contenter de ça ici. En tous cas j'ai appris pas mal de choses ces derniers jours. Le problème n'est pas essentiellement là. En parcourant ce forum, oh! combien de demandes spécifiques. mettre la main dans la patte pour apprendre n'a jamais été reprochable , encore moins avoir des lacunes en cours de route :casstet: . J'aurais plutot parler à la troisième personne dans un message privé :cool: . c'est un point de vue Merci beaucoup Bonuscad, t'a été très sympat, je vais tester ça plutard. Toutes mes excuses, sincèrement toutes mes excuses à toi et à gile. A bientot [Edité le 16/11/2008 par marionsname]

ok, merci lili2006, c'est fait

J'espère ne pas avoir supprimer de ligne importante, ça marche, mais ta vérification gile est nécessaire. Tjs en attente de la solution du jeu de sélection (defun c:inv_ssocl (/ fr elst typ ss n ent fltr ss1 ss2) (sssetfirst nil nil) (setq fltr (cons 8 "Calque1,Calque2")) (sssetfirst nil nil) (setq fr (car (entsel "\nSélectionnez un objet pour la capture: ")) ) (setq elst (entget fr)) (setq typ (cdr (assoc 0 elst))) (or (= typ "CIRCLE") (and (= typ "ELLIPSE") (= (cdr (assoc 41 elst)) 0.0) (= (cdr (assoc 42 elst)) (* 2 pi)) ) (and (= typ "LWPOLYLINE") (= 1 (logand 1 (cdr (assoc 70 elst)))) ) ) (setq ss1 (SelByObj fr "Cp" nil)) (ssadd fr ss1) (setq ss2 (ssget "_X" (list '(0 . "~VIEWPORT") (cons 410 (getvar "CTAB")) fltr) ) ) (repeat (setq n (sslength ss1)) (ssdel (ssname ss1 (setq n (1- n))) ss2) T ) (not (sssetfirst)) (sssetfirst nil ss2) (princ) ) Je ne sais pas faire pour répondre à ça ni à ça Merci [Edité le 16/11/2008 par marionsname]

propos bien posés, je veux dire qui témoignent d'une sagesse profonde.

lili2006, comment faire pour avoir juste un mot (comme lien) au lieu d'avoir toute l'adresse internet Merci

voilà, c'est ça :) que dire gile t'es joilment sympa. une dernière chose : si je veux avoir le choix entre taper les noms des calques et sélectionner les objets? Sinon si je veux intérger les calques à filter directement dans le lsip à quel niveau je dois intervenir. ici (setq fltr (cons 8 fltr)) Une dernière chose et j'ai fini avec ça, si je ne veux appliquer inv_ssocl que sur un jeux de sélection au lieu de l'appliquer à tous les objets du dessin? d'avoir ça Capture Merci [Edité le 16/11/2008 par marionsname]

Merci lili2006, Je ne vois pas pourquoi cette image ne s'affiche pas, j'ai verifié du coté du registre, paramètres de confidentialité, autoriser les cookies, et même rajouter le site ci-joint pour tjs accepter les cookies de ce site, et tjs rien. Est-ce un problème au niveau du site cadxp ou à mon niveau, les images jpeg je les vois bien sur tous les sites, y compris celui de ci-joint. tjs le contour n'est pas sélectionné :casstet: . voilà je l'ai commenté (defun c:ssoclf (/ ent fr elst typ ss) (and (sssetfirst nil nil) (setq fr (car (entsel "\nSélectionnez un objet pour la capture: "))) (setq elst (entget fr)) (setq typ (cdr (assoc 0 elst))) (or (= typ "CIRCLE") (and (= typ "ELLIPSE") (= (cdr (assoc 41 elst)) 0.0) (= (cdr (assoc 42 elst)) (* 2 pi)) ) (and (= typ "LWPOLYLINE") (= 1 (logand 1 (cdr (assoc 70 elst)))) ) ) (setq ss (SelByObj fr "Cp" (list (cons 8 "Calque1,Calque3")))) ;;;(or (ssdel fr ss) T) (sssetfirst nil ss) ) (princ) ) hmmm :question: [Edité le 16/11/2008 par marionsname]

Bonjour gile, et merci pour ce code Pas tout à fait ça, je me suis pas bien expliqué. Ma demande est de sélectionner les objets d'un calque (ou des calques) donné qui sont entièrement à l'extérieur du contour, soit en choisissant les objets à filtrer soit en tapant les noms des calques (calque1, calque2...). Sélectionner les objets sur les calques à filtrer. Je choisis un cercle bleu et un autre rouge Sélectionnez un objet pour la capture: Je choisis le rectangle et voilà le résultat que je veux avoir http://www.cijoint.fr/cjlink.php?file=cj200811/cij9bQ6cDk.jpg J'espère que vous voyer l'image, moi je ne la vois pas Merci [Edité le 16/11/2008 par marionsname]

(setq ent (car (entsel "\nSélectionnez un objet sur le calque: "))) ne permet de sélectionner qu'un seul objet, je veux sélectionner plusieurs qui se trouvent dans des calques différents. ça marche pas, le contour n'est tjs pas sélectionné ;) . je crois qu'il y a quelque chose du coté de SelByObj. [Edité le 15/11/2008 par marionsname]

Ah, super gile merci, Et pour le faire avec ta routine initiale en sélectionant plusieurs objets? Et comment rajouter le contour pour qu'avec inv_sel il ne soit plus sélectionné. J'ai fait des tests avec ssadd mais j'ai pas réussi. Merci

Voilà pour que ssocl (de gile) s'applique à un calque donné, ici CALQTEST (defun c:ssocl (/ fr elst typ ss) (and (sssetfirst nil nil) (setq fr (car (entsel "\nSélectionnez un objet pour la capture: "))) (setq elst (entget fr)) (setq typ (cdr (assoc 0 elst))) (or (= typ "CIRCLE") (and (= typ "ELLIPSE") (= (cdr (assoc 41 elst)) 0.0) (= (cdr (assoc 42 elst)) (* 2 pi)) ) (and (= typ "LWPOLYLINE") (= 1 (logand 1 (cdr (assoc 70 elst)))) ) ) (setq ss (SelByObj fr "Cp" (list (cons 8 "CALQTEST")))) (or (ssdel fr ss) T) (sssetfirst nil ss) ) (princ) ) J'espère ne pas looper quelque chose Maintenant comment faire pour qu'elle s'applique à plusieurs calques? [Edité le 15/11/2008 par marionsname]

Je réctifie, ça marche pas à tous les coups, je veux dire qu'elle laisse des fois des lignes à l'extérieur, je refais la même manip une deuxième fois elle supprime les lignes qui restent. Erreur de code? Aucune idée. Cette routine est une bonne base pour developper un lisp dans ce sens. En parcourant le forum anglais d'autodesk, parait-il il y a plein de demandes dans ce sens. Bonne journée à tous

Je viens de tester sur un poste ou il y a la 2009, ça marche :casstet: . J'attends un sauveur pour sauver ma 2000 :cool:

Moi qui croyait que la 2000 est plus stable que la 2000i et la 2002 Donc rien à faire là :mad: Est-ce que pour faire que cette routine ne s'applique que sur les objets d'un calque donné (MENTASS en l'occurence) cela te demanderait beaucoup?Ca resoluerait la moitié de mon problème, je verrais la question de compatibilité. Si oui laisses tomber. A bientot

Salut Bonuscad, Merci pour les modifs. Quand j'exécute : A l'invite [surligneur] Erase all objects " side "? [Yes/No] :[/surligneur] si je choisis "N" j'ai le message suivant : [surligneur] *Sélection non valable* Attend un objet unique. [/surligneur] jusqu'à ce que j'appuie sur entrée, et là elle continue et applique Extrim sur les objets visibles seulement. Si je choisis "Y" j'ai le message suivant : [surligneur] *Sélection non valable* Attend un objet unique. Error: Fonction annulée[/surligneur] et rien ne se passe et commande terminée. Si j'ai bien compris la difference entre cette routine et Extrim c'est qu'elle permet de choisir de n'appliquer Extrim soit sur tous les objets visibles ou invisibles (Y) ou sur uniquement les objets visible (N) Merci [Edité le 14/11/2008 par marionsname]

Bonjour, J'ai trouvé ceci, ça peut répondre en partie à ma demande. C'est une variante d'extrim. http:// http://discussion.autodesk.com/forums/servlet/JiveServlet/download/130-691560-6026686-190006/CookieCutter2%20v1.0.zip J'ai voulu tester mai ca renvoie une erreur "Error: chaîne du mode ssget incorrecte" Merci de m'éclairer [Edité le 14/11/2008 par marionsname]

Salut Gile, merci pour le code ssocl, Encore quelques demandes si possible : -Choisir eventuellement plusieurs calques au lieu d'un seul -Taper le(s) nom(s) du calque (s) au lieu de sélectionner un objet. -Utilisation de inv_sel après ssocl, le contour est egalement sélectionné, si possible l'extraire. -Faire une autre routine ssexocl (combiner ssocl et inv_sel) pour sélectionner les objets d'un calque à l'extérieur d'un contour objet. Bien sur ça permettra de créer une autre routine ssexoc. J'espère que ça va enrichir tes routines de sélection et servir à plus d'un :) Merci infiniment gile

Ok, J'espérais en tous cas trouver un lisp déjà fait, si quelqu'un s'y est intéréssé auparavant, et je suis un peu étoné que cela ne fasse pas trop de demandes car à ma connaissance, beaucoup de gens utilisent les superhachures. Je continue de chercher, rien trouver sur le net, si quelqu'un a une piste, merci de communiquer. J'ai fait une première recherche dans mes archives, j'ai pas trouvé le lisp dont j'ai parlé précedemment, c'est un lisp nickel (si mes souvenirs sont bons, il n'est pas gratuiciel mais il fonctionne je crois limité dans le temps), mieux que tout ce que j'ai testé (autopat, genhach...) mais malheureusement ça m'interessait pas beaucoup, donc je crois que j'ai pas bien rangé. Dès que je trouve je le mets ici. malheureusement les superhachures n'ont pas du tout évolué Je l'espère, si je maitrisais le lisp, je l'aurais fait volontier A bientot [Edité le 13/11/2008 par marionsname]

Salut Bonuscad, Les hachues tu les faits comment? Manuellement :( ? ça devrait être chiant avec ce genre de dessins :mad: . Mes excuses ;) , t'a raison l'autre dessin dessin est encore plus complexe, tu laisses tomber. Si je trouve le fichier dont je t'ai parlé je te le communiquerais à moins que tu l'aies, mais je ne suis pas sur de l'avoir tjs, je vais chercher. J'ai testé la définition de l'hachure, bien faite d'alleurs, mais il y a des décallages au niveau des jointures des lignes, des fois ça deborde, des fois ça se coupe pas. Si RebCAO devrait l'integrer dans sa bibliothèque :) , ça doit être corrigé. C'est que je suis tjs sur la 2000, je ne sais quelle version tu as, en tous cas sur la 2000 c'est pas possible. Au fait, dans le lisp que je cherche, qu'est ce qui est difficile à faire? Tel que je l'imagine ça ne devrait pas être difficile pour des rodés en lisp (comme toi), mais je ne suis pas bien placé pour en juger. -Récuperer le contour, à voir le lisp des superhachures ça se passe ici ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ; (defun get_boundary_plines ( / underscore na a ss ss2 ss3 ss4) ;local function that adds an underscore to string provided as argument (defun underscore ( a /) (if (and a (equal 'STR (type a)) (not (equal "_" (substr a 1 1))) );and (setq a (strcat "_" a)) );if a );defun underscore (princ "\nSélection des objets visibles pour la détection des contours...") (setq ss (screen_sel T)) (if ss (setq ss3 (pre_boundary ss ss3 ss4) ss4 (cadr ss3) ss3 (car ss3) );setq );if (princ "Terminé.\n") (command "_.-boundary" "_a" "_o" "_p" "_x" "") (if (not (setq na (entlast))) (setq na (entnext)) );if (if (cadr (assoc "HIGHLIGHT" (car acet:sysvar-list))) (setvar "highlight" (cadr (assoc "HIGHLIGHT" (car acet:sysvar-list)))) (setvar "highlight" 1) );if (setq a T) (command "_.-boundary") (while (and a (wcmatch (getvar "cmdnames") "*BOUNDARY*") );and (initget "Avancées _Advanced") (setq a (getpoint "\nSpécifiez une option [options Avancées] : "));setq (if (equal a "Advanced") (progn (command "_A") (while (not (equal a "_x")) (initget "Contours Ilots Quitter _Boundary Island eXit") (setq a (getkword "\nEntrez une option [jeu de Contours/détection Ilots/Sortir] : ")) (if (or (equal a "eXit") (not a) );or (setq a "_x") (setq a (underscore a)) );if (command a) (cond ((equal a "_Boundary") (progn ;;(princ "\nSpecify candidate set for boundary") (initget "Nouveau Tout _New Everything") (setq a (getkword "\nSpécifiez un jeu de contours [Nouveau/Tout] : ")) (if (not a) (setq a "_Everything") (setq a (underscore a)) );if (command "_n" "" "_x" "");get out of the boundary command (if (equal a "_New") (progn (setq ss2 (ssget));setq (princ "\nTraitement des objets pour une détection des contours...") (if ss2 (progn ;(command "_n" "" "_x" "") (setq ss3 (pre_boundary ss2 ss3 ss4) ss4 (cadr ss3) ss3 (car ss3) );setq (command "_.-boundary" "_A" "_B" a ss2 "") );progn (progn (princ "\nAucun objet trouvé.") (command "_.-boundary" "_A") );progn else );if );progn (progn (if (equal a "_Everything") (progn (princ "\nSélection de tous les objets visibles...") (setq ss2 (screen_sel T)) (if ss2 (progn ;(command "_n" "" "_x" "") (setq ss3 (pre_boundary ss2 ss3 ss4));setq (setq ss4 (cadr ss3) ss3 (car ss3) );setq );progn then ;(princ "\nNothing found") );if (princ "\nAnalyse des données sélectionnées...") (command "_.-boundary" "_A" "_B" a) );progn then );if );progn );if (princ "Terminé.") );progn );cond #1 Boundary ((equal a "_Island") (progn (initget "Oui Non _Yes No") (setq a (getkword "\nVoulez-vous procéder à une détection des îlots? [Oui/Non] : ")) (if (not a) (setq a "_y") (setq a (underscore a)) );if (command a) (if (equal a "_No") (progn (initget "Proche +X -X +Y -Y Angle _Nearest +X -X +Y -Y Angle") (setq a (getkword "\nEntrez une option [Proche/+X/-X/+Y/-Y/Angle] : ")) (if (not a) (setq a "_Nearest") (setq a (underscore a)) );if (command a) );progn );if );progn );cond #2 );cond close );while );progn then (progn (cond ((and a (equal 'LIST (type a)) );and (command a) (princ "\n") (if (acet-str-m-find " SELECTED" (strcase (getvar "lastprompt"))) (progn (initget "Oui Non _Yes No") (setq a (getkword "\nVoulez-vous vraiment effectuer cette opération ? [Oui/Non] ")) (if (equal "Yes" a) (command "_y") (command "_n") );if );progn then );if );cond #1 ((not a) (command "") );cond #2 );cond close );progn );if );while (while (wcmatch (getvar "cmdnames") "*BOUNDARY*") (princ (strcat "\n*Impossible de créer le contour des polylignes*" "\nLa détection des contours de cette commande ne prend pas en charge certains" "\ntypes d'objet. Pour plus de détails, reportez-vous à la rubrique \"Super hachures\" de l'aide en ligne." );strcat );princ (command nil) );while (if (and ss3 (> (sslength ss3) 0) ) (acet-ss-visible ss3 0) ;turn ellipses back on );if (if (and ss4 (> (sslength ss4) 0) ) (command "_.erase" ss4 "") );if (if (not na) (setq na (entnext)) );if (if (and (setq ss (acet-ss-new na)) (> (sslength ss) 0) );and (progn (command "_.select" ss "") (setq ss (ssget "_p" '((0 . "*POLYLINE")))) (if (not ss) (progn (setq ss nil) (princ "\nImpossible de créer le contour des polylignes.") );progn );if );progn then (setq ss nil) );if (setvar "highlight" 0) ss );defun get_boundary_plines ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -Récuperer le dessin de hachurage, je ne vois pas comment, entlast peut être. -Sélectionner les objets à l'extérieur (lisps de gile) et suppression -Extrim A suivre... A bientot et Merci :) [Edité le 13/11/2008 par marionsname]

Merci Bonuscad pour cet effort. Je me rappelle, il y a quelque mois, j'ai testé un petit lisp, je crois il s'appelle bodyhach ou quelque chose comme ça, je ne me rappelle pas où je l'ai eu, il permet de génerer les fichier pat de n'importe quel dessin. Dans le temps, je l'ai testé sur plusieurs dessins, je me rappelle qu'il n'a pas reussi à generer le fichier pat de tous les dessins que j'ai testé. Mais... les hachures restent limtées au niveau du positionnement exact du dessin de base... La commande superhachures est bien plus facile. D'où l'interet que je lui portes. Je comprends aussi qu'un tel lisp n'est peut être pas facile à faire, et qui necessite certainement quelques modifs sur le lisp des superhachures :P . j'espère que le dessin luiu plaira. A bientot Bonuscad et merci