Carboleum

Sinon, tu as les clones d'acad: zwcad, bricscad qui coûtent entre 500 et 600 boules.

Voilà qui est très chrétien. ;-)

L'accessibilité est fondamentale. J'utilise la fonction de flux RSS pour me tenir au courant des nouveaux sujets postés. Flux RSS que je peux lire sous Thunderbird (Opera le fait aussi). L'avantage est de pouvoir lire, étiqueter, trier les sujets, et finalement ne garder que ceux qui m'intéressent. Perso, la priorité est de garder cette fonctionnalité. Est-ce que j'ai rêvé ou il existe un moteur de forum en HTTP accessible AUSSI en NNTP ?

Pourquoi? c'est pas bien la Belgique? ;-)

Ha bon, ca ressemble à quoi un forum aspiré ;-) Blague à part, tu as les messages jusqu'à quelle année ? C'est facilement réutilisable ? Tu aiguise ma curiosité...

Pour moi, ce ne sont même pas les question récurrentes qui me chagrinent. Ce sont ceux qui s'attendent à ce que l'on fasse tout le boulot à sa place. C'est particulièrement désagréable. Il y a une grande différence entre : "J'ai essayé ceci, j'en suis arrivé là, mais je cale, comment faire ?" et "Qui la la routine qui permet de... (sous entendu, qui va la programmer et la modifier en fonction de mes besoins)" No comment! PS (gile) parfois, tu es trop sympa! ;-)

Ceci dit AutoLISP, en temps que dialecte du LISP, est l'un des derniers représentant du langage le plus populaire des années... hum '70. Lisp est né en '60. Bill Gates avait 5 ans. Il jouait aux petites voitures pendant que le MIT développait les bases de l'intelligence artificielle en... LISP (notamment). J'imagine que son succès vient du fait qu'il a une structure unitaire: tout est liste. Une donnée est une valeur ou une liste, une fonction est une liste, on l'appelle via une liste. Au même titre, une base de donnée est une liste, disons structurée. La valeur nil (rien) peut être considéré comme une liste vide. Sous AutoCAD, chaque objet (lignes, polylignes, blocs) est une liste et se manipule comme telle. Or LISP est conçu pour manipuler des listes. Les quelques fonctions de base de LISP et quelques une propres à AutoCAD suffisent a manipuler la base de donnée très diversifié d'un dessin AutoCAD. Et puis bon, la fonction command permet de tout faire puisqu'elle se substitue à l'utilisateur (voir le help). Si les parenthèses te rebutent vraiment il y a toujours la fonction cal qui permet une syntaxe plus habituelle. (voir help aussi) En définitive, AutoLISP permet de faire une petite macro à la volée, sur le pouce très facilement pour une action récurrente. Il permet aussi de réaliser des applications complexes, avec accès à tous les objets du dessin, une petite base de donnée interne, des actions dans d'autres fichiers AutoCAD et même des actions dans des fichiers externe, tel que Excell (Access ? (à confirmer)) Les boites de dialogues ne sont en général pas nécessaire. [Edité le 19/3/2011 par Carboleum]

+1

Hello, Ca vient du lisp d'ouverture d'une boite de dialogue de "ouvrir fichier"; Ca m'intéresse en remplacement de (getfiled) qui est un peu dépassée. Ce lisp vient de Patrick_35. S'il m'entends... ;-) à bientôt, Bruno

PS: au passage, un tout grand merci pour tes lisps et tes conseils! Suis sous Windows 7 64 bits et AutoCAD 2009, (vlax-create-object "userAccounts.CommonDialog") me renvoi nil, ca te dis quelque chose ?

la variable sdi ?

%%C pour diametre %%D pour degré <> pour la valeur de la cotation

Alors, c'était quoi ?

Notepad++ le fait aussi. C'est un bel exercice, Bravo (Gile). Est-il possible d'utiliser des expressions régulières ou des caractères de substitution à la wcmatch ?

Si c'est le PC qui se fige (impossible de faire quoique ce soit, même pas ALT-CTRL-DELETE) il est possible que c'est ton CPU (microprocesseur) qui a trop chaud; il se mets en sécurité. Avant de lancer AutoCAD, lance le Gestionnaire des tâches, onglet performance, tu verras la charge du CPU et de la mémoire. Si la mémoire est saturée, Windows passe son temps à la ranger plutôt qu'à la lire; Ce qui ralenti notoirement l'ordi. <acronym class=dict title=, c'est un problème hardware. Courage ;-)

la commande lengthen est ton amie

ThisDrawing.SendCommand ("(load \"C:/Users/Julien/Desktop/PROJET-SIG/Prog/lsp/SIG\")")

pourquoi pas la commande _bpoly ?

J'attaquerai comme ceci: (car (entsel)) -> une ligne cliquée (setq coords (mapcar 'cdr (vl-remove-if-not '(lambda (x) (or (= 10 (car x)) (= 11 (car x)))) (entget (car (entsel)))))) -> les coordonnées des extrémités (apply '* (mapcar '- (car coords) (cadr coords))) -> renvoie 0.0 si la ligne est parrallele à un des axes

aucun! c'est une convention d'écriture héritée du lisp qui signale que la variable est une variable utilisée en global, et non en local. mais ca n'a aucune influence sur celle-ci. c'est identiquement comme l'utilisation des nom de fonctions avec les initiales de l'auteur, qui permets juste de ne pas avoir de conflit, mais ca n'a aucune incidence sur son utilisation. certain éditeurs les colorent. c'est tout.

Excellent! merci! voici le code. (or *relativizeimagepath* (setq *relativizeimagepath* (vlr-acdb-reactor nil '((:vlr-objectappended . bl:relativizeimagepath))))) (defun bl:relativizeimagepath (rea obj / img) (if (= "AcDbRasterImage" (vla-get-ObjectName (setq img (vlax-ename->vla-object (cadr obj))))) (vla-put-imagefile img (vl-string-subst ".\\" (getvar "dwgprefix") (vla-get-imagefile img))))) Au moment de l'insertion d'une image, ce code convertit le chemin de celle-ci en chemin relatif, si l'image se trouve dans le répertoire (ou un sous-répertoire) du dessin

Lors de l'insertion d'images par glisser déposer depuis un explorateur vers AutoCAD, celui-ci est en chemin absolut. Je voudrais les mettre en chemin relatif automatiquement lors de cette insertion.

Merci, J'y avait pensé... (or (vlr-acdb-reactor :vlr-acdb-reactor) (vlr-acdb-reactor '((:vlr-objectappened . bl:reactor-objectappened)))) (defun bl:reactor-objectappened (a) (print 'appened)) j'ai essayé ceci, ca marche pas. Quel est mon erreur. J'avoue que les réacteur me sont un peu abscon ;-)

Hello, Est il possible de définir un réacteur pour l'insertion d'une image de la même façon que l'attachement d'un xref ? (vlr-xref-reactor nil '((:vlr-endattach . bl:reac-attach))) ne fonctionne pas pour une image. Quelqu'un à une idée ? Merci

Excellent! Merci! (defun bl:list2ss (lst / select) (setq select (ssadd)) (mapcar '(lambda (x) (ssadd x select)) lst) select) (defun bl:massoc (n lst) (vl-remove-if-not '(lambda (x) (= n (car x))) lst)) (defun bl:group-list-all () (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 350 (car x))) (dictsearch (namedobjdict) "acad_group")))) (defun bl:group-select-all () (bl:list2ss (apply 'append (mapcar '(lambda (x) (mapcar 'cdr (bl:massoc 340 (entget x)))) (bl:group-list-all))))) permet, par exemple: (command "erase" (bl:group-select-all) "")