philous2

Peut-être trouvé réponse à voir, est-ce du éventuellement à une version différente d'Autocad, moi j'ai la version 2006 map !

Bjr, J'ai essayé d'utiliser la routine modifier de Gile en l'a sauvardant ds un fichier lsp, ( [surligneur] defun c:Lw_dim (/ js ent dxf_ent lst_pt AcDoc Space) (princ "\nSélectionner la polyligne à coter. ") (setq js (ssget "_+.:E:S" '((0 . "LWPOLYLINE")))) (cond (js (vl-load-com) (setq dxf_ent (entget (setq ent (ssname js 0))) lst_pt (mapcar '(lambda (x) (trans x ent 0)) (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) dxf_ent) ) ) ) (if (= 1 (logand 1 (cdr (assoc 70 dxf_ent)))) (setq lst_pt (reverse (cons (car lst_pt) (reverse lst_pt)))) ) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (equal (car lst_pt) (last lst_pt) 1e-9) (vla-addDimAngular Space (vlax-3d-point (car lst_pt)) (vlax-3d-point (cadr (reverse lst_pt))) (vlax-3d-point (cadr lst_pt)) (vlax-3d-point (polar (car lst_pt) (angle (car lst_pt) (mapcar '* (mapcar '+ (cadr (reverse lst_pt)) (cadr lst_pt)) '(0.5 0.5 0.5) ) ) (* 10 (getvar "DIMTXT")) ) ) ) ) (while (cdr lst_pt) (vla-addDimAligned Space (vlax-3d-point (car lst_pt)) (vlax-3d-point (cadr lst_pt)) (vlax-3d-point (polar (mapcar '* (mapcar '+ (car lst_pt) (cadr lst_pt)) '(0.5 0.5 0.5) ) (+ (angle (car lst_pt) (cadr lst_pt)) (* pi 0.5)) (* 10 (getvar "DIMTXT")) ) ) ) (if (cddr lst_pt) (vla-addDimAngular Space (vlax-3d-point (cadr lst_pt)) (vlax-3d-point (car lst_pt)) (vlax-3d-point (caddr lst_pt)) (vlax-3d-point (polar (cadr lst_pt) (angle (cadr lst_pt) (mapcar '* (mapcar '+ (caddr lst_pt) (car lst_pt)) '(0.5 0.5 0.5) ) ) (* 10 (getvar "DIMTXT")) ) ) ) ) (setq lst_pt (cdr lst_pt)) ) ) ) (prin1) ) [/surligneur] mais ça ne marche pas chez moi pourtant j'ai bien chargé la macro comme d'hab mais tjrs ce message "appload Lw_dim.LSP correctement chargé(s) Commande: ; erreur: type d'argument incorrect: numberp: nil Commande: Lw_dim Commande inconnue "LW_DIM". Appuyez sur F1 pour obtenir de l'aide Le code d ela routine es tbien lw_dim non ! ou est mon soucis alors !!! Aurais-je oublié ou pas fait correcement quelque chose Merci d'avance de vos lumières Phil

Slt bruno, c'est quoi le code de ta macro car j'ai essayé " multi_hatch-45 " et ça marche pas [surligneur] (defun c:multi_hatch-45 ( / js n model_hatch scale_hatch ang_hatch ent dxf_ent lst_pt lst_d where alpha) (setq js (ssget '((0 . "LWPOLYLINE")))) (cond (js (setq n -1 model_hatch (getvar "HPNAME") scale_hatch (getvar "HPSCALE") ang_hatch (getvar "HPANG") ) (setvar "HPNAME" "ANSI31") (setvar "HPSCALE" (* (getvar "HPSCALE") (getvar "DIMSCALE"))) (repeat (sslength js) (setq ent (ssname js (setq n (1+ n))) dxf_ent (entget ent) lst_pt (mapcar '(lambda (x) (trans x ent 0)) (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) dxf_ent))) lst_d (mapcar 'distance lst_pt (cons (last lst_pt) lst_pt)) where (- (length lst_pt) (length (member (apply 'max lst_d) lst_d))) alpha (angle (if (zerop where) (last lst_pt) (nth (1- where) lst_pt)) (nth where lst_pt)) ) (setvar "HPANG" (angle (trans '(0 0 0) 0 1) (trans (polar '(0 0 0) alpha scale_hatch) 0 1))) (command "_.HATCH" "" "" "" ent "") ) (setvar "HPNAME" model_hatch) (setvar "HPSCALE" scale_hatch) (setvar "HPANG" ang_hatch) ) (T (princ "\nAucune LWPOLYLINE fermée trouvé !")) ) (princ) )[/surligneur]

Merci de la réponse c'est bon A + PHIL

Bjr, Je voudrais créer des nouveaux boutons avec quelques lisp existant et les insérer ds des barres de menus existantes. par exemple j'ai ce lisp (defun c:xy() (setq npt1 (getpoint "Point de COTE : ")) (setq npt2 (getpoint npt1 "Point Final : ")) (setq totox (car npt1) totoy (cadr npt1) totoz (caddr npt1) ) Variante avec 3 decimales (setq pt1x (strcat "X: " (rtos totox 2 3))) (setq pt1y (strcat "Y: " (rtos totoy 2 3))) ; Variante avec 2 decimales ; (setq pt1x (strcat "X: " (rtos totox 2 2))) ; (setq pt1y (strcat "Y: " (rtos totoy 2 2))) (command "_.leader" npt1 npt2 "" pt1x pt1y "") ) (defun c:xyz() (setq npt1 (getpoint "Point de COTE : ")) (setq npt2 (getpoint npt1 "Point Final : ")) (setq totox (car npt1) totoy (cadr npt1) totoz (caddr npt1) ) et je voudrais en faire un bouton comment procéder ! J'ai commencé mais j'ai un soucis ds la macro (entrer la commande) merci de vos lumières Phil

Bjr, J'ai téléchargé le dernier fichier zip du netoyeur mais c'est quoi le code après l'avoir chatgé ?

Bjr tt le monde, Bruno tu as raison ton lisp est intéressant et sert. Par contre j'ai trouvé un site super intéessant ,et qui me donne les rensignements que je cherchais. http://letopo.chez-alice.fr/2001/index.html c'est qsuper car avec ce mode de calcul on peut en ayant positionné ces droites calculer la position de son cercle et donc de sa clothoide. A+ Phil

Bjr, Je cherche un lisp pouvant faire la construction simple d e clothoide à partir d'un rayon et d'une longueur donné. En effet, sur mon projet actuel d'aménagaement de 2 x 2 voies entre 2 section déjà existante en conservant la chaussée existante au maximum avec des contraintes de batis.je susi obligés de faire passer plusierus clothoides en fonction de certain rayon inférieur au norme ICTAAL. J'ai un lisp mais assez simple sur lequel je ne peux pas imposer une distance.d'ou mon problème actuel. C'est pour ramener tout cela ds Pïste Si quelqu'un à une idée. merci d'avance. Phil

Slt lovecraft, Je suis très intéréssé par tes feuilles excel. " philippe.le.goff@cegetel.net " Merci d'avance !!!

J'ai essaiyé plusieurs fois [surligneur] ncopy[/surligneur] mais ça marche pas . J'arrive à sélectionner l'objet à copier apres je valide le 1er point de deplacement puis un 2ème point d'insertion là je valide concusion rien aucune copie.de l'objet. pourtant je le vois bien en copie avt de designer 2ème point là je patine.

Slt Gile, Ok mais tu copies qd les éléménts que tu veux car car tu ouvres Editref je ne peux plus copier d'éléménts donc soucis Tu peux lancer la commande EDITREF (ou double clic sur la xref), tu copies les objets que tu veux, puis tu les "Retire du jeu de sélection" tu enregistres et les objets copiés appartiennent au dessin courant

Bjr, Je voudrais savoir s'il existe un moyen de copier différents éléménts d'un plan en xref sur un plan courant undu style menu "Express". Car je travaille actuellment sur un nouveau projet routier et pour imlantter mon axe priincipal j'aimerai bien recupérer en copie des éféménts de mon fond de plan geomètre qui est en xref. Merci d'avance A+ Phil

Slt pierrotgogo, Ok suis intéressé, tu as déjà mon adresse. Merci d'avance A+ PHIL

Slt Bred, Merci pour l'info ta réponse n'étais pas du tout mauvaise au contraire, C'était cela, Comme quoi à force on ne lit pas tjrs les commandes c'est tellement évident ben oui. Encore merci Phil

Encore un petit problème . Depuis début semaine j'ai un problème qd je dessine une polyligne classique. Autocad me dessine tjrs une épaisseur de 0.80 rien à faire. J'ai regardé mes réglages ds propriété, tt est bon trait continu, epaisseur du calque, j'ai regardé aussi ds option,préférences utillisateur, paramètree dépaiseurs des lignes tt est bon. Et malgré cela a chaque que je dessine une polyligne il me fait une épaisueseur de 0.80 au lieu de 0 comme je veux. Assez gênant je dois dire Quelqu'un a-t-il eu ce type de problème ? Merci d'avance de vos lumières A+ Phil

Merci pierrotgogo J'ai bien reçu ton mail intéresant ma foi tres bien fait et ça donne une idée rapide du dimentionnement, Cela sera utile surment dans mes projets à venir. bon travail Encore merci Phil

Slt Bruno, Je suis d'accord avec toi, mais tu fais comment pour poster un message privé jamais utilisé encore à ce jour ! A+ Phil

Salut pierrotgogo, Je viens de voir ton message et cela m'intéresse vu que je travaille au Conseil Général 22 au services routes. Je te joins mon e-mail pro: LEGOFFPhilippe@cg22.fr Merci d'avance Philippe

Quelqu'un aurait-il une idée sur le moyen de transfomer des polylignes 3D en 2d ( fichier venant de MXROAD sur AUTOCAD). Merci d'avance de vos lumières Phil

Bjr Chirstian, Ok je reconnais sur ton plan c'es tun peu la pagaille mais toi tu fais comment. Moi je travaille tout ds l'onglet OBJET et je gére au niveau de mes présentations ce dont j'ai bessoin pour chaque. Comment faire autrement ? Tu utilises filtres ou un truc comme ça alors ? Quelle méthode pré"conises-tu toi ? Alors as-tu vu mon problème d'échelle de type de ligne ? Moi j'utilise Autocad Map 2006 au boulot. A+ Philippe

Bsr Christian, Tu me dis que " tu ne vois pas l'intérêt encore avec l'onglet OGJET", pourquoi ? Dans quel onglet on doit travailler alors ? Et pourquoi ? Avantage ? J'ai tjrs appris a travailler ds l'onglet OBJET depuis que je travaille sur Autocad (mauvaise formation alors (<acronym class=dict title=) ) " Les présentations pilotes toutes les impressions " , c'est-à-dire ? Qu'appelles-tu présentation pilote ? " Et dans l'onglet objet, comme tous les calques sont visibles c'est une belle pagaille " ? Tu trouves je n'ai que 4 calques de plan et je ne peux pas geler car chaque couche est présent ds chaque présentation au niveau des calques, je ne pense pas que cela soi la pagaille, comment tu ferais toi (exemple). Ce fichier est en construction, car c'est un fichier futur de notre référentiel au niveau des profils type que l'on utilise chez nous au final il devrait y en avoir une bonne trentaine au minimum. As-tu vu mon problème au niveau de l'échelle de certains types de ligne ? De quoi cela peut-il venir ? En espérant avoir quelques réponses ou éclaircissements de la part d'un pro d'Autocad (<acronym class=dict title=) A bientôt et merci d'avance Philippe

Slt Christian, Mon PSLTSCALE est bien égal à 1. Mes présentations sont des profis type à léchelle 10/1. Il n' aque cette astuce qui fonctionne pur que j'ai ma présentation et mon objet idem en terme type de ligne. Je t'ai joint mon fichier ci-dessous http://cjoint.com/?gkrdFBmFa3

Moi sur mon fichier j'ai résolu mon problème en décochant "utiliser les unités d el'espace papier pour une mise à l'échelle" comme quoi le smystères de l'informatique. Mes visus en EP sont identitque à l'EO

Slt, Oui mais le CTB c'es tplus pour l'impression et tu le vois en aperçu imprimante moi mon problème est plutôt une différence entre ma présentation et objet au niveau d'un type de ligne

slt, Mon "ltscale" est de 1.000 Mon espace objet de travail est bon, par contre mon espace objet ds ma présentation n'es tpas bon 'échelle différentes sur un type de ligne spéciale. Par contre qd j'ouvre mon édituer de blocs d emon bloc ds l'espace ojet dema présnetation là c'est bon à nouveau, mais dès que je ferme mon bloc ds tjrs l'espcace objet de ma présentaion là mon type de ligne n'est plus bon (échelle plus fine et petite). C'est vriament bizarre. Mais cela m's tdéjà arrivé d'avoir ce problème sur d'autres fichiers au niveau de certains type de ligne. Je ne saios pas si j'ai été assez clair ds mon explication. Merci d'avance de vos éventeuelles solutions A+