Extremités de lignes d\'un bloc

[dr.loveless]

Salut,

 

J'ai un bloc constituer de 2 lignes parallèles et de 3 attributs. Je voudrais créer un lisp qui me permette de selectionner le bloc concerne et de faire une ligne reliant les milieus des deux lignes du bloc.

 

Comment je dois m'y prendre ??

 

merci!!

[bonuscad]

Salut,

 

Soit plus précis dans ton but à atteindre, veux tu mettre ton bloc à jour?

 

Cependant la fonction (nentsel) te permet d'accéder directement à une sous-entité d'un bloc, ou segment de POLYLINE (VERTEX) pas de LWPOLYLINE par contre.

 

A partir de là il est facile de récupérer les points de la ligne.

[CDL]

C’est pas très explicite en effet.

En activant les poignées dans les blocs et l’accrochage milieu

(ça fais deux clic, c’est pas trop ?)

 

[Patrick_35]

Salut,

La solution n'est pas simple

1) il faut récupérer les extrémités de tes lignes dans la table "block"

2) il faut récupérer la valeur d'insertion de ton bloc

3) il faut faire un calcul trigo pour calculer une valeur d'extrémité en fonction du point d'insertion, tenir compte de l'angle du bloc et faire gaffe au système de scu (avec la fonction trans)

 

@+

[Invité Patrick]

J'ai un bloc constituer de 2 lignes parallèles et de 3 attributs. Je voudrais créer un lisp qui me permette de selectionner le bloc concerne et de faire une ligne reliant les milieus des deux lignes du bloc.

 

Tu veux que la ligne ajoutée fasse partie de la définition du bloc ou pas?

[didier]

je dis coucou

eh les gars,

le Doc il veut des réponses

pas des questions :casstet:

n'empêche que l'on ne sait toujours pas ce qu'il veut faire.

je vais m'abstenir de questionner,

amicalement

 

[Virgile_69]

Bonjour,

j'ai recherché la fonction "nentsel" pour savoir comment elle fonctionnait mais j'ai pas du tout compris alors si quelqu'un peut soit m'expliquer soit me donner un exemple.

Merci

[bonuscad]

Bonjour

 

Elle se comporte comme la fonction (entsel) sauf que si une entité complexe est sélectionnée comme un bloc ou une 3dpoly par exemple, elle retourne l'entité constituante.

 

Essaye la ligne suivante sur la ligne de commande pour comprendre:

(alert (strcat "\n Vous avez sélectionné une entité " (cdr (assoc 0 (entget (car (nentsel"\nSélectionner une entité ")))))))

Sur 1 seule ligne

[Virgile_69]

Re-Bonjour,

A c'est nickel cette petite commande me sera utile.

Je faisais un appli pour la ventilation en 2D et je voulais tracer la gaine en cliquant simplement sur les deux accessoires coudes te ou autre mais il fallait reclaculer tous les points c'etait long maintenant avec le code DXF j'ai tous les points.

 

Merci.

[dr.loveless]

Bon, personne ne me comprends, pourtant celà me parait clair:

 

Environ 150 bloc composé de chacun de 2 lignes parrallèles et 3 attributs sont DEJA sur mon dessin, je veux créer un lisp qui me permette de relier les milieus des 2 lignes d'un bloc juste en selectionnant celui-ci. la ligne crée ne doit pas faire partie du bloc.

 

 

En réponse à Didier : Je sais pas si tu te souviens, mais tu m'avait fais un prog permettant de déplacer les attribut d'un bloc, et ben là c'est pour relier les deux lignes de ce bloc!

 

 

 

OK, merci mais je devrais m'en sortir avec "nentsel" - MERCI -

 

 

 

 

[Edité le 13/8/2004 par dr.loveless]