Patrick_35

En règle générale, rien n'est gratuit en ce bas monde ;) On est deux alors. Non, bien au contraire. Tu entres dans la cour "des grands" avec des possibilités :DJ'avais par exemple réussi à envoyer des messages avec des expéditeurs farfelus (juste pour le fun), faire parler notre totocad, etc... @+

Juste une petite chose, n'oublie pas d'effacer le jeu de sélection car après plusieurs appel à activeselectionset, ben le lisp plante. Pourquoi ? Je n'en sais rien. La seule parade que j'ai trouvé et donc de d'effacer systématiquement le jeu de sélection @+

Salut Jolie routine J'ajoute mon grain de sel pour utiliser activeselectionset et éviter ainsi les conversions du type vlax-ename->vla-object, ssnamex (defun bv:ListInters (ss / lst obj sel) (vlax-for obj (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (setq lst (cons obj lst)) ) (vla-delete sel) (remove_doubles (apply 'append (mapcar '(lambda (x) (bv:xyz->Pt (vlax-invoke (car x) 'IntersectWith (cadr x) 0 ) ) ) (bv:matches lst ) ) ) ) ) @+

Salut Regarde la fonction lisp getfiled ps : (car (cdr valint)) = (cadr valint) pps : Pourquoi un progn dans le lisp ? ppps : Dans la variable valint, tu peux avoir plusieurs coordonnées car deux polylignes peuvent se croiser plusieurs fois @+

Un exemple pour un zoom fenêtre sans modifier la variable dbmod (normalement à zéro lors de l'ouverture d'un dessin) (acad-push-dbmod)(vl-cmdf "_.zoom" "_window" (setq pt (getpoint)) (getcorner pt))(acad-pop-dbmod) ps : la commande peut-être placée dans un bouton @+

Salut Tu peux me donner un exemple qui plante pour que je regarde ? @+

Salut Pour rebondir sur ce qu'a donné Didier, mais qui fonctionne aussi avec des arcs, splines, etc... (vlax-invoke (vlax-ename->vla-object l1) 'IntersectWith (vlax-ename->vla-object l2) 0) @+

Salut On peut faire un lisp en jouant avec la variable dbmod @+

Salut Tu as une option pour redéfinir ou pas les attributs @+

Bonjour Fond noir. Et pour Excel, Word, Notepad, etc.. Fond gris @+

Salut Par exemple (defun c:maj(/ att bl js n val) (if (setq js (ssget "x" (list (cons 0 "insert") (cons 2 "Cart_A3_Hyd") (cons 66 1)))) (progn (setq n 0) (while (setq bl (ssname js n)) (setq att (entget (entnext bl))) (while (/= (cdr (assoc 0 att)) "SEQEND") (if (= (cdr (assoc 2 att)) "DATE_DE_L'OFFRE") (progn (setq att (subst (cons 1 "Nouvelle Date") (assoc 1 att) att)) (entmod att) (setq att (list (cons 0 "SEQEND"))) ) (setq att (entget (entnext (cdr (assoc -1 att))))) ) ) (setq n (1+ n)) ) ) (alert "le Bloc Cart_A3_Hyd n'est pas unique dans le dessin\n Abandon") ) ) @+

Complètement d’accord C'est vraiment très pratique ces onglets Un seul regret, ce sont des arx et du coup, on est maqué avec la version d'autocad. :( Peut-être que notre gilou national nous sortira une dll de derrière les fagots pour passer outre à ces versions :D @+

Salut Avec ce sujet ? @+

Salut Alors cela veut dire qu'il y a un problème avec la 2012, mais étant sur une 2009, difficile de dire :( @+

Salut (setq ptxt (vlax-get wsel 'Paragraphs)) (vlax-put ptxt 'Alignment 1) ps : pour t'aider, une recherche sur google avec comme mots clé createobject, Word.Application et centrer @+

Salut Je pense que modif_poly est un lisp et qu'il doit y avoir conflit avec Rea. Il faudrait que j'ai à disposition ce lisp pour voir où se trouve le problème ou utiliser un autre lisp comme TotalArea ou TotalPerim dans les Lisps de (gile) @+

Autant pour moi, je ne connaissais pas le verbe sous ce sens. Moi qui voulais te taquiner un tantinet B) @+

Salut ;; récupérer un nom de fichier (setq filename (getfiled "Créer un fichier Word" "" "doc" 1)) ;; obtenir ou créer une intance de l'application (setq wapp (vlax-get-or-create-object "Word.Application")) ;; Rendre word visible (vla-put-visible wapp :vlax-true) ;; obtenir les documents (setq wdocs (vlax-get-property wapp 'Documents)) ;; créer un nouveau document (setq wdoc (vlax-invoke-method wdocs 'Add)) ;; obtenir la sélection (ou le curseur) (setq wsel (vlax-get-property wapp 'Selection)) ;; Récuper le style courant (setq wtxt (vlax-get wsel 'Font)) ;; Changer la hauteur à 14 (vlax-put wtxt 'Size 14) ;; Faire du texte en gras (vlax-put wtxt 'Bold :vlax-true) ;; Faire du texte en italique (vlax-put wtxt 'Italic :vlax-true) ;; Changer le style de texte en Arial (vlax-put wtxt 'Name "Arial") ;; Entrer du texte (vlax-invoke-method wsel 'TypeText "Ceci est un test") ;; sauver le fichier (vlax-invoke-method wdoc 'SaveAs filename) ;; fermer le document (vlax-invoke-method wdoc 'Close) ;; quitter l'application (vlax-invoke-method wapp 'Quit) ;; supprimer l'instance et nettoyer la mémoire (indispensable) (vlax-release-object wapp) (gc) @+

Salut A te lire, ce n'est donc pas la première fois que ce satellite tombe dans le pacifique. Si c'est donc une récidive, ce fameux satellite veux absolument avoir quelqu'un :P Cela ramène alors les probabilités à 1.600 personnes pour un second essai ;) @+

Salut Oui, il suffit lors de la mise en page de cocher Afficher styles de tracé, juste en dessous du choix du style de tracé. @+

Juste une chose. J'ai ajouté l'option Activer la notification par courriel lors de réponses ? pour ce post. Eh bien ça ne marche pas :huh: @+

Salut Pour éviter les accrobj (command "_.insert" "FLECHE" "_none" pti2 "1" "1" "0") @+

Salut Pour t'aider à gérer les présentations, tu as Gef @+

Salut Dans la boite de dialogue de la mise en page, tu as l'option Afficher styles de tracé qui ne doit pas être cochée. Cette option affiche la présentation suivant le style de tracé choisis au-dessus. Donc si tu es en N&B, tu vois le dessin en N&B. @+