bonuscad

Une autre solution qui avait été évoqué ICI Si SHORTCUTMENU est à 11 (valeur par défaut) vous aurez les différentes échelles sur le ckick-droit pour choisir. Cela évite d'avoir une multiplicité d'icones pour faire la même chose.

En changeant que le nom, ça ne suffit pas. Pour t'en rendre compte tu fait la même chose qu'en ligne de commande et tu fournis les options dans le même ordre. (comme un script) ce qui pourrais donner suivant le motif choisi. en SOLID: (command "_.-bhatch" "_properties" "_solid" "_select" (ssname ss (setq i (1+ i))) "" "") en MOTIF PREDEFINI: (command "_.-bhatch" "_properties" "_ANSI31" "1" "0" "_select" (ssname ss (setq i (1+ i))) "" "") en MOTIF UTILISATEUR: (command "_.-bhatch" "_properties" "_U" "45" "1xp" "_no" "_select" (ssname ss (setq i (1+ i))) "" "") Ce dernier peut être interessant au niveau de l'échelle. Le "XP" vas te calculer l'échelle par rapport à l'espace papier pour que tu ais 1 unité d'intervalle dans l'EP. On pourrais sophistiquer le programme en regardant et en fixant les variables: HPANG , HPDOUBLE , HPNAME , HPSCALE , HPSPACE et peut être HPBOUND. Dans ce cas l'option "Point interne" serait aussi sympa à mettre en place. (ça je l'ai déjà fait, je vous laisses trouver) A vos claviers! ;)

Bonjour, Une suggestion: Peut être quand établissant un filtre sur les points avec l'option "Tout" au choix des objets, tu pourras enfin les sélectionner. Si c'est le cas, essayes de les placer dans le calque "DefPoints" (s'il n'existe pas, fais une cotation) Ce calque a une particularité, il n'est pas pris en compte pour l'impression. Pas d'autre idée :(

En complément de ce qu'a dit Thierry, outre le confort pour l'usager de la route, elle permet d'introduire le dévers (pente tranversale de la chaussée) graduellement avant la courbe (virage). Sans entrer dans le détail, la formule de calcul a été établie pour prendre en compte le poids du véhicule, la réaction centrifuge, la masse du véhicule, la vitesse, le rayon de courbure et l'acélération de la pesanteur. Pour imager tout ça tu peux regarder, pour exemple extrème, le fonctionnement d'un manège à sensation tel un grand huit où ces paramètre sont d'une grande importance pour l'installation des rails et la sécurité d'utilisation. Sans ça la nacelle déraillerait et toi avec ;)

Bonjour Peut être une aide à la construction vers ce lien Je ne sais pas si cela te seras d'un grand secours car je ne suis pas un pro dans les hélices. ;) Je te donne la version corrigée identique mais avec les commandes internationalisées et francisées. ; draw a helix ; mfuccaro@hotmail.com ; ----- November.2002 ----- ; (defun c:helix( / spin ri rf h tu segs old fil points h1 r1 s end i fi r x y ) (setq spin -1); -1=CW, 1=CCW (setq ri (getdist "\nRayon de la base: ") rf (getdist "\nRayon au sommet: ")) (initget (+ 1 4)) (setq h (getdist "Hauteur: ")) (initget (+ 1 2 4)) (setq tu (getreal "\nNombre de rotations: ")) (setq segs (getint "\nNombre de segments par révolution <20>: ")); more=smoother (if (= segs nil)(setq segs 20)) (setq old (getvar "osmode")) (setvar "cmdecho" 0) (setq fi1 (/ (* 2 PI) segs) i 0) (setq points (fix (* tu segs)) h1 (/ h points) r1 (/ (- rf ri) points) s (getpoint "Centre de la base: ") end (list (car s) (cadr s) (+ h (caddr s)))) (setvar "osmode" 0 ) (command "_.line" s end "") (command "_.chprop" "_l" "" "_c" 1 "") (command "_.3dpoly") (setq i 0) (repeat (1+ points) (setq fi (* i fi1) h (* i h1) r (+ ri (* i r1))) (setq x (* r (cos fi)) y (* spin r (sin fi))) (command (list (+ (car s) x) (+ (cadr s) y) (+ (caddr s) h))) (setq i (1+ i))) (command "") (setvar "osmode" old)) (princ "\nRoutine chargé. Taper HELIX au message commande.") (princ)

Bonjour, Un lien parmi tant d'autres sur les calculs de clothoide Cependant une formule approchée te permet de trouver le deltaR approximatif, mais rapidement sans faire le calcul de l'intégrale de Fresnel. Delta R = L² / 24R L =Longueur de la clothoide et R = Rayon du cercle

C'est bien ce que je pensais! Bien que tu ne soit pas le responsable, c'est une drôle de façon de travailler, je met 0/20 au concepteur de ce genre de fichier. (intérêt nul, je te dis pas le "bordel" si tu veux faire un bloc et que tu veux prendre ce genre d'entité avec) Pour te dépanner applique la routine suivante (faite exprés pour toi, car c'est un cas vraiment unique en son genre) (defun c:defatt2txt ( / js ind ent dxf_ent val_txt) (princ "\nChoix des définitions d'attribut à convertir en texte") (setq js (ssget '((0 . "ATTDEF")))) (cond (js (setq ind 0) (repeat (sslength js) (setq ent (ssname js ind) dxf_ent (entget ent) val_txt (cdr (assoc 2 dxf_ent)) ) (foreach n '(-1 0 330 100 5 1 100 3 2 70 73 74) (setq dxf_ent (vl-remove-if-not '(lambda (x) (/= (car x) n)) dxf_ent)) ) (setq dxf_ent (cons (cons 1 val_txt) dxf_ent) dxf_ent (cons '(0 . "TEXT") dxf_ent) ind (1+ ind) ) (entdel ent) (entmake dxf_ent) ) ) (T (princ "\nAucune définition d'attribut sélectionnée") ) ) (prin1) )

J'ai l'impression qu'il y a un malentendu sur la définition. Burst fonction sur les attributs, mais je me demande si en fait on a pas affaire à des DEFINITIONS d'attribut. Chose tout à fait différente. Pour éclairer ma lanterne ne pourrait pas tu faire en ligne de commande ce qui suit: (entget (car (entsel))) et pointer ce soit disant attribut que tu transformer. Fait un copier-coller du retour, ca pourra expliquer des choses. A+

Est tu sous XP? et a tu refais ton instal en tant qu'admin? Peut être l'instal t'a recréer un profil utilisateur qui ferait "merder" l'ensemble......

Avec les ExpressTools ! Commande "BURST", fonctionne avec des attributs seuls ;)

Dans mes essais tout ce passe bien. Le réseaux est effectué et les attributs renseignés. Il est vrai que l'attribut renseigné n'est valable que pour l'ensemble du réseaux, on ne peut pas définir des attributs différents. C'est cela qui te pose problème? NB: Je suppose que tout tes fichiers (lsp, dcl et dwg) sont soit dans le dossier courant, soit dans un dossier de recherche d'autocad. En résumé, je vois pas ce qui te pose problème sans plus d'info!

Apparemment avec le problème que tu as rencontré avec les ExpressTools puis maintenant avec la commande AttRedef me ferait dire dire que tu as un problème avec la déclaration de ton environnement d'Autocad. Je ne sais pas où pointe tes chemins de recherche courants, mais à priori ce n'est pas au bon endroit. Comment ce faisse, je ne sais pas, mais vérifie les, car les symptomes me font penser à ça.

Bonjour la petite nouvelle, Tout d'abord il aurait été bien de ne poster ton message que dans un SEUL forum (tu n'auras pas plus de réponses) Vu que tu débarque sur le site, tu es excusée (Mais il t'es possible, et à toi seul, de supprimer tes autres messages voir l'utilisation du site CadXP) J'ai essayer ton prog, et ma foi je n'ai pas rencontré de problème sur les attributs (je n'en ai fait qu'un seul). Tu devrais peut être regarder les variable ATTMODE et ATTDIA (voir l'aide) et les surveiller dans ton prog. J'ai du changer (if (not (new_dialog "diaglumok" dcl_id)) en (if (not (new_dialog "diaglum" dcl_id)) pour un chargement correct du DCL et supprimé la dernière paranthèse fermante dans le DCL. Voilà pour un test rapide . Au sujet des unités, voici un exemple de ce que tu pourrais faire: dans le lsp (setq show_unit 1000.0) ...... (cond ((= show_unit 1.0) (set_tile "b_mm" "1") (mode_tile "b_mm" 2)) ((= show_unit 10.0) (set_tile "b_cm" "1") (mode_tile "b_cm" 2)) ((= show_unit 1000.0) (set_tile "b_m" "1") (mode_tile "b_m" 2)) ((= show_unit 1000000.0) (set_tile "b_km" "1") (mode_tile "b_km" 2)) ) ....... (action_tile "b_mm" "(setq show_unit 1.0)") (action_tile "b_cm" "(setq show_unit 10.0)") (action_tile "b_m" "(setq show_unit 1000.0)") (action_tile "b_km" "(setq show_unit 1000000.0)") ....... dans le dcl .......... :boxed_row { label = "Choix Unité utilisée dans l'espace Objet"; :radio_button { label = "mm"; key = "b_mm"; } :radio_button { label = "cm"; key = "b_cm"; } :radio_button { label = "m "; key = "b_m"; } :radio_button { label = "km"; key = "b_km"; } } ........ Bonne continuation ;)

Bonjour, Certaines hachures ayant une définitions complexe avec de nombreuse décimales dans sa déclaration dans le fichier .PAT posent problème lors d'une réalisation dans le dessin lorsque celle-ci sont loin de l'origine. L'imprécision des décimale entraine un décalage qui s'accroit avec l'éloignement. Le moyen de contourner ce problème est tout simple, il te suffit de définir un SCU ORIGINE dans ta zone à hachurer et de lance ta commande hachure normallement.

Ben écoute, j'ai fais l'essai avec ton code (ssget (list (cons 0 "*POLYLINE,LWPOLINE") (cons -4 "!=") (cons 70 112))) et l'ancien modifié avec tes remarques (ssget '((0 . "*POLYLINE,LWPOLINE") (-4 . "< NOT") (-4 . "&") (70 . 112) (-4 . "NOT>"))) Je n'obtiens pas le même jeu de sélection, dans le second les maillages sont écartés Mais déja le filtre est nettement plus court ;) C'est déjà pas mal NB: j'ai mis un espace après le "<" pour éviter une disparition partielle du filtre.

Salut Patrick35, Merci pour ton bon conseil, mais je vais retenir que la moitié de la solution (groupe 0) Le reste de me convient pas car il n'écarte pas les polylignes maillées, donc je garde le NOT. Je n'ai pas trouver un groupe -4 qui ferait cela d'un seul coup :casstet: Mais déjà il est vrai que cela fait un filtre plus court. A+

Venant d'avoir l'Adsl 2Mo chez neuf. J'ai donc changé par la même occcasion de bécane et me retrouve avec Windows XP2. J'ai voulu comme CDL faire un partage de connexion pour rattacher mon ancienne bécane avec Windows ME. Je m'y suis pris exectement comme lui, et j'ai rencontré exactement le même problème. Le réseaux est nickel, mais ma connexion internet ne se faisait que sur le poste XP. Après nombreuses recherches, j'ai trouvé enfin la solution: * Il suffit de récuperer les adresses DNS (principale et secondaire de ton FAI) Si tu ne les connais pas un site donne les plus courants http://www.zonehd.net/dossiers.php?fop=lire&fid=5 Et de les rajouter sur tes 3 postes, et la miracle ça fonctionne. En espèrant quand même que tu avais déjà trouvé une solution ;)

Salut, Cela devrait fonctionner sous 2005.... pas tester. Cette fois j'ai pensé à mettre des espace après le "<" dans le filtre de (ssget) PENSER à les enlever après le copier-coller pour que cela fonctionne. (defun c:po2ml ( / jspl nbr ent dxf_ent typent name_layer closed lst l_bub e_next dxf_next oldlayer oldosm key_mod scale_ml) (princ "\nChoix des polylignes à transformer en multilignes: ") (setq jspl (ssget '((-4 . "< OR") (-4 . "< AND") (0 . "POLYLINE") (-4 . "< NOT") (-4 . "&") (70 . 112) (-4 . "NOT>") (-4 . "AND>") (-4 . "< AND") (0 . "LWPOLYLINE") (-4 . "AND>") (-4 . "OR>")) ) nbr 0 ) (cond (jspl (initget "Dessus Nulle dEssous _Top Zero Bottom") (setq key_mod (getkword (strcat "\nEntrez le type de justification [Dessus/Nulle/dEssous] <" (cond ((eq (getvar "cmljust") 0) "Dessus" ) ((eq (getvar "cmljust") 1) "Nulle" ) ((eq (getvar "cmljust") 2) "dEssous" ) ) ">: " ) ) ) (if key_mod (cond ((eq key_mod "Top") (setvar "cmljust" 0)) ((eq key_mod "Zero") (setvar "cmljust" 1)) ((eq key_mod "Bottom") (setvar "cmljust" 2)) ) ) (setq scale_ml (getdist (strcat "\nEntrez l'échelle de la multiligne <" (rtos (getvar "cmlscale")) ">: "))) (if scale_ml (setvar "cmlscale" scale_ml)) (setq oldlayer (getvar "clayer") oldosm (getvar "osmode")) (setvar "osmode" 0) (setvar "cmdecho" 0) (repeat (sslength jspl) (setq typent (cdr (assoc 0 (setq dxf_ent (entget (setq ent (ssname jspl nbr)))))) name_layer (cdr (assoc 8 dxf_ent)) ) (cond ((eq typent "LWPOLYLINE") (setq closed (boole 1 (cdr (assoc 70 dxf_ent)) 1) lst (mapcar '(lambda (x) (trans x ent 1)) (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) dxf_ent))) l_bub (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 42)) dxf_ent)) ) ) ((eq typent "POLYLINE") (setq closed (boole 1 (cdr (assoc 70 dxf_ent)) 1) e_next (entnext ent) ) (while (= "VERTEX" (cdr (assoc 0 (setq dxf_next (entget e_next))))) (if (zerop (boole 1 223 (cdr (assoc 70 dxf_next)))) (setq lst (cons (trans (cdr (assoc 10 dxf_next)) ent 1) lst) l_bub (cons (cdr (assoc 42 dxf_next)) l_bub) ) ) (setq e_next (entnext e_next)) ) (setq lst (reverse lst) l_bub (reverse l_bub) ) ) ) (cond ((and lst (apply 'and (mapcar 'zerop l_bub))) (setvar "clayer" name_layer) (command "_.mline") (foreach n lst (command n)) (if (not (zerop closed)) (command "_close") (command "")) (entdel ent) ) (T (princ "\nLes polylignes comportant des arrondis n'ont pas été traitées!")) ) (setq nbr (1+ nbr) lst nil l_bub nil) ) (setvar "clayer" oldlayer) (setvar "osmode" oldosm) (setvar "cmdecho" 1) ) (T (princ "\nSélection vide")) ) (prin1) )

Moi je préfère encore Tramber avec sa clope, il faut dire que je suis aussi un intoxiqué de l'herbe à Nicot Mais l'hypocrisie des grands dirigants qui veulent nous faire croire qu'ils s'occupe de notre santé en nous faisant payer pour des hypothétiques maladie respiratoire ou autres, me fait sortir de mes gonds Et là qui paye??? et qui râle pour notre santé. Les maladies respiratoires des jeunes enfants dans les villes ne cesse d'augmenter, alors la fumée de cigarette me semble bien dérisoire.... http://www.epa.qld.gov.au/images/environmental_management/air/Brisbane_pollution.jpg

Je me fais toujours avoir avec le BBCode de CadXp qui "shunte" certains caractères spéciaux lors du copier coller. Je vais essayer de modifier le post du code

Je ne veux pas te décourager, mais il y a beaucoup plus court. La ligne de code n'est pas de moi, mais de notre ami Québécois Serge Camiré (le roi du code condensé au maximum;) ). Moi, je suis comme toi je découvre petit à petit "Visual Lisp" et "ActiveX" Voici l'extrait essentiel de son code (car je ne sais plus où il l'avait publié, c'était en 2003) mais cette ligne te retourne le point de gravité dans le SCG. (vlax-safearray->list (vlax-variant-value (vla-get-centroid (vlax-ename->vla-object (car (entsel)))))) Merci à Serge ! Je lui laisse le soin d'apporter des commentaires qui sont toujours très instructifs. Un petit coup pub pour lui MVPORT

Un click-droit sur une barre de menu quelconque, tu auras un menu contextuel qui va te permettre de sélectioner ""Personnaliser...". Ceci va ouvrir une boite de dialogue sur un onglet commande. Tu sélectionne "Défini par l'utilisateur" dans la partie gauche. Puis "icone définie par l'utilisateur' que tu vas faire glisser sur une barre de menu choisie. Une fois glisser tu auras un bouton gris inseré. Fais un click-droit dessus et choisi "propriétés.." dans le menu contextuel A ce moment tu n'as plus qu'a copier-coller la ligne que je t'ais donnée dans la zone "Macro associé au bouton. Le reste de la personnalisation reste à ton gout ;) Une fois la boite fermée, ton menu vas être recompilé et effectif. Voilà! [Edité le 20/5/2005 par bonuscad]

Vu que tu es dans LT, est-ce qu'une macro comme ce qui suit, dans un bouton pourait faire l'affaire. ^C^C^P$M=$(if,$(!=,$(getvar,cvport),2),_.mspace;)_.ucs;_3point;\\\_.plan;_current;_.ucs;_world;^Z Ma réponse est peut être à coté de la plaque :P

Regarde la commande FCALQUE (_VPLAYER) Si tu as déjà une présentation dans l"EP Libère toute les calques dans ta fenetre courante Il faufrait d'avantage d'info pour identifier le prob. :cool:

Salut Pour faire un fichier PostScript, il te suffit d'aller dans le gestionnaire de tracage d'autocad. Choisir par l'assistant "Ajouter un traceur" Prendre l'option "Mon ordinateur" puis de choisir le fabriquant "Adobe" Là tu auras le choix entre 3 language PostScript (faire des essais pour voir lequel est succeptible de convenir le mieux) Achever la procédure et tu auras un traceur PS