stephan35

Après mon échec en dbx, j'attaque en vla voilà mon code qui plante (setvar "SDI" 0) (setq vla(vla-open (vla-get-documents (vlax-get-acad-object)) (strcat $rep "\\" (Odcl_Control_GetText Boites_Open_EFIC)))) (vla-zoomextents vla) (vla-close vla) (setvar "SDI" 1) Le serveur ActiveX a renvoyé l'erreur: nom inconnu: ZoomExtents :casstet: Un petit coup de pouce ??? Merci [Edité le 16/2/2007 par stephan35]

Ces exemples fonctionnent correctement, mais cela me reste assez difficile à comprendre .... Il me manque des bases ... Je vais plutôt creuser dans un premier temps tout ce qui est vla*** :( .... (j'ai aussi du mal .. ) Merci

Ah bon ? ... Soit, Aurais-tu l'extrême amabilité de me tuyauté un ou deux exemples avec vla**** Pour revenir au dbx, cela va m'inposer de revoir totalement mes programmes .... :casstet: Merci ...

hummmmmmmmm ... :mad: :mad: :mad: :mad: Tu me portes la poisses ....... (je plaisante) Cela ne fonctionne pas ! J'ai un autre soucis pour toi dans le forum, je cherche à effectuer des commandes autocad en Dbx, il doit me manques des bases .... Merci pour vos réponses .

J'ai procédé et observé ...... pour la purge 0 pour les arx unload : Je change de folio ............ :D :D :D :D :D :D :D :D :D :D :D :D :D :D Ok merci !

Je ne vois rien ....... y a rien à voir ? ;)

Bonjour, Je tente déseperemment de faire un zoom en DBX ? (setq Dbx (@Open_dbx (strcat $rep "\\" (Odcl_Control_GetText Boites_Open_EFIC)))) (setq sp (vla-get-ModelSpace dbx)) (vla-zoomextents Dbx) (vla-zoomextents sp) (vla-saveas Dbx (strcat $rep "\\" (Odcl_Control_GetText Boites_Open_EFIC))) (@Close_dbx Dbx) soit en passant par Dbx ou par sp : Je ne comprends rien .......... :( Merci pour le petit coup de main ....

Bonjour, je tente de faire un peu de ménage dans les chargements d'autocad, et, avec appload, je m'apperçoit qu'un tas d'arx sont chargés, sans que cela soit forcément utile ???? L'autoload est vide ! :o L'acad2006doc.lsp est vide ! :o d'ou peut provenir ce chargement intempestif, et ou l'inhiber ? :casstet: Merci ....

bonjour, Je cherche bêtement un équivalent de la commande (load "c:/test.lsp") Si il y en a une .... ;) Merci [Edité le 16/2/2007 par stephan35]

aîe aîe aîe , communiquer , compendre et se faire comprendre , toute une affaire .... J'avais bien assimilé le principe d'ouverture de fichier autocad en DBX ... Le but de ma demande était d'obtenir le code pour effectuer le chargement d'un fichier LISP en vlisp ou autre méthode dbx ? :D l'équivalent à (load "prout.lsp") ... Merci patrick_35 ...

Autant, pour moi ... mea culpa ! J'ai lu trop vite .... ou j'avais envie d'y croire ... ;) Bref, Peut-on forcer avec DBX le chargement de routines lisp et avec quelle commande SVP ? Merci beaucoup ...

Bonjour, J'avais gardé cet article sous le coude en attente d'utilisation, je suis donc maintenant confronté au même problème que vous tous ... Mon cas: dans mon pseudo explorateur de folio autocad, je visualise mes dwg, et donc je lance des traitements de fond, et mon cas pose problème dès le début, patrick_35 , certifie que les lisp sont chargé (voir acad2006doc.lsp) ? certain ? (ou alors il y a du filtrage ?) Petite suggestion: Pourquoi ne pas executer une commande lisp avec l'équivalent (load xxxx) en vlisp ou autre (que je ne maitrise pas ...) :P Vous pourriez me la donner cette commande .... ? Bon ben voilà ! c'était pour faire avancé le s.....c Merci

Désolé, MDR Moi non plus je ne comprends pas ... Il faudrait que tu puisses exprimé clairement ton besoin ou ton problème, perso, je me suis perdu dans un dédal d'explication et d'expressions qui me sont incompréhensibles .... Peut-être y-a-t il 2 problèmes imbriqués ? Essaye de bien séparé les choses, si tu veux faire un comparatif vba / vlisp, tente de décrire l'existant en vba ? à ton écoute ... ;)

Dommage ! C'est aussi comme ça que j'ai remplacé ma prog, Sinon il y a l'acet-ui-txted qui ,lui, renvoie nil (acet-ui-txted "texte a remplacer" "Title" "Question:") et puis la repasser en objet pour controler les évolutions autodesk (defun InputMboxe ( $texte $titre $question / ) ;Controle de l'arx ;Partie à changer avec les évolutions (acet-ui-txted $texte $titre $question) ) ???? :casstet:

Oops j'avais oublié ! Lorsque l'on fait annulé, le retour est "" :mad: Cela devrait être nil ?

Bonjour, J'ai récupéré chez patrick_35 : (defun InputBox (Titre Message Defaut / *acad* users1 valeur) (setq *acad* (vlax-get-acad-object) users1 (getvar "users1")) (acad-push-dbmod) (vla-eval *acad* (strcat "ThisDrawing.SetVariable \"USERS1\"," "InputBox (\"" Message "\", \"" Titre "\", \"" Defaut "\")")) (setq valeur (getvar "users1")) (setvar "users1" users1) (acad-pop-dbmod) valeur ) Cependant, ça lance VBA ..... Pour les puristes : avons-nous l'equivalent en (v)LISP ???? :casstet: Merci !

Je vais manquer d'ajectifs qualificatifs ....... ;) Merci !

Merci Gile Merveilleux ! Super ! etc. :D

Bonjour, Tu veux protégéer un DWG précisément ? Sinon , si le cas se présente sur un poste de travail, ou tu veux interdire la modification de certains fichiers, par exemple des cartouches qui s'appellent car*.dwg, il y aurait une solution qui consiste, sur teste du nom de fichier (getvar "dwgname") de détruire l'ensemble des commandes autocad, y compris la commande sauvegarde (nondef ""), à manipuler avec précaution .... ;) Ces options seraient propre à un environnement de travail, sinon il te reste aussi le verrouillage à l'ouverture du fichier (non testé pour ma part). Bon courrage

Bonjour, Voici un code dans lequel je souhaite rajouter un filtre genre : "je veux obtenir tous les DWG sauf ceux qui commence par a" (GetFilePath "*.DWG" "a*.DWG" "C:/") Code actuel : (defun GetFilepath (file path) (apply (function append) (cons (if (vl-directory-files path file) (mapcar (function (lambda (x) (strcat path "/" x))) (vl-directory-files path file)) ) ;_ if (mapcar (function (lambda (x) (GetFile file (strcat path "/" x)))) (vl-remove ".." (vl-remove "." (vl-directory-files path nil -1))) ) ;_ mapcar ) ;_ cons ) ;_ apply ) (code piqué chez ev..y) GetFilepath (file ext path) ... wcmatch ??? Un petit casse tête ? :casstet: Merci ...

Les version LT sont volontairement bridées, seul les marcros DIESEL subsistes ... Ps : je ne connais pas LT Extender :exclam: Exprime autrement tes besoins, beaucoup de personnes sur ce forum pourront te répondre ;) Bon courrage !

çà marche ! Super ! çà fonctionne à merveille , sauf qu'evidemment on dépende des express tools ....... :mad: Merci ! :)

Oops Merci tramber ! Le code tabulation ne fonctionne pas, mais comme dans l'exemple, on utilise : (Odcl_ListView_AddItem Boites_Open_ListView(list "ppppp" "ooooooo" "iiiiii")) Qui insère un champs par colonne .... Je continue le dev et je ferme le sujet ... A+ ;)

Tout est bien qui fini bien ......... mais .... :casstet: Donc je laisse tomber le ListBox (ingérable !) Je passe en ListView Mode 3 (report) Pour les controles : (Odcl_ListView_AddColumns Boites_Open_ListView(list (list 0 "Folio" 0 50) (list 1 "Titre 1" 0 200) (list 2 "Titre 2" 0 200)(list 3 "Indices" 0 50)(list 4 "Nuages" 0 50))) (Odcl_ListView_AddItem Boites_Open_ListView "123 \\t 456") (Setq rValue (Odcl_ListView_AddItem Boites_Open_ListView(list "ppppp" "ooooooo" "iiiiii"))) et ça fonctionne ! :D :D :D :D :D :D :D :D :D :D :D :D

Bonjour, Bon, l'arx que tu m'as fournis ne fonctionne pas (rien ne se passe ) c'est une version 1.0.0.1, celle qui semble fonctionner est la 4.0.0.6 ...... Le fait de passer sur la derniere version d'opendcl explose mes fichiers odc ! :mad: Lorsque j'utilise ma version, je ne peut pas utiliser l'objet GRID ! (erreur sur l'ouverture odc), et je n'arrive pas à utiliser la fonction multicolonne de mes listbox !!! Je tourne en rond !!! :casstet: :casstet: :casstet: :casstet: :casstet: :casstet: Si quelqu'un a une petite idée, je suis preneur ! ;) Merci ...