francinez

Ci joint un lisp permettant de trouver un bloc selon un attribut. Bonne journée Select Blocks by Attribute Value.lsp

Ci joint le lisp + dcl pour calucler des poids kg/m (Alu, Acier,PVC....) On peut ajouter des surfaces ou en déduire.... mat.DCL Kg_mat.lsp

Fantastique, c'est exactement cela! :D Ci je peux être d'une aide quelconque je peux partager des lisp que j'utilise régulièrement: -Redéfinir tous les blocs d'un plan insérer de différents chemins -liste de textes appliquée à mleader -calculer le poids de différentes matières... -J'ai aussi une hachure isolation que j'ai crée moi même :) En tout merci de votre aide.

Merci de votre aide, est-il possible de choisir le coté de la dimension qu'on désire modifier?

Merci de votre aide, Comme je n'arrive à modifier le lisp en intégrant setvar je me suis dis que je pourrais utiliser cette macro: ^C^Cselect;\dimse1;1;dimblk1;.;_-dimstyle;a;p;;dimse1;0;dimblk1;_None; La ligne de cote est supprimée mais pas la flèche! Je ne comprends pas pourquoi :mellow:

Bonjour, J'ai essayé, je suis arrivé à remplacer la variable DIMSE par DIMBLK mais je n'arrive pas à intégrer les 2 en même temps. C'est cela mon soucis. Je ne m'y connais pas du tout en lisp, ce que j'arrive à rajouter ce sont juste des lignes de commande :( Pourriez vous m'aider svp!

Bonjour, J'ai touvé sur internet un lisp permettant d'enlever la ligne de côte en utilisant les variables DIMSE1 et DIMSE2. Est ce que quelqu'un aurait une solution pour rajouter à ce lisp les variables DIMBLK1 et DIMBLK2, celles ci permettent d'enlever la flèche. Merci XL-TOGL.lsp

Bonjour, Et voilà j'ai à nouveau recu la réponse d'un autre forum.... trop bien :(rires forts):

Je n'ai pas compris comment ceci pourrait résoudre mon problème, comment dois-je l'insérer dans le lisp? (if (= 0 (getvar "SDI")) (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) bpath)) (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "(command \"_.open\")\n" bpath "\n") ) )

Rebonjour, J'ai trouvé, je n'ai meme plus besoin du fichier txt. Dans le même lisp j'ai 2 routines, une pour ouvrir le bloc et une pour réinserer le bloc. (defun partsearch (n /) (cond ((findfile n)) ;;; first search the dir's in AutoCAD's "env" variable, then search the additional places listed below: ((findfile (strcat "H:/bloc/profile/" n))) ;;;<--- this is an example path ((findfile (strcat "H:/bloc/gomme/" n)));;;<--- this is another example path ;;; etc, etc. List as many block folder ;;; paths as you need, following the patterns (t (progn (prompt (strcat "** PartSearch Error ** Required file (" n ") could not be found.")) (terpri) ) ) ) );defun ;;; ----------- Open source drawing of selected Block-------------- (defun c:OpenBL ( / cmdecho regen n bpath) (setq cmdecho (getvar "cmdecho")) (setq regen (getvar "regenmode")) (setvar "cmdecho" 0) (setvar "regenmode" 0) (setq ent (car (entsel "\nSelect Block Entity: "))) (if (eq (cdr (assoc 0 (entget ent))) "INSERT") (progn (setq BLKN (vla-get-effectivename (vlax-ename->vla-object ent))) ) ) (setq bpath (partsearch (strcat blkn ".dwg"))) (if bpath (if (= 0 (getvar "SDI")) (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) bpath)) (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "(command \"_.open\")\n" bpath "\n") ) ) ) (setvar "cmdecho" cmdecho) (setvar "regenmode" 1) (princ) ); close defun (princ) ;;; ----------- Insert & rededine Block -------------- (defun c:ReInsertBL ( / cmdecho regen n bpath) (setq cmdecho (getvar "cmdecho")) (setq regen (getvar "regenmode")) (setvar "cmdecho" 0) (setvar "regenmode" 0) (setq ent (car (entsel "\nSelect Block Entity: "))) (if (eq (cdr (assoc 0 (entget ent))) "INSERT") (progn (setq BLKN (vla-get-effectivename (vlax-ename->vla-object ent))) ) ) (setq bpath (partsearch (strcat blkn ".dwg"))) (if bpath (vl-cmdf "insert" (strcat blkn "=" bpath) ) (command) ) (setvar "cmdecho" cmdecho) (setvar "regenmode" 1) (princ) ); close defun (princ) Juste une question, dans la routine ou j'ouvre le bloc, si le bloc est déjà ouvert le programme ne me dit pas qu'il est déjà ouvert et l'ouvre en Readonly. Y a t-il un moyen de résoudre cela... Encore merci et bon weekend Francine

Bonjour, J'ai essayé ce lisp sans succès. Ci joint le lien du forum qui m'a aidé, ainsi que le lisp. http://www.cadtutor.net/forum/showthread.php?89543-Autocad-open-source-drawing-of-selected-bloc&p=613126#post613126

Le lisp ne fonctionne toujours pas, mais la réponse je l'ai eu d'un membre de CADtutor.

Refedit n'ouvre que le bloc inséré sur le dessin, moi j'aimerai ouvrir la base du bloc sauvegardé à part!!!

Bonjour, Merci ,j'ai modifié List en FolderList La raison de ce lisp est que j'ai un plan avec beaucoup de blocs aux noms compliqués, ces blocs sont enregistrés dans des chemins spécifique au chantier. Actuellement pour ouvrir ces blocs je copie le nom avec crtl copie puis je l'insère dans la fenetre ouvrir. Ex d'un nom de bloc: Element-H-Left-Flat-SingleGlazedPanel-Glass_Drainage. Je pourrai utilisé Xref mais je ne travaille pas en réseau et je dois garder les modifications intermédiaire.

Bounjour, Sur un forum j'ai pu récupérer un lisp me permettant d'ouvrir un bloc en donnant simplement un nom d'un bloc ou dessin qui est sauvegardé dans un chemin spécifique. Ces chemins spécifiques sont indiqués dans un fichier txt. J'ai essayé ce lisp "Open-BL" et ca fonctionne, mais j'aimerai pouvoir récupérer le nom d'un bloc sélectionné sur un plan ayant beaucoup de blocs et ouvrir ce dernier. J'ai modifié le lisp et donné un nouveau nom "NewOpen-BL" mais ca ne fonctionne pas. J'ai juste une remarque qu'il ne trouve pas le bloc!!!! Pouvez vous m'aider. test.txt Open-BL.LSP NewOpen-BL.LSP