Carbo

La touche Echap ? Dans les boites de dialogues, tu peux utiliser TAB, ENTER, ESCAPE, les fleches,,,, [Edité le 5/5/2008 par Carbo]

La touche F6 ? Ou alors j'ai pas compris la question. :-/ [Edité le 11/4/2008 par Carbo]

Joli coup, bien vu! Par contre, tu aura des blocs appelés H30D qui ont l'apparence des H30V,,, ce qui n'est pas l'idéal.

Voici une fonction magique qui permet de modifier un peu tout ce qu'on veux d'une entitée: (defun apply-to-select (var func select) (if (= 'pickset (type select)) (repeat (setq n (sslength select)) (setq entity (ssname select (setq n (1- n)))) (entmod (subst (cons var (apply func (list (cdr (assoc var (entget entity)))))) (assoc var (entget entity)) (entget entity)))))) que tu peux utiliser comme suit: (apply-to-select 2 '(lambda (x) (vl-string-subst "H30V" "H30D" x)) (ssget)) PS: Le code peut bien-sûr être optimisé,,, je t'en laisse le soin ;-) [Edité le 11/4/2008 par Carbo]

Ce n'est pas un problème de \\, c'est la commande insert qui n'accepte pas d'expressions autolisp. essayes ceci: (command "insert" fic)

Mdsv31: tu facture à l'heure ou à la mission (forfait) ?

Qu'est-ce ?

Plus simple: (defun c:vplock () (command "_-vports" "lock" "on"))

Oops! (defun ssmap (fct ss / n lst) (if (= 'PICKSET (type ss)) (repeat (setq n (sslength ss)) (setq lst (cons (apply fct (list (ssname ss (setq n (1- n))))) lst)) ) ) ) (j'utilise telement cette fonction que j'oublie qu'elle n'est pas incluse dans Autocad ;-)

Je place mes xref dans un layer du même nom que le xref. Ce qui le place juste devant ses calques dans la liste des calques, c'est très pratique. Pour ce faire, j'utilise cette petite commande xhome de ma composition: (defun xref-p (ename) (vlax-property-available-p (vlax-ename->vla-object ename) 'path)) (defun xref-gohome (xref / el) (entmod (subst (cons 8 (cdr (assoc 2 (setq el (entget xref))))) (assoc 8 el) el))) (defun c:xhome ( / e) (ssmap '(lambda (e) (if (xref-p e) (xref-gohome e))) (ssget '((0 . "INSERT")))))

yo, $(getvar,ctab) te donne le nom du layout. j'imagine que ceci fonctionne: $(getvar,date),d/m/yyyy) file:$(getvar,dwgname) layout:$(getvar,ctab) Je n'utilise pas rtext, mais en lisp avec la fonction (menucmd) ca fonctionne. [Edité le 20/3/2008 par Carbo]

J'ai pas très bien compris à quoi sert ton code... Tu peux faire un petit résumé ? ;-)