Patrick_35

(setq ent (vlax-ename->vla-object (car (entsel)))) (setq deg (atof (angtos (angle (vlax-safearray->list (vlax-variant-value (vla-get-coordinate ent '0)))(vlax-safearray->list (vlax-variant-value (vla-get-coordinate ent '1)))) 0 2))) (if (and (> deg 90) (< deg 180)) (vla-offset ent '1) ; décalage de +1 (vla-offset ent '-1) ; décalage de -1 ) Peut-être de cette manière ? @+

Ah oui, le bloc est redéfini (graphiquement), mais pas ses attributs. Il faut donc, soit effacer le bloc $Tampon$ puis purger le dessin afin qu'il disparaisse complètement puis le réinsérer et ça devrait fonctionner Ou utiliser la commande battman des express tolls afin de synchroniser les attributs avec le bloc Mais, autrement, la démarche est bonne (ps: evite l'espace devant " CHEMIN_XREF") @+

Même réponse que dans ce sujet @+

C'est du spécifique, je peux te le faire à la fin de la semaine (à moins que quelqu'un d'autre se décide), mais si tu veux aller plus vite, regarde déjà là et là et faire une recherche sur du texte @+ [Edité le 25/4/2005 par Patrick_35]

As tu lu la .doc fournit avec ? Ca créée une légende depuis un fichier excel et son propre tableau qu'il est possible de paramétrer dans les options @+

Je suis comme zebulon_, à la lecture de ton lisp, je ne vois rien de spécial @+

c'est juste un complément par rapport à ton lisp Dans ton bloc $TAMPON$, il faut lui rajouter des attributs nommés par exemple CHEMIN1,CHEMIN2,etc... et à la place de DATE_TAMPON dans la variable xref_nom indique que les attributs se nomment CHEMIN (sans l'incrément) @+

Oui, les variables d'autocad aussi qui sont redéfini entre le start et le end @+

Laisse tomber, je devais être fatigué hier soir. Un poly reste une poly @+

Avec la justification Aligner @+

Qu'il va avoir quelques cheveux blancs en plus @+

Oui avec les fonctions vlisp (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) et (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) @+

Salut En vlisp et je te décompose la démarche (setq a (vlax-get-acad-object)) ; je pointe sur l'application Autocad (setq b (vla-get-activedocument a)) ; Je pointe sur le dessin actif de l’application (setq c (vla-get-layers b)) ; je pointe dans la table des calques du dessin actif (setq d (vla-add c "MON_CALQUE")) ; je crée mon calque dans la table des calques Et si tu veux modifier des paramètres du calque "MON_CALQUE", c'est dans la variable d (geler avec (vla-put-freeze d :vlax-true) par exemple) @+

Tramber, je ferai la même remarque que pour Ludwig en ce qui concerne la transformation d'une entité en objet Et j'ai juste une question concernant ton lisp, un peu vicieuse je le reconnais et à tester Tu fais comment pour une lwpolyligne avec seulement deux sommets (ce qui revient à une droite) @+

Ctrl+C puis Ctrl+V @+

C'est la fonction *error*, fais une recherche dessus La fonction lambda permet de définir une fonction anonyme Tu noteras aussi que je t'ai simplifié la transformation d'une entité en objet Je sens qu'on ne va même plus réfléchir, tout sera automatique ;) @+

Peut-être de cette manière (setq err (vl-catch-all-apply '(lambda ()(vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'mini 'maxi)))) @+

Non, pas spécialement, jute le temps de l’écrire, de corriger un ou deux bug, de l’améliorer un peu et de le tester. De plus, c’est le type de prog qui peut me servir à l’occasion @+

Tu as déjà une première approche avec un lisp dans ce fil. Il agit que sur du texte, et rien de plus facile que de l'adapter pour un attribut @+

Génial, un nouveau lispeur a rejoint notre communauté Donc pour t'encourager dans cette voie et pour te montrer un peu ce qui est possible de faire, je te donne un lisp qui a été fait au plus simple et sans visual lisp (à part peut-être vl-remove) @+ (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)) (if (= Co 50) (setq Co 100) (setq Co 50) ) ) (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)) ) (setq Pt1 (getpoint "\nPremier point : ") Pt2 '(0.0 0.0 0.0) Co 50 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) )

Tu as bien compris ce qui est expliqué dans l'aide, mais en regardant dans le lisp que je t'ai cité, on trouve ceci Je n'ai pas le temps de chercher plus en profondeur, mais je pense que ça vaut le coup J'ai aussi trouvé moussemove dans commandbutton de msform, mais comment y aller ? @+

Et avec la commande _divide ? @+

Fait plutôt un copier-coller dans le bloc notes et tu sauvegardes par exemple en rea.lsp Ensuite, avec _appload, tu charges le lisp et si l'erreur persiste, tu nous le dis (ps : avec _appload, il est possible de faire des chargements automatique) @+

D’un point de vu réglementaire, c’est un établissement de type O, et quelle que soit sa catégorie, il faut un SSI de catégorie A. De plus, un organisme de contrôle à validé un peu avant la conformité de l’hôtel. Ce qui me surprend le plus, c’est que l’incendie c’est propagé à travers l’escalier et la cage d’ascenseur, hors ceux-ci, de par leurs constructions, doivent normalement être coupe-feu 2H. Il y a une chose que je ne comprends pas Idem Un organisme est passé auparavant et a validé la conformité Je suis bien d’accord, il manque à l’heure actuel des logements sociaux, et l’état ne fait pas grand chose en ce moment. Il va falloir relancer l’abbé Pierre @+

Il est clair que l’on reconnaît tout de suite un dessin qui a été fait sur ordinateur par une personne ayant déjà travaillée à la planche @+