Aller au contenu

cercle point rayon tangente


litelsousa

Messages recommandés

Bonsoir à toutes et tous,

 

Par trois points ?

 

Commande: _circle Spécifiez le centre du cercle ou [3P/2P/Ttr (tangente

tangente rayon)]: _3p Spécifiez un premier point sur le cercle:

Spécifiez un deuxième point sur le cercle:

Spécifiez un troisième point sur le cercle:

Spécifiez un troisième point sur le cercle: 2500

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

avec les options de création du cercle, ça ne me semble pas possible.

 

Cependant, la construction est assez simple:

1. on décale de la valeur du rayon la courbe à laquelle on veut être tangent

2. on trace le cercle de rayon donné centré sur le point de passage

3. Ce cercle coupe la courbe décalée en 2 points possibles, ce sont les 2 centres des cercles solutions.

 

On doit pouvoir automatiser cela dans un bouton

 

^C^C(setq RAY (getreal "rayon :")) \(setq PT (getpoint "point de passage:")) \decaler !RAY \!PT (setq E1 (entlast)) cercle !PT !RAY (setq E2 (entlast)) cercle int \!RAY effacer !E1 !E2;;

 

Ca demande le rayon puis le point de passage, ensuite sélectionner la courbe tangente, puis l'accrocage intersection est activé, (cliquer l'intersection du cercle construit et de la courbe décalée) pour spécifier le centre du cercle définitif

 

Olivier

Support Technique Covadis

Lien vers le commentaire
Partager sur d’autres sites

Bonnjour,

 

Je vois ou ça ne joue plus ( la partie en gras) mais je ne sais que faire..

 

J'ai copié ma fenêtre de texte :

Commande: (setq RAY (getreal "rayon :")) rayon :20

20.0

 

Commande: (setq PT (getpoint "point de passage:")) point de passage:(204.404

160.104 0.0)

 

Commande: decaler

Paramètres courants: Effacer source=Non Calque=Source OFFSETGAPTYPE=0

Spécifiez la distance de décalage ou [Par/Effacer/Calque] <20.0000>: !RAY 20.0

 

Sélectionnez l'objet à décaler ou [Quitter/annUler] :

Spécifiez un point sur le côté à décaler ou [Quitter/Multiple/annUler]

: !PT (204.404 160.104 0.0)

 

Sélectionnez l'objet à décaler ou [Quitter/annUler] : (setq E1

(entlast))

 

Spécifiez un point sur le côté à décaler ou [Quitter/Multiple/annUler]

: cercle

Point ou option nécessaire.

 

Spécifiez un point sur le côté à décaler ou [Quitter/Multiple/annUler]

:

 

Y a-t-il une erreue dans la maccro?

 

^C^C(setq RAY (getreal "rayon :")) \(setq PT (getpoint "point de passage:")) \decaler !RAY \!PT (setq E1 (entlast)) cercle !PT !RAY (setq E2 (entlast)) cercle int \!RAY effacer !E1 !E2;;
Lien vers le commentaire
Partager sur d’autres sites

Y a-t-il une erreue dans la macro?

 

Un espace manquant, (pour ma part, il vaut mieux des points-virgule que des espaces, moins de risque d'erreur)

 

la macro:

 

^C^C(setq RAY(getreal "rayon :"));\(setq PT(getpoint "point de passage:"));\decaler;!RAY;\!PT;(setq E1(entlast));;cercle;!PT;!RAY;(setq E2(entlast));cercle;int;\!RAY;effacer;!E1;!E2;;^Z

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

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é