lisp cotation oblique

[kdien]

bonsoir, avez vous 1 lisp our coter directement avec ligne de cote oblique

(ça m'évite de passer par coter et puis faire cotedit après)

merci pour votre aide

[lili2006]

Bonsoir à toutes et tous,

 

(ça m'évite de passer par coter et puis faire cotedit après)

 

Ouh là, j'te suis pas là ! :o

 

Peux-tu développer un peu STP ?

[kdien]

y a peut être + simple, mais je fais comme ça :

- soit je cote l'objet la commande "cotation linéaire" + option "rotation/ angle d'inclinaison..."

- soit j'édite les cotes que je veux rendre obliques avec commande "cotedit" en donnant angle d'inclinaison à mes lignes de cote...

ça fait bcp de manip, c'était juste histoire savoir si on peut aller 1 peu + vite avec 1 commande qui permets de coter comme ça tout de suite ...

[lili2006]

Bonjour à toutes et tous,

 

Alors, ce qu'il te faut, c'est utiliser la cotation "Alignée"

[Bred]

Salut,

"cotali" ?

 

Edit : doublé....

 

[Edité le 27/7/2009 par Bred]

[Tramber]

Vous n'avez pas compris.

 

(setq obj(car(entsel)))
(command "cotedit" "o" obj "" 15)

 

Juste le temps de lire et de répondre rapid'. chuis charette

[lili2006]

Re,

 

Salut Tramber,

 

Et c'est quoi la différence avec "_dimaligned" ?

 

Merci d'avance,

[Tramber]

Essaye tu verras !

[lili2006]

Rere,

 

Essaye tu verras !

 

C'est ce que j'ai fait avant de poser la question, ;)

[didier]

Coucou

 

je pense que ça fonctionnera mieux en mettant le 15 en STRING

 

n'y voyez pas de pensées salaces ;)

 

(setq obj(car(entsel)))

(command "cotedit" "o" obj "" "15")

 

amicalement

[Bred]

Ah oui !

Désolé, j'avais en effet rien compris.

 

J'utilise un lisp qui fait peut-être ce que tu veux (je l'utilises pour côter des objets en 3D perspective)

C'est simpliste, mais je m'étais fait ça parce que j'en avais assez de rentrer ces options...

 

Tu tapes les deux points de la côte, tu place la cote, puis tu tapes un point par-rapport au premier point de cote taper ci-avant...

 

(defun c:cot3d ()
 (setq p1 (getpoint "\n Spécifiez le premier point d'origine de la ligne d'attache")
p2 (getpoint p1 "\n Indiquez un second point d'origine de la ligne d'attache:"))
 (command "_dimaligned" p1 p2 pause)
 (command "cotedit" "o" (entlast) "" p1)
 (princ)
)

[Tramber]

Kdien !

 

Préfères-tu créer des cotations une par une qui s'obliquent tout de suite suivant un certain angle ou bien veux-tu saisir en choix des objets toutes celles qui sont déjà faites pour appliquer l'oblique (pas besoin de prog, juste une bonne manip de selection) ?

 

Bred, je n'ai pas essayé mais je ne comprends pas le p1 dans ton command n°2, normalement on rentre une valeur d'angle, 15 dans mon petit exemple.

[Bred]

je ne comprends pas le p1 dans ton command n°2, normalement on rentre une valeur d'angle, 15 dans mon petit exemple.

Tu peux rentrer un angle, ou taper deux points pour définir cet angle.

[Tramber]

ah oui, tu laisse ton command en suspend pour saisie dynamique....

[kdien]

Kdien !

 

Préfères-tu créer des cotations une par une qui s'obliquent tout de suite suivant un certain angle ou bien veux-tu saisir en choix des objets toutes celles qui sont déjà faites pour appliquer l'oblique (pas besoin de prog, juste une bonne manip de selection) ?

 

Bred, je n'ai pas essayé mais je ne comprends pas le p1 dans ton command n°2, normalement on rentre une valeur d'angle, 15 dans mon petit exemple.

 

Tramber, je préfère 1 macro (je connais rien en lisp) qui me permet de créer des cotations une par une qui s'obliquent suivant un certain angle tout de suite (pour gagner du temps)

[(gile)]

Salut

je préfère 1 macro (je connais rien en lisp)

Exemples de macros pour faire des cotes obliques pour la cotation des isométries 2d (30° et 150°) :

 

^C^C_dimaligned;\\\_dimedit;_o;_l;;30;

^C^C_dimaligned;\\\_dimedit;_o;_l;;150;

 

ou répétitives :

 

*^C^C_dimaligned;\\\_dimedit;_o;_l;;30;

*^C^C_dimaligned;\\\_dimedit;_o;_l;;150;

 

Mais comme au départ tu demandes un LISP, voilà la même chose en LISP, commandes : COT30 et COT150 (pour enregistrer charger, lancer des LISP, voir ici)

(defun c:cot30 ()
 (vl-cmdf "_dimaligned" pause pause pause "_dimedit" "_o" "_l" "" 30)
 (princ)
)

(defun c:cot150 ()
 (vl-cmdf "_dimaligned" pause pause pause "_dimedit" "_o" "_l" "" 150)
 (princ)
)

[kdien]

Salut

je préfère 1 macro (je connais rien en lisp)

Exemples de macros pour faire des cotes obliques pour la cotation des isométries 2d (30° et 150°) :

 

^C^C_dimaligned;\\\_dimedit;_o;_l;;30;

^C^C_dimaligned;\\\_dimedit;_o;_l;;150;

[/code]

 

merci Gile !!!

ça marche nickel !