Petit souci d'accroche Objet

[DenisHen]

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...

[Tramber]

Je pense que le ; à la fin est en trop.

[DenisHen]

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...

[Tramber]

Je pense que le ; à la fin est en trop.

PAs suffisant.

Je viens de voir.

Il vaut mieux aller voir du côté de la fonction CAL.

[Tramber]

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 ;)

[DenisHen]

Tu veux parler de l'ancienne méthode ?

'cal (_nod+_nod)/2

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

 

Merci encore Tramber...

[didier]

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)

[DenisHen]

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...

[bonuscad]

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.

[DenisHen]

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.

[Tramber]

J'ai pas le temps, juste lire et proposer rapidement de filtrer d'abord en .z ....

C'est ton dernier problème B)

[Olivier Eckmann]

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

[DenisHen]

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...

[DenisHen]

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...

[Tramber]

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...
  

[DenisHen]

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...

[DenisHen]

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...

[Olivier Eckmann]

Tu vires les C: devant les noms des fonctions et tu vires les (princ)

 

Olivier

[DenisHen]

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...

[Olivier Eckmann]

n'aurais-tu pas oublé un point virgule derrière le dernier _nod avant le \ ???

 

 

Olivier

[Tramber]

'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...)

[DenisHen]

Olivier :

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

 

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

[DenisHen]

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...

[Olivier Eckmann]

Olivier :

 

 

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

 

Le point virgule, il faut le mettre ICI

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

[DenisHen]

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

 

Merci encore Olivier...