Carboleum

merci, mais il ne prend pas les unnamed groups une autre idée ?

vlx est un format dit exécutable. en gros c'est un programme, un software. pour lancer des exécutables, il faut une plateforme. les .exe s'exécutent sous windows. les .vlx s'exécutent sous autocad. sous autocad, tu lances les .vlx avec la commande _appload par exemple. [Edité le 14/12/2010 par Carboleum]

Bonjour, Est-il possible de faire une sélection de tous les groupes d'un dessin (named et/ou unnamed) ? merci d'avance, Bruno

tu peux toujours faire un (vl-remove "loading.lsp" (apply 'append (mapcar '(lambda (x) (vl-directory-files *lsppath* x)) '("*.lsp" "*.dvb" "*.arx" "*.fas")))) pour avoir la liste des fichiers à charger les *`~*,`#*`# correspondent aux motifs des fichier temporaires crées par un éditeur que j'utilise de temps en temps. (un peu comme le _ls de vlide ;-) Il se fait que, étrangement, (vl-directory-file path *.lsp) renvoie aussi les fichiers tels que #temp.lsp# ou temp.lsp~. J'ai donc du les filtrer en aval. [Edité le 13/12/2010 par Carboleum] [Edité le 13/12/2010 par Carboleum]

tout simplement (defun c:llsp () ; load lisps (mapcar '(lambda (x) (princ (strcat "\n" x)) (load (strcat *lsppath* x))) (acad_strlsort (vl-remove-if '(lambda (x) (wcmatch x "*`~*,`#*`#,loading.lsp")) (vl-directory-files *lsppath* "*.lsp")))) (princ)) avec *lsppath* le chemin, mais il ne voit pas les sous-répertoire.

Il faut simplement lancer les impression pdf depuis Word ou Excel, le pdf va s'ajouter dans le file d'attente.

il existe des applications qui peuvent s'installer (aille le mot est dit ;-) sur une clef usb. googelise portable applications. tu trouvera peut-être un éditeur qui te satisfasse. Bonne chance ;-)

Je sais pas si ca va te convenir, car tu ne peux pas installer quoi que ce soit, mais tu peux toujours aller voir la commande Unix sed. Elle existe en version "sous windows", et tourne en ligne de commande. http://www.siteduzero.com/tutoriel-3-287602-la-commande-sed.html Voir tout en bas pour windows.

En tous cas, pas chez moi, quelque soit le moyen d'y arriver quand il est déjà ouvert (excepté via la commande vlide), il remplace la flèche de la souris par une sorte de logo autocad et je sens bien qu'il ne veux pas y aller... La console est plus "conviviale" que la ligne de commande (coloration syntaxique, sélection par double clic), elle est dans l'éditeur donc pas besoin de basculer dans AutoCAD et surtout, elle permet d'évaluer des expressions depuis la fenêtre d'édition sans avoir à les copier (en les sélectionnant puis Ctrl+Maj+E). Ha oui, en effet! Et il est donc possible d'évaluer des parties de lisp. Joli! [Edité le 5/12/2010 par Carboleum] [Edité le 5/12/2010 par Carboleum]

Les grands esprits se rencontrent ;-)

(defun bl:uniq (lst) (if (cdr lst) (cons (car lst) (bl:uniq (vl-remove (car lst) (cdr lst)))) lst)) (defun bl:massoc (n lst) (mapcar 'cdr (vl-remove-if-not '(lambda (el) (= n (car el))) lst))) (defun bl:lst->tree (lst) (cond ((not (car lst)) nil) (t (mapcar '(lambda (el / m) (cons el (bl:lst->tree (bl:massoc el lst)))) (bl:uniq (mapcar 'car lst)))))) Bon, j'imagine qu'il y a plus esthétique, mais ça marche bien ;-) Command: (lst->tree lst) (("1" ("1.1" ("1.1.1") ("1.1.2")) ("1.2") ("1.3" ("1.3.1" ("1.3.1.1") ("1.3.1.2")))) ("2") ("3" ("3.1") ("3.2" ("3.2.1") ("3.2.2") ("3.2.3")))) Petite explication: uniq renvoie la liste sans les doublons: (uniq (mapcar 'car lst)) -> ("1" "2" "3") massoc est une sorte de fonction assoc multiple, et renvoie tous les cdr des listes dont le car vaut la valeur en argument: (massoc "3" lst) -> (("3.1") ("3.2" "3.2.1") ("3.2" "3.2.2") ("3.2" "3.2.3")) lst->tree renvoie, pour chaque valeur unique des car de la liste, l'assoc multiple de cette valeur issus de la liste. Si ces résultats sont des listes, on refait appel à lst->tree. Et ainsi de suite jusqu'à ce qu'il n'y ait plus de liste. C'est pas très clair, mais j'ai toujours eu du mal à exprimer une fonction récursive en français ;-) [Edité le 5/12/2010 par Carboleum]

Hello, Après (command "pline") Acad s'attend à recevoir des points (soit des (getpoints), soit des (list x y). Or, tu lui envoies une entité (entlast), il ne sais pas quoi en faire. A quoi servent les (ade_odaddrecord ...) ? Que cherches-tu à faire exactement ?

;-) Je te l'accorde, le fait de pouvoir charger un morceau ou tout un lisp est très très pratique. M'enfin bon, je le place dans un répertoire, et j'ai une commande qui charge automatiquement tous les fichiers de ce répertoire. Pour un petit morceau de code, je fais un copier-coller dans la ligne de commande... Une question d'habitude. Ce qui horripile, c'est que Autocad ne veux pas passer la main à son propre éditeur sans obliger l'utilisateur à lancer la commande "vlide". L'interpréteur lisp est accessible par la ligne de commande, pas besoin de l’éditeur vlide. Je m'incline! ou ALT TAB depuis l'éditeur externe Tout ça, je connais pas, (vl-bt) me satisfait pleinement, mais ca a l'air bien utile, je vais donc l'essayer, et qui sait, peut-être l'adopter ;-). (*) Par contre, Notepad++ fait de la recherche de texte dans tous les fichiers d'un répertoire (et sous-répertoire) en une seule fois, et ça, c'est hyper utile. Les recherches acceptent les expressions régulières. Notepad++ colore et met en forme d'autres langages de programmation. Notamment le Perl, que j'utilise pour établir la liste des fonctions contenues dans un fichier, pour classer les lisps, éliminer les doublons, et surtout déterminer les dépendances (fonctions utilisées par d'autres fonctions). Tu me diras que ca m’empêche pas d'utiliser Notepad++ pour le Perl et Vlide pour le lisp et , mais bon, j'aime bien Notepad++ ;-) @+, Bruno (*) Je vous ferais un petit rapport ;-) [Edité le 4/12/2010 par Carboleum]

Alors ? As tu essayé Notapad++ ?

wcmatch est ton ami...

(sslength (ssget '((0 . "insert") (2 . "le-nom-de-mon-bloc-à-compter")))) à étoffer ;)

si les objets sont bien bylayer dans le fichier xref, tu peux faire _-layer _color 1 *|*

Regarde la fonction trans (trans pt 0 1)

_array ?

Bien au contraire je trouve ce code très élégant. tu peux même le simplifier: (defun bl:length (x) (if x (1+ (bl:length (cdr x))) 0)) (c'est beau! ;-)

Je ne pense pas que se soit possible. Par contre, si tu cherches un très bon éditeur externe, je te conseille vivement Notepad++: http://notepad-plus-plus.org/fr/node/7 Je suis passé à un éditeur externe parce que le passage de l'éditeur visual-lisp à autocad et vice-versa était très peu intuitif (en gros j'y arrivais pas ;-)

ceci devrait t'aider: (mapcar 'read (read (strcat "(\"" (vl-string-subst "\"\"" "HA" (vl-string-subst "\"\"" "x" (vl-string-subst "\"\"" "e=" "10HA14x4.00m e=18cm"))) "\")"))) pour la connection avec xls: http://www.cadxp.com/sujetXForum-29763.htm bon code!

(defun c:xreload () (or vlax-ename->vla-object (vl-load-com)) (command "_.-xref" "_reload" (vla-get-name (vlax-ename->vla-object (car (entsel))))))

Pas claire ton explication. D'après ce que j'ai compris, tu cherches à "binder" ton xref. Va dans l'Xref manager, click droit sur l'xref en question puis "Bind" (*) (*) en français, je connais pas.

Vas voir du coté de la fonction (atoms-family ...)