Carboleum

Ouf... Ca parait vraiment extrêmement compliqué, si pas impossible, par rapport aux solutions simples proposées ici.

Au temps pour moi, j'avais pas vu ton autre post et les autres réponses...

??? Command: cal >> Expression: 275.5/2 137.75 275.5/2 n'est pas un point. Je comprends pas cette phrase. C'est vraiment pas clair ton histoire, Qu'est-ce que tu cherches à faire exactement ?

Poète avec ca. ;-)

joli!

sisi, tu comprends le lisp: f(x) en algèbre se dit (f x) en lisp f(x,y) " " " " (f x y) " en lisp (fonction argument1 argument2 ...) renvoie le résultat donc (* 2 2) multiplie 2 par 2 et renvoie 4 si tu as Auto- ou ZW- CAD full, tu tapes (* 2 2) dans la ligne de commande et tu auras un 4 lisp peut utiliser le résultat d'une fonction en temps qu'argument d'une autre fonction: (+ (* 2 2) 3) te renverra un 7 (2*2+3) en lisp, il y a les fonction prédéfinies * + - / mod setq ... et, surtout, tu peux définir des nouvelles fonctions: f(x)=2x+4 en algèbre dit (defun f (x) (+ (* 2 x) 4)) en lisp (f 5) renvoie alors 14 (2*5+4) voilà tu comprends le lisp :-)

Vas voir du coté de LT extender (demandes à google ;-) Je sais pas ce que ca vaut mais c'est la seule solution semble-il. Sinon, tu as toujours ZW-CAD qui est beaucoup moins cher que AutoCAD. Est-ce que TotalAera tourne dessus ? J'ai un doute: TotalAera fonctionne avec des réacteurs, ceux-ci ne sont pas encore pas être implémentés dans zwcad. C'est pas gagné!

OOOh merci pour ce partage! C'est pas que je sois réfractaire à l'help sur le web, mais quand même un peu ;-)

Est-ce que c'est quelque chose qui sera disponible à terme? Je sais pas si beaucoup de monde l'utilisait lors de CadXP I, mais perso, c'était, pour moi, le meilleur moyen de suivre les nouveaux sujets et les trier (Ca se rapproche le plus du regretté NNTP). Ce serait vraiment dommage de devoir s'en passer. à+ PS: Merci à tous ceux qui ont mis en place ce forum CadXP II!

Une petite fonction lisp: (defun xreflist ( / tbl lst) ; 22/2/2007 (setq tbl (tblnext "block" t)) (while tbl (if (assoc 1 tbl) (setq lst (cons (cdr (assoc 2 tbl)) lst))) (setq tbl (tblnext "block"))) lst) te renvoie la liste des xref. à toi de les pomme-C pomme-V dans ton éditeur favori.

C'est beau! :-)

On voit bien les coutures malfaites -)

Pour sortir de la boucle en tapant "q": (while (progn (initget "Quitter") (not (= "Quitter" (setq o (entsel "\nChoix d'un objet ou Quitter: ")))))) Pour sortir en tapant , je ne connais pas. J'ai cherché du coté d'initget, sans résultat

Si j'étais toi, sans vouloir te vexer évidemment, je ne me lancerai pas encore tout de suite dans les boites de dialogue. Il te manque un peu de maitrise de l'AutoLisp. (c'est un avis perso) Sinon, si tu persistes ;-) va voir du coté des DCL dans le help de ton autocad. Ou encore OpenDCL (cfr google), mais je ne l'ai jamais utilisé.

bien vu, sauf qu'il faut plutot mettre (setq lpts (list pos)) Parce que append n'accepte que des listes omme arguments.

Bien souvent, c'est la meilleure méthode, et ca donne généralement un code beaucoup propre. Beau réflexe!

ici, tu as un parenthèse ouvrante en trop [Edité le 7/8/2011 par Carboleum]

(setq lpts nil) (setq lpts (append lpts (list pos))) (command "_pline") (mapcar 'command lpts) (command "")

Personne n'a une petite idée ?

Au fait, la commande _divide le fait très bien. Command: _divide Select object to divide: Enter the number of segments or [block]: b Enter name of block to insert: ...

Oui, il faut d'abord définir ce qu'est une distance entre deux polylines: moyenne/minimun des distances entre les sommets/centres des segments. Tu peux aller voir dans les vlax-curves*, il y a peut-être quelque chose qui existe déjà. (De toutes façon ces fonctions sont toujours bonnes à prendre) Bonne recherche!

Petit problème de syntaxe: entr est un réel et tu demandes de l'évaluer comme si c'était une fonction. (setq nbrR (/ (distance pt1 pt2) entr))

Bonjour à tous, Je cherche à créer un raccourci, et plus si affinité, pour la commande refedit. (command "-refedit" (car (entsel))) m'envoie un -refedit Select reference: Select object: Reference not found. Manifestement il s'attendait à autre chose qu'un (car (entsel)). Mais à quoi ? Quelqu'un a une idée ? Merci d'av.

L'erreur est ici --> (assoc 2 sel) le deuxième argument de la fonction assoc doit être une liste d'association: '((1 . "hello") (2 . "world") (3 . "!")) dans ton cas, sel est un entityname, il faut en obtenir la liste d'association via la fonction entget. ce qui s'écrit: (assoc 2 (entget sel)) [Edité le 29/5/2011 par Carboleum]

Un tapis de souris avec un repose poignet en plastic moux (enfin pas trop moux ;-) as-tu déjà essayé ?