lesourd2
Membres-
Compteur de contenus
543 -
Inscription
-
Dernière visite
Type de contenu
Profils
Forums
Calendrier
Blogs
Tout ce qui a été posté par lesourd2
-
Salut . Entierement d'accord Eh oui rien a faire c'est ça AutoCAD.....
-
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]
-
Salut Je n'ai que des manuelles en cuisine. Désolé @+
-
Salut . manuelle ou pneumatique? @+
-
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. @+
-
Sondage - qui a reçu un mailing de Solidworks ?
lesourd2 a répondu à un(e) sujet de Pieroka dans Pause café
Salut +1 ; reçu le 03/02/09. -
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. @+
-
Salut ici
-
Texte MAGIQUE !!! visite de mon Musée des Horreurs !!!
lesourd2 a répondu à un(e) sujet de rebcao dans AutoCAD LT 2007
Salut . Moi je pense au C de Cadxp. Me trompe-je -
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)) ) ) ) ) @+
-
Salut Le principe de la majorité qui l'emporte toujours. @+
-
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. @+
-
Salut Je ne vois pas trop le probleme, en effet à chaque changement d'imprimante, son changement de mise en page, normal !... Désolé @+
-
Salut à lire si ce n'est deja fait . @+
-
Livre Lisp pour les Nuls
lesourd2 a répondu à un(e) sujet de phil_vsd dans Pour aller plus loin en LISP
Salut Gile Merci. @+ -
Livre Lisp pour les Nuls
lesourd2 a répondu à un(e) sujet de phil_vsd dans Pour aller plus loin en LISP
Salut . Pratiquement en face des meilleurs chichis de Marseille (baraque bleue, pas la rouge). @+ -
Salut à toutes & à tous Il n'est jamais trop tard pour bien faire et à mon tour de vous adresser mes meilleurs voeux. Sincerement. @+
-
Salut Question bete : As tu pense a "enregister sous" ton espace de travail modifié ? @+
-
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) ) @+
-
accroche-toi au pinceau, j\'enleve l\'echelle
lesourd2 a répondu à un(e) sujet de fograf02 dans AutoCAD 2009
Salut C'est F3 -
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.... @+
-
Salut Cela depend des systemes metriques( aglo-saxon). Seul le t'interreses et tu peux supprimer l'autre
-
Salut Ne serait tu pas dans l'espace objet de ta presentation ?
-
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. @+
-
ameliorer insertion bloc
lesourd2 a répondu à un(e) sujet de pascal19 dans Personnalisation, macros, DIESEL
Salut C'est quoi ce lien "pourri" A lire http://images.imagehotel.net/melqlnyae0.jpg
