pingoo666

Bonjour, Je cherche a pouvoir stocker un ENAME dans un attribut. En fait le but c'est de pouvoir lier des blocs entre eux : par exemple le bloc "fils" aurait le somme des attributs "VALEUR" des blocs "pères" dans son attribut "VALEUR". J'avais pensé mettre une polyligne pour les relier mais je trouve pas ca très élégant. Donc je cherche un moyen de mettre l'ENAME du bloc fils dans chacun des blocs pères (par exemple dans un attribut "FILS") Une idée ? Merci d'avance !

Merci gile pour ta réponse. en fait j'utilise déjà inters de cette manière mais parfois la polyligne contient des arcs et ça foire. Je viens de me renseigner sur vla-IntersectWith ça a l'aire d'être exactement ce que je cherche. Merci !

Bonjour, Je suis a la recherche d'une fonction permettant de calculer l'intersection d'une ligne (en fait d'un point et d'un gisement) et d'une polyligne Merci d'avance !

Bon, je veins de faire un test avec 36528 blocs de 10 attributs chacuns et ca marche. génial ce lisp !

en fait je comprend pas ce que fait ton lisp.... la dalle 2D temporaire j'y avais pensé mais en modifiant les valeurs dans le mapping je comprend rien a ce qui se passe... bref ca m'a l'air vraiment con... en fait le reve ce serait de pouvoir transformer une image raster en texture.

Merci pour ta réponse. non j'ai juste autocad (piste et MX aussi mais bon...) Disons que le problème est que je connais la bonne position de la texture (c'est une orthophoto...) mais je n'airrive pas à dire a autocad que je veux que le coin inférieur quache s'affiche aux coordonnées 620000;129100 En fait j'arrive à mapper mes 3D face mais pas au bon endroit. J'imagine que c'est la commande _mapping mais j'arrive pas a bien l'utiliser je pense.

Bonjour, J'aurai besoin de faire un rendu 3D d'un projet routier. Pour se faire je dispose d'un ensemble de 3D face qui compose mon terrain et d'une photo aérienne que je voudrai appliquer sur ce terrain. Or je n'arrive pas a appliquer précisement la texture, elle n'est pas au bon endroit (en gros son axe Y est bon mais pas son axe X) mais par contre elle est à la bonne échelle. Ai je raté un épisode ? Merci d'avance.

Oui mais en fait non.... En fait c'est la mise en page nommée (celle qui est accessible par le gestionnaire de mise en page) que je changer. Et je n'arrrive pas a trouver le moyen d'y accéder.

Bonjour, je cherche a modifier les mise en pages de plusieurs onglets objets. Auriez vous une solution ? Merci d'avance

j'en suis aussi.

Merci mais ca amrche pas (ou en tous cas je m'y prend mal) en gros j'ai besoin de créer un tableau avec des blocs dedans. en étudant un (entget) du tableau on voie que pour une cellule c'est le code 340 qui définit le bloc inséré. il pointe vers une entité. Le problème est que je n'arrive pas à accéder (ou a créer) a ces données autrement qu'avec un : (entget (cdr (assoc 340 (entget (car (entsel)))))) sur le tableau. donc je ne peut pas mettre mes blocs dans le tableau. Pour les intéressés la finalité de ce lisp est de créer un tableau avec le nombre d'occurence de chaque bloc inséré.

Bonjour, je chercge un moyen d'acceder aux données de types "BLOCK_RECORD". je n'y arrive pas avec un ssget ou avec tblnext. une idée ? Merci d'avance ! [Edité le 23/11/2006 par pingoo666]

et en entourant ces polylignes par un grans rectangle puis en fesant la commande "CONTOUR" dans l'espace entre les polylignes et le rectangle, tu devrai créer la polyligne enveloppe non ?

c'est pour faire une fonction de projection de polyligne sur une surface (un ensemble de 3D face)

merci !!! je veux bien le code d'interpolation aussi :) c'est ma deuxième étape :)

Bonjour, une fois n'est pas coutume ;) j'ai un problème. je cherche un moyen de récuperer la 3D face qui inscrit un point. En gros je donne un point et le lisp me donne la 3Dface dans laquelle est ce point. Voila auriez vous une idée ? Merci d'avance.

Bonjour, j'essage de crréer un lisp qui me créera un tableau (objet ACAD_TABLE) a l'aide d'un fichier texte. La partie qui me pose problème est la création du ableau elle meme. En effet l'aide est tres concise sur le sujet. J'ai tenté de faire un enget sur un tableau existant et je bute sur les codes de groupe342 et 343 : (-1 . ) (0 . "ACAD_TABLE") (330 . ) (5 . "393") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbBlockReference") (2 . "*T4") (10 2.12086 5.54185 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) (100 . "AcDbTable") (342 . Nom d'entité: 79dcae38>) (343 . Nom d'entité: 7dd8e820>) (11 1.0 0.0 0.0) (90 . 54) (91 . 1) (92 . 1) (93 . 0) (94 . 0) (95 . 0) (96 . 0) (141 . 0.36) (142 . 5.00026) (171 . 1) (172 . 0) (173 . 0) (174 . 0) (175 . 1) (176 . 1) (177 . 0) (178 . 0) (145 . 0.0) (1 . "données") Note : j'ai enlevé le "<" devant nom d'entité sinon la balise n'était pas interprétée quelqu'un aurait il une solution ? merci d'avance :)

Bonjour, J'ai un problème a vous soumettre : j'ai des blocs ou je dois effectuer des calculs récurents entre des valeurs d'attributs. J'ai essayé de passer par des champs mais j'ai un bug : la valeur de l'attribut récupéré par %<\AcObjProp Object(%<\_ObjId 2111197032>%).TextString>% est toujours la valeur par défaut (ou alors j'ai oublié un truc). merci d'avance !

merci du conseil :) mais j'ai une trs mauvase habitude : utiliser le bloc note pour coder... Sinon j'aime beaucoup le fonction mapcar que je viens de découvrir... J'essayerai de m'enreservir à l'occasion

Tout d'abord merci pour vos réponses.... bon je suis une buse c'était bien la prenthèse fermante qui était positionnée au mauvais endroit. Encore merci !

Bonjour, je suis en train de fair un petit lisp pour pouvoir créer une polyligne 3D en fonctin d'une lste de point. mais j'ai un problème : je epux créer d'autres entités mais pas de polylignes 3d... sachant que list_pt_tmp et list_pt2d_tmp sont des listes de coordonnées : (command "_3dpoly") (while (< inc taille_list_pt) (setq pointz (car list_pt_tmp)) (setq pointxy (car list_pt2d_tmp)) (setq x (list (car pointxy))) (setq y (list (cadr pointxy))) (setq z (list (caddr pointz))) (setq pt (append x y z)) (command pt) (setq list_pt_tmp (cdr list_pt_tmp)) (setq list_pt2d_tmp (cdr list_pt2d_tmp)) (setq inc (+ 1 inc)) (command "") ne marche pas par contre : (while (< inc taille_list_pt) (setq pointz (car list_pt_tmp)) (setq pointxy (car list_pt2d_tmp)) (setq x (list (car pointxy))) (setq y (list (cadr pointxy))) (setq z (list (caddr pointz))) (setq pt (append x y z)) (command "_point" pt) (setq list_pt_tmp (cdr list_pt_tmp)) (setq list_pt2d_tmp (cdr list_pt2d_tmp)) (setq inc (+ 1 inc)) lui marche parfaitement... je ne comprend pas pourquoi :( merci d'avance de votre aide [Edité le 25/2/2006 par pingoo666]

non les éléments sonts crées par une commande précédente. appelons les "EntAvant" et EntApres"

Bonjour, J'ai un petit soucis pour me servir de la fonction command. En effet j'ai besoin de créer un cercle tangeant a deux autres éléments et ce sans intervention de l"utilisateur. J'imagine que le débu de la syntaxe ressemble a ça : (command "_circle" "_ttr") mais comment faire pour spécifier les deux éléments ? Ou alors un appel par entmake serait il plus judicieux? Merci d'avance

merci beaucoup pour vos deux lisp. Ils corrspondent a deux besoins que j'ai (le lisp de mlon me permettra de me passer de MX pour mouliner le TN...) Je vais passer un peu de temps pour les étudier afin de continuer mon programme.

Bonjour, Je dois faire un traitemet d'un TN en 2D pour le passer en 3D J'ai donc décidé de faire un lisp qui me prend l'a valeur du texte et qui me l'injecte dans le Z d'un point. J'ai commencé a faire celà (defun c:setz () (princ "Choisir une Cote") (setq ent_txt (car (entsel))) (princ "Choisir un Point") (setq ent_pt (car (entsel))) ; on récupère le texte de la cote (setq txt_z (assoc 1 (entget ent_txt))) ; on injecte la cote dans le z (setq pt_z (assoc 30 (entget ent_pt))) (setq nv_ent (subst pt_z txt_z (entget ent_pt))) (entmod nv_ent) ) Problème ca ne marche pas. En fait j'ai l'impression que le Z n'est pas injecté correctement. Des idées?