stephan35

Bonjour, Je cherche à modifier la boite de dialogue répertoire afin qu'elle me propose un répertoire par défaut sans inhiber le reste de l'arborescence ? Code piqué chez patrick (defun DirBox(Message Chemin Drapeau / rep sh) ; Valeur du Drapeau ; 0 = Valeur par défaut ; 1 = BIF_RETURNONLYFSDIRS = Seulement les fichiers système ; 2 = BIF_DONTGOBELOWDOMAIN = Interdit d'explorer en dehors du domaine ; 4 = BIF_STATUSTEXT = Inclure un secteur de statut. La fonction de rappel de service peut placer le texte de statut en envoyant des messages à la zone de dialogue. Ce drapeau n'est pas soutenu quand BIF_NEWDIALOGSTYLE est indiqué. ; 8 = BIF_RETURNFSANCESTORS = Seulement les sous Dossiers ; 16 = BIF_EDITBOX = Inclure une commande d'édition dans la zone de dialogue ; 32 = BIF_VALIDATE = Verifie si l'utilisateur dactylographie un nom inadmissible dans la boîte d'édition ; 512 = BIF_NONEWFOLDERBUTTON = Ne pas inclure le bouton Créer un nouveau dossier ; 4096 = BIF_BROWSEFORCOMPUTER = Autorise à parcourir le réseau ; 8192 = BIF_BROWSEFORPRINTER = Seulement le choix d'une imprimante ; 16384 = BIF_BROWSEINCLUDEFILES = Montre tout ; = BIF_BROWSEINCLUDEURLS = Montrer les raccourcis, Les drapeaux BIF_USENEWUI et de BIF_BROWSEINCLUDEFILES doivent également être placés ; = BIF_NEWDIALOGSTYLE = Employer la nouvelle interface utilisateur ; = BIF_NOTRANSLATETARGETS = Quand l'article choisi est un raccourci, renvoyer le PIDL du raccourci lui-même plutôt que sa cible. ; = BIF_SHAREABLE = Peut montrer les ressources en commun sur les systèmes à distance. Le drapeau de BIF_NEWDIALOGSTYLE doit également être placé. ; = BIF_UAHINT = Une fois combiné avec BIF_NEWDIALOGSTYLE, ajoute un conseil d'utilisation à la zone de dialogue au lieu de la boîte d'édition. BIF_EDITBOX dépasse ce drapeau. ; = BIF_USENEWUI = Employer la nouvelle interface utilisateur, y compris une boîte d'édition (setq sh (vlax-create-object "Shell.Application")) (if (setq rep (vlax-invoke sh 'browseforfolder 0 Message Drapeau Chemin)) (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path)) (setq rep nil) ) (vlax-release-object sh) rep ) Merci :casstet:

bon ben ok ! j'ai déjà survolé le demo.lsp qui rassemble une panoplie d'exemple, on va dire que je ne suis pas patient .... je fonctionne aussi beaucoup par analyse et comparaison de l'existant.... mais si on m'apporte les solutions toutes faites, je les prends ! ;) Je prends pour acquis le fait que ces liens(mort) ne m'apporteront rien ! Ne pourrait-on pas envisager de créér une base de connaissance sous ce forum ? classé par catégorie de fonction et documenté d'exemples, Utopique ? Allez, a+ Merci.

Qui ne tente rien n'a rien ... ;) je t'ai envoyé mon courriel par message privé ... A+ Merci.

Je pense que si on pouvait récuperer cette base de connaissance, on apprendrait peut-être plus vite à manipuler les variables ... ? ;) Merci ..... ;)

euh......... Tu peux me faire parvenir ton arx qui fait que ton grid fonctionne ? :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: :thumbup: Merci .........

euh... non ! En fait ce ne sont pas des espaces mais des tabulations , et çà passe pas bien visuellement ici ! Donc : un point = les espaces jusqu'a la tabulation suivante ... 1........champ1..........x.........b 2........champ2..........x.........c 3........champ3..........x..........d 4........champ4..........x..........x etc. :casstet: :casstet: :casstet: :casstet: (Odcl_ListBox_AddString "Boites" "Open" "LISTBOX" (strcat $tmp0 "\t" $tmp1 "\t" $tmp2 "\t" $tmp3 "\t" $tmp)) J'ai l'impression que : -soit le code "\t" ne fait plus de tab, ou que c'est un autre ascii ? -soit ce n'est pas l'itemData qui sert à definir les largeurs de champs ? Voilà ! Merci !

Ok, mais comment fais-tu pour passer toutes les largeurs de colonne dans cette variable, elle n'accepte pas les espace ni ,. etc Bref un seul param ! :casstet: Je veux faire un truc du genre : 1 champ1 t1 X 2 cjamp2 t2 X 3 ******* t* X a moins que tu puisses me dépanner sur le editable_grid qui ne fonctionne pas avec mon arx ? ;) Merci ...

Bonjour, Y-a-t-il un objectdcl pour autocad 2006 ? Bizarrement l'arx 2004 fonctionne mieux que l'arx 2005 (Rien de rien ne se passe) ????? :casstet: Merci

Bonjour, Je cherche le controle qui permet de faire fonctionner correctement les tabulations de séparation dans les listbox,equivalent de tabs = "5 35 65 70 72"; dans un dcl (ItemData ?) J'utilise bien le "\t" pour effectuer les tabs, ça m'affiche des code ascii bizarre dans ma listbox ? :casstet: Merci.

Bonjour, Je cherche un lien pour trouver les exemples odcl : http://www.objectdcl.com/knowledgebase/knowledgebase ********* Ne fonctionne plus ... Merci !

Bonjour, Milles excuses .... Mes intentions étaient uniquement de faire gagner du temps à ceux, qui comme moi, sont tombés sur des liens morts ou les codes sources à compiler .... ;) Mea culpa !

Autodesk can change ACET-functions in each new version... You owner LISP of functions - you can change the program at any time! Ok, I undenstand, so I take your example, faster than shell command ;) (defun GetFile (f p) (apply (function append) (cons (if (vl-directory-files p f) (mapcar (function (lambda (x) (strcat p "/" x))) (vl-directory-files p f)) ) ;_ if (mapcar (function (lambda (x) (GetFile f (strcat p "/" x)))) (vl-remove ".." (vl-remove "." (vl-directory-files p nil -1))) ) ;_ mapcar ) ;_ cons ) ;_ apply ) I only change \\ by / .... i think there is no problem with this ? Thank

Bonjour à tous, Toujours à des fin d'optimisations, j'ai une boite de dialogue spécifique (+ traitement dbase) pour ouvrir mes DWG, dans mes sources j'utilise des SLD pour afficher les images miniatures des DWG de mon répertoire de travail, (pa térrible !) cela m'oblige à generer un SLD à chaque sauvegarde DWG .... :casstet: Donc, ma question est : comment fait-on en lisp pour afficher le miniature d'un DWG dans mon image_button du dcl ? : image_button { label = "IMG"; key = "IMG"; width = 70; height = 20; is_enable = true; } ou dis-je passer par ObjectDCL ? :o Merci !

ACET peut changer dans n'importe quelle version, mais LISP vous-mêmes, vous changez, s'il faut! I did'nt understand ! Maybe in english ? Thank

Bonjour, J'ai trouvé une version d'opendcl : http://sourceforge.net/project/showfiles.php?group_id=187950 On peut me confirmer la compatibilité 2006/2007/2008 ? Merci

Super ! Merci, cela fonctionne à merveille ....., Dans tous les exemples on a du natif autocad ACET et du LISP j'ai cru comprendre qu'il valait mieux utiliser les fonctions LISP que ACET ? Re-Merci :D

Bonjour, A des fins de programmation j'ai besoin de savoir en permanence si un fichier DWG à été modifié depuis mon dernier traitement, la seule solution que j'ai trouvé c'est de faire un CHEKSUM de celui-ci, puis de stocker sa valeur dans une base de donnée. Au second traitement je relance un chksum sur ce fichier, si la valeur à changée c'est que le fichier à été modifié ! Merci pour votre intérêt ! [Edité le 20/2/2007 par stephan35]

Bonjour, Afin d'optimiser mes programmes, je cherche une solution qui permet en Lisp d'extraire la liste des DWG (ou autre) du répertoire en cours, voici mon bout de soft existant que je trouve plus qu'archaique (ou Bricoleur du dimanche ... ;) ) $drive = path de mon soft $REP_TMP = répertoire de traitement Cache = shell caché Voici mon existant : ;_Supression des fichier mouchards (command "CACHE" (strcat "DEL " $drive "controle_dossier.md5")) (command "CACHE" (strcat "DEL " $drive "synchro.md5")) ;_ Construction du fichier bat (setq $Fichier_ecrire (open (strcat $drive "md5sum.bat") "w")) (write-line (substr $REP_O 1 2) $Fichier_ecrire) (write-line (strcat "CD " $REP_TMP) $Fichier_ecrire ) (write-line (strcat "dir \"" $REP_TMP "*.dwg\" \/B |sort > " $REP_TMP "listedesdwg.tmp") $Fichier_ecrire) (write-line (strcat "dir " $REP_TMP "listedesdwg.tmp > " $drive "synchro.md5") $Fichier_ecrire ) (close $Fichier_ecrire) ;_Création du chesksum (command "CACHE" (strcat $drive "md5sum.bat" )) Puis j'ouvre bêtement le fichier listedesdwg.tmp pour le mettre dans une liste. Le traitement md5 fera l'objet d'une autre demande . Merci pour vos suggestions et propositions ... :D

Bonjour à tous Je suis heureux de vous annoncer que mon accès à la base de données Via ADOLisp fonctionne à nouveau, cependant, [surligneur] n'utiliser pas le moteur dbase *.dbf [/surligneur] car il provoque l'arrêt des autres processus ODBC (y compris Borland BDE) ! Ceci est un bug microsoft ! Donc j'ai changé mon type de base de donnée , je suis passé en *.mdb .... (je serre les fesses ;) ) A bientôt !

Bonjour à tous Je suis heureux de vous annoncer que mon accès à la base de données Via ADOLisp fonctionne à nouveau, cependant, [surligneur] n'utiliser pas le moteur dbase *.dbf [/surligneur] car il provoque l'arrêt des autres processus ODBC (y compris Borland BDE) ! Ceci est un bug microsoft ! Donc j'ai changé mon type de base de donnée , je suis passé en *.mdb .... (je serre les fesses ;) ) A bientôt !

AUTOCAD N'Y EST POUR RIEN ! Ce serait bilou (Traduisez Microsoft) qui aurait laissé passé un petit bug : Ne pas utiliser AutoCAD + ODBC + Acces DBF ! :( Un correctificatif devrait arriver ......... Merci à tous !

Coucou bred ! Je corrige ma demande ! Hormis la méthode vlisp de fleming http://acad.fleming-group.com/index.html que tu viens de me fournir ............. :cool: Que j'ai trituré dans tous les sens, au risque de planté ma base de registre ... (msado15.dll) ;) Que j'ai vérifié sur d'autres postes et que cela ne fonctionne pas non plus ! Que je me suis dit, et bien ou ouvre la base et on fait ce que l'on a à faire, puis on la referme aussi tôt ! et bien non, car autocad plante si un autre executable exploite odbc en même temps ! Un à la fois mes enfants ! Conclusion : [surligneur] N'y aurait-il pas une autre solution, car celle-ci empêche tout autre executable d'accèder à une base de donnée via odbc , y compris autocad lui même ....... :o gregnegne ! [/surligneur] Que j'ai une autre solution qui dit : quand tu travailles avec autocad tu ne fais rien d'autres ! Mais elle ne me plait pas ! AAAAAAAAUUUUUUUU SSSEEEEECCCCOOOOOUUUUUURRRRRRSSSSSSS ! Ps: AutoDesk m'a envoyer boulé ! Allé voir votre fournisseur Ps2 : Mon fournisseur m'a envoyé boulé ! N'est pas compris dans le contrat de maintenance ...... gregnegne ! Merci !

Bonjour , Rien ne marche ! :mad: Même pas çà : Sub con() 'Déclaration de la variable de connexion Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection 'Définition du pilote de connexion cnx.Provider = "Microsoft.Jet.Oledb.3.51" 'Définition de la chaîne de connexion cnx.ConnectionString = "C:\maBase.mdb" 'Ouverture de la base de données cnx.Open End Sub çà plante sur la première ligne : [surligneur] ADODB.Connection [/surligneur] Merci quand même ! :(

Bonjour, L'attribut est un texte qui ressemble à un texte sans être un texte ..... ;) Il peut avoir les même caractéristique qu'un texte, couleur, style, calques etc. Il ne fonctionne que dans un bloc, il est formellement interdit d'utiliser un attribut comme substitue de texte hors bloc ! (de toute facon tu ne pourra pas mettre d'espace !) tu le crées la commande _attdef, Il a une étiquette : identifie un attribut par rapport à un autre dans un même bloc, l'étiquette peut aussi te servir de lien avec une base de donnée, ou lors d'une exportation. Il a une question : Question posée lors de l'affichage de la boite de dialogue ou lors de l'insertion du bloc (voir attreq et attdia) Il a des caracteristiques : IVCP I : Invisible oui/non : visible à l'ecran (attmode) V : vérifie oui/non : lors de l'insertion, on repose les questions ? C : Constant oui/non : non modifiable P : Prédifini : On pose la question lors de l'insertion Voila pour un résumé ! Puis tu fais ton bloc, ! lorsque tu choisis tes entitées, il faut savoir qu'une capture ou fenetre inverse l'ordre de selection, donc choisi toutes tes entitées, puis les attdef en dernier en les pointants un par un ! Voilà Bon courrage ! ;)

Bonjour, Je me connecte avec "connecbd" sur une base via odbc, jusque là tout va bien ! Lorsqu'autocad est "connecté" aucun autre applicatif ne peut exploiter odbc , ni autocad lui même ! (dans une autre cession) :o Est-ce normal ??? Merci