Aller au contenu

Question idiote sur la position de côtation


Topheur

Messages recommandés

Bonjour le forum :) ,

 

Petite question, est-ce qu'il est possible de positionner une côte linéaire "automatiquement".

 

Je m'explique quand je fais une cotation linéaire, je clique sur le premier point, puis le deuxième (jusque là tous va bien :P ...) ensuite autocad demande de cliquer pour "positionner" la côte.

 

Est-il possible (dans le style de côte pas trouvé) de positionner la cotation à X au dessus du deuxième point.

 

Si c'est possible uniquement en lisp je suis preneur, je l'intègrerais à mon code :

 

(defun c:COT_L_PT_O ( / pdep pfin)

 

(setq pdep (getpoint "\nSpécifiez le premier point: ")) ;; point de départ (centre de la pieuvre)

 

 

(while T ;; t=true la boucle se répétera tant que l'on n'en sortira pas avec un echap

 

(setq pfin (getpoint pdep "\nSpécifiez le deuxième point: "))

 

 

 

(command "_cotlin" pdep pfin pause) ;; dessine la côte

 

) ;while

 

(princ)

)

 

Merci à vous.

Lien vers le commentaire
Partager sur d’autres sites

Bonjour le forum :) ,

 

Petite question, est-ce qu'il est possible de positionner une côte linéaire "automatiquement".

 

Je m'explique quand je fais une cotation linéaire, je clique sur le premier point, puis le deuxième (jusque là tous va bien :P ...) ensuite autocad demande de cliquer pour "positionner" la côte.

 

Est-il possible (dans le style de côte pas trouvé) de positionner la cotation à X au dessus du deuxième point.

 

Si c'est possible uniquement en lisp je suis preneur, je l'intègrerais à mon code :

 

(defun c:COT_L_PT_O ( / pdep pfin)

 

(setq pdep (getpoint "\nSpécifiez le premier point: ")) ;; point de départ (centre de la pieuvre)

 

 

(while T ;; t=true la boucle se répétera tant que l'on n'en sortira pas avec un echap

 

(setq pfin (getpoint pdep "\nSpécifiez le deuxième point: "))

 

 

 

(command "_cotlin" pdep pfin pause) ;; dessine la côte

 

) ;while

 

(princ)

)

 

Merci à vous.

 

Je vois que soit la question n'intéresse personne :( soit elle est trop difficile pour les spécialistes d'autocad :P

 

Plus sérieusement, je n'ai toujours pas de solution ... UP !

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

Un premier jet pour aider :

(defun c:COT_L_PT_O ( / pdep pfin donc)
 (setq pdep (getpoint "\nSpécifiez le premier point: ")) ;; point de départ 
 (setq pfin (getpoint "\nSpécifiez le second point: ")) ;; point d'arrivée
 (setq aquel(getdist "\nDistance :"))
 (setq donc(polar pdep(+(angle pdep pfin)(/ pi 2))aquel))  
 (command "_cotlin" pdep pfin donc) ;; dessine la côte
(princ)
)

Mais il faudrait mieux gérer un peu les accrochages aux objets si tu sais le faire en lisp et être conscient aussi qu'une cotation linéaire peut ou doit être verticale ou horizontale.... alors ?

;)

Il y a un départ au centre ? (pieuvre électrique)

Alors réintégrer la boucle...

EDIT :

à tester

(defun c:COT_L_PT_O ( / pdep pfin donc)
 (setq pdep (getpoint "\nSpécifiez le premier point: ")) ;; point de départ (centre de la pieuvre)
 (setq aquel(getdist "\nDistance :"))
 (while(setq pfin (getpoint "\nSpécifiez le second point: ")) ;; point de départ (centre de la pieuvre)
   (setq donc(polar pdep(+(angle pdep pfin)(/ pi 2))aquel))
   (command "_cotlin" pdep pfin donc) ;; dessine la côte
   )
 (princ)
 )

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

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

Bonsoir Tramber,

 

Merci de ce premier jet mais il ne m'aide pas vraiment malheureusement :(

 

J'ai réussi à sortir un lisp plus clair de se que je cherche

 

;PERMET DE FAIRE UNE COTATION LIGNE DE BASE SANS AVOIR A TRACER UNE COTE PUIS FAIRE UNE COTE CONTINUE

(defun c:COTATION_LIGNE_BASE ()

(command "_dimlinear" pause pause pause)

(command "_dimbaseline" pause)

(princ)

)

 

C'est une cotation en ligne de base (un point de bas et ensuite on clique là ou on désire avoir la cote)mais les cotes se superpose et je voudrais les espacer de X (paramètre réglable soit au lancement du lisp soit dans le code).

 

Si tu peux m'aider, je suis preneur...

 

Désolé de ne pas avoir été plus clair au début.

 

Pour se qui est pieuvre électrique se sont de vielles annotations (je copie parfois des lignes depuis d'autres lisp et je ne supprime pas les commentaires).

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • 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é