Question idiote sur la position de côtation

[Topheur]

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.

[Topheur]

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 !

[Tramber]

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

[Topheur]

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