Big666

Bonjour Je suis toujours aussi doué avec Monsieur lisp. J’ai essayé de modifier un lisp de gille chanteau, qui récupère les surfaces et périmètre d’unepolyl-igne fait de-même avec ça boite DCL et renommée GetnamC que j’ai modifié aussi bien sûr J’ai créé un bloc SFC. Mais rien ne se passe . lisp sfc : ;;; SFC -Gilles Chanteau- 13/04/07 ;;; Insère le bloc "SFC" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; j'ai ajouté un préfixe et un suffixe Surface et m² grâce a vous pascal lapostre ;;; Attribut 2 : Longueur de la polyligne ;;; Attribut 3 : Aire de la polyligne (defun c:SFC (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire ref) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (or (tblsearch "BLOCK" (setq bloc "SFC")) (findfile (setq bloc "SFC.dwg"))) (progn ;; attribut "nom de la pièce" (if (not (setq nom (GetNameC "Nom de la pièce"))) (setq nom "") ) (while (not (setq ent (car (entsel))))) (setq obj (vlax-ename->vla-object ent)) (if (= "AcDbPolyline" (vla-get-ObjectName obj)) (progn (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou < Centre >: "))) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T)) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) (if (not (vlax-ldata-get "SFC" "ech")) (vlax-ldata-put "SFC" "ech" 3) ) (if (not (setq ech (getreal (strcat "\nEntrez le facteur d'échelle <" (rtos (vlax-ldata-get "SFC" "ech")) ">: "))) ) (setq ech (vlax-ldata-get "SFC" "ech")) (vlax-ldata-put "SFC" "ech" ech) ) (setq id (vla-get-ObjectID obj) ;; Attribut périmètre (mm² -> m²) ;;; j'ai ajouté un prefix et un suffix Surface et m² pascal lapostre aire (strcat "Surface: " "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ct8[1e-0]\">%" " m²" ) ;; Attribut surface (mm -> m) ;;; j'ai ajouté un prefix et un suffix perimetre et ml pascal lapostre long (strcat "Périmètre: " "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Length \\f \"%lu2%pr2%ct8[1.00]\">%" " ml" ) ) (setq ref (vla-InsertBlock Space (vlax-3d-point (trans ins 1 0)) bloc ech ech 1 (angle '(0 0 0) (trans (getvar 'ucsxdir) 0 (trans '(0 0 1) 1 0 T))) ) ) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom aire long) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"SFC\" est introuvable.") ) (princ) ) dcl : ;;; SFC -Gilles Chanteau- 13/04/07 ;;; Insère le bloc "SFC" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; j'ai ajouté un préfix et un sufix Surface et m² grace a vous pascal lapostre ;;; Attribut 2 : Longueur de la polyligne ;;; Attribut 3 : Aire de la polyligne (defun c:SFC (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire ref) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (or (tblsearch "BLOCK" (setq bloc "SFC")) (findfile (setq bloc "SFC.dwg"))) (progn ;; attribut "nom de la pièce" (if (not (setq nom (GetNameC "Nom de la pièce"))) (setq nom "") ) (while (not (setq ent (car (entsel))))) (setq obj (vlax-ename->vla-object ent)) (if (= "AcDbPolyline" (vla-get-ObjectName obj)) (progn (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou < Centre >: "))) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T)) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) (if (not (vlax-ldata-get "SFC" "ech")) (vlax-ldata-put "SFC" "ech" 3) ) (if (not (setq ech (getreal (strcat "\nEntrez le facteur d'échelle <" (rtos (vlax-ldata-get "SFC" "ech")) ">: "))) ) (setq ech (vlax-ldata-get "SFC" "ech")) (vlax-ldata-put "SFC" "ech" ech) ) (setq id (vla-get-ObjectID obj) ;; Attribut périmètre (mm² -> m²) ;;; j'ai ajouté un prefix et un suffix Surface et m² pascal lapostre aire (strcat "Surface: " "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ct8[1e-0]\">%" " m²" ) ;; Attribut surface (mm -> m) ;;; j'ai ajouté un prefix et un suffix perimetre et ml pascal lapostre long (strcat "Périmètre: " "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Length \\f \"%lu2%pr2%ct8[1.00]\">%" " ml" ) ) (setq ref (vla-InsertBlock Space (vlax-3d-point (trans ins 1 0)) bloc ech ech 1 (angle '(0 0 0) (trans (getvar 'ucsxdir) 0 (trans '(0 0 1) 1 0 T))) ) ) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom aire long) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"SFC\" est introuvable.") ) (princ) )

Bonjour Bientôt communication de la plus haute importance concernant M Big666...

Bienvenu

bonjour il se peut que cet objet soit issu d'un autre logiciel et qu'autoCAD ne le reconnaisse pas. Pour moi refait ta ligne de repère.

merci de vos réponses A priori il non pas le choix de nous faire passé sur Revit .il vont me demandé de trouvé un formateur . donc il y aura une formation? la question est quoi, comment , ou combien$ merci

bonjour Nous allons passer sur REVIT. Je me tourne vers vous pourquelques points à éclaircir ? Je ne connais absolument pas celogiciel et oui j’aurai une formation aboutie (je rêve vite). Mes questions : Peut-on faire un plan topo3D ? Peut-on importer un plan 3Dexistant AutoCAD vers REVIT ? Enfin quel matériel faut-il pourl’utilisation fluide de ce logiciel ? Nos données sont sur un serveurdistant, quels sont les freins de ce système ? merci

bonjour bref . je voulais juste dire: - non mais on n'est que des pigeons. mais sans ironie de ma par, Autodesk va réagir. mois aussi j'ai les yeux qui saignent. mais je n'est pas le choix. bonne fête

enfin j'ai commencé avec version 2004 puis 2007 ensuite 2013 aujourd'hui 2017 Jusqu'en 2013 OK . après je en sait pas et pour 2017 je voie rien de plus. je suis fonctionnaire a chaque fois que l'on achète une licence c'est une fortune multiplié par x postes . j'ai bien avertie qu'il ne fallait pas dépassé 2015. ou prendre ZWC. bien sûr cette argent c'est le votre et le mien, aussi car un fonctionnaire ça gagne juste de quoi payé des impôts 1700€ . pour un nombre d'heure ... enfin qui a besoin de 2000€ aujourd'hui... a vous de voir mais ne réponde pas a ce message ...

chose. il n'y a pas de réponse c'est un constat. Dit avec des oublis des fautes d'orthographes. des fois un cou de pied dans la fourmilière ça ne fait pas de mal non ?

bonjour cela ne vas pas plaire a tous le monde. pourquoi Autodesk se sent obligé de sortir une version tous les ans? enfin je pense que c'est la même Chose organisée autrement...

MIRRTEXT mystère et boule de gomme. cette commande pour mois fonction comme elle veut elle a son intelligence propre. tous ça pour dire que quant elle est a 1 je la mais a 0 et ça marche quant elle est a 0 je la mais a 1 et ça marche. pourquoi ?

Bonjour je ne suis pas une lumière certes mais je m'en sort. en arrivant ici dans ce bureau d'étude remplis d'archi et de dessinateur d'ingénieur avec des bac(s) + pas un seule avais connaissance qu'il y avait des unités à paramétré et que cela facilité beaucoup de chose. par contre incollable en orthographe. presque une religion. j'ai dû bataillé dur et encore aujourd'hui il fons avec mes gabarit mais je pense qu'il non toujours avec un s par compris.

pbrion , merci.

Bonjour Problème. Que jedemande d’insérer une image ou une présentation « à partir du gabarit » Dans la lignede commande j’aie le message suivant « Entréele nom du fichier » Pour lesimages il me demande une adresse : Pour un copiercollé « haut bas …. » J’ai dû décocherun « touche pas à ça - - - - - - - -. Je continu àchercher mais si vous avez la solution merci

Ho Avis au dessinateur qui a fait son DOE en plaçant tous les calques sur calque commun. Je ne parle pas d’un petit projet, même belle et bien d’un collège fait en 2015. Écoute bien JE te hais. .

Merci pour vos Réponses Pas clair j'ai été. Non je veux un lien vers un fichier DWG comportant des présentations. Bien sûr je connais a partir du gabarit. Aussi si je pouvais placer les présentations dans la palette. Ce serait (mieux mais après avoir cherché) merci

bonjour Pour me faciliter l'existence peut-on créé un lien dans une palette d'outils merci

ça fonctionne l'extension xlsx est prise en compte . pour l'instant je n'arrive pas a exporter des données dans le fichier xlsx a partie d'un dwg. il faut, je pense, que ce fichier est quelque chose a exporter, comme j'ais pris un DOE au Hasard . donc ... merci

bonjour merci de cette aide. la fenêtre DCL demande un xls et ignore xlsx. merci

bonjour Le lisp lxlne fonctionne pas avec Excel 2013. Ce n’est pasla même extension. Donc je me suis dit à l’aide de Notepad ++ je vais faire unremplace xls par xlsx et bien sûr cela ne fonctionne pas. Si une âmecharitable a une solution. Merci

non

bonjour pas de solution mais une piste le convertisseur de calque. jamais utilisé, j'ai le même problème tout nos plan(sss) non pas un gestionnaire de calque identique . donc si il y a une solution je suis preneur. merci

Grand merci. finalement je ne bois qu'une bière tout au plus deux. et je le sais , il me reste des neurones de faible qualité. il faut donc que je redouble mon traitement. merci

bonjour afin de ne pas se retrouver avec une cotisation supplémentaire pour combattre la deshitratation . penser a vous hydrater . l'eau est la meilleure boisson. pour ma par je préfère la bière. qui hydrate plus pour preuve peu d'alcoolique sont morts de soif. bon je n'ai rien a dire de plus