Aller au contenu

Petit souci d'accroche Objet


Messages recommandés

Bonjour à tous,

 

Voilà, je cherche à déplacer des sommets de polylignes 3D tel que :

 

- je clique deux points pour récupérer l'X et l'Y du milieu de ces deux points,

- je clique sur un point pour récupérer son Z.

 

Voici ma "formule" qui ne fonctionne pas :

.xy;_m2p;_nod;\_nod;\_nod;\;

Si quelqu'un a une astuce, un conseil ou une idée, je suis preneur...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut Tramber, et merci de me répondre.

 

C'est corrigé, mais en fait, AutoCAD me demande le premier _nod, mais pas le deuxième, et donc, le troisième non plus...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Plein de solutions :

  • CAL (pfff, l'aide est détestable, on ne trouve plus de liste des fonctions)
  • améliorer cette macro
  • glisser du lisp

faut qu'je passe à aut'chose now. Désolé plus une minute jusqu'à plus tard ;)

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Tu veux parler de l'ancienne méthode ?

'cal (_nod+_nod)/2

Dommage que le _m2p ,e fonctionne pas... Curieux...

 

Merci encore Tramber...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Coucou

 

Je vous lis depuis tout à l'heure et je me permets d'intervenir

Je ne travaille que très peu avec cette option mais ce qui me gêne c'est le NOD

Tu es certain qu'il y a un POINT pour utiliser le NODal comme accrochage ?

C'est vrai que l'aide est assez confuse dans ce cas, tu as bien été voir l'aide ? (hihi)

Lien vers le commentaire
Partager sur d’autres sites

Salut didier,

 

et oui, je suis bien dans l'aide ;) , mais elle est super light.

 

J'ai effectivement toujours un point là où je dois cliquer, c'est un semis de points de levé topo.

 

Pour ce qui est de ma nouvelle formule, j'ai maintenant ça :

.xy;'cal;(_nod+_nod)/2;_nod;

Ca qui me donne dans AutoCAD :

Commande:

** ETIRER **

Spécifiez le point d'étirement ou [point de Base/Copier/annUler/Quitter]:.xy

de 'cal

>>>> Expression: (_nod+_nod)/2

>>>> Sélectionnez un objet pour l'accrochage _ NOD :

_nod

>>de >>>> Sélectionnez un objet pour l'accrochage _ NOD :

 

Reprend la commande GRIP_STRETCH.

de 865281.754,6819937.6025,275.4535

(Z nécessaire): _nod de

Commande:

Le dernier _nod est saisie avec le clique droit, AutoCAD ne comprend pas le dernier _nod de ma formule...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

M2P fonctionne bien, mais seulement à l'intérieur d'une commande de création (ou d'edition de position géométrique) d'entité. Tu ne peux pas l'appeler par exemple directement en ligne de commande m2p -> Commande inconnue "M2P". Appuyez sur F1 pour obtenir de l'aide.

 

Ta macro qui débute par .XY qui n'est pas une commande de création mais un filtre, donc elle ne peut pas fonctionner à l'état brut.

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

Salut bonuscad, et merci de me répondre...

 

En fait, je clique un grip d'une polyligne 3D pour le déplacer et seulement après, je clique sur le bouton comprenant ma formule.

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

une petite fonction lisp

(defun PZ (/ P1 P2 P3 PT)
 (if (and (setq P1 (getpoint "\n1er point")) (setq P2 (getpoint "\n2eme point")) (setq P3 (getpoint "\nPoint Z")))
   (setq PT (list (* 0.5 (+ (car P1) (car P2))) (* 0.5 (+ (cadr P1) (cadr P2))) (caddr P3)))
 )
 PT
)

 

 

et dans ta macro

(pz) _nod \_nod \_nod \

 

Olivier

Lien vers le commentaire
Partager sur d’autres sites

Merci Tramber, en suivant ton idée, voici ma formule :

.z _nod \.xy 'cal (_nod+_nod)/2

Et voici le résultat :

Commande:

** ETIRER **

Spécifiez le point d'étirement ou [point de Base/Copier/annUler/Quitter]:.z de _nod de (XY nécessaire):

Commande: .xy Point de COTE : 'cal >>>> Expression: (_nod+_nod)/2 *Annuler*

(_nod+_nod)/2

Reprend la commande XY.

Point de COTE : *Annuler*

; erreur: Fonction annulée

Comme on peut le constater, après la demande de XY, la commande s'arrête et reprend en .xy

 

C'est à n'y rien comprendre...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut Olivier et merci pour ton aide.

 

Justement, je souhaitais faire un peu de Diésel pour une fois, car je pensais que c'était super simple...

 

Merci pour ton lisp, je vais devoir faire comme-ça...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Comme on peut le constater, après la demande de XY, la commande s'arrête et reprend en .xy

C'est à n'y rien comprendre...

J'avoue avoir eu du mal aussi mais attention, quand je mets une fois .z, je n'ai plus besoin de .xy ! B)

  • Tu ne fais pas de DIESEL. Juste de la macro
  • Je pense qu'il y a une solution CAL
  • Et le lisp bien sur...

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Re,

Tu ne fais pas de DIESEL. Juste de la macro

Ok...

Je pense qu'il y a une solution CAL

C'est bien ce que j'avais fais quand je saisissais l'XY avant le Z

Et le lisp bien sur...

Ca deviens plus complex pour changer "simplement" une extrémité de polyligne 3D.

 

Je pensais faire vite-fait une petite macro, avec .xy;_m2p....et puis .z

 

Mais ça m'a l'aire vachement plus ardu que juste un filtre sur l'XY et le Z...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

une petite fonction lisp

(defun PZ (/ P1 P2 P3 PT)
 (if (and (setq P1 (getpoint "\n1er point")) (setq P2 (getpoint "\n2eme point")) (setq P3 (getpoint "\nPoint Z")))
   (setq PT (list (* 0.5 (+ (car P1) (car P2))) (* 0.5 (+ (cadr P1) (cadr P2))) (caddr P3)))
 )
 PT
)

et dans ta macro

(pz) _nod \_nod \_nod \

Olivier

 

J'ai modifier ton code car j'en ai besoin pour d'autres utilités, j'ai donc fais 3 lisp :

;;; 1 point en XY et moyenne en Z ******
(defun c:Pt_1XY_2Z (/ P1 P2 P3 PT)
 (if (and (setq P1 (getpoint "\nPoint en XY")) (setq P2 (getpoint "\n1er Z")) (setq P3 (getpoint "\n2ème Z")))
   (setq PT (list (car P1) (cadr P1) (* 0.5 (+ (caddr P2) (caddr P3)))))
 )
 PT
 (princ)
)
;;; Moyenne en XY et 1 point en Z ******
(defun c:Pt_2XY_1Z (/ P1 P2 P3 PT)
 (if (and (setq P1 (getpoint "\n1er XY")) (setq P2 (getpoint "\n2ème XY")) (setq P3 (getpoint "\nPoint Z")))
   (setq PT (list (* 0.5 (+ (car P1) (car P2))) (* 0.5 (+ (cadr P1) (cadr P2))) (caddr P3)))
 )
 PT
 (princ)
)
;;; Moyenne en XY et moyenne en Z ******
(defun c:Pt_2XY_2Z (/ P1 P2 P3 P4 PT)
 (if (and (setq P1 (getpoint "\n1er XY")) (setq P2 (getpoint "\n2ème XY")) (setq P3 (getpoint "\n1er Z")) (setq P4 (getpoint "\n2ème Z")))
   (setq PT (list (* 0.5 (+ (car P1) (car P2))) (* 0.5 (+ (cadr P1) (cadr P2))) (* 0.5 (+ (caddr P3)(caddr P4)))))
 )
 PT
 (princ)
)

 

Je lance donc ma première macro avec :

(Pt_1XY_2Z);_nod;\_nod;\_nod;\

Mais j'obtiens ça dans AutoCAD :

Commande:

** ETIRER **

Spécifiez le point d'étirement ou [point de Base/Copier/annUler/Quitter]:(Pt_1XY_2Z)

 

Point en XY_nod

de

1er Z_nod

de

2ème Z_nod

de

Spécifiez le point d'étirement ou [point de Base/Copier/annUler/Quitter]:

 

Mais il ne termine pas la commande et continu de me demander un point...

 

Si t'as une idée... Ou autre, je suis preneur...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Merci Olivier pour ton aide. J'ai donc ça en code :

;;; Moyenne en XY et moyenne en Z ******
(defun Pt_2XY_2Z (/ P1 P2 P3 P4 PT)
 (if (and (setq P1 (getpoint "\n1er XY")) (setq P2 (getpoint "\n2ème XY")) (setq P3 (getpoint "\n1er Z")) (setq P4 (getpoint "\n2ème Z")))
   (setq PT (list (* 0.5 (+ (car P1) (car P2))) (* 0.5 (+ (cadr P1) (cadr P2))) (* 0.5 (+ (caddr P3) (caddr P4)))))
 )
 PT
)

Et ça en ligne de commande :

(Pt_2XY_2Z);_nod;\_nod;\_nod;\_nod\

 

Mais ça boucle sur le dernier point sans jamais cliquer... Même en ajoutant un ; à la fin de la ligne de commande...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

'cal xyof(_nod+_nod)/2+zof(_nod);

Marche bien maintenant.

J'ai dû fouiller l'aide (avec cette aide de toute façons on n'a pas le choix que de fouiller. Nostalgie...)

  • Upvote 1

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Olivier :

... Même en ajoutant un ; à la fin de la ligne de commande...

 

Les deux solutions font la même chose... Comprend pô...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Il fallait les trouver xyof et zof...!

 

Voici mes trois petites formules :

1 point en XY et moyenne entre 2 Z
'cal xyof(_nod)+zof(_nod+_nod)/2;

Moyenne entre 2 XY et 1 point en Z
'cal xyof(_nod+_nod)/2+zof(_nod);

Moyenne entre 2XY et moyenne entre 2 Z
'cal xyof(_nod+_nod)/2+zof(_nod+_nod)/2;

Encore merci à tous...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Waouw... Celui là, je ne l'avais pas vu...

 

Merci encore Olivier...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité