defrai

merci encore

Pour plus de précision la première ligne du tableau comprend qu’une colonne. Je ne comprends pas car avec la 2007 ca fonctionnais très bien. [Edité le 18/7/2008 par defrai]

ok (if col (vlax-for i (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)) ) (if (and (/= (substr (vla-get-name i) 1 1) "*") (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object) ) ) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (length libloc) 3 20 100 ) ) (vla-put-TitleSuppressed tableVL :vlax-true) (setq cont -1) (repeat (vla-get-Rows tableVL) (vla-settext tableVL (setq cont (1+ cont)) 0 (nth cont libloc) ) (vla-settext tableVL cont 1 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL cont 2 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL cont 0 5) (vla-setcellalignment tableVL cont 1 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (cond ((atom lst) lst) (T (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) ) )

bonjour, Voila j’utilise un lisp pour faire mes légendes Mais depuis que je suis passé en 2008, J’ai un problème sur la première ligne elle n'est pas comptabiliser. Je suis juste utilisateur et pas programmeur. Merci d’avance pour votre aide voici le lisp que j'utilise (if col (vlax-for i (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)) ) (if (and (/= (substr (vla-get-name i) 1 1) "*") (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object) ) ) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (length libloc) 3 20 100 ) ) (vla-put-TitleSuppressed tableVL :vlax-true) (setq cont -1) (repeat (vla-get-Rows tableVL) (vla-settext tableVL (setq cont (1+ cont)) 0 (nth cont libloc) ) (vla-settext tableVL cont 1 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL cont 2 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL cont 0 5) (vla-setcellalignment tableVL cont 1 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (cond ((atom lst) lst) (T (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) ) ) [Edité le 18/7/2008 par defrai]

merci lili mais j'ais fait ca mais ca ne me convient pas car j'ais commencé comme ca j'ais fais un type de ligne de ce type : (pour faire une ligne type cablofil ) *cablo,cablo ###### A,01,[track1,ltypeshp.shx,s=0.635],-0.05,[track1,ltypeshp.shx,s=0.635],-0.005 (pour faire de la dalle marin avec des oblons ) *dal,dal ----o- A,0.,[""0"",STANDARD,S=0.16,R=90,X=0.32,Y=-0.06],-0.4 *dalinv,dal -o---- A,0.,[""0"",STANDARD,S=0.16,R=90,X=0.2,Y=-0.06],-0.4 Puis j'ais fais une multilige composer une ligne type continu une ligne type dal une ligne type dalinv une ligne type dal une ligne type continu je sais pas si je m'exprime bien mais je suis arriver a ce resulta par tatonement enfin forcement quand je racorde ma multiligne ca ne fais pas bien du tout.si quelqu'un a une info sur comment je pourais gerer ca on ma beaucoup parlé du principe similaire utilisé pour représenté des gaine pour la CVC mais c en lisp et je ne connais pas asser bien pour savoir si sa peut etre adapter pour fair se que j'aimerai et de plus je n'ais méme pas d'exemple pour faire des bidouilles.

Comment je peu faire pour dessiner rapidement des chemin de câble, les raccordé j'ais fais un type de ligne mais il merde sur les raccords. Merci encore pour tous ce que vous apportez [Edité le 29/3/2007 par defrai]