Bred

Salut, la foction que tu cherche est "foreach" : (setq toto ( list "coordonnées1" "coordonnées2" "coordonnées2")) (if (foreach n toto (equal "coordonnées2" n))(princ "coordonnées2 est dans la liste") (princ "coordonnées2 n'est pas dans la liste")) (princ)

Alors là je ne suis pas sûr, mais je crois que ça vient de l'éditeur visual lisp d'autocad (mais je n'en connait pas la raison). Pour éviter ça je crois, il faut que tu ailles dans les OPtions / Options générales de l'éditeur visual et que tu testes les options proposés... mais certainement que quelqu'un su forum ici présent sera plus apte qu emoi à t'expliqué les options exacts et le "pourquoi du comment" ....

Salut, question : vous est-il déjà arrivé d'avoir un bug dans l'extraction d'Attribut d'autocad ??? Tout mes blocs sont renseignés avec des attributs fixes. J'ai un bloc imbriqué, lorque je l'insert et que je lance une extraction d'attribut, tout fonctionne (j'ai l'un des blocs = 20) Si je le copie 1 fois (j'ai donc 2 blocs imbriqués dans le plan) et que je lance l'extraction, il me décompte le blocs du dessus : quantité 22 ??????????? (40 normalement : 20+20....) et ça ne me le fait que pour 1 bloc... (les autres blocs constituant la pièce sont correctements décompté...) je l'ai refait (et modifiés), changé le nom, récris les attributs, rien n'y fait.... Cela est déjà arrivé à quelqu'un ????

Salut, même au clavier (ctrl c / ctrl v) ?

oulà.... ... je comprend tout à fait, tu peux demander ce que tu veux comme explication, mais l'une des choses les plus importants et de chercher à comprendre quel sont les utilités de tel ou tel options... Les "paramètres" que je décris ci dessus sont les miens, ce qui ne veux dire qu'ils soient bon!!! ... (même si le fait de bouger l'un des paramètres dans cette boite de dialogue n'entraine pas de gros problème... sauf pour l'unité d'insertion... quoique ça aussi on peut toujours y remédier après coup...) Autocad est un logiciel tellement complet qu'aucune formation quelqu'elle soit ne t'apprendras à tout utiliser, et à l'utiliser correctement...... pour ça, il n'y a qu'une seule solution : tester, tester et retester.... selon tes besoins propre...

MBUTTONPAN Gère le comportement du troisième bouton (ou de la molette) du périphérique de pointage. 0 Prend en charge l'action définie dans le fichier de personnalisation (CUI). 1 Prend en charge le panoramique effectué par glissement avec utilisation de la molette ou maintien du bouton en position enfoncée.

en RDM, le moins cher (mais pas le monidre quand on sait l'utiliser) c'est RDM 6 !!! ... je ne savais pas qu'avec Inventor on pouvait faire de la RDM ... depuis que je "lisp" un peu, je suis étonné que personne ne ce soit lancé dans un developpement avec pour base autocad... j'avais commencé à faire un petit truc pour une poutre sur 2 appuis (faut bien commencer par quelque chose) mais je n'ai pas encore eu le temps de vraiment aprofondir ...

Robotbat ou Scia Esa PT ... y'en a plein d'autre....

... alors non, ce ne doit pas être lui ...

Salut grand_sapin, tu l'as passé à quel endroit ton BTS TP ? j'ai connu aussi un M. Veysseire à Antibes.

Je ne vois pas trop à quoi ça peut te servir : lorsque je créé de wbloc j'ai : - Objets Coché - Convertir en bloc Coché - Unité d'insertion : Millimètres Puis Je " choisis un point" , je " choisi un objet" et je rentre un nom de bloc dans un chemin d'accés déclaré dans mes fichiers supports....

Après l'avoir inséré, quand tu le selectionne, la griffes correspondant au point d'insert est à l'endroit où tu l'a inséré ou là ou est le point d'insert du bloc normalement ?? (pas sûr d'être clair moi....) autre manip pour même résultat : si tu fais un copier du bloc par exemple, en choisissant le point de base avec le système d'accrochage "point d'insert", le point d'insert se trouve où il devrait se situer normalement ou il est ailleur ??? (ton souci de bloc inséré avec un nom et c'est un autre qui arrrive est résolu ?)

Salut, ... qu'est ce que tu attends par là ??? (au figuré.... pas à UN endroit précis.... ;) )

Salut, ... tu veux faire un puzzle d'impression ou je n'ai pas compris ??? si c'est le cas, tu fais tout tes tirages en faisant "baver" le "cadre" d'impression sur les "cadres" mitoyen et, après tirage, vive le ciseau (ou la pliage) et le scotch... le problème de la marge blanche (rebord invisible) est un problème d'imprimante... pas de solution.... ... le format 11x17, c'est des pouces ? ...

salut, ... ??? ... un calque gelé dans TOUTES les fenêtres = un calque gelé.... tout simplement....

ton prog d'insertion est en lisp ? ou : tu insères dans un plan vierge tes 5000 premiers points puis tu inseres dans un AUTRE plan vierge les autres 5000 tu changes le calque des points dans l'un des plan, puis tu fais un copier avec point de base / coller pour assembler les points ensembles... (ou en Xref, mais perso je n'aime pas les Xref...)

pour le point d'insert décaler je trouve ça trés bizarre... as-tu jeté un coup d'oueil sur ta variable "base" ???... est ce que le décalae est constant ? (même distance pour tout les blocs) question bonus : de quel manière inserts tu tes blocs ? (tout clavier, design center, boite de dialogue "insert" ....)

... et pour ma seconde question ? ....

ne le prend pas mal, mais on ne sait jamais : tu es sûr que ces deux blocs ne sont pas les même sous un nom différent ???.... si tu insères dans un dessin vierge le second avant le premier, qu'est-ce qu'il se passe ???? (virge : il ne faut pas les blocs dans la collection !!!)

j'édite mes exemples ci-dessus, y'a des parenthèses en trop.... désolé....

Salut, après un rapide coup d'oeuil : 1 - tu met en varaible locale le chemin d'Excel..... (defun Liaison_Xl (/ Chemin_Excel Environ Version_Excel) ... .... donc tu ne peux pas le rappeler dans (defun Open_Xl () .... il faut simplement : (defun Liaison_Xl () ... 2 - j'ai l'impression que tu fais une erreur quand tu rappels tes variables : tu les mets entre guillement... ce n'est alors plus une varaible mais un texte... la routine Open_XL modifié : (defun Open_Xl ( [surligneur] Chemin_Excel nom[/surligneur]) ;; Lancer Excel (setq xl (vlax-get-or-create-object "Excel.Application")) (vlax-import-type-library ;;:tlb-filename "C:/Program Files/Microsoft Office/Office/Excel8.olb" ;;Pour Excel 97 :tlb-filename [b] Chemin_Excel[/b] :methods-prefix "xl-" :properties-prefix "xlp-" :constants-prefix "xlc-") (setq xl_wks (vlax-get xl "Workbooks")) ;;Ouvrir le fichier test.xls sur la racine du c, ou sinon, l'active dans Excel (setq xl_fichier (xl-open xl_wks [b] nom[/b])) ;;Rendre Excel visible (vla-put-visible xl 1)) ... mais je ne voie peut-être pas tout.... edit ----------- et passer [surligneur] les aurguments [/surligneur]à OPen_Xl !!!! - corrigé ci-dessus- [Edité le 31/8/2006 par Bred] [Edité le 31/8/2006 par Bred]

Salut... Je ne pense pas que ce soit possible... Si je devais faire un type de point par calque je passerais par les blocs en "dessinant" le point, en le mettant dans le calque désiré et en le transformant en wbloc... si tu veux garder l'accrochage nodal à ce point tu insères un point "point" dans ton bloc et tu pramètres les formats points pour qu'il n'aparaisse pas ... ---- edit ha... je viens de me faire griller... mais j'avoue ne pas comprendre la procédure... c'est quoi un "légende" (à part le texte dans une étiquette s'entend...) [Edité le 31/8/2006 par Bred]

... comprend pas non plus mais je tente vu que j'ai l'impression que tu viens du vb je vais faire simple Addition de valeur : (setq val1 (getint "\n 1 ère valeur :")) (setq val2 (getint "\n 2 nd valeur :")) (setq resul (+ val1 val2)) Utilisation de if : (if (= resul 0) (setq mess "resul = 0") (setq mess "resul different de 0")) (alert mess) [Edité le 31/8/2006 par Bred]

... et bien voilà!!! il c'est dénoncé !!!! .... et moi j'ai gagné !!! .....

Salut, Venant de ce forum (désolé je ne sais plus qui en est l'auteur... il n'aura qu'a ce faire connaitre... je pencherais pour Patrick_35.... non ?) si tu fais une recherche tu trouveras certainement l'original Version d'Excel : !lisp qui détermine le fichier pour faire une liaison avec excel et qui donne sa version ;!Un (car (Liaison_Excel)) retourne le Fichier pour faire la liaison ;!un (cadr (Liaison_Excel)) retourne la version d'excel ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Nom variable chemin = Chemin_Excel ;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun Excel_Version() (if (setq Chemin_Excel (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" "Path")) (progn (foreach Environ (list "SYSTEMROOT" "WINDIR" "WINBOOTDIR" "SYSTEMDRIVE" "USERNAME" "COMPUTERNAME" "HOMEDRIVE" "HOMEPATH" "PROGRAMFILES") (if (vl-string-search (strcat "%" Environ "%") Chemin_Excel) (setq Chemin_Excel (vl-string-subst (strcase (getenv Environ)) (strcat "%" Environ "%") Chemin_Excel)))) (if (= (vl-string-elt Chemin_Excel (1- (strlen Chemin_Excel))) 92) (setq Chemin_Excel (strcat Chemin_Excel "Excel.exe")) (setq Chemin_Excel (strcat Chemin_Excel "\\Excel.exe"))) (cond ((findfile (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel8.olb" "Excel.exe" Chemin_Excel))) ((findfile (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel9.olb" "Excel.exe" Chemin_Excel))) ((findfile (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)) (setq Chemin_Excel (vl-string-subst "Excel10.olb" "Excel.exe" Chemin_Excel)))) (cond ((= (strcase (vl-filename-base (vl-filename-directory Chemin_Excel))) "OFFICE11") (setq Version_Excel "2003")) ((= (strcase (vl-filename-base (vl-filename-directory Chemin_Excel))) "OFFICE10") (setq Version_Excel "XP")) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL8") (setq Version_Excel "97")) ((= (strcase (vl-filename-base Chemin_Excel)) "EXCEL9") (setq Version_Excel "2000"))) (if (not Version_Excel) (setq Chemin_Excel nil)) ) ) ) pour "discuter" avec Excel : ;Un exemple pour lire/ecrire des valeurs dans Excel depuis Autocad ;Pour activer les fonctions visual-lisp (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/Office/Excel8.olb" :methods-prefix "xl-" :properties-prefix "xlp-" :constants-prefix "xlc-") (setq xl_wks (vlax-get xl "Workbooks")) ;Ouvrir le fichier test.xls sur la racine du c, ou sinon, l'active dans Excel (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")) ;Choisir la cellule A10 de la feuille (setq rng (xlp-get-range xl_feuille "A10")) ;Lire la valeur dans la cellule et la mettre dans la variable valeur (setq valeur (vlax-variant-value (xlp-get-value rng))) ;Ecrire une valeur dans la cellule (xlp-put-value rng "VALEUR A ECRIRE") ;Copier la feuil1 (setq xl_feuille (xlp-get-item xl_classeur "feuil1")) (setq xl_dernier xl_feuille) ; xl_dernier=xl_feuille par défaut (xl-copy xl_feuille xl_dernier) ; si :vlax-true, ça s'est bien passé ;Déplacer la feuille copié (setq xl_deplace (xlp-get-item xl_classeur "feuil1 (2)")) (xl-move xl_feuille xl_deplace) ; si :vlax-true, ça s'est bien passé ;Renommer la feuille feuil1 (2) en TEST (xlp-put-name xl_deplace "TEST") ;Sauvegarder le fichier Test1.xls sur la racine du c (xl-saveas xl_feuille "c:\\Test1.xls"); si :vlax-true, ça s'est bien passé ;Fermer le fichier (xl-close xl_wks) [Edité le 30/8/2006 par Bred]