lili2006

Re, En effet, le père Noêl est en avance,... La classe ! : <!--url{0}--> Les quelques tests déjà réalisés ne renvoient aucune erreur pour le moment,... Si d'autres peuvent tester ?? Patrick_35, cette routine devient à elle toute seule un "progiciel" de liaisons Attributs-Cellules, non ? Bravo et merci encore pour ce super travail ! [Edité le 9/11/2007 par lili2006]

Bonsoir à toutes et tous, (gile), j'ai testé sur une v2008 et voilà ce que me retourne AutoCAD :

Re, Pendant qu'on y est, J'aimerez pouvoir faire la même chose sur ce lisp (insère un bloc sur chaque somment d'une polyligne de lecrabe aussi, je crois !), A savoir : Utiliser : "(setq bname (getblock "Nom du bloc"))" changer les propriété des blocs insérés si ce calque a été trouvé : "(if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 bname)))) (setq lay (cdr (assoc 8 (entget (ssname ss 0))))) )" Définir le bon calque :"(if lay (command "_chprop" (entlast) "" "_Layer" lay "") )". Voici le LISP : [Avant] (vla-get-PaperSpace acdoc) (vla-get-ModelSpace acdoc) ) ) (if (and (setq bl (getstring T "\nEntrez le nom du bloc: ")) (or (tblsearch "BLOCK" bl) (findfile bl) ) ) (if (ssget "_X" '((0 . "*POLYLINE"))) (progn (vla-startUndoMark acdoc) (vlax-for pl (vla-get-ActiveSelectionSet acdoc) (setq n (fix (vlax-curve-getEndParam pl))) (or (= (vla-get-Closed pl) :vlax-false) (setq n (1- n)) ) (repeat (1+ n) (vla-InsertBlock space (vlax-3d-point (vlax-curve-getPointAtParam pl n)) bl 1.0 1.0 1.0 0.0 ) (setq n (1- n)) ) ) (vla-EndUndoMark acdoc) ) ) (princ (strcat "\nLe block \"" bl "\" est introuvable")) ) (princ) ) Voici le LISP : [Apré test infructueux] (defun c:ins-vtx (/ acdoc space bl n) (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 (and [surligneur] (setq bname (getblock "Nom du bloc"))[/surligneur](or (tblsearch "BLOCK" bl) (findfile bl) ) ) (if (ssget "_X" '((0 . "*POLYLINE"))) (progn [surligneur] (if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 bname))))[/surligneur](setq lay (cdr (assoc 8 (entget (ssname ss 0))))) ) (vla-startUndoMark acdoc) (vlax-for pl (vla-get-ActiveSelectionSet acdoc) (setq n (fix (vlax-curve-getEndParam pl))) (or (= (vla-get-Closed pl) :vlax-false) (setq n (1- n)) ) (repeat (1+ n) (vla-InsertBlock [surligneur] (if lay (command "_chprop" (entlast) "" "_Layer" lay "") )[/surligneur] space (vlax-3d-point (vlax-curve-getPointAtParam pl n)) bl 1.0 1.0 1.0 0.0 ) (setq n (1- n)) ) ) (vla-EndUndoMark acdoc) ) ) (princ (strcat "\nLe block \"" bl "\" est introuvable")) ) (princ) ) AutoCAD renvoi "ins-vtx ; erreur: type d'argument incorrect: stringp nil" Et, on ne rigole pas SVP,... La boite de dialogue arrive bien cependant, c'est déjà un premier pas,... Merci d'avance. (Gile), avec toutes tes " petites" sous-routines, on a plus qu'à reprendre tous nos lisps,... [Edité le 9/11/2007 par lili2006]

Re, Oui, j'ai peut-être rentré le chiffre "20", je vais reprendre les tests plus tard dans la soirée. Merci à toi. [Edité le 9/11/2007 par lili2006]

Rere, En reprenant les tests, j'ai compris ce que tu voulais dire. Même de grand service, je pense. Ca fait plaisir de voir que même à moins de deux ans de la retraite, on povait encore être intéressé par son outil de travail. Bravo. Merci à tous et bon WE.

Re, richard-c, utilises-tu covadis ? Car, grace au principe du bloc point et la géocodification, tu peux compléter avec cet outil (pnt2blk) si tu ne travaille qu'avec AutoCAD. Et c'est mon cas quand je rend visite au Bureau d'Etudes de mon ami (Spécialité Béton Armé) qui n'est bien sûr pas équipé de covadis.

Re, , moi non plsu, c'est pour cela que je me suis permis de demander. Merci à vous deux. lecrabe, bon courage pour la lecture de tous ces post et tous ces tests. Aprés tout, l'idée vient de toi, alors quelle opinion ?

Re, AutoCAd me renvoi : Mode ortho ou non !???

Re, Pour moi, la dernière mouture est parfaite (avec getblock). Merci encore.

Re, richard-c, est-ce que ta routine retourne le même résultat que celui de (gile) ? Merci d'avance.

Re, Oui, pourquoi pas ! Merci.

Bonjour à toutes et tous, J'ai fait une formation récente sur ce logiciel, bien que le lycée ne l'ai pas acheté, le formateur m'a remis une doc complère. Je pense que si tu fais la demande à covadis, il n'y aura pas de problème.

Re, Alors là, si on comprend pas, c'est qu'on le fait exprés !!!!!!!!!!! Merci encore pour tes exemples et cet outil Matt666. On sent qu'il faudra y penser quand le besoin s'en fera sentir. Je vais essayer d'être vigileant sur les occasions d'utiliser l'accroche temporaire et te ferai un retour.

Re, Super (gile) Moi aussi quand c'est possible. Oui, mais tu le sais comme moi, sur une journée de production, forcément on va se tromper, alors que là, plus de risque, et surtout plus à s'en soucier. C'est vrai que l'utilisation régulière de covadis nous fait perdre les réflexes AutoCAD. Et puis là, c'est aussi pédagogique. On met en oeuvre une charte graphique au niveau des étudiants afin de leur faire prendre conscience de l'intérêt des gabarits, cartouches, normalisation du tracé, onglets de présentations,... bref, l'organisation et l'harmonisation des méthodes de travail. Et ce sont eux, en grande partie, qui définissent les calques, blocs, plumes de tracé, méthodes d'archivage, remise au client,.... Ce qui me plait aussi dans cette routine, c'est que c'est le principe adopté par covadis et je trouve cea pas mal en tout cas dans l'habillage de plans topos. Maintenant, dans les autres domaines, faut voir,... Merci encore (gile)

Re, speedy, merci de ta réponse, je vais regarder. @+

Bonjour à toutes et tous, Si le dessin est en 2D, il va falloir le redéssiner en 3D, j'en ai peur,... Ce dessin à surement était réalisé en plan, non ?

Re, En fait sur mon gabarit, j'ain inséré tous les blocs associés aux calques souhaités. J'en ai fait de même sur ma palette d'outils. Donc à l'insertion depuis la palette, les blocs arrivent dans le bon calque. Je me demandai juste si c'était possible d'en faire de même avec "pnt2blk". Et peu importe le calque des points, à la limite. C'est la question que je me posais, c'est pour cel que j'ai parlé du gabarit, puisque ces blocs sont déjà dans l'espace dessin et dans le bon calques. Peut-être est t-il possible de récupérer l'information de calque sur ces blocs déjà insérés ???!!! Voilà l'objet de ma requête, ou plutôt de mon interrogation. (Quoi que option plutôt intéressante dans ma façon de travailler,...) Merci.

Bonjour à toutes et tous, Encore un outil simple et efficace, ça n'arrête pas en ce moment sur CADxp, et c'est tant mieux,.. Bravo ! ( fabcad à déjà tout dis !)

Bonjour à toutes et tous, C'était aussi le but de ma relance sur le message N° 7 . Même un petit mot suffit, au moins on est sûr d'avoir été lu. Merci d'avance pour ce petit rien qui va faciliter l'échange. [Edité le 9/11/2007 par lili2006]

Re, Une question : Serait-il possible, d'associer les blocs aux points dans leurs calques de destination si ceux-ci sont déjà insérés avec le bon calque, sur un gabarit, par exemple ? Merci d'avance.

Bonjour à toutes et tous, Terrible aussi ton outil l lecrabe, avec la modif de richard-c utilsant la boite de (gile). Moi qui cherchais à comprendre le fonctionnement des sous-routines, en voici un deuxième exemple super d'utilisation. Bravo à tous.

Bonjour à toutes et tous, Vu ! @+,[Edité le 9/11/2007 par lili2006] [Edité le 9/11/2007 par lili2006]

Bonjour à toutes et tous, bseb67, je viens de tester ton outils et dans le CUI, il n'y a que la commande :"SV, "SVD" n'y figure pas ? Un oubli peut-être ?? En tous cas le principe de chargement d'une personnalisation est super. Au passage, comment as-tu créé ton exécutable d'installation ?? Bonne journée. [Edité le 9/11/2007 par lili2006]

Bonjour à toutes et tous, formula1, j'ai compris ton intérêt, y'à pas de problème. D'ailleurs, loin de moi l'idée de critiquer quoi que ce soit, comme je l'ai écrit plus haut, chacun à ses besoins et le temps qu'il peut y concacrer. Et c'est d'ailleurs la richesse de ce genre de site,... Bonne journée et au plaisir. [Edité le 9/11/2007 par lili2006]

Bonjour à toutes et tous, Sur AutoCAD aussi ! SI SI, je voulais juste savoir si on pouvait lancer un lisp durant l'édition d'une commande, ça aurait été vachement pratique,... Commande transparente, non ? ça marche en apellant le lisp sur la ligne de commande : '(C:rpd) J'ai testé sur un bouton avec la macro :'rpd, lorsque je clique sur ce bouton, la commande en cours s'arrête.(Sans commande en cours, ça marche !). Au contraire, c'est trés clair, pourquoi penses-tu ça ? Peux-tu me donner un ou deux cas concrêt de l'utilisation que toi tu en fait, je vois déjà un petit peu dans les domaines que j'utilises, mais je voudrais (si c'est possible), d'autres exemples d'utilisation.(J'ai compris également ton Application donnée en exemple !) Merci surtout à toi de proposer des idées et des outils (et surtout de les partager aussi gracieusement) Au plaisir. [Edité le 9/11/2007 par lili2006] [Edité le 9/11/2007 par lili2006]