Matt666

Ah tiens pour une fois BricsCAD a pensé à ton problème (enfin pas complètement !) !!! la variable CMDLNTEXT Change le mot ou le symbole affiché sur la ligne de commande indiquant que le programme est prêt à recevoir une commande... Eh oui !! par défaut le logiciel n'a pas le mot "Commande", mais juste " : "... LE bel intérêt du logiciel !! :) Sinon, avec TERPRI ? [Edité le 11/10/2007 par Matt666]

Il faut quand même vérifier si le chemin existe.... Le but étant de lancer un bout de code à chaque démarrage pour voir si le chemin existe... Mais c'est vrai qu'un simple vl-string-search suffit !! Du genre (if (eq (vl-string-search NouveauChemin (getenv "ACAD") nil) nil) (setenv "ACAD" (strcat (getenv "ACAD") ";" NouveauChemin)) ) ... [Edité le 11/10/2007 par Matt666]

A partir de la version 2004, les fichiers de support ont été déplacé (c:/program files/... -> c:/documents and settings/...). personnellement les outils supplémentaires sont sur le serveur de fichiers, dans un répertoire spécifique. Tous les PC équipés du log DAO pointent sur ce répertoire dans les options de chemins des fichiers. Ensuite il faut juste lancer CHARGMNU, et le tour est joué. De plus, plus de problème lors des mises à jour des outils !!! Une seule copie sur le serveur, et on recharge les outils. C'est tout. Ce n'est pas encore le cas sous la 2004. A partir de la version 2006, les fichiers MNU sont transformés en fichiers CUI. Mais ça ne pose pas de pb lorsqu'on lance la commande CHARGMNU ! Acad change convertit automatiquement les fichiers MNU en CUI ! il faut juste paramétrer les chemins des fichiers de support sur tous les postes en ajoutant le chemin commun sur le serveur ! C'est tout...

je pense pas que ce soit possible.. le texte est sous l'entité bloc... Si tu modifies le texte, la référence n'est plus valable... Enfin je pense que c'est comme ça ! A bientot. Matt.

Démente cette routine toute simple !! Merci Bred !!

Ah dément un challenge 13 !! ta technique ne fonctionne que si un seul bouton de saisie utilisateur hors de la boîte de dialogue est disponible... Tu peux donner des flags à (done_dialog) qui te permettent de pouvoir donner des instructions pour chaque boutons... Avec un (setq loop (start_dialog)), tu donnes à la varible loop le flag de ton bouton, puis avec un (cond ((eq loop [flag du bouton])... Tu définis les actions pour ce bouton... Enfin bon je suppose que tu sais déjà tout ça... Voilà ! A bientot. Matt.

Merci pour vos réponses !!! Bseb67, non je ne sais pas écrire en lisp dans la bdr... Surtout en autolisp !! Bred, merci pour ces bouts de codes ! Malheureusement je ne peux pas utiliser de VLISP, à part les celles transcrites par gile... Gile, merci !! C'est exactement ce que je voulais... (getenv "icad"), c'est bien ça... Et en plus avec un petit str2lst, ça devrait aller tout seul :D ! A bientot ! Merci...

La vache mais il est vachement compliqué ce challenge !!!! Gile, comme toujours, tes précisions sont redoutables d'efficacité !! Bon bah on va d'abord essayer de comprendre ce qui est demandé avant de se lancer :) A bientot. Matt.

Salut ! Comment ça va en ce beau jeudi ensoleillé ?? :) Ma question est dans le sujet !! Comment faire pour ajouter en autolisp un chemin dans les chemins de fichiers de support disponible dans les options ??? Merci d'avance !! A bientot. Matt.

Salut !!! Merci pour cette très belle révision de l'énoncé Gile ! C'est vraiment plus clair maintenant... Dément.. Je vois que ça marche toujours aussi fort (enfin pour les 3 personnes qui répondant !!)... Je n'avais pas pensé aux angles... j'étais encore à essayer de savoir si les 3 premiers points étaient alignés !! Trop compliqué quoi.. Merci encore pour ces très beaux exemples de codes (eh oui un code peut être beau !!), je teste ça ce matin.. A bientot. Matt.

Gile c'est exactement ça ! Par contre autre exemple : (remove-align '((114.03 270.06) (153.248 270.06) (153.248 259.453) (153.248 250.23) (153.248 239.162) (153.248 227.633) (153.248 217.949) (135.715 217.949) (135.715 205.498) (153.248 205.498) (153.248 194.43) (153.248 187.974) (153.248 176.445) (114.03 176.445))) -> ((114.03 270.06) (153.248 270.06) (153.248 217.949) (135.715 217.949) (135.715 205.498) (153.248 205.498) (153.248 176.445) (114.03 176.445)) Ca veut dire que si des points sont alignés mais ne se suivent pas, ne pas les supprimer ! Bseb67, des points 2D suffisent... 3D si tu veux, mais ça change pas grand-chose je pense... Et aussi, c'est MATT, pas Mat.. didon... :D Merci pour ces précisions vous deux !! A bientôt.. Matt. [Edité le 8/10/2007 par Matt666]

Au fait Gile sera un peu avantagé, voire il doit avoir déjà une fonction similaire... il s'est déjà penché sur des fonctions d'alignement... Mais bon, cela ne veut peut être rien dire... Quoique.. :P

Non, Il faut prendre 3 points par 3 points, et si les 3 points sont alignés, supprimer le point superflu... C'est tout.... Si les 3 points ne le sont pas, on passe aux autres ! Mais bon on peut faire cette variante aussi ! je ne pense pas qu'il faille fonctionner comme ça... Les points sont des points, c'est tout... Vois plutôt ces points comme les sommets d'une polyligne... Ce qui fait une nouvelle contrainte en fait (je viens d'y penser)... Zut c'est pas très clair mon truc.... Dans la fouchette des trois points à vérifier, il faut que le point milieu soit strictement entre les deux points précédents... Voilà... je change l'énoncé... Merci bseb67 !! PS : Tout à fait d'accord bred :cool: A bientot ! [Edité le 8/10/2007 par Matt666]

Et Bing encore un !! il s'agit de supprimer les points alignés et au milieu de 2 autres dans une liste de points... Ex : (remove-align '((18.0071 2.97385 0.000000) (18.0071 11.0191 0.000000) (21.4685 11.0191 0.000000) (24.8363 11.0191 0.000000) (24.8363 7.93200 0.000000) (24.8363 2.97385 0.000000) (18.0071 2.97385 0.000000))) -> ((18.0071 2.97385 0.000000) (18.0071 11.0191 0.000000) (24.8363 11.0191 0.000000) (24.8363 2.97385 0.000000) (18.0071 2.97385 0.000000)) je sais pas si c'est assez clair... Voilà ! bon courage ! Matt.

Donc ce serait un attribut que tu veux ? Ou tous tes dessins aurait un texte "nom du patin" ? Je comprends pas bien mais essaie peut être SAS (super auto script) de Eric...

Et c'est quoi des blocs bollard ? tu en trouves avec notre cher ami Google...

Attention j'ai pas la version 2008... Normalement, si je me souviens bien, tu peux modifier ton gabarit par défaut Dans Outils/options, onglet fichiers.. Là tu peux mettre le fichier gabarit par défaut. En l'occurrence le fichier gabarit d'AutoCAD.. (je crois que c'est acadiso.dwt)

Désolé j'avais pas vu que tu avais répondu ! D'accord ok... Oui je ne connaissais pas l'existence de READ, jusqu'à ce challenge10 !! Bien pratique... Par contre elle ne lit pas les points, faut juste faire gaffe à ça... Sinon je ne sais pas si tu as vu ça, en parlant de fonctions que tu as faites... Voilà, sinon as-tu vu le dernier post que j'ai mis ? je ne sais pas pourquoi la fonction non-récursive ne tourne pas... Si tu pouvais (encore, une fois de plus) m'aider, ce serait assez de la balle ! Merci. A bientot. Matt.

A la base c'est, comme tu dirais Gile une coquetterie... J'ai fait une routine qui copie un texte et le colle en ajoutant un nombre à la chaîne. Si c'est un entier ou un décimal, pas de p. J'aurais pu laisser tomber à partir du moment où le texte copié est une chaine de caractères, mais nan ! A chaque nombre trouvé il ajoute la valeur demandée ! Voilà... Ce n'est pas le lisp le plus utile jamais écrit, mais il a le mérite de soulever des problèmes méritant un challenge ;) A bientot. Matt. [Edité le 4/10/2007 par Matt666]

Ah oui, effectivement... Ca va pas fonctionner !! Dc il faut ptet faire une ligne fictive pour chaque pt temporaire que l'on créé ? Sinon je vois pas trop... Mais je vais tenter un truc comme ça..

Merci pour ta réponse Gile ! Ouf ! Bah oué je me doute bien... J'ai essayé d'être le plus clair possible... Faut croire que c'est raté ! Tu comprends ce que je veux, toi, par exemple ? Toi qui maitrise parfaitement les grdraw et consorts ;) Ce qui revient à la première raison... Grmbl... Le pire cet que je vois pas vraiment comment être plus clair !! a la limite j'aurais peut être pas du parler de Autocad LT... Bon je cherche un moyen d'être plus clair.. Merci Gile ! Matt.

Bah tant mieux !!! ne sont pas suroccupés... :thumbup: [Edité le 4/10/2007 par Matt666]

Si tu t'y connais un peu en lisp, regarde dans le code et si tu as un truc du genre (setvar "TILEMODE" 0) qui n'est pas rentré dans le (defun), c'est ça ! Enfin bon... Bon courage en tout cas ;) C'est l'un des lisps que tu as chargé en dernier qui cause le problème... (forcément !!) A bientot. Matt. EDIT : Ah... Grillé !! [Edité le 4/10/2007 par Matt666]

Et avant ça ne le faisait pas ?? Bizarre... C'est la variable Tilemode qui contrôle le choix de l'espace... TILEMODE = 0 -> Espace papier TILEMODE = 1 -> Espace objet Si tu passes toujours en espace papier, c'est que cette variable est forcée à chaque démarrage... As-tu des lisps chargés au démarrage? Si c'est le cas, cela vient peut être de l'un des lisps... Après je ne connais pas bien architecture...

c'est une question très... vague !!!! Tu pourrais préciser un peu ??? C'est quoi ça ??? Merci. A bientot. Matt.