Aller au contenu

lesourd2

Membres
  • Compteur de contenus

    543
  • Inscription

  • Dernière visite

Tout ce qui a été posté par lesourd2

  1. Salut . Entierement d'accord Eh oui rien a faire c'est ça AutoCAD.....
  2. Salut Developpes, precises et mets-y un peu plus de forme,et on verras ce que l'on peut faire pour toi @+ [Edité le 11/2/2009 par lesourd2]
  3. lesourd2

    vanne a manchon

    Salut Je n'ai que des manuelles en cuisine. Désolé @+
  4. lesourd2

    vanne a manchon

    Salut . manuelle ou pneumatique? @+
  5. lesourd2

    Déplacer cote!

    Salut Moi je place le texte de cote à l'endroit choisi : Dans gestionnaire de style de cotes =>onglet ajuster => fenetre ajustement => cocher : placer le texte manuellemnt. @+
  6. Salut +1 ; reçu le 03/02/09.
  7. lesourd2

    Cotation

    Salut Oui avec ce petii Lisp (merci a son auteur) (defun c:tcot(/ sel tot) (vl-load-com) (setq tot 0) (princ "\nVeuillez sélectionner des cotes : " ) (and (ssget (list (cons 0 "DIMENSION"))) (progn (vlax-map-collection (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) '(lambda (x) (setq tot (+ tot (vla-get-measurement x)))) ) (vla-delete sel) (princ (strcat "\nCumul des cotes : " (rtos tot))) ) ) (princ) ) Et pour extraire c'est classique => Outils => extraction de donnees. @+
  8. lesourd2

    PROGRAMME DE VECTORISATION

    Salut ici
  9. Salut . Moi je pense au C de Cadxp. Me trompe-je
  10. lesourd2

    pivoter presentation

    Saut Sinon il y a aussi ceci: ;;permet de pivoter une fenetre dans l'EP (defun c:frv (/ ACDOC CENTRE-FENETRE CUSTOM-SCALE ENT-FEN FENETRE HAUT LARG NEW-TARGET REPERE-FEN-ACTIVE TARGET TWIST-ANGLE VLA-FENETRE) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (= (vla-get-ActiveSpace AcDoc) 1) (princ "\n ** Cette commande n'est valable que dans l'espace papier. **") (progn (if (= (vla-get-Mspace AcDoc) :vlax-false) (progn ; selectionner une fenêtre (while (not (and (setq fenetre (car (entsel "\n Sélectionner une fenêtre :"))) (or (equal (cdr (assoc 0 (entget fenetre))) "VIEWPORT") (equal (cdr (assoc 0 (entget (cdr (assoc 330 (entget fenetre)))))) "VIEWPORT"))))) (setq ent-fen (entget fenetre)) (if (not (equal (cdr (assoc 0 (entget fenetre))) "VIEWPORT")) (setq fenetre (cdr (assoc 330 (entget fenetre))))) (setq vla-fenetre (vlax-ename->vla-object fenetre)) (vla-put-Mspace AcDoc :vlax-true) (vla-put-ActivePViewport AcDoc vla-fenetre) ) (progn ; selection fenêtre active (setq vla-fenetre (vla-get-ActivePViewport AcDoc) repere-fen-active "OK") ) ) ;; Centre de la fenêtre dans le SCG (setq centre-fenetre (getvar "VIEWCTR")) (vla-put-Mspace AcDoc :vlax-false) (setq Haut (vla-get-Height vla-fenetre) Larg (vla-get-Width vla-fenetre) custom-scale (vla-get-CustomScale vla-fenetre) Twist-Angle (vla-get-TwistAngle vla-fenetre) Target (vlax-get vla-fenetre 'Target)) ;; Calcul de la nouvelle cible en fonction de la rotation (setq new-target (polar centre-fenetre (+ (angle centre-fenetre Target) (/ pi 2)) (distance centre-fenetre Target))) (vla-put-TwistAngle vla-fenetre (+ Twist-Angle (/ pi -2))) (vla-put-Target vla-fenetre (vlax-3d-point new-target)) (vla-put-Height vla-fenetre Larg) (vla-put-Width vla-fenetre Haut) (vla-put-CustomScale vla-fenetre custom-scale) (if (equal repere-fen-active "OK") (progn (vla-put-Mspace AcDoc :vlax-true) (vla-Regen acDoc acActiveViewport)) ) ) ) ) @+
  11. lesourd2

    pause matin

    Salut Le principe de la majorité qui l'emporte toujours. @+
  12. Salut Ce gabarit qui sera "chargé" automatiquement à chaque ouverture de nouveau dessin à condition de lui indiquer le chemin => Outils =>Options=>Fichiers=>Parametres de gabarit=>Nom DE fichier de gababrit par defaut pour RAPNOUV. @+
  13. Salut Je ne vois pas trop le probleme, en effet à chaque changement d'imprimante, son changement de mise en page, normal !... Désolé @+
  14. Salut à lire si ce n'est deja fait . @+
  15. Salut Gile Merci. @+
  16. Salut . Pratiquement en face des meilleurs chichis de Marseille (baraque bleue, pas la rouge). @+
  17. Salut à toutes & à tous Il n'est jamais trop tard pour bien faire et à mon tour de vous adresser mes meilleurs voeux. Sincerement. @+
  18. Salut Question bete : As tu pense a "enregister sous" ton espace de travail modifié ? @+
  19. lesourd2

    prob de couleur !!!

    Salut Un Lisp de (gile) qui peut t'aider. ;;;Deux commandes : ;;;xref-color-set : remplace la couleur de tous les calques de la xref sélectionnée par la couleur spécifiée (il faut que les objets de la xref soient en DuCalque, mais de cette façon on intervient que sur la référence dans le dessin, pas sur le fichier original). Les couleurs originales des calques sont conservées dans un dictionnaire lié à la xref. ;;;xref-color-restore permet de restaurer leurs couleurs originales aux calques depuis le dictionnaire même après fermeture et enregistrement du dessin. (defun c:xref-color-set (/ acdoc xrf col lst) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (and (setq xrf (car (entsel "\nSélectionnez la référence externe: "))) (setq xrf (vlax-ename->vla-object xrf)) (= (vla-get-ObjectName xrf) "AcDbBlockReference") (setq col (acad_colordlg 8 nil)) ) (progn (vla-StartUndoMark acdoc) (vlax-for l (vla-get-Layers acdoc) (and (wcmatch (vla-get-Name l) (strcat (vla-get-Name xrf) "|*")) (setq lst (cons (cons (vla-get-Name l) (vla-get-color l)) lst)) (vla-put-color l col) ) ) (or (vlax-ldata-get xrf "laycol") (vlax-ldata-put xrf "laycol" lst) ) (vla-EndUndoMark acdoc) ) ) (princ) ) (defun c:xref-color-restore (/ acdoc xrf lst) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (and (setq xrf (car (entsel "\nSélectionnez la référence externe: "))) (setq xrf (vlax-ename->vla-object xrf)) (= (vla-get-ObjectName xrf) "AcDbBlockReference") (setq lst (vlax-ldata-get xrf "laycol")) ) (progn (vla-StartUndoMark acdoc) (vlax-for l (vla-get-Layers acdoc) (if (setq pair (assoc (vla-get-Name l) lst)) (vla-put-color l (cdr pair)) ) ) (vlax-ldata-delete xrf "laycol") (vla-EndUndoMark acdoc) ) ) (princ) ) @+
  20. Salut C'est F3
  21. lesourd2

    onglet présentation

    Salut Si j'ai bien compris tu veux dessiner une fleche dans ta presentation ( EP) à cote de ta fenetre ; Redimensiones ta fenetre pour pouvoir dessiner ta fleche.... @+
  22. lesourd2

    mep DACH

    Salut Cela depend des systemes metriques( aglo-saxon). Seul le t'interreses et tu peux supprimer l'autre
  23. lesourd2

    zoom et blocage

    Salut Ne serait tu pas dans l'espace objet de ta presentation ?
  24. lesourd2

    Echelle

    Salut Un bloc (wbloc) inseré dans un dessin et modifié en echelle ne le sera uniquement que dans ton dessin. Le fichier original ne bouge pas. @+
  25. Salut C'est quoi ce lien "pourri" A lire http://images.imagehotel.net/melqlnyae0.jpg
×
×
  • 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é