Aller au contenu

lesourd2

Membres
  • Compteur de contenus

    543
  • Inscription

  • Dernière visite

Tout ce qui a été posté par lesourd2

  1. lesourd2

    découpage de xref

    Salut philsogood Tramber a raison, la mainip est bonne, j'ai reproduit ton besoin et ça marche. Si tu vois une seule Xref c'est que tu les inseres au meme point ( l'une sur l'autre). Et c'est normal que tu es une seule Xref d'affichée dans ton gestionnaire vu que c'est la meme. @+
  2. lesourd2

    trait multicolor

    Salut voir ici une piste
  3. lesourd2

    trait multicolor

    Salut peut-etre une reponse ici. @+
  4. salut Change la valeur de ta variable SDI @+
  5. lesourd2

    poliligne multicouleur

    Salut, Comment dois-je le prendre? Je confirme "ça marche". J'ai juste retransmis le savoir et le travail d'un pro.
  6. lesourd2

    poliligne multicouleur

    Salut à tous Moi j'ai ça a vous proposer (defun c:mp(/ Cmd Co Coo Compt ep Lg os Pt1 Pt2 Pts Pas s) (defun *errmp* (msg) (if (/= msg "Function cancelled") (if (= msg "quit / exit abort") (princ) (princ (strcat "\nErreur : " msg)) ) (princ) ) (if os (setvar "osmode" os) ) (setvar "cecolor" coo) (command "_.undo" "_end") (setvar "cmdecho" Cmd) (setq *error* s) (princ) ) (defun cg_co() (setvar "cecolor" (itoa Co)) ;;permet de changer la valeur de la premiere couleur;; (if (= Co 131) ;;permet de changer la valeur de la deuxieme couleur;; (setq Co 213) (setq Co 131) ) ) (setq s *error*) (setq *error* *errmp*) (setq Cmd (getvar "cmdecho") Coo (getvar "cecolor")) (setvar "cmdecho" 0) (setq Ep (getstring (strcat "\nEpaisseur des polylignes <" (rtos (getvar "plinewid")) "> : "))) (if Ep (setvar "plinewid" (atof Ep)) ) ;;permet de changer la valeur de la couleur du premier troncon;; (setq Pt1 (getpoint "\nPremier point : ") Pt2 '(0.0 0.0 0.0) Co 10 Compt 0) (if Pt1 (progn (setq Pts (list (cons 0 Pt1))) (while Pt2 (initget "Undo") (setq Pt2 (getpoint Pt1 "\nPoint suivant / Undo : ")) (if Pt2 (progn (if (= Pt2 "Undo") (progn (if (/= Compt 0) (progn (command "_.undo" "1") (setq Pts (vl-remove (assoc Compt Pts) Pts) Compt (1- Compt) Pt1 (cdr (assoc Compt Pts))) ) (princ "\nRien à annuler") ) ) (progn (command "_.undo" "_group") (setq os (getvar "osmode")) (setvar "osmode" 0) (setq Pas 0 Lg (* (getvar "ltscale") 5)) (while (< Pas (- (distance Pt1 Pt2) Lg)) (cg_co) (command "_.pline" (if (= Pas 0) Pt1 "@" ) (strcat "@" (rtos Lg) "<" (angtos (angle Pt1 Pt2) 0 16)) "") (setq Pas (+ Pas Lg)) ) (cg_co) (command "_.pline" "@" Pt2 "") (setvar "osmode" os) (setvar "cecolor" coo) (command "_.undo" "_end") (setq Pt1 Pt2 Compt (1+ Compt) Pts (append Pts (list (cons Compt Pt2)))) ) ) ) ) ) ) ) (setvar "cmdecho" Cmd) (setq *error* s) (princ) ) Merci à son Auteur @+
  7. lesourd2

    tracer N&B de couleur RVB

    Salut CDL, OUI , Il faut ouvrir l'editeur de la table des styles de trace. @+
  8. Salut, J'espere avoir compris Commande BURST @+
  9. lesourd2

    ajuster bloc sur bloc

    Merci à tous pour vos reponses @+
  10. lesourd2

    ajuster bloc sur bloc

    je n'arrive pas a conserver la superposition en grisé du second bloc
  11. lesourd2

    ajuster bloc sur bloc

    Salut laud69 Le souci c'est que l'on perd la superposition du bloc sur l'autre, et on ne vois plus où ajuster On ne modifie qu'un seul bloc à la fois.
  12. lesourd2

    ajuster bloc sur bloc

    Salut Lecrabe, J'y ai bien pense au WipeOut, mais bon , pas tres pratique je trouve. J'ai pas reussi a trouver la solution ideale Merci quand meme.
  13. Salut à tous Quelqu'un pourrait-il me dire comment ajuster un bloc sur un autre bloc sans etre obligé d'en decomposer un des deux. Merci de vos reponses. @+ [Edité le 21/12/2009 par lesourd2]
  14. lesourd2

    fond d\'écran

    Salut Outils => Options => Dessin => et là tu cliques sur le bouton COULEURS e tensuite tu choisis ton parametrage. @+
  15. lesourd2

    Importer une presentation

    Salut Dans Outils => Options => fichiers => Parametres de gabarit => Nom de fichier de gabarit par defaut pour RAPNOUV, tu enregistres le chemin ou se trouve ton gabarit sauvegardé et pour chaque nouveau dessin tu tapes RAPNOUV et ton gabarit s'insere automatiquement. @+
  16. Salut Essaies dans un premier temps : LAYOUTREGENCTL à 2 ( pour eviter de regenerer systematiquement). @+
  17. Salut Les lisp MIM ou MPL sur cette page. @+
  18. Salut Mon defaut, jamais d'accent, et pour on dira que mon doigt gauche a "bugger" idem pour .Quant à : , j'assume. Merci
  19. Salut Cela peut aller tres loin, la ponctuation a aussi une tres grande importance dans la langue française, . Pensez à la celebre phrase lors de la bataille de FONTENOY quand le Comte d'AUTEROCHE annonce : Messieurs les Anglais, tirez les premiers ! Messieurs, les Anglais, tirez les premiers ! A la courtoisie et politesse le carnage peut s'inverser non ? Et auusi la ponctuation... @+
  20. lesourd2

    deux couleur

    SALUT Ce petit bout de code te convient -il ? (defun c:mp(/ Cmd Co Coo Compt ep Lg os Pt1 Pt2 Pts Pas s) (defun *errmp* (msg) (if (/= msg "Function cancelled") (if (= msg "quit / exit abort") (princ) (princ (strcat "\nErreur : " msg)) ) (princ) ) (if os (setvar "osmode" os) ) (setvar "cecolor" coo) (command "_.undo" "_end") (setvar "cmdecho" Cmd) (setq *error* s) (princ) ) (defun cg_co() (setvar "cecolor" (itoa Co)) ;;permet de changer la valeur de la premiere couleur;; (if (= Co 131) ;;permet de changer la valeur de la deuxieme couleur;; (setq Co 213) (setq Co 131) ) ) (setq s *error*) (setq *error* *errmp*) (setq Cmd (getvar "cmdecho") Coo (getvar "cecolor")) (setvar "cmdecho" 0) (setq Ep (getstring (strcat "\nEpaisseur des polylignes <" (rtos (getvar "plinewid")) "> : "))) (if Ep (setvar "plinewid" (atof Ep)) ) ;;permet de changer la valeur de la couleur du premier troncon;; (setq Pt1 (getpoint "\nPremier point : ") Pt2 '(0.0 0.0 0.0) Co 10 Compt 0) (if Pt1 (progn (setq Pts (list (cons 0 Pt1))) (while Pt2 (initget "Undo") (setq Pt2 (getpoint Pt1 "\nPoint suivant / Undo : ")) (if Pt2 (progn (if (= Pt2 "Undo") (progn (if (/= Compt 0) (progn (command "_.undo" "1") (setq Pts (vl-remove (assoc Compt Pts) Pts) Compt (1- Compt) Pt1 (cdr (assoc Compt Pts))) ) (princ "\nRien à annuler") ) ) (progn (command "_.undo" "_group") (setq os (getvar "osmode")) (setvar "osmode" 0) (setq Pas 0 Lg (* (getvar "ltscale") 5)) (while (< Pas (- (distance Pt1 Pt2) Lg)) (cg_co) (command "_.pline" (if (= Pas 0) Pt1 "@" ) (strcat "@" (rtos Lg) "<" (angtos (angle Pt1 Pt2) 0 16)) "") (setq Pas (+ Pas Lg)) ) (cg_co) (command "_.pline" "@" Pt2 "") (setvar "osmode" os) (setvar "cecolor" coo) (command "_.undo" "_end") (setq Pt1 Pt2 Compt (1+ Compt) Pts (append Pts (list (cons Compt Pt2)))) ) ) ) ) ) ) ) (setvar "cmdecho" Cmd) (setq *error* s) (princ) ) @+
  21. Salut De toutes façons, ça, c'est le probleme des departements "charnieres" entre deux regions. Les nordistes du departement se sentiront plus bretons et les sudistes plus vendeens. @+
  22. Salut La Loire-Atlantique revient "au pays" et "redevient bretonne apres 68 ans d'exil en region Pays de Loire ( merci Marechal PETAIN). Les Nantais y sont defavorables par contre les Bretons pour, si si .... @+
  23. Salut En faisant une recherche sur le site tu devrais trouvrer des infos ici par exemple . @+
  24. lesourd2

    regénération

    Salut Cde LAYOUTREGENCTL à 0; 1 ou 2. Extrait de l'aide . @+
  25. Salut . Entierement d'accord Eh oui rien a faire c'est ça AutoCAD.....
×
×
  • 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é