ablue1

Bonjour, Je vais tenter de reformuler ma demande plus clairement. Le décalage de 20cm est parfait c'est exactement ce que je voulais. La demande complémentaire serait d'appliquer au bloc, après le décalage, une rotation : - Selon un angle avec la PO3D : J'avais mis 100gr comme exemple. - Le sens de rotation serait fixe (Sens topo). - Le centre de rotation serait le point d'insertion du bloc. Je joins le fichier avec le rendu recherché. Ablue3.dwg

Bonjour, Désolé pour le retour tardif, je n'avais pas mon pc sous la main depuis plusieurs jours. @didier, en effet comme çà fonctionne très bien je me suis permis une demande supplémentaire que je n'avais pas prévu à la base : Le changement d'orientation par rapport au point de base du bloc et avec un angle défini par rapport à sa polyligne support. Je joins le fichier modifié avec les nouveaux blocs qui sera plus explicite. Pour le déplacement, en 3D, c'est bien, mais pour l'affichage il vaudrait mieux, d'abord effectuer un décalage horizontal de 20cm, puis projeter le bloc sur la PO3D. Mais je pinaille un peu ! @curlygoth Merci pour ces explications, je vais tester ton code ce week-end. Encore merci à vous ! Bonne journée Ablue2.dwg

Bonjour, J'ai pourtant bien installé VBA. A priori le bloc statique me convient, c'est pour de l'habillage. Par contre, il me semble que le décalage tient compte de la distance inclinée. Aussi selon les pente le bloc "s'affiche" plus ou moins loin. Par contre j'ai encore un soucis de chevauchement des blocs (il s'agit de blocs servant d'étiquettes) entre eux quand plusieurs extrémités de polylignes sont superposées. serait il possible de changer l'orientation des blocs en fonction de la direction de la polyligne sur lequel il se trouve ? Merci d'avance, Bonne journée

@didier Je n'ai pas réussi à faire tourner le VBA. Le Lisp fait très bien le boulot finalement. Je continue de tester Je n'y connais rien mais je pense qu'il manquait un paramètre sur cette ligne : (setq dep 0.20 n 0 comp) ; (setq dep 0.20 n 0 comp 0) Tous mes remerciements pour ce travail qui va me faire gagner pas mal de temps. J'essaie de me mettre au Lisp dès que je peux dégager un peu de temps. Si vous avez des conseils pour débuter, je suis preneur. Encore merci !

@didier J'ai un retour d'erreur de syntaxe au chargement de la fonction

@Didier et @curlygoth Merci pour vos réponses. Je teste çà et je reviens vers vous au plus vite.

Merci Luna pour ces éclaircissements.

@Didier, j'ai édité mon premier message pour y ajouter un exemple qui sera beaucoup plus parlant. J'aurais du commencer par là. L'idée de déplacer uniquement la partie graphique du bloc me plait bien. Je n'y avait pas pensé.

Oups ! Ce qui se conçoit bien s'énonce clairement... Ça n'a pas l'air d'être mon cas ici. Non les polylignes ne sont pas verticales, mais avec diverses pentes. Mais elles peuvent avoir un sommet sur la même verticale. J'ai édité mon premier message pour ajouter un exemple. J'espère que j'ai été suffisamment clair dans mon explication...

Bonjour, Oui, merci

Il s'agit de déplacer le bloc de l'extrémité où il est situé vers l'autre extrémité.

test.dwgBonjour, Je cherche un lisp ou une commande qui permettrait de déplacer des blocs situés aux extrémités de polylignes 3D de 20cm vers l'intérieur de la polyligne sachant qu'il peut y avoir plusieurs extrémités superposées, à différentes altitudes. Je ne sais pas si çà rend les choses plus faciles mais mes polylignes n'ont qu'un segment. Si ca peut se faire pour toutes les polylignes d'un calque s'est encore mieux ! Merci d'avance au pros du Lisp. Bonne journée ablue1

Bonjour, Je cherche ce type de fonction pour des Polylignes 3D. Est-ce possible ? Merci