l56

Bonjour, La vérification du lien par (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list http 'send))) provoque la création du fichier dans un dossier du type ...\Temporary Internet Files\Content.IE5\O2VBX9YT. C'est un probleme car quand on redemande cette vérification et que le fichier n'est plus sur le FTP, il considere qu'il y est encore. J'ai l'impression qu'il verifie d'abord dans les dossiers Windows et s'il le trouve, il ne verifie pas sur le FTP. Il faudrai, avant de faire cette verification, trouver et supprimer le fichier du disque dur. Comment peut-on faire ?

Salut Patrick_35, Pil-poil ce que je voulais. Encore une fois un grand merci. Bon WE

Bonjour, Toutes les commandes d'affichage du genre (princ, (prompt, (prin ... affiche le texte soit à la suite sur la dernière ligne soit sur une nouvelle ligne avec "\n". Est-il possible d'afficher un texte sur la barre de commande, puis de le mettre à jour. Pour afficher un pourcentage par exemple. Merci.

Merci Patrick_35. Comme d'habitude, ton aide est précieuse.

Bonjour, Est-il possible, à partir d'un lisp, de savoir si un fichier est présent ou non dans un répertoire se trouvant dans l'arborescence d'un site internet. un truc du genre : (commandelisp "http://www....../...../fichier.txt") si présent = 1 sinon = 0 Merci

Merci (gile) pour ce petit cours. Effectivement, maintenant, ça marche très bien.

Bonjour à tous, Pourriez-vous m'expliquer pourquoi (ssget "_x" '((-3 ("MONAPPLIC")))) fonctionne très bien mais : (setq var-1 "MONAPPLIC") (ssget "_x" '((-3 (var-1)))) ne fonctionne pas. Existe-il une possibilité de sélectionner des entités d'une application donc le nom est contenu dans une variable ? car je connais le nom de la variable mais pas celui de l'application. Merci.

Bonjour à tous, Pourriez-vous m'expliquer pourquoi (ssget "_x" '((-3 ("MONAPPLIC")))) fonctionne très bien mais : (setq var-1 "MONAPPLIC") (ssget "_x" '((-3 (var-1)))) ne fonctionne pas. Existe-il une possibilité de sélectionner des entités d'une application donc le nom est contenu dans une variable ? car je connais le nom de la variable mais pas celui de l'application. Merci. Je n'ai pas posté dans le bon forum. Désolé.

Merci pour votre réponse. Je vais effectivement créer une liste. Bonne journée.

Bonjour, Je sais utiliser la commande redraw mais j'aimerai savoir comment faire pour connaitre le statut d'affichage d'une entité. Si une entité est mis en surbrillance par (redraw ent 3) par exemple, la liste renvoyé par (entget ent) ne me donne pas d'information sur son apparence. Ou puis-je trouver cette info ? Merci.

Merci pour vos réponses. Etrange que l'on ne puisse pas automatiser certain traitement s'il on utilise cette commande ...

Bonjour, j'aimerai utiliser la commande FLATSHOT dans un lisp, mais (command "_flatshot") ouvre systematiqiuement la boite de dialogue. Pas moyen de tout parametrer sur la ligne de commande. J'ai essayé FILEDIA mais rien n'y fait. Si quelqu'un à une idée ... Merci.

Je vais aller regarder et étudier cela de près. Encore merci pour ton aide.

C'est parfait. Merci pour ta réponse rapide. Mais pour trouver tout seul ce genre de chose, je dois chercher ou ?

Bonjour, Ou peut-on trouver une liste d'équivalence du genre : LISP : (= "TEXT" (cdr (assoc 0 (entget ent)))) VLISP : (= "AcDbText" (vla-get-objectname (vlax-ename->vla-object ent))) Je cherche l'équivalent de : LISP : (assoc -3 (entget ent '("MY_APP"))) VLISP : ?? Merci pour votre aide ...

Merci (gile), je comprends ce que tu veux dire, d'ailleurs c'est ce que j'ai fait. J'ai utilisé des listes. Bonsoir.

Bonjour, Comment utiliser une variable que l'on a créée de la manière suivante : (setq compt "1") (set (read (strcat "nom_var_" compt)) "Bonjour ") (setq nom_var_2 "Monsieur") Pour concaténer les 2 variables, j'aimerai pouvoir écrire un truc du genre : (strcat (read (strcat "nom_var_" compt)) nom_var_2) pour obtenir : "Bonjour Monsieur" mais ça marche pas ??? comment dois-je l'écrire ... Merci à ceux qui savent. L56

Merci beaucoup. Bonne soirée

Bonjour à tous, J'aimerai créer un fichier .PAT mais je ne sais pas comment le charger. Y'a-t-il un moyen de fonctionner comme avec les fichier .LIN ou faut-il obligatoirement créer des nouvelles hachures dans les fichiers d'origine AutoCAD.PAT et ACADISO.PAT? Comment charger mon PERSO.PAT ? Merci L56

Merci Patrick_35 pour ta réponse. Mon problème, c'est qu'une fois ouvert, je charge des lisp qui s'exécutent automatiquement à l'ouverture du fichier. Et ça, ça ne marche pas avec ObjectDbx.

Bonsoir, Est-ce-que quelqu'un sait pourquoi avec autocad2011 j'ai ce problème sur certain fichier alors qu'avec AutoCAD2010 je ne l'ai pas. (setq fic-00 (vla-open (vla-get-documents (vlax-get-acad-object)) "c:\\dessin1.dwg")) [surligneur]; erreur: Erreur Automation Erreur de décryptage des données [/surligneur] Et bien sur, il n'ouvre pas le fichier. Peut être un indice : Quand j'ouvre le fichier manuellement, il me dit : "Le fichier DWG a été enregistré dans une application qui n'a pas été développé par AutoDESK ou qui n 'a pas de licence ...." Mais il le dit aussi avec AutoCAD2010. alors ...

Bonjour, Merci pour vos réponses et vos tests. De mon coté j'ai testé sur le même PC et avec des variables identiques pour A2010 et A2011. Fraid, toi qui trouve les même valeurs, serait-ce sous XP ou Seven ? Quand aux processus en cours, j'ouvre rien d'autre que les 2 AutoCAD et je teste plusieurs fois en passant de l'un a l'autre constamment et le résultat reste le même. Et cela sur différentes machines. Doit-on en déduire qu'AutoCAD2011 serait aussi rapide que sa précédente version SEULEMENT dans quelques configs bien précises comme celle de Fraid ?

Bonjour, Pourquoi sur une même machine équipé de W7, AutoCAD2010, et AutoCAD2011, j'ai des résultats si différents. La vitesse d'exécution du programme ci-dessous varie quasiment de 1 à 10 AutoCAD2010 : 20 millisecondes AutoCAD2011 : 50 à 150 millisecondes ?? J'ai mis le drivers de ma carte graphique à jour. Si quelqu'un veut bien tester sur sa machine ... Merci L56 (defun c:testvit () (setq p1 (getpoint "\nCliquez un point : ")) (setvar "cmdecho" 0) (setq t1 (substr (rtos (getvar "date") 2 8) 12 4)) (repeat 150 (command "_circle" p1 "30") (setq p1 (polar p1 (/ pi 4) 10))) (setq t2 (substr (rtos (getvar "date") 2 8) 12 4)) (princ "\nDurée: ")(princ (- (atoi t2) (atoi t1)))(princ " millisecondes")(princ))

Merci pour vos réponses. Patrick, ta réponse est pile-poil !!

Bonjour, Quelqu'un saurai-t-il comment on transforme le résultat de (getvar "date") dans le format de (getvar "cdate"). Existe-t-il une formule ou un lisp le faisant ? Merci à ceux qui savent. L56