nicolas2

Oups, on s'est croisé PHILPHIL mon collègue est en Txt et moi aussi...

Je viens de vérifier sur le poste d'un collègue (nous avons installé 2009 en même temps), le Alt0216 fonctionne (quelque part ca me rassure sur ma santé mentale...) ;) D'où peut venir mon souci...??

Il faut taper le " + " entre les 2... ??!! :exclam: Avant cela n'était pas nécessaire :casstet: , je perd la boule ou quoi... :P ???

Au moment ou tu poses ta côte, tu tapes " TE " pour modifier ton texte, tu tapes " Alt0157 ", le signe Ø est ignoré, il n'est pas reconnu. Si tu passes par les propriétés, à ce moment là, oui, pas de problème. Est-ce que tu peu me confirmer cela ? :casstet:

Bonjour à tous, je suis passé du 2004 au 2009. Avant " Alt.0216 " fonctionnait très bien pour Ø, maintenant " %%C " sinon il ne le prend pas ..? Les vieux réflexes sont là, au bout d'un moment, ça gonfle :mad: Si quelqu'un à une solution...? Merci à tous.

Super Bonus, encore merci pour ton aide. je m'attèle à la Inputbox

Ton correctif fonctionne sur le polygone référence, mais pas sur l'extension jusqu'au cercle d'inscription. Merci

Voila le truc . l'image du haut avec le cercle au centre (routine) et l'image du bas avec ce que l'on devrait avoir http://img13.imageshack.us/img13/1984/pascarr.jpg J'ai pas essayé ton correctif.

Merci Bonuscad. Il y a un cercle (à l'intersection des 2 diagonales du carré) qui ne devrait pas exister....? J'ai cherché du côté de ton "_.polygone" "4"..... J'ai juste ajouté: (command "rotation" "tout" "" pt_c "45") à la fin pour faire un pas losange en restant avec la fonction command. Peut--être une Inputbox avec : - s_rad - g_rad - pas et - type de pas (au choix en déroulant -> triangle - carré - losange)

Tramber, tu t'en sors bien.... :casstet: Merci Bonus, j'ai dû oublier quelque chose....dans ton code...???!!! Le résultat n'est pas là... ((defun c:clambda ( / pt_c s_rad g_rad pas tmp_rad obj e_length t_length pt) (vl-load-com) (setq pt_c (getpoint "\nPoint centre: ")) (setq s_rad (getdist pt_c "\nPetit rayon: ") g_rad (getdist pt_c "\nGrand rayon: ") pas (getdist "\nPas carré: ") ) (command "_.circle" "_none" pt_c s_rad) (command "_.circle" "_none" pt_c g_rad) (setq tmp_rad (* (sqrt 3) 0.5 pas)) -> (setq tmp_rad (* 0.5 pas)) (while (<= (+ tmp_rad s_rad) g_rad) (command "_.polygon" "3" "_none" pt_c "_circumscribed" tmp_rad) -> (command "_.polygon" "4" "_none" pt_c "_circumscribed" tmp_rad) (setq obj (vlax-ename->vla-object (setq e_last (entlast))) e_length 0.0 t_length (vlax-get-property obj 'Length) ) (while (< e_length t_length) (setq pt (vlax-curve-getPointAtDist obj e_length)) (if (<= (+ (distance pt pt_c) s_rad) g_rad) (command "_.circle" "_none" pt s_rad) ) (setq e_length (+ e_length pas)) ) (entdel e_last) (setq tmp_rad (+ tmp_rad (* (sqrt 3) 0.5 pas))) -> (setq tmp_rad (+ tmp_rad (* 0.5 pas))) ) )) Merci encore

Y'en a pas un pour rattraper l'autre les gones....alors qu'est-ce qu'il fabrique le Nicolas.......??? ;)

Bonuscad t'es terrible....!! Avec Usegomme, on est comme 2 manchots.... Tramber, c'est pas un solitaire mais puisque tu en parles et que une petite variante à la routine de Bonus avec un pas carré.... ;) ? Merci à tous pour vos compétences et votre bonne humeur !

Bonjour, voila la base : http://img8.imageshack.us/img8/7998/pastriangulaire.jpg Tracer une multitude de cercles de Ød au pas triangulaire (60°) circonscrit au ØD. Une idée....?

(command "_ucs" "_move" (trans p1 0 1) "")

Bonjour à tous, le code paraît bon mais le SCU ne se recentre pas sur p1 si je relance une seconde fois la routine ? :casstet: (setq p1 (cdr (assoc 10 (entget (car ent))))) (command "scu" "déplacer" p1 "") Merci pour votre aide

Merci Patrick_35 ! j'évolue doucement dans le monde du lisp, j'espère pouvoir effectuer une formation pour réellement mieux comprendre ce language. Merci pour ton aide. Pourrais-tu m'aider à solutionner mes problèmes ? Merci encore à tous

Bonjour à tous, la routine suivante effectue au Démarrage : 1 - un zoom étendu 1ier click : (sur un cercle de ØX) 2- un nettoyage de tout sauf du type de cercle sélectionné (avec ØX) 3- la mise de ces cercles sous le calque UT1 (le crée s'il est inexistant) 4- recentre le SCU sur le centre du 1ier cercle sélectionné 5- un zoom étendu 2ième click et clicks suivants : 5- redéfinie l'ordre de tracé en numérotant les cercles [surligneur] 2 Questions :[/surligneur] 1- Si je me trompe au 1ier lancement de la routine et que je la lance une 2ième fois, tout se passe comme la 1ière fois, sauf que le SCU ne suis pas la modif. et reste à l'endroit indiqué lors de la 1ière fois. 2- Lors du 1ier Click sur le cercle type, est-il possible de commencer la numérotation (puisque le cercle type est aussi le tube N°1 et que le deuxième click le redésigne) (defun c:nettoyeur ( / ent dxf_ent js jsc n nw_js i l_dxf h) (command "zoom" "et") (while (null (setq ent (entsel "\nDésigner un cercle type: ")))) (setq dxf_ent (entget (car ent))) (setq p1 (cdr (assoc 10 (entget (car ent))))) (command "scu" "déplacer" p1 "") (cond ((eq (cdr (assoc 0 dxf_ent)) "CIRCLE") (setq js (ssget "_x" (list (assoc 410 dxf_ent) (assoc 67 dxf_ent))) jsc (ssget "_x" (list (assoc 0 dxf_ent) (assoc 410 dxf_ent) (assoc 67 dxf_ent) (assoc 40 dxf_ent))) n -1 ) (repeat (sslength jsc) (ssdel (ssname jsc (setq n (1+ n))) js) ) (if (not (tblsearch "LAYER" "UT1")) (entmake '((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "UT1") (70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) ) ) ) (if js (repeat (setq n (sslength js)) (entdel (ssname js (setq n (1- n)))) ) ) (if jsc (repeat (setq n (sslength jsc)) (entmod (subst '(8 . "UT1") (assoc 8 (setq dxf_ent (entget (ssname jsc (setq n (1- n)))))) dxf_ent)) ) ) ) ) (command "zoom" "et") (setq nw_js (ssadd) i 0) (while (setq js (ssget"_:S")) (ssadd (ssname js 0) nw_js) (setq l_dxf (entget (ssname js 0))) (setq h (* (cdr (assoc 40 l_dxf)) 0.5) i (1+ i)) (entmake (list '(0 . "TEXT") '(10 0. 0. 0.) (cons 11 (cdr (assoc 10 l_dxf))) (cons 40 h) (cons 1 (itoa i)) '(72 . 1) '(73 . 2) ) ) ) (setq js (ssget "_X")) (cond (js (repeat (setq n (sslength js)) (ssadd (ssname js (setq n (1- n))) nw_js) ) ) ) (cond (nw_js (setq n -1) (repeat (sslength nw_js) (entmake (setq l_dxf (entget (ssname nw_js (setq n (1+ n)))))) (entdel (cdar l_dxf)) ) ) ) (prin1) ) Merci à tous pour votre aide (la routine ci-dessus m'a été grandement soufflée par des CADXpiens)

Merci Bonuscad pour ta réponse ! J'ai gardé dxf_ent car la routine y fait référence tout au long de son déroulement .

Quelqu'un ou quelqu'une pour m'aiguiller... ;)

Merci Matt666. Voila ce que j'ai dans ma routine ....... (while (null (setq ent (entsel "\nDésigner un cercle type: ")))) (setq dxf_ent (entget (car ent))) ....... j'ai essayé plusieurs trucs mais si j'insère la définition de P1 pour ensuite recaler mon SCU, la routine plante ?! ....... (while (null (setq ent (entsel "\nDésigner un cercle type: ")))) (setq dxf_ent (entget (car ent))) (setq p1 (cdr (assoc 10 (entget ent)))) (command "scu" "déplacer" P1 "") ....... Merci pour ton aide

Bonjour, j'osais pas la poster... :exclam: (defun C:essai (/ P1) (setq P1 (getpoint "pointez le cercle: ")) (command "scu" "déplacer" P1 "") (command "zoom" "et") (princ) ) Voila, cette routine recentre le SCU sur le cercle et fait un zoom étendu. Ma question: je voudrais que le scu aille sur le centre du cercle (sans "pointez le centre du cercle") mais toujours en pointant le cercle, j'avais pensé à ça. (command "scu" "déplacer" "centre" "cercle") Mais bon.... Merci pour votre aide

Merci Gile. "L'esthétisme" de la Msgbox me plaisait ;) En fait une image me suffirait. Donc en LISP, insertion d'une image (JPG en haut à gauche dans la partie "écran" du dessin), cela est-il possible ? Merci pour votre aide.

Quelqu'un à t'il une idée ou ma question est simplette :(

Bonjour à tous. J'ai inséré cette ligne dans ma routine : (command "_vbastmt" "msgbox \"Choisissez un cercle\",32,\"Choix cercle\"") Le truc s'est que je ne veux que de l'info (sans action de l'utilisateur sur OK) Est-il possible de définir le point d'insertion d'un telle boite (en haut à gauche du dessin) ou le milieu de l'écran est-il figé ? Merci pour votre aide.

Salut nadinaf. Ton lien ne fonctionne pas. Va plutôt sur www.imageshack.us http://img24.imageshack.us/img24/5810/explicationsimageshackey7.jpg Au moins on voit tout de suite de quoi tu parles...! A+