Pourquoi ?

[willy95]

 

(setq p1 (getpoint "\n1er point  : "))

(setq p2 (getpoint "\t2ème point : "))

(setq di (/ (Distance p1 p2) 2))

(setq p3 (polar p1 (angle p1 p2) di))

(command "_Line" p1 p3 "")

 

Je comprends pas pourquoi ma ligne p1 p3 est dessinée p1 p2,

alors que mon p3 est bien au milieu ?

 

Qui peu m'aider ? Merci

[(gile)]

Salut,

 

Les accrochages aux objets ?...

 

Essaye :

(command "_.Line" "_non" p1 "_non" p3 "")

 

ou

(enmake (list '(0 . "LINE") (cons 10 (trans p1 1 0)) (cons 11 (trans p3 1 0))))

[willy95]

Alors la, Merci cela fonctionne parfaitement mais j'ai du mal a comprendre le "_non"

[(gile)]

"_non" pour "_none" en langage international ou "auc" pour "aucun" en français force l'accrochage aux objet sur aucun pour le point à spécifier (accrochage temporaire).

 

Mais regarde la fonction entmake, qui présente beaucoup d'avantages par rapport à command.

Hormis qu'elle est beaucoup plus rapide, elle est insensible aux accrobj, ne fait pas d'échos en ligne de commande et permet de spécifier dans la liste les propriétés de l'objet.

 

(entmake '((0 . "LINE") (8 . "toto") (62 . 1) (10 10.0 20.0 0.0) (11 80.0 50.0 0.0)))

Créée une ligne rouge de 10,20 à 80,50 sur le calque "toto" (le calque "toto" est créé s'il n'existait pas).

[willy95]

ok merci beaucoup pour ces explications qui me sont bien utiles a comprendre la récupération des entités dans une liste. Encore merci