lex

Salut, moi j’ai résolu mon problème de cette manière Je mets un point devant le 0 comme ceci Dans excel J'introduit le valeurs .01 .02 .03 .10 .11 .100 Puis attin Les valeurs se réinjecte et ensuit tu peux extraire de nouveau attout le .0 reste

Merci tamber de ta réponse, ça fonctionne, j'apprends à marcher ne m'en veux pas. a+

merci bonuscad de tes conseils j'ai introduit pause comme indiqué ça fonctionne, avec le choix de la rotation, mais pour les échelles non, il me demande d'introduire les valeurs quelle est la syntaxe? , je suis sûr que c'est tout simple (defun c:DN100 ( / ) (command "_insert" "c:/test/Tuyaux-rond-type.DWG") pause 114.3 114.3 ) c'est ok http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=27625#pid121086 [Edité le 21/4/2010 par lex]

Bonjour, je tente de céer un lisp qui insert un bloc dynamic de dimension 1x1 mais dans mon lisp je veux avoir la possibilité de choisir mon point d'insertion et de rotation la grandeur en x et en y ont la valeur 114.3 comme ceci (defun c:DN100 ( / ) (command "_insert" "c:/test/Tuyaux-rond-type.DWG") "114.3" "114.3" ) PROBLÈME ÇA MARCHE PAS UN PETIT COUP DE POUCE merci.

Bonjour, je tente de crée un lisp qui insert un bloc dynamic de dimension 1x1 mais dans mon lisp je veux avoir la possibilité de choisir mon point d'insertion et de rotation la grandeur en x et en y ont la valeur 114.3 comme ceci (defun c:DN100 ( / ) (command "_insert" "c:/test/Tuyaux-rond-type.DWG") "114.3" "114.3" ) merci.

ok merci.

Bonjour Gile, j'ai testé ton code au bureau en l'adaptant pour excel2007 ça fonctionne très bien, cependant chez mois ça passe pas plus loin que l'ouverture d'excel. si tu as une idée.... merci a+

Bonjour patrick_35, désolé j'ai cru que mon message n'était pas passé, j'a teste ton lisp, cat v2 mais ça donne le mémé résultat que cat v1 comme dans l'explication donné à gille, ça fonctionne que si le block attribut source est le même que le block cible. le code de gille est adapté à mes besoins. merci d'avoir consacré du temps à mon problème. a+

9a marche, sorry gile c'est une question de manipulation grand merci.

j'ai ça comme méssage Commande: copyatt Sélectionnez le bloc source: ; erreur: no function definition: VLAX-ENAME->VLA-OBJECT Commande: encore merci.

Bonjour gile, je viens de tester ton code il s'arrete juste après avoir saisit le bloc source, impossible de réinjecter dans les autres. a+

Salut, merci gile, j’ai fais le test ça ne convient pas Cela fonctionne uniquement si le bloc attribut source et identique au bloc attribut cible dans le cas contraire les information réinjectées ne sont pas mises à la bonne place En pratique les informations que j’extrais du bloc attribut source sont réinjecté a deux autres bloc attribut de nom et de forme différente leurs points commun étant leur ( étiquette, invite, layeurs ) Exemple : 1è symbole source sonde de température, 2ème symbole contact ouvert. 3ème symbole bornier avec câble et repaire câble.

Bonsoir zebulon, encore merci pour ton lisp insmul c’est super, je ne suis pas un crack en lisp mais j’ai essayé d’adapter mon script dans ton code mais sans succès. Comme ce-ci tu voies l’amateur. (defun insmul_err (msg) (command "_.undo" "_end") (setvar "ATTREQ" oldattreq) (alert (strcat "Erreur : " msg)) (setq *error* m:err ; restaurer *error* m:err nil ) (princ) ) (defun c:insmul (/ nomf oldattreq f l scriptname) (vl-load-com) (setq m:err *error* ; sauvegarder *error* *error* insmul_err ; redéfinir *error* ) ;; trouver le fichier qui contient les noms de blocs (setq nomf (getfiled "Sélectionner un fichier" "" "txt" 0)) (if nomf ; si un fichier a été sélectionné (progn (setvar "CMDECHO" 1) ; n'affiche pas le détail des commandes (command "_.undo" "_begin") (setq oldattreq (getvar "ATTREQ")); mettre de côté la valeur courante de ATTREQ (setvar "ATTREQ" 0) ; s'il y a des attributs, prendre les valeurs par défaut (setq f (open nomf "r")) ; ouvrir le fichier nomf en lecture (while (setq l (read-line f)) ; lire chaque ligne l de f (setq script (vl-filename-base l)) ; extraire le nom du bloc (if (tblsearch "script" scriptname) ; vérifier s'il est déjà inséré dans le fichier (setq l scriptname) ; dans ce cas on insère le bloc déjà présent (if (not (findfile l)) ; sinon on vérifie si le fichier existe (progn (alert (strcat l "\nnon trouvé")) ; faut croire qu'il n'existe pas (setq l nil) ; et on met l à nil pour éviter d'insérer un bloc inexistant ) ) ) (if l ; le bloc existe soit dans la table de bloc, soit dans le répertoire spécifié (command "_script" ; on lance la commande INSERER l ; du bloc l pause ; on attend que l'utilisateur donne le point d'insertion ) ) ) ; while (close f) ; fermer le fichier f (setvar "ATTREQ" oldattreq) ; remettre ATTREQ à sa valeur initiale (command "_.undo" "_end") ) ) (princ) )

Bonjour y a-t-il un lisp qui permet d'extraire des données d'un bloc attribut et que l'on peut réinjecter aussitôt dans un autre block attribut possédant les mêmes invite et étiquette sans devoir passer par un fichier txt comme dans l’express-tools attout et attin merci.

Salut, j'affirme le chemin est correct, ainsi que le nom du fichier xls C:\test\gabarit\test.xls merci a+

Salut gile , j'ai testé les deux code mais ça n' ouvre que excel et le fichier test.xls est introuvable le systéme envoie le message suivant 'c:\test\gabarit\test.xls' introuvable vérifiez l'hortographe du classeur et de la validité du placement. l'emplacement les nons tous et en ordre. je ne comprends pas. Bon week-end.

salut, non ça ne fonctionne pas le système lit et en ligne de commande il indique cela (startapp "C:/Program Files/Microsoft Office/OFFICE11/excel.EXE" " merci a+

Salut gile j'ai suivi tes remarques mais pas de résultat qui puisse me faire progresser Encore merci.

Salut, en réponse à vincentp010 Merci de te creuser la tête. dans mon bouton en chaine commande ^C^C_start;EXCEL.EXE; (ouverture d’ excel c’est bien mais c’est pas le but ) Ce code dans un lisp ouvre le repertoire mes documents. Puis je dois parcourir (defun c:test () (setq f1 (getfiled "Choisissez le fichier excel a ouvrir" "" "xls" 4)) (if (/= f1 nil) (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" (strcat "\"" f1 "\"")) ) ) ------------------------------------------------------------------------------------------------------------------------------------------- Ce code dans un lisp ouvre le répertoire mes documents. Puis je dois parcourir (defun c:test () (setq f1 (getfiled "Choisissez le fichier excel a ouvrir" "" "xls" 4)) (if (/= f1 nil) (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" "\"C:/test/gabarit/test.xls\"") ) ) ------------------------------------------------------------- j'ai fais des tests test 1 dans mon bouton en chaine commande (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" "\"c:/test/gabarit/test.xls\"") le système lit et indique sur la ligne de commande (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" " Il ne se passe rien -------------------------------------------------------------------------- test 2 dans mon bouton en chaine commande (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" "//"c://test//gabarit//test.xls//"") le système lit jusqu'au bout de la ligne et indique sur la ligne de commande (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" "//"c://test//gabarit//test.xls//"") nil Il ne se passe rien ------------------------------------------------------------- test3 dans mon bouton en chaine commande (startapp "C:\\Program Files\\Microsoft Office\\OFFICE11\\excel.EXE" "\"c:/test/gabarit/test.xls\"") le système lit et indique sur la ligne de commande (startapp "C: Il ne se passe rien --------------------------------------------------------- Test4 dans mon bouton en chaine commande (startapp "C:/Program Files/Microsoft Office/OFFICE11/excel.EXE" "\"c:/test/gabarit/test.xls\"") le système lit et indique sur la ligne de commande (startapp "C:/Program Files/Microsoft Office/OFFICE11/excel.EXE" " Il ne se passe rien ------------------------------------------------------------- Test5 dans mon bouton en chaine commande (startapp "C:/Program Files/Microsoft Office/OFFICE11/excel.EXE" "/"c:/test/gabarit/test.xls/"") le système lit jusqu'au bout de la ligne et indique sur la ligne de commande (startapp "C:/Program Files/Microsoft Office/OFFICE11/excel.EXE" "/"c:/test/gabarit/test.xls/"") nil Il ne se passe rien

Salut PATRICK_35, j'ai testé ton lisp cat,, mais si j'ai bien compris on sélectionne la source d'information pour l'injecter au symbole cible qui doit être identique à la source, c'est chouette, mais serait-il possible d'adapter sans te commander, à l'heure actuelle j'utilise le lisp attout et attin dans les expresstools. en pratique j'execute des plans elec ma source (exemple symbole d'une sonde de température) j'extraie ses informations pour les injecter à 2 autres symboles diffèrent en forme (exemple un symbole représentant un contact et l'autre un bornier avec ses câbles) mais qui contiendront les même informations que le symbole source. pour que cela fonctionne mes symboles ont les même étiquettes et invits mais je dois transiter par un fichier txt. l'idéal c'est un lisp comme cat mais inter symbole en s'inspirant de attout et attin sans transiter en txt merci au plaisir.

en réponse à a.imbault j'utilise une version 2009 et à ma connaissance non pas possible je fais la conversion sur un tableau excel puis j'introduis la valeur mais les étiquettes ont été configurées pour en m³/h mep pas encore au top. il faut espérer que les versions suivantes soient amélioré. p.s. bibliothèque personnalisée en mep 2009 pas conpatible en mep 2010

Salut, j'ai mis dans mon bouton en chaine de commande ceci comme tu m'as indiqué en une seul ligne. (startapp "C://Program Files//Microsoft Office//OFFICE11//excel.EXE" "\"C:/test/gabarit/test.xls\"") mais ça ne fonctionne pas. ai-je fais une erreur? en revanche dans le fichier lsp il va jusqu'au répertoire (mes documents) mais c'est pas encorde ça si tu as une idée encore merci .

Salut vincentp010, merci de ta réponse, j'ai testé c'est un premier pas. mais mon but est d' attacher un fichier .xls sur un bouton sur ma palette d'outils. donc en pratique je clic sur le bouton et le fichier attaché a celui ci qui se trouve par exemple dans c:test/gabarit/test.xls s'ouvre sans devoir se balader dans les répertoires et sous répertoires encore merci. a+

Merci pour ta réponse, sauf erreur de ma part tu lances excel et non pas un fichier.xls

bonjour à tous j'ai trouvé ceci sur le forum voir ci-dessous Ca marche mais quelle syntaxe faut-il utiliser pour ouvrir un fichier xls dans un répertoire bien précis. merci pour vos lumières ----------------------------------------------------------------- Messages: 6499 Inscrit(e) le: 2/9/2005 Statut: En ligne réponse n°4 postée le 16/12/2009 à 19:15 Salut, On peut aussi utiliser les "Commandes externes" dans le fichier AutoCAD.pgp (lire l'en-tête de ce fichier). Ça ne donne pas de boutons mais on peut entrer les commandes au clavier. Exemples pour la calculatrice Windows, Word, Excel : CALC, START CALC, 1,, WORD, START WINWORD, 1,, EXCEL, START EXCEL, 1,,