LElemurien

Bonjour, Je ne sais pas trop quoi dire à part te souhaiter bon courage! Une chose que je dis souvent c'est quand tu sens que tu es au plus bas dit toi que tu ne peux pas aller plus bas et que la roue va tourner. En tout cas c'est que je te souhaites. Bon courage!

Bon cela fonctionne avec la bidouille du bloc c'est parfait pour le moment! Merci pour toutes les infos problème résolu! Bon weekend à tous!

Merci pour les infos (Gile) et oui cela semble complexe pour un débutant comme moi mais cela va me faire apprendre d'autre chose plus complexe! Merci et bon weekend!

Merci pour les infos! Ce dont j'ai besoin c'est le "style" de vue en coupe et de détail. Je vais étudier tout ça, mais j'ai peut-être trouvé une autre solution pas très Ac a démique mais qui à l'air de fonctionner. (Etrange impossible d'écrire Ac a démique cela écrit Autocadémique) En fait j'ai créer un bloc dans un gabarit (gabarit qui contient le style de vue) et j'insère ce bloc dans le dessin et du coup cela importe aussi le style de vue dans le nouveau dessin. Et ensuite je supprime le bloc inutile dans le dessin. Clairement ce n'est pas très "programme" dans la structure mais si cela fonctionne cela reste plus dans mes capacités. Mais encore merci car je vais étudier ces infos et je vais certainement essayer de faire un programme plus "programmatique" . Bon weekend!

Bonjour, Je souhaiterai importer un style de vue en coupe et un style de vue de détail (élément qui se trouve dans des boîtes de dialogue avec les commandes _viewsectionstyle et _viewdetailstyle). Le but étant d'importer (d'un dwg ou dwt) ces styles de vue dans le dessin courant car j'aimerai au final faire un LISP puis un script pour pouvoir réaliser cette tâche sur tous les fichiers d'un dossier windows. J'utilise aussi un LISP de gile qui importe les propriétés personnalisées (d'un dwg ou dwt) dans le dessin courant voici le LISP de Gile : ;; IMPOROP (gile) ;; Importe dans le dessin courant les propriétés personnalisées d'un fichier (dwg ou dwt) (defun c:improp (/ target filename doc odbx source custList) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (setq target (vla-get-SummaryInfo *acdoc*)) (if (setq filename (getfiled "Choisir le fichier source" (getvar 'dwgprefix) "dwg;dwt" 0 ) ) (progn (if (not (and (setq doc (GetItem (vla-get-Documents (vlax-get-acad-object)) (strcat (vl-filename-base filename) ".dwg") ) ) (= filename (vla-get-FullName doc)) ) ) (setq doc (OpenDrawingDBX filename) odbx T ) ) (setq source (vla-get-SummaryInfo doc) n -1 ) (foreach p '(Author Comments HyperlinkBase KeyWords Subject Title) (if (/= "" (setq prop (vlax-get source p))) (vlax-put target p prop) ) ) (repeat (vla-NumCustomInfo source) (vla-GetCustomByIndex source (setq n (1+ n)) 'key 'val) (setq custList (cons (cons key val) custList)) ) (foreach p custList (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-GetCustomByKey (list target (car p) 'val) ) ) (vla-AddCustomInfo target (car p) (cdr p)) (vla-SetCustomByKey target (car p) (cdr p)) ) ) (and odbx (vlax-release-object doc)) ) ) (princ) ) ;;; Accéder à un dessin fermé (defun OpenDrawingDBX (filename / objdbx release) (setq objdbx (vlax-create-object (if (< (setq release (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa release)) ) ) ) (vla-open objdbx filename) objdbx ) ;;; GetItem (gile) ;;; Retourne le vla-object de l'item s'il est présent dans la collection ;;; ;;; Arguments ;;; col : la collection (vla-object) ;;; name : le nom de l'objet (string) ou son indice (entier) ;;; ;;; Retour : le vla-object ou nil (defun GetItem (col name / obj) (vl-catch-all-apply (function (lambda () (setq obj (vla-item col name)))) ) obj ) J'aimerai donc faire ce LISP un peu de la même manière que celui de Gile mais le problème c'est que je connais pas le Visualisp et je ne sais pas si cela est réalisable en LISP? Auriez vous des idées de savoir si cela est réalisable d'une part? Puis d'autre part est-ce faisable en LISP? Où trouver ces infos (style de vue en coupe et détail) dans un dessin en LISP car il n'y a pas ces infos dans une "table" comme pour les styles de cotation, lignes, texte etc...? Merci d'avance pour vos pistes de recherche Bon weekend!

Bonjour et bienvenu sur CADxp

Ok merci pour les infos! Bonne journée!

Bonjour, Pour ce qui est des accrochages aux objets c'était bien voulu car si je ne le fais pas, parfois il y a des soucis la ligne de repère ne se fait pas (par contre je ne sais pas pourquoi j'avais fais la remarque sur ce post : Mon lien ) . Par contre c'est vrai que j'aurai peut-être du mettre "_non" à la place de GETVAR et SETVAR. Il y a t-il des avantages à préférer une méthode plus qu'une autre? Comme ça je dirai que de mettre "_non" est plus pratique quand il y en a besoin que sur une commande (cela fait moins de lignes dans le programme). Bonne journée!

OUPS j'ai dis des bêtises je viens de refaire le test et cela fonctionne. Merci Zebulon c'est OK Bon week-end!

Merci pour l'aide du coup j'ai essayer d'enlever "" à la fin des deux lignes concernées et c'est vrai que cela était inutile car cela fonctionne quand même (je pensais que je devais faire un entrée) mais cela m'indique quand même commande inconnue à la fin!?

Bonjour, Il faut bien évidement que les styles existent dans votre dessin pour que cela fonctionne! Je vais apporter quelques précisions qui pourront aider si des gens veulent tester. Ce LISP sert à créer une ligne de repère avec pour texte les 4 premières lettres du nom du calque d'un objet sélectionné à travers une fenêtre dans l'espace présentation. Pour tester il faut obligatoirement créer deux styles de repère multiple dans le dessin et qui se nommeront: Nom de style 02 et Nom de style 01. Ensuite créer un calque par exemple ELEC-Exemple 01, créer un objet dans l'espace Objet avec le calque précédemment créé. Enfin allez dans l'espace présentation puis créer une fenêtre. Pour finir lancer le LISP ce qui permet d'ouvrir la fenêtre pour pouvoir sélectionner l'objet et quand vous sélectionner l'objet cela créer la ligne de repère avec le texte ELEC. Et chez moi cela indique (même si le LISP fonctionne correctement) dans la barre de commande : Commande inconnue "LRNC". Appuyez sur F1 pour obtenir de l'aide Ce n'est pas dérangeant en soi mais si je pouvais savoir d'ou cela vient je pourrais peut-être régler ce petit détail. Merci et bon weekend à tous!

Voici un LISP qui affiche : Commande inconnue "LRNC". Appuyez sur F1 pour obtenir de l'aide. Et voici le code : (defun c:lrnc (/ ac1 ac2 ent nc) (setq ac1 (getvar "osmode")) (setq ac2 (getvar "3dosmode")) (setvar "osmode" 0) (setvar "3dosmode" 0) (command "_CMLEADERSTYLE" "Nom de style 02" "") (command "_MSPACE") (setq ent (entget (car (entsel "\Sélectionner l'objet (Ctrl + R pour changer de fenêtre)")))) (command "_PSPACE") (setq nc (substr (cdr (assoc 8 ent)) 1 4)) (command "_mleader" pause pause nc) (command "_CMLEADERSTYLE" "Nom de style 01" "") (setvar "osmode" ac1) (setvar "3dosmode" ac2) (princ) ) Bon en fait je viens de trouver le souci ce sont les lignes avec le nom du style de repère qui font le problème chez moi car si j'enlève ces lignes cela fonctionne alors pourquoi je ne sais pas? Ce n'est pas bien grave mais si il y a un souci que vous voyez je suis preneur car je dois laisser ces lignes.

Bonjour, Lorsque que je lance certains LISP à la fin du programme sur la ligne de commande j'ai le message suivant : Commande inconnue avec le nom du LISP. Je précise que les LISP fonctionnent quand même. Je voulais juste savoir si cela était normal et si il y avait quelque chose à faire dans le programme pour que cette info n'apparaisse pas même si cela ne gêne en rien. Merci de votre aide. Bon weekend à tous!

Merci Luna, J'ai déjà visité les liens que tu mentionnes (enfin presque tous donc merci pour ceux que j'avais pas), et comme je disais dans mon message 10 je voulais en effet avoir d'autres exemples de routines pour m'entraîner (enfin voir des méthodologie différentes), mais aussi voir les routines car peut-être que certaines pourraient m'être utile à moi comme aux autres. Mais si il y a pas ce n'est pas grave! Bonne soirée à tous!

Il n'existe plus de lien pour les routines de Bonuscad ? Quand je parle du site de Bonusacad je pense que c'était le lien pour accéder à ces routines (enfin je suppose) Bonne journée

Je ne sais pas particulièrement celles que je veux car je ne les connais pas. Toute la liste des routines si une telle liste existe si cela est possible? En fait je voulais avoir des exemples de routines et aussi voir si il y en a certaines qui pourraient me servir.

Bonjour, Le lien des routines de Bonuscad. Son site n'est plus en fonctionnement? Et le lien qui je pense doit être le même sur la fin du premier message de la page des routines de Patrick.

Bonjour, Vous pouvez utiliser l'excellent LISP de Gilles Routine: LISTBLOCK qui genere un Tableau des Blocs avec : le Nom, le Nombre Total par Bloc et la Representation graphique ! BIEN SUR le tableau genere (contrairement a l 'extraction de donnees AutoCAD) est STATIQUE Ou bien utiliser l'extraction de donnée Bonne journée!

Bonjour, Tout d'abord un grand merci pour le partage à vous comme aux autres! Est-il possible de remettre les liens actifs? Bon weekend

Cela va me donner un exemple pour la construction! En fait il n'y a pas besoin de vlax-make-safearray? Bon il faut que je retourne relire tout ça. Merci

Bonjour, Serait-il possible d'avoir un exemple de LISP pour la création d'un tableau? Je comprends apparemment que cela est possible qu'avec du VisualLisp est-ce vraiment le cas? Est-il possible d'avoir par exemple la création d'un tableau avec 3 colonnes et 2 lignes et l'intégration de la variable "a" dans la 1ère colonne de la 1ère ligne? Cela permettrai d'avoir un exemple en plus des explications de la fonction vlax-make-safearray. Bon week-end à tous

Bonjour, Avec le LISP du regretté Patrick35 cela devrait fonctionner (LISP RBLOC). Le lien de la page des différents LISP Mon lien

Bonjour, Si je comprends autrement peut-être que "Début" serait le ruban. Et qu'il faudrait créer un onglet avec des commandes LISP? Si c'est bien ça à voir ce lien :Mon lien

Bonjour, En fait j'efface le message que je voulais envoyer car cela n'avancerai à rien. Je dirai juste merci.

Merci pour le fichier Du coup si je change le style visuel en réaliste cela fonctionne Ah répondu en même temps Conceptuel pour moi ne fonctionne pas mais réaliste oui chez moi (AutoCAD 2021)