l56

Merci à vous , je vais décortiquer tout ça ! a+

Bonjour, A partir d'un nom d'entité du type : (-1 . ), Comment peut-on savoir si une entité fait partie d'un groupe, et si oui, lequel ? Merci

Un peu d'infos ... Après plusieurs tests: Avec Windows XP et AutoCAD 2004 ou 2006, - CTRL ne fonctionne pas systématiquement. elle retourne puis plus rien ne se passe. - Si ALT et SHIFT sont enfoncés, le clavier passe en QUERTY (seulement sous AutoCAD) => re ALT et SHIFT, et le clavier repasse en AZERTY. mystère, mystère .... Avec Windows VISTA et AutoCAD 2008, tout fonctionnent normalement. a+

Salut, Effectivement la routine LISP fait ce qu'il faut. Merci pour l'info, ça marche top ! a+

Je suis aller voir, (je ne connais rien en VBA). Je ferai des tests cette semaine et je te tiendrai au courant. Merci bon WE bye

j'ai retourné GRREAD dans tous les sens, mais je n'arrive pas à faire ce que je veux. Je souhaiterai faire un (entsel) , et si l'utilisateur sélectionne un objet en ayant appuyé sur CTRL alors je n'exécuterai pas la même chose que s'il n'a pas appuyer sur CTRL. C'est pourquoi juste avant de faire (entsel), il faudrait que je fasse quelquechose qui me renvoi si une touche du clavier est enfoncée. J'ai peut-être un autre piste: Quand je fais (entsel) sans CTRL, il renvoi: (Nom d'entité: 7efe3b98 (-1933.18 942.458 0.0)) avec CTRL, il renvoi: Cycle activé Cycle désactivé(Nom d'entité: 7efe3b98 (-1933.18 942.458 0.0)) Il y a donc une difference que je n'arrive pas à controler. merci

Bonjour, Est-il possible de savoir si l'utilisateur appui sur une touche (CTRL , Maj ou autre...) ? Merci à ceux qui savent.

Salut Patrick_35, (setq tbl (vlax-safearray->list (vlax-variant-value (vlax-get-property http 'responsebody)))) (if (vl-catch-all-error-p (setq fic (vl-catch-all-apply 'vlax-invoke (list fso 'createtextfile file)))) .... Ce code ci-dessus est extrait de la routine que tu a fait (voir réponse n°10 ce ce fil), Ce qui m'étonne, c'est qu'il fonctionne tres bien sauf sur la version 2008. La liste tbl contient des valeurs superieur à 256. C'est étrange, je ne comprend pas pourquoi. Si tu as une minute ... Par avance merci. Bon WE L56

Salut Patrick, Et ton mouchoir ... toujours noué ? ;)

Je suis un ane !!! J'ai fais un copier-coller des valeurs du 210 plutot que de faire un (cdr ... Merci pour tout ! a+

Ok, avec trans, cela fontionne. mais j'ai un probleme de précision. Avec la commande LISTE (et luprec à 8) j'ai: ARC Calque: "0" Espace: Espace objet Maintien = 1cdcb centre point, [surligneur] X=210101.78306176 Y=509959.43895478 Z=0.00740386[/surligneur] rayon 0.20000000 Direction d'extrusion relative au SCU: X=0.04900426 Y=-0.09638865 Z=0.99413672 longueur 0.62831853 angle total 180 Et avec ENTGET, j'ai ((-1 . ) (0 . "ARC") (330 . d'entité: 7eacf2d8>) (5 . "1CDCB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle") (10 418399.0 357259.0 -38858.4) (40 . 0.2) (210 0.0490043 -0.0963886 0.994137) (100 . "AcDbArc") (50 . 2.79217) (51 . 5.93376)) Comment se fait-il que je n'ai pas plus de décimales dans la liste ci-dessus ? (trans (cdr (assoc 10 a)) '(0.0490043 -0.0963886 0.994137)'(0.0 0.0 1.0)) [surligneur] (210101.0 509960.0 -0.0119145)[/surligneur]

Merci (gile), Je comprends que le changement du code 210 déplace l'entité, mais si en même temps que ce changement , je change les codes 10 / 11 ... (12 et 13 pour des 3DFACEs ou autres..), l'entité devrait rester à sa place. Ce que je n'arrive pas à déterminer c'est la manierre de convertir les coordonnées des codes 10,11 ... à partir des valeurs du code 210. Je pense que ce dois être possible. Il suffit de trouver la formule. Ou peut-être de passer par des matrices (mais la, je n'y connais rien). a+ L56

Bonjour à tous, Est-il possible de remettre tous les assoc 210 avec les valeurs ci-dessus sans que, bien sur, l'entité ne se déplace (dans son propre SCU ou dans un autre). Pour ceux qui ne savait pas quoi faire ... :-) Merci L56

C'est parfait. Merci encore

Salut Patrick_35 Ma réponse de 13h01 s'adressait à Matt666 pas à toi. je crois que l'on à poster au même moment ou presque. Ce que tu mas donné pour ouvrir un fichier, c'est nickel ! Comment tu fait pour fermé ce même fichier avec options de sauvegarde ou non. Merci encore.

Bonjour à tous J'ai trouvé une solution pour ouvrir un fichier à partir d'un autre :: (command "vbastmt" "ThisDrawing.Application.Documents.Open \"c:\\test.dwg\"") Je pense qu'il doit y avoir plus élégant. J'aimerai la même chose pour fermer ce fichier. (avec le choix de sauvegarder ou pas) Je n'arrive pas à fermer un fichier, il les ferme tous. Comment faire ... Merci L56

Y'a un truc qui cloche ! ça ma planté AutoCAD Merci quand même, Je vais demande dans le forum Visual. a+

Merci matt666, OpenDrawing, ça marche bien ! Et maintenant, essaie donc de faire ça (command "_close" "_y") Il refuse de fermer sans sauvegarder. Et c'est excactement ce que je souhaite faire !! Si tu as une petite idée ... a+ [Edité le 27/9/2007 par l56]

Merci Matt666, mais il y a un probleme: Tu ne peux mettre la variable SDI à 1 que si il n'y a qu'un seul dessin d'ouvert. S'il y en a plusieurs ouverts, je ne peut pas décider, à la place de l'utilisateur, de fermer tous les autres dessins. Il me faudrait une autre solution, peut-etre en VLISP, mais je n'y connais rien.

(command "_open" "c:\\test.dwg") Ce code ne fonctionne que si la variable SDI = 1 Que faire si l'on souhaite ouvrir un dessin en mode SDI = 0 ? Merci. L56

Merci à vous 2 la solution avec vl-catch-all-error-p me convient mieux car je ne connaitrais pas toujours la variable et certaine variable peuvent accepter des valeurs négatives ou du texte ou seulement des INT et non pas des REAL ... etc .... La solution de (gile) me semble idéal. (ça marche avec setvar, j'ai testé)

Bonjour, Comment savoir à l'avance que la valeur que l'on souhaite donné à une variable ne sera pas bonne ? Ex: (setvar "LTSCALE" -150) Cette valeur négative me stopera la routine.Il faudrait donc que je fasse un test avant. Comment ? ....

oui, ou tu as aussi la variable WORLDUCS qui n'a que 2 positions: 1 ou 0 bye

Merci Tramber Bonne soirée.

Bonsoir, Quelqu'un pourait-il m'expliquer ce que fait cette commande et d'ou vient t-elle ? Elle supprimerait les doublons... En A2004, elle n'existe pas, en A2006 elle existe mais : rien dans la doc ! Merci L56