Aller au contenu

lesourd2

Membres
  • Compteur de contenus

    543
  • Inscription

  • Dernière visite

Tout ce qui a été posté par lesourd2

  1. Salut Oui car on pourrait pretendre à ce que les parents pourraient etre pedophiles. Tout est question d'interpretation... Petit rappel du "LARROUSSE" : pedophilie n.f :Attirance sexuelle d'un adulte pour les enfants. Là on ne parle plus d'amour il me semble ? Là on ne parle pas d'intelligence...
  2. lesourd2

    aidons les demi cerveaux

    Salut J'ai bien quelquechose pour t'aider mais cela depends du nombre de texte. @+
  3. Salut Pas à ma connaisssance . Pour ma part à chaque dessin je modifie ces parametres. @+
  4. lesourd2

    d\'un air detaché

    Salut Commande : _externalreferences Dans ton gestionnaire clik droit sur ton fichier image ou XREF puis detacher. @+
  5. Salut Tu veux surement parler des calques non rapprochés? auquel cas clik droit sur le petit symbole entouré puis clic sur parametres de notification du nouveau calque rapproché et decoches "avertir". Pensant t'avoir aidé. @+ http://images3.hiboox.com/images/1308/9orll15k.jpg
  6. lesourd2

    LT Extender 2004

    Salut Alors ça, c'est ce qui s'appelle : ratisser LARGE. Là au moins on ne peut pas le LOUPER Un seul et meme post par FORUM et ça ira bien. Merci et bienvenu. @+
  7. Salut Essaies FILEDIA à 1 . @+
  8. Salut Renseignes toi bien ; notre hp 500+ fonctionne tres bien avec une carte reseau et sur un serveur. Nous sommes 5 "dessus". [Edité le 21/3/2008 par lesourd2]
  9. Salut peps 9 Outils > Options > onglet Controle de l'affichage MEP > Affichage des traits d'axes à decocher. Pas testé. @+
  10. Salut Non pas à ma connaissance. Pour les attributs la commande BURST te permettra de les transformer en simple texte donc de faire des miroirs mais pour les blocs eh ben c'est pas gagné. @+
  11. Salut Regardes dans le gestionnaire de style onglet propriétes d'affichage qui te permet de definir des calques, couleurs, type de trait, echelle de type de ligne, affichage contour, affichage trait d'axe etc... Commande : _AecbDuctSystemDef @+ [Edité le 19/3/2008 par lesourd2]
  12. lesourd2

    modifier attribut

    Salut En les selectionnant tous (clic droit sur un attribut et tu choisis selectionner similaire ) par ex.et dans tes proprietés tu changes tes valeurs. Ou alors si ce sont des attributs de blocs dans l'editeur d'attribut (Cde BATTMAN) onglet options de texte. @+
  13. lesourd2

    Estompage calque verouillé

    Salut Dans ton tableau de bord, en deroulant ta partie calque. Tu peux regler http://images3.hiboox.com/images/1208/pjalqtrl.jpg @+
  14. Salut Qu'est ce qu'il ne fonctionne pas au juste ? Tu ouvres ton fichier avec tes 8 presentations ; clic droit sur un des onglets des presentations : tu choisis de selectionnner toutes les presentations que tu veux imprimer; reclic droit sur un des onglets: tu choisis de publier les presentations selectionnées. Là la fenetre PUBLIER s'ouvre, tu peux encore eventuellement faire des modifs (choix des presentations) et to coches PUBLIER.. Bon courage
  15. Salut à tous J'aimerais savoir comment faire pour obtenir un attribut qui serait la somme des deux comme indiqué dans l'image ci-jointe; de maniere a obtenir un attribut (etiquette cable) en cliquant sur le tenant et l'aboutissant des elements concernés. Merci de votre aide. @+ http://images3.hiboox.com/images/1108/aeydogq3.jpg
  16. lesourd2

    bloc

    Salut Ton bloc est deja dans ton dessin, pour le modifier tu ouvres "l'editeur de bloc".Tu modifies ton bloc dans cet editeur. tu enregistres et tu fermes ton editeur. @+ [Edité le 11/3/2008 par lesourd2]
  17. Salut En rajoutant de la memoire à ton traceur tu solutionneras ton probleme. @+
  18. lesourd2

    hachures automatiques

    Salut lili j'avais meme pas pensé a organiser mes fenetres comme ça.Vachement interressant. J'arrive pas à comprendre comment tu fais ça. tu as toutes tes fenetres les unes au dessus des autres et quand tu passes ta souris sur une des fenetres elle s'ouvre entierement sur toute la hauteur c'est ça ? @+
  19. lesourd2

    Surface

    Salut gueguette Peut-etre un debut de piste par ici. @+
  20. lesourd2

    hachures automatiques

    Salut formula1 Il y a un post à peu pres similaire là. Mais je sais pas si cela pourrais t'aider ; à voir
  21. Salut & Bienvenu tapes LIGNECOMMANDE ou alors tu fais Ctrl 9. @+
  22. lesourd2

    Pause Café ou pause Clope ?

    Boire ou grossir il faut choisir...
  23. lesourd2

    Outil fluo?

    Salut Ce bout de code pourrais peut-etre t'aider. Commande MT ;; CT & MT (gile) 21/11/07 ;; Fonctionnent avec textes simples et multilignes ;; Les paramètres (couleur et la distance de décalage) ;; sont conservées dans le dessin pendant la session ;; CT Encadre les textes sélectionnés ;; Le cadre (polyligne) est placé sur le calque du texte ;; Le décalage, la couleur et la largeur sont paramétrables (defun c:ct (/ of col wid opt par wo n ss n tx elst plst) (vl-load-com) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (or *TextFrameOffset* (setq *TextFrameOffset* (/ (getvar "TEXTSIZE") 5.0)) ) (or *TextFrameColor* (setq *TextFrameColor* (list '(62 . 256))) ) (or *TextFrameWidth* (setq *TextFrameWidth* 0.0) ) (setq of *TextFrameOffset* col *TextFrameColor* wid *TextFrameWidth* ) (while (and (princ (strcat "\nDécalage: " (rtos of) "\tCouleur: " (TrueColor2String col) "\tLargeur: " (rtos wid) "\nSélectionnez les textes ou ." ) ) (not (setq ss (ssget '((0 . "MTEXT,TEXT"))))) ) (initget 1 "Décalage Couleur Largeur") (setq par (getkword "\nChoix de l'option [Décalage/Couleur/Largeur]: " ) ) (cond ((= par "Couleur") (if (< 15 (atoi (substr (getvar "ACADVER") 1 2))) (if (setq col (acad_truecolordlg (cond ((assoc 420 col)) ((assoc 62 col)) ) ) ) (setq *TextFrameColor* col) (setq col *TextFrameColor*) ) (if (setq col (acad_colordlg (cdr (assoc 62 col)))) (setq *TextFrameColor* (setq col (list (cons 62 col)))) (setq col *TextFrameColor*) ) ) ) ((= par "Décalage") (if (setq of (getdist (strcat "\nSpécifiez le décalage du cadre <" (rtos of) ">: " ) ) ) (setq *TextFrameOffset* of) (setq of *TextFrameOffset*) ) ) (T (if (setq wid (getdist (strcat "\nSpécifiez la largeur du cadre <" (rtos wid) ">: " ) ) ) (setq *TextFrameWidth* wid) (setq wid *TextFrameWidth*) ) ) ) ) (setq n -1) (vla-StartUndoMark *acdoc*) (while (setq tx (ssname ss (setq n (1+ n)))) (setq elst (entget tx) plst (text2box-plst elst of) ) (make-frame elst col wid plst) ) (vla-EndUndoMark *acdoc*) (princ) ) ;; ==========================================================;; ;; MT Place un masque derrière les textes sélectionnés ;; Le masque (hachure SOLID ou wipeout) est placé sur le calque du texte ;; Le décalage , la couleur et le type de masque sont paramétrables (defun c:mt (/ of col par n ss tx elst plst olst space sort) (vl-load-com) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (or *TextMaskOffset* (setq *TextMaskOffset* (/ (getvar "TEXTSIZE") 5.0)) ) (or *TextMaskColor* (setq *TextMaskColor* (list '(62 . 5))) ) (setq of *TextMaskOffset* col *TextMaskColor* ) (while (and (princ (strcat "\nDécalage: " (rtos of) "\tCouleur: " (TrueColor2String col) "\nSélectionnez les textes ou ." ) ) (not (setq ss (ssget '((0 . "MTEXT,TEXT"))))) ) (initget 1 "Décalage Couleur Wipeout") (setq par (getkword "\nChoix de l'option [Décalage/Couleur/Wipeout]: " ) ) (cond ((= par "Wipeout") (setq *TextMaskColor* (setq col (list (cons 430 "Wipeout")))) ) ((= par "Couleur") (if (< 15 (atoi (substr (getvar "ACADVER") 1 2))) (if (setq col (acad_truecolordlg (cond ((assoc 420 col)) ((assoc 62 col)) (T '(62 . 5)) ) ) ) (setq *TextMaskColor* col) (setq col *TextMaskColor*) ) (if (setq col (acad_colordlg (cond ((cdr (assoc 62 col))) (T 5) ) ) ) (setq *TextMaskColor* (setq col (list (cons 62 col)))) (setq col *TextMaskColor*) ) ) ) (T (setq of (getdist (strcat "\nSpécifiez le décalage du cadre <" (rtos of) ">: " ) ) ) (setq *TextMaskOffset* of) (setq of *TextMaskOffset*) ) ) ) (setq n -1) (vla-StartundoMark *acdoc*) (while (setq tx (ssname ss (setq n (1+ n)))) (setq elst (entget tx) plst (text2box-plst elst of) olst (cons (vlax-ename->vla-object tx) olst) ) (make-mask elst col plst) ) (setq space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace *acdoc*) (vla-get-ModelSpace *acdoc*) ) ) (if (vl-catch-all-error-p (setq sort (vl-catch-all-apply 'vla-item (list (vla-getExtensionDictionary space ) "ACAD_SORTENTS" ) ) ) ) (setq sort (vla-addObject (vla-getExtensionDictionary space ) "ACAD_SORTENTS" "AcDbSortentsTable" ) ) ) (vlax-invoke sort 'MoveToTop olst) (vla-EndUndoMark *acdoc*) (princ) ) ;; ==========================================================;; ;; Text2Box-plst ;; Retourne la liste des sommets (coordonnées SCO) de la boite ;; englobant le texte après décalage ;; ;; Arguments ;; elst : liste DXF de l'entité ;; of : distance de décalage (defun Text2box-plst (elst of / nor ref rot wid hgt jus org box plst) (if (= "MTEXT" (cdr (assoc 0 elst))) (setq nor (cdr (assoc 210 elst)) ref (trans (cdr (assoc 10 elst)) 0 nor) rot (angle '(0 0 0) (trans (cdr (assoc 11 elst)) 0 nor)) wid (cdr (assoc 42 elst)) hgt (cdr (assoc 43 elst)) jus (cdr (assoc 71 elst)) org (list (cond ((member jus '(2 5 8)) (/ wid -2)) ((member jus '(3 6 9)) (- wid)) (T 0.0) ) (cond ((member jus '(1 2 3)) (- hgt)) ((member jus '(4 5 6)) (/ hgt -2)) (T 0.0) ) ) plst (mapcar (function (lambda (p) (mapcar '+ org p) ) ) (list (list (- of) (- of)) (list (+ wid of) (- of)) (list (+ wid of) (+ hgt of)) (list (- of) (+ hgt of)) ) ) ) (setq box (textbox elst) ref (cdr (assoc 10 elst)) rot (cdr (assoc 50 elst)) plst (list (list (- (caar box) of) (- (cadar box) of)) (list (+ (caadr box) of) (- (cadar box) of)) (list (+ (caadr box) of) (+ (cadadr box) of)) (list (- (caar box) of) (+ (cadadr box) of)) ) ) ) (setq mat (list (list (cos rot) (- (sin rot)) 0) (list (sin rot) (cos rot) 0) '(0 0 1) ) plst (mapcar (function (lambda (p) (mapcar '+ (mxv mat p) (list (car ref) (cadr ref))) ) ) plst ) ) ) ;; ==========================================================;; ;; Make-Frame ;; Crée une polyligne encadrant le texte ;; ;; Arguments ;; elst : liste DXF de l'entité ;; col : couleur de la polyligne ;; plst : liste des sommets (defun make-frame (elst col wid plst / nor elv) (setq nor (cdr (assoc 210 elst))) (if (= "MTEXT" (cdr (assoc 0 elst))) (setq elv (caddr (trans (cdr (assoc 10 elst)) 0 nor))) (setq elv (caddr (cdr (assoc 10 elst)))) ) (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") (assoc 8 elst) (if (and (< 15 (atoi (substr (getvar "ACADVER") 1 2))) (assoc 420 col) ) (assoc 420 col) (assoc 62 col) ) '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 43 wid) (cons 38 elv) (cons 210 nor) ) (mapcar (function (lambda (x) (cons 10 x))) plst) ) ) ) ;; ==========================================================;; ;; Make-Mask ;; Crée une hachure SOLID figurant un masque d'arrière plan ;; ;; Arguments ;; elst : liste DXF de l'entité texte ;; col : couleur de la hachure ;; plst : liste des sommets (defun make-mask (elst col plst / nor elv) (setq nor (cdr (assoc 210 elst))) (if (= "MTEXT" (cdr (assoc 0 elst))) (setq elv (caddr (trans (cdr (assoc 10 elst)) 0 nor))) (setq elv (caddr (cdr (assoc 10 elst)))) ) (if (= (cdr (assoc 430 col)) "Wipeout") (MakeWipeout (mapcar (function (lambda (p) (list (car p) (cadr p) elv) ) ) plst ) nor (cdr (assoc 8 elst)) ) (entmake (list '(0 . "HATCH") '(100 . "AcDbEntity") (assoc 8 elst) (if (and (< 15 (atoi (substr (getvar "ACADVER") 1 2))) (assoc 420 col) ) (assoc 420 col) (assoc 62 col) ) '(100 . "AcDbHatch") (list 10 0.0 0.0 elv) (cons 210 nor) '(2 . "SOLID") '(70 . 1) '(71 . 0) '(91 . 1) '(92 . 1) '(93 . 4) '(72 . 1) (cons 10 (car plst)) (cons 11 (cadr plst)) '(72 . 1) (cons 10 (cadr plst)) (cons 11 (caddr plst)) '(72 . 1) (cons 10 (caddr plst)) (cons 11 (cadddr plst)) '(72 . 1) (cons 10 (cadddr plst)) (cons 11 (car plst)) '(97 . 0) '(75 . 0) '(76 . 1) '(98 . 1) '(10 0.0 0.0 0.0) ) ) ) ) ;; ==========================================================;; ;; MakeWipeout crée un objet "wipeout" à partir d'une liste de points et du vecteur normal de l'objet (defun MakeWipeout (pt_lst nor lay / dxf10 max_dist cen dxf_14) (or (member "acwipeout.arx" (arx)) (arxload "acwipeout.arx") ) (setq dxf10 (list (apply 'min (mapcar 'car pt_lst)) (apply 'min (mapcar 'cadr pt_lst)) (caddar pt_lst) ) ) (setq max_dist (float (apply 'max (mapcar '- (apply 'mapcar (cons 'max pt_lst)) dxf10) ) ) ) (setq cen (mapcar '+ dxf10 (list (/ max_dist 2) (/ max_dist 2) 0.0))) (setq dxf14 (mapcar '(lambda (p) (mapcar '/ (mapcar '- p cen) (list max_dist (- max_dist) 1.0) ) ) pt_lst ) ) (setq dxf14 (reverse (cons (car dxf14) (reverse dxf14)))) (entmake (append (list '(0 . "WIPEOUT") '(100 . "AcDbEntity") (cons 8 lay) '(100 . "AcDbWipeout") '(90 . 0) (cons 10 (trans dxf10 nor 0)) (cons 11 (trans (list max_dist 0.0 0.0) nor 0)) (cons 12 (trans (list 0.0 max_dist 0.0) nor 0)) '(13 1.0 1.0 0.0) '(70 . 7) '(280 . 1) '(71 . 2) (cons 91 (length dxf14)) ) (mapcar '(lambda (p) (cons 14 p)) dxf14) ) ) ) ;; ==========================================================;; ;; Applique une matrice de transformation à un vecteur (Vladimir Nesterovsky) (defun mxv (m v) (mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m ) ) ;; ==========================================================;; ;; Retourne une chaîne indiquant l'index de la couleur ou les valeurs RVB (defun TrueColor2String (lst / ind) (setq ind (cond ((cdr (assoc 430 lst))) ((cdr (assoc 420 lst))) ((cdr (assoc 62 lst))) (T 256) ) ) (cond ((= (type ind) 'STR) ind) ((= ind 256) "DuCalque") ((= ind 0) "DuBloc") ((< 256 ind) (strcat (itoa (lsh ind -16)) "," (itoa (lsh (lsh ind 16) -24)) "," (itoa (lsh (lsh ind 24) -24)) ) ) ((itoa ind)) ) )Merci (gile)! @+ [Edité le 27/2/2008 par lesourd2]
  24. Salut Non deja essayé. DBLCLKEDIT n'ouvre aucune fenetre avec la valeur 0. Peut-etre; un collegue qui est aussi passé à la v.2008 n'a pas ce probleme.Je continue d'essayer. @+
  25. lesourd2

    ligne de commande

    Salut houhou C'est vrai aussi. Comme ça tu as les 2 possibilités.
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité