Neo83

Bonjour à toutes et à tous. Dans un sujet de Bonuscad j’ai trouvé le lisp pline&field qui donne dans un champ le numéro d’une pièce et son aire dans un champ. J’ai modifié ce lisp (je ne suis pas programmeur) pour qu’il prenne du texte dans le numéro de la pièce et donne un nombre sans unité pour la surface. Voici les modifications : (itoa (vla-get-ObjectID (vlax-ename->vla-object obj))) ">%).Area \\f \"%lu2%pr2%ps["(getstring "\n Nom du Local : ")"\n""\,]\">%") Mon problème est le suivant : Le résultat de ce lisp est un champ avec le nom de la pièce et son aire le tout dans un mtext sur deux lignes centrées. J’aimerai que ce mtext soit composé deux champs distincts sur deux lignes centrées. Ceci me permettra de prendre le champ NOM DU LOCAL pour le mettre dans un tableau de surface dans le dessin, ainsi que le champ SURFACE en vue de l’additionner dans ce tableau. Pour information voici le lisp en question au complet : (defun c:surf2 ( / obj AcDoc Space nw_style pt) (command "_.pline" (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) (setq obj (entlast) AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (cond ((null (tblsearch "LAYER" "Id-Surfaces")) (vlax-put (vla-add (vla-get-layers AcDoc) "Id-Surfaces") 'color 96) ) ) (cond ((null (tblsearch "STYLE" "Romand20")) (setq nw_style (vla-add (vla-get-textstyles AcDoc) "Romand20")) (vlax-put nw_style 'fontfile "romand.shx") (vlax-put nw_style 'height 0.0) (vlax-put nw_style 'obliqueangle (/ (* 15.0 pi) 180)) (vlax-put nw_style 'width 1.0) (vlax-put nw_style 'textgenerationflag 0.0) ) ) (initget 9) (setq pt (getpoint "\nPoint d'insertion du champ: ")) (initget 1) (setq nw_obj (vla-addMtext Space (vlax-3d-point (trans pt 1 0)) 0.0 (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId " (itoa (vla-get-ObjectID (vlax-ename->vla-object obj))) ">%).Area \\f \"%lu2%pr2%ps["(getstring "\n Nom du Local : ")"\n""\,]\">%m²") ) ) (vlax-put nw_obj 'AttachmentPoint 5) (vlax-put nw_obj 'Height 0.15) (vlax-put nw_obj 'DrawingDirection 5) (vlax-put nw_obj 'InsertionPoint (trans pt 1 0)) (vlax-put nw_obj 'StyleName "TEXTE") (vlax-put nw_obj 'Layer "Id-Surfaces") (prin1) ) Merci à tous.

Bonjour soupra, Pour faire ceci, il faut rendre constant l'attribut de ton bloc. Pour faire tu vas dans l'éditeur de bloc, tu cliques sur ton etiquette de bloc et dans le panneau des propriétes tu coches la case CONSTANT. Biensûr une fois sorti de l'éditeur de bloc tu fais un attsync pour redefinir complètement le bloc de ton dessin. Voilou.

Messieurs, C'est exactement ce que je cherchais. Je suis confus de ne pas avoir trouvé ces lisp tout seul! Je vous remercie de votre concours. Merci à tous.

Merci Fraid. Si je pouvais faire la même chose en cliquant sur mes champs, ce serait le grand Luxe. Ce n'est pas exactement ce que je cherche, mais cela peut faire l'affaire à défaut de mieux. Merci encore.

Bonjour, Tu actives espace objet dans ta présentation. Tu tappes VUEDYN, tu valides 2 fois tu tappes B tu valides tu entres l'angle 90 par exemple tu valides 2 fois. Le "haut" du dessin tourne vers la gauche.

Bonjour à tous, J'ai cherché et cherché encore, mais je n'ai pas trouvé mon graal... Je souhaite additionner des champs "nombre" en les sélectionnant avec la souris. Y-a-t-il un lisp que fasse ceci? Merci à tous.

TESTÉ et APPROUVÉ! C'est exactement ça! Un grand MERCI LECRABE.

Bonjour à toutes et à tous, Existe-t-il un moyen simple ou un lisp pour "déforcer" le style de texte des textmult dont le style de texte à été forcé, et ceci sans les décomposer? Je vous remercie par avance.

Une fois de plus de plus merci à vous. Les LISP est exectement ce qu'il faut. Bonne journée.

Bonjour à tous et à toutes. Je souhiate redéfinir le pôint d'insertion d'un bloc mais... lors de la redéfinition du bloc dans le dessin, je voudrais que juste le point d'insertion du bloc soit changé et surtout sa place relative au point d'insertion. Je sais, je ne suis pas clair. Car si la redéfinition est classique les blocs concernés ne seront plus alignés dans mes circulations. Avez vous une idée? Merci pour vos réponses.

Merci tout de même à tous les deux. En ce qui me me concerne, vous êtes dans les cieux de la programmation! Ceci fait que mon travail est plus intéressant et plus rapide, ce qui fait de vous des demi-Dieux à mes mes yeux. Merci encore.

Merci Patrick_35, Diabloique!

Ok, dommage. Merci de ces éclairages.

Merci Tramber, Effectivement je l'ai vu et je m'en sert... Il m'arrive d'ouvrir un fichier d'une affaire et un autre d'une autre affaire avec des versions de sauvegarde différentes entre autres. Mais avec son fichier c'est le profil du dernier dessin ouvert qui devient courant ce qui me pose problème problème lors de la fermeture du 1er fichier. D'où ma demande. Je cherche une ligne de commande qui charge un profil comme on chargerait un menu, comme le fait le Lisp d'un certain... Tramber. (if (null (menugroup "mon menu")); nom du menu (progn (setvar "CMDECHO" 0) (command "_MENULOAD" "mon menu.cui"); mon menu.cui (setvar "CMDECHO" 1) ) ) ...Désolé pour ma ligne sujet, un malheureux copier coller.

Bonjour à tous, Comment chage-t-on un profil depuis la ligne de commande? Merci pour vos réponses.

Merci Christian.

Bonjour à tous, Je cherche à mettre l'heure la date et un texte à l'ouverture de chaque session AutoCAD en bas à gauche de mon écran AutoCAD. Lorsque j'intègre la commande et l'instruction de modemacro dans mon LISP de départ, comme suit: (defun s::startup () (command "calque" "ver" "san_161_cfo_fdp" "") (command "modemacro" $(edtime,$(getvar,date),"ENZO-"DD MO YY - H:MM))) Cela ne fonctionne pas et j'ai le message d'errueur suivant: Fichier à supprimer: ; erreur: valeur d'argument incorrecte: commande AutoCAD: # Avez vous une solution? Merci pour vos réponses.

Ca marche, impeccable. Merci Tramber, Bon week-end.

Bonjour à tous, Enfin la fin de la semaine... Une question: Comment charge-t-on unn menu depuis la ligne de commande avec une expression du type (load"....."). Meci pour vos réponses.

Patrick, Je vous remercie de votre réponse. Comment j'integre votre ligne de commande à mon menu contextuel. Avec la commande CUI...?

Bonjour à tous, Au lien suivant: http://www.cadxp.com/XForum+print-fid-75-tid-11277.html?POSTNUKESID=a35934661a42bbe0d1649801fe68ab8f On trouve ce lisp, donné par Patrick_35, qui permet de renommer les blocs avec le clic droit droit de la souris. Mais j'ai le message d'erreur suivant : Commande: Initialisation du système VBA...; erreur: Erreur Automation Clé introuvable Spécifiez le coin opposé: *Annuler* Avez vous une idée d'où cela provient? Merci pour vos réponses.

Bonjour à tous, (gile), me revoilà... Lorsqu'un bloc a aussi un nom anonyme de la forme suivante: REFERENCE DE BLOC Calque: "08-CFO-APP-CMD" Espace: Espace objet Epaisseur de ligne : 0.13 mm Echelle de type de ligne = 0.100 Maintien = 1138f Nom du bloc: "I-sal" Nom anonyme: "*U186" [surligneur] [/surligneur] en point, X= -30.529 Y= -8.389 Z= 0.000... Le programme PREFBLOC renvoi l'erreur suivante: Commande: PREFBLOC Traiter les blocs imbriqués ? [Oui/Non] : Entrez le prefixe: SA_ Sélectionnez le bloc à renommer (ou Entrée pour tous) Choix des objets: 1 trouvé(s) Choix des objets: ; erreur: Erreur Automation Entrée incorrecte Avez une solution à ce problème? Merci pour vos réponses.

Bonjour à tous, Merci Georges2. Manip simple et efficace. Merci pour ces renseignements. Et merci à tous de prendre sur votre temps pour répondre aux messages.

lili2006, gile... Vous êtes diaboliques! Merci à vous. [surligneur] Trop forts[/surligneur]. Quelle surprise du matin! Don't worry, be happy... [surligneur] [/surligneur]

Bonjour lili2006, Je vous remrcie pour ce lien. Mais il me semble que ces LISP traitent les attributs de blocs. Ce que je cherche c'est de changer le nom du bloc. Dans mon affaire existent des bloc qui ont un nom. Je voudrais garder ce nom de bloc et ejouter devant un préfixe SA_. Pour exemple si j'ai un bloc qui se nomme porte, je voudrai le renommer SA_porte. J'ai une mutitude de bloc sur 7 fichiers. D'où mon besoin d'un traitement automatique. Merci à vous.