tyrese69_

Re bonjour, Aprés pas mal de temps j'ai une question sur ce sujet Comment récupérer la paire "Nom du style" et "Couleur" ("Normal" . 160) pour chaque style du m^me dictionnaire J'ai un peut perdu mes bases de lisp Daniel OLIVES TPS membre de WSP

Bonjour à tous, Est ce que quelqu'un a une idée sur le sujet. Le but est de "lire" un fichier STB pour extraire ces données liste des Style par exemple. Daniel OLIVES TPS membre de WSP

Bonjour à tous, il y a quelques années en arrières déjà, je n'était posé les mêmes questions. Et après quelques essais, j'ai vite abandonné la méthode des onglets. Aujourd'hui, j'utilise une seule fenêtre qui gère des fenêtres liées à un cadre de gabarit. J'ai volontairement limité un carnet à 60 folios. Au delà je crée des carnets de carnets, en compilant un DSD global à partir des DSD de chaque carnets. Cette méthode permet en publiant ces carnets d'effectuer des carnets DWF ou PDF très simplement. Les routines sont en VBA et Lisp. Un bloc insérer dans le cadre de la fenêtre donne l'indication du folio à créer et remplit automatiquement le numéro du folio. Si quelqu'un est intéressé, je peux donner plus d'infos. Daniel OLIVES

Re bonjour, Dans le même esprit il aussi bon d'avoir la liste des couches gelées ou inactives dans les fenêtres ! Vaste sujet: Daniel OLIVES

Bonjour, les dos lib de mac neel Permettent d'avoir une listbox très simplement (defun c:LstCG ( / layers liste ) (vl-load-com) (setq layers (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) liste '() xliste '() ) (vlax-for lay layers (if (or (= (vla-get-LayerOn lay) :vlax-false) (= (vla-get-Freeze lay) :vlax-true) ) (if (wcmatch (setq nom (vla-get-Name lay)) "*|*") (setq xliste (cons nom xliste)) (setq liste (cons nom liste)) ) ) ) (dos_listbox "Technip TPS" "Couches GELEES ou INACTIVES" liste) (dos_listbox "Technip TPS" "Couches Xrefs GELEES ou INACTIVES" xliste) (if liste (setq liste(cons "\nCalques du dessin:\n" (reverse liste)))) (if xliste (setq xliste(cons "\nCalques des XRefs:\n" (reverse xliste)))) (if (or liste xliste) (progn (princ "\nListe des calques désactivés ou gelés:") (princ "\n--------------------------------------") (mapcar '(lambda (x) (princ (strcat "\n" x))) (append liste xliste )) (princ "\n--------------------------------------") (textpage) ) (princ "\nAucun calque gelé ou désactivé.") ) (princ) )

Bonjour à tous, Après un très long silence, de retour pour une petite question sur AutoCAD 2013 ! J'ai un problème avec la fenêtre de bienvenue. La case à cocher qui permet de la désactiver est cachée. Pour la faire apparaître je suis obligé de taper la touche TAB, jusqu’à l'apparition de la case. Il semblerait que la fenêtre soit dans une taille légèrement trop petite ! Est ce que d'autres utilisateurs ont aussi ce problème ? Je suis en Windows 7 (x64) carte nvidia Quadro 600 ! Daniel OLIVES

Bonjour (giles), Est ce normal que la liste soit tronquée dans la fenêtre ? Commande: (setq lst (gc-getenvvars)) es color" "Perspective grid minor lines tint" "Perspective ground horizon" "Perspective ground origin" "Perspective hotspot color" "Perspective lux at distance color" "Perspective sky horizon" "Perspective sky zenith" "Perspective start color" "Perspective sub-surface azimuth" "Perspective sub-surface horizon" "Perspective Web color" "Perspective Web shape color" "Perspective ..... tint" "Perspective grid major lines color" "Perspective grid major lines tint" "Perspective grid minor lin Un autre Lyonnais daniel OLIVES

Bonjour à tous, Il vous faut charger l'ARX en fonction de votre version ! Le ZIP donne les dernières versions ! Le numéro 9.0 correspond à la révision pour AutoCAD 2013, La précédente était 8.6 DOSLib17x64.arx pour AutoCAD x64 (64 bits) DOSLib17.arx pour AutoCAD x86 (32 bits) 19 pour 19.2 AutoCAD 2015 19 pour 19.1 AutoCAD 2014 19 pour 19.0 AutoCAD 2013 18 pour 18.2 AutoCAD 2012 18 pour 18.1 AutoCAD 2011 18 pour 18.0 AutoCAD 2010 17 pour 17.2 AutoCAD 2009 17 pour 17.1 AutoCAD 2008 17 pour 17.0 AutoCAD 2007 Anciennes versions téléchargeable séparément ! 16 pour 16.2 AutoCAD 2006 16 pour 16.1 AutoCAD 2005 16 pour 16.0 AutoCAD 2004 Voici un bout du code que j'utilise pour tester la version installée sur chaque PC, dans le fichier AutoCAD.lsp (if (and (not (= (findfile "C:\\Program Files\\DOSLib 8.6\\DOSLib18.arx") nil))(= (member "C:\\Program Files\\DOSLib 8.6\\DOSLib18.arx" (arx)) nil)) (progn (if (not (= (findfile "C:\\Program Files\\DOSLib 8.6\\DOSLib18.arx") nil)) (progn (setq txtDosLib "Version DOSLIB 8.6 trouvée !\n") (setq bdoslib 86) (if (WCMATCH (getenv "PROCESSOR_ARCHITECTURE") "*64") (arxload "C:\\Program Files\\DOSLib 8.6\\DOSLib18x64.arx") (arxload "C:\\Program Files\\DOSLib 8.6\\DOSLib18.arx") ) (setq txtDosLib (strcat txtDosLib "DOSLib18.arx chargée, mais il existe une version plus récente !\n")) ) ) ) ) (if (and (not (= (findfile "C:\\Program Files\\DOSLib 9.0\\DOSLib18.arx") nil))(= (member "C:\\Program Files\\DOSLib 9.0\\DOSLib18.arx" (arx)) nil)) (progn (if (not (= (findfile "C:\\Program Files\\DOSLib 9.0\\DOSLib18.arx") nil)) (progn (setq txtDosLib "Version DOSLIB 9.0 trouvée !\n") (setq bdoslib 90) (if (WCMATCH (getenv "PROCESSOR_ARCHITECTURE") "*64") (arxload "C:\\Program Files\\DOSLib 9.0\\DOSLib18x64.arx") (arxload "C:\\Program Files\\DOSLib 9.0\\DOSLib18.arx") ) (setq txtDosLib (strcat txtDosLib "DOSLib18.arx chargée\n")) ) ) ) ) ) ) (if (= bdoslib 0) (alert "\n * ERREUR * --> doslibxx.arx manquant: Veuillez installer ces fonctionnalités, en tant qu'\"ADMINISTRATEUR\" !") ) Daniel OLIVES

Bonsoir, Merci à tous, voici le résultat ! (defun c:Tmenu (/ ok i j acadObject AcadMenuGroup NbMenuGroup currMenuGroup currMenuGroupMenus scMenu ) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) (setq MenuGroups (vla-get-MenuGroups acadObject)) (setq j 0) (setq NbMenuGroup (vlax-get-property MenuGroups 'Count)) (while (< j NbMenuGroup) ; (setq MenuGroupe (vlax-invoke-method MenuGroups 'Item 0)) (setq MenuGroupe (vlax-invoke-method MenuGroups 'Item j)) (princ (vlax-get-property MenuGroupe 'name)) (setq MenuCollection (vla-get-Menus MenuGroupe)) (setq nbScmenu (vlax-get-property MenuCollection 'Count)) (if (= (vlax-get-property MenuGroupe 'name) "TPS") (progn ;;parcours les scmenus (setq i 0) (while (< i nbScmenu) ; (setq scMenu (vlax-invoke-method MenuCollection 'Item 1)) (setq scMenu (vlax-invoke-method MenuCollection 'Item i)) ;(if (vlax-property-available-p scMenu 'name) ; (alert (vlax-get-property scMenu 'name)) ;) ;(if (vlax-property-available-p scMenu 'label) ; (alert (vlax-get-property scMenu 'label)) ;) ;;parcours les menuitems (setq NbMenuitems (vla-get-count scMenu)) (setq k 0) (while (< k NbMenuitems) (setq MenuItem (vlax-invoke-method scMenu 'Item k)) (if (vlax-property-available-p MenuItem 'name) ;(if (= (vlax-get-property MenuItem 'name) "B- à propos") (alert (vlax-get-property MenuItem 'name)) ;) ) (if (vlax-property-available-p MenuItem 'label) (if (= (vlax-get-property MenuItem 'label) "B- à propos") (progn ; (alert (vlax-get-property MenuItem 'label)) (setq LabelSubMenu (vlax-get-property (vla-item (vla-get-submenu MenuItem) 0) 'label)) (if (= (substr LabelSubMenu (- (strlen LabelSubMenu) 9) 10) "2012-03-23") ; "B-1- Version du menu TPS 2012-03-23" (alert (strcat "La date du fichier TPS.MNU est : " (substr LabelSubMenu (- (strlen LabelSubMenu) 9) 10))) ; "B-1- Version du menu TPS 2012-03-23" ) ) ) ) (setq k (+ 1 k)) ) (setq i (+ 1 i)) ) ) ) (setq j (+ 1 j)) ) )

Bonjour, J'ai trouvé la solution par la voie directe sans aucuns contrôles ! Mon menu possède "20" item et je cherche à lire le label du "1er" du sous menu ! (setq LabelSubMenu (vlax-get-property (vla-item (vla-get-submenu (vlax-invoke-method (vla-item (vla-get-Menus (vla-item (vla-get-MenuGroups (vlax-get-acad-object) ) 0 ) ) 0 ) 'Item 20 ) ) 0 ) 'label ) )

Bonsoir, Comment descendre un niveau de PLUS ? Afin de parcourir les sous item d'un item particulier ? Daniel OLIVES

Bonjour GEGEMATIC J'ai modifié ton code afin que les intitulés soient copiés dans un fichier txt, car la console n'est pas assez grande pour contenir l'ensemble des informations ! Encore merci je fouille un peut plus pour créer la fonction que je souhaite obtenir ! Vérifier si le menu charger contient le bon intitulé, sinon le menu est rechargé à la volée ! ;**************************************************************************** ;§/menu/programme de test pour visualiser l'arborescence des menus telle qu'elle est parcourue/none (defun c:Tmenu (/ ok i j acadObject AcadMenuGroup NbMenuGroup currMenuGroup currMenuGroupMenus scMenu ) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) (setq MenuGroups (vla-get-MenuGroups acadObject)) (setq j 0) (if (setq f (open "C:\\Temp\\Liste_menu_item.txt" "w")) (progn (setq NbMenuGroup (vlax-get-property MenuGroups 'Count)) (write-line (strcat "(Nombre de menugroup " (itoa NbMenuGroup) ")") f) (while (< j NbMenuGroup) (setq MenuGroupe (vlax-invoke-method MenuGroups 'Item j)) (write-line (vlax-get-property MenuGroupe 'name) f) (setq MenuCollection (vla-get-Menus MenuGroupe)) (setq nbScmenu (vlax-get-property MenuCollection 'Count)) (write-line (strcat " (Nombre de sous Menu : " (itoa nbScmenu) ")") f) ;;parcours les scmenus (setq i 0) (while (< i nbScmenu) (setq scMenu (vlax-invoke-method MenuCollection 'Item i)) (setq tmp scmenu) (if (vlax-property-available-p scMenu 'name) (write-line (strcat " " (vlax-get-property scMenu 'name)) f) ) (if (vlax-property-available-p scMenu 'label) (write-line (strcat " " (vlax-get-property scMenu 'label)) f) ) (setq NbMenuitems (vla-get-count scMenu)) (write-line (strcat " (Nombre de Menuitems " (itoa NbMenuitems) ")") f) ;;parcours les menuitems (setq k 0) (while (< k NbMenuitems) (setq MenuItem (vlax-invoke-method scMenu 'Item k)) (if (vlax-property-available-p MenuItem 'name) (write-line (strcat " " (vlax-get-property MenuItem 'name)) f) ) (if (vlax-property-available-p MenuItem 'label) (write-line (strcat " " (vlax-get-property MenuItem 'label)) f) ) (setq k (+ 1 k)) ) (setq i (+ 1 i)) ) (setq j (+ 1 j)) ) (close f) ) (princ "\n Erreur - Fichier déjà ouvert !") ) )

Bonjour, L'accès au site augifr n'est pas possible "Votre réponse ne correspond pas à la question" Non ?? Quelle doit elle être la réponse pour Europe un pays , (rires forts) ! Daniel OLIVES d.olives@live.fr ou dolives@techniptps.com

Re, les copie d'écran !