pixel61

Salut lili C'est exactement ce que je voulais faire avec avec une boite de dialogue en VBA :) dommage pas l'avoir vu avant merci [Edité le 23/9/2009 par pixel61]

Salut L'idée c'est qu'au lieu de faire une boite de dialogue en DCL, la faire avec une userform en VBA, (plus pour une question de facilité et de possibilités d'interface). Dans cette boite de dialogue rassembler plusieurs Lisp (rangé par sujets) chargés puis exécuter depuis des boutons de commande. C’est vrais que je pourrais charger mes lisp avant dans AutoCAD.lsp, puis utiliser la méthode à Bred, mais je voulais essayer dans la mesure du possible de charger les fichiers "Lisp" seulement en cas de besoin, peut-être je me complique la vie pour rien :) Tout dépend si dans VBA avec "ThisDrawing.SendCommand " on peut charger un fichier Lisp, ou alors ce n'est pas la bonne fonction ?? Encore merci pour votre aide A+

Bonjour à tous Je cherche la syntaxe pour charger puis executer un fichier lisp depuis un bouton de cde en VBA. j'ai essaié ça, mais ça ne marche pas. Private Sub CommandButton1_Click() ThisDrawing.SendCommand ("Load" & " " & "C:\\Documents and Settings\user\\My Documents\\AutoCAD\\Fonctions\\ExtrBlocs") & vbCr & "btowb" & vbCr Unload UserForm End Sub merci pour votre aide A+

Bonjour :) Merci beaucoup rom1_am j'ai testé et ça marche très bien

Bonjour à tous Je m'excuse de remettre ce post à l'ordre du jour, mais, comme je n'ai eu aucune réponse je me permets de relancer la chose. (Esque je me suis mal exprimé dans le post précédent ou alors ce n'est pas possible ? ) Ce code mis dans une userform ça marche très bien, j'arrive à insérer un bloc, la seule chose gênante s'est que lorsqu’on clique sur le bouton pour insérer il demande bien le point d'insertion mais le bloc il est invisible sur le pointeur. Alors esque il y a une variable ou je ne sais pas quoi pour que le bloc accroché au pointeur soit visible pendant l'insertion ? J'aimerais savoir si la visibilité du bloc sur le pointeur est possible ou pas Encore merci beaucoup pour votre aide A+

Bonjour à tous Je m'excuse de remettre ce post à l'ordre du jour, mais, comme je n'ai eu aucune réponse je me permets de relancer la chose. (Esque je me suis mal exprimé dans le post précédent ou alors ce n'est pas possible ? ) Ce code mis dans une userform ça marche très bien, j'arrive à insérer un bloc, la seule chose gênante s'est que lorsqu’on clique sur le bouton pour insérer il demande bien le point d'insertion mais le bloc il est invisible sur le pointeur. Alors esque il y a une variable ou je ne sais pas quoi pour que le bloc accroché au pointeur soit visible pendant l'insertion ? J'aimerais savoir si la visibilité du bloc sur le pointeur est possible ou pas Encore merci beaucoup pour votre aide A+

Bonjour à tous J'ai fait une bibliothèque de symboles en vba, mai je bloque sur un problème, j'ai un peu tout essaie mais rien a faire. Au fait c'est sur une partie du code qui concerne l'insertion du bloc, code que j'ai trouvé sur le forum (merci formula1) et c'est ceci. Le code fonctionne très bien, mais je ne comprend pas pourquoi le bloc n'est pas visible lors de l'insertion merci pour voter aide A+

merci beaucoup pour vos infos :)

Salut Merci pour vos infos, au fait gile la routine fonctionne très bien, le but étant d'ouvrir un document Excel et le laisser ouvert donc je ne peux pas le fermer au niveau de la routine. Ce que je ne comprends pas c'est pourquoi si je lance Excel normalement (pas depuis la routine) quand je le quitte il s'enlève depuis le gestionnaire des taches alors que si je démarre Excel depuis la routine lorsque je le quitte il reste actif dans le gestionnaire. Bon ce n’est pas un problème à la limite, c'était plus pour comprendre le pourquoi du comment :) Encore merci pour votre aide [Edité le 22/7/2009 par pixel61]

Bonjour à tous Voila, en cherchant un moyen pour ouvrir un fichier Excel j'ai trouvé un post de 2004 de Patrick_35 (que je remercie) d'ou j'ai extrait quelques lignes de code (légèrement modifié) et ça donne ceci : (defun c:Test () (vl-load-com) '--> Lancer Excel (setq xl (vlax-get-or-create-object "Excel.Application")) (vlax-import-type-library :tlb-filename "C:/Program Files/Microsoft Office/Office11/MSOUTL.OLB" :methods-prefix "xl-" :properties-prefix "xlp-" :constants-prefix "xlc-") (setq xl_wks (vlax-get xl "Workbooks")) '--> Ouvrir le fichier (setq xl_fichier (xl-open xl_wks "C:\\Test.xls")) '--> Rendre Excel visible (vla-put-visible xl 1) '--> Choisir la feuil1 du classeur (setq xl_classeur (vlax-get xl_fichier "Sheets")) (setq xl_feuille (xlp-get-item xl_classeur "Feuil1")) ) La routine fonctionne très bien, le seul problème c'est que lorsque je quitte le fichier, Excel reste actif dans les processus du gestionnaire de tâches de Windows, d'ou ma question, il y a un problème dans le code ? ou alors esqu'il y a un autre moyen d'ouvrir un fichier excel ? Merci pour votre aide A+

bonjour ludwig Effectivement je modifie les textes avec la commande find, mais ce que je cherche c'est la possibilité d'automatiser le remplacement de plusieurs textes du dessin via une routine, l'idée serait de mettre directement dans la routine les textes à remplacer, j'ai vu ça dans une routine de "gile" il me semble ------------------------------------------------------------------------------------------------------------------------------------------------------- (defun c:traduc (/ l1 l2 ss n txt) (setq l1 (mapcar 'strcase '("X" "Y" "Z")) ; liste à compléter l2 '("1" "2" "3") ; liste à compléter dans le même ordre ) (if (setq ss (ssget '((0 . "text")))) (repeat (setq n (sslength ss)) (setq txt (entget (ssname ss (setq n (1- n))))) (if (setq pos (vl-position (strcase (cdr (assoc 1 txt))) l1)) (entmod (subst (cons 1 (nth pos l2)) (assoc 1 txt) txt)) ) ) ) (princ) ) ------------------------------------------------------------------------------------------------------------------------------------------------------- ça marche très bien pour les textes mai comment faire pour que ça remplace aussi les attributs des blocs ???? Merci A+

Bonjour à tous ça fait un moment que je rode dans les forums, mais niet Voila mon problème est le suivant, je dois remplacer plusieurs textes dans nombreux dessins (et souvent les mêmes textes), j'aimerais trouver une routine list ou vba qui remplace plusieurs textes à la fois contenus dans tous le dessin, (texte mtext bloc). merci pour votre aide A+

Bonjour à tous Voila mon problème est le suivant, je dois remplacer plusieurs textes dans nombreux dessins (et souvent les mêmes textes), j'ai trouvé cette routine lisp très interessante, mais la question est comment faire pour remplacer plusieurs textes à la fois ? merci pour votre aide A+

Salut alors le N° 1 c'est le Dell Le N° 2 le hp, je ne sais pas si cela à une importance. byeee

Bonjour à tous Voilà j'ai trouvé le problème et je me réponds à moi même (<acronym class=dict title=) Peut-être que cette réponse peut servir à d’autre. Le problème de dimensionnement des boites de dialogue est du au fait que je travail avec deux écrans, un 22" et un 20" avec deux résolutions différentes et que je ne sais pas pour quel mystère informatique, si je travail sur l'écran 22" (hp L2245w) les boites de dialogue je peut les transformer dans n'importe quelle dimensions qui restent mémorisées, tandis que si j'ouvre une boite de dialogue dans l'écran 20" (dell 2001FP) je peut l'agrandir normalement mais elle ne reste pas mémorisé. Il suffisait de le savoir… mais cela n’explique pas pourquoi :)