Discussion :

[jean christophe]

Bonjour,

J'ai un petit projet, que je veux écrire en AutoLISP. Mon principal problème est que je suis sutout habitué au language pascal (Lazarus) que j'utilise dans mes temps libres!
Etant géométre de profession, je veux faire un programme où je peux calculer/dessinner automatiquement la position orthogonal d'un point par rapport à une ligne.
J'ai commencé à regarder sur internet avant de me lancer dans le codage, mais j'ai des problèmes concernant la syntaxe avec l'utilisation des variables, COND, If...
Pouvez-vous s'il vous plaît jeter un oeil sur mon algoritme et me dire, où je dois chercher pour trouver des solutions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Choose the first point to define your reference line
	(setq pt1(getpoint "\n Start Point: "))
	(setq pt1x (car pt1))
	(setq pt1y (cadr pt1))

Choose the second point to define your reference line
	(setq pt2(getpoint "\n End Point: "))
	(setq pt2x (car pt2))
	(setq pt2y (cadr pt2))

Choose the point you want to have perpendiculary measured (and drawn) to the reference line
(setq temppt(getpoint "\n Point to calculate: "))
(setq tempptx (car temppt))
(setq temppty (cadr temppt))	

Voila où je commence á rencontrer des problèmes:
i sont les coordonnées du point calculé sur la ligne

EPS    = 0.000001;         // smallest positive value: less than that to be considered zero
EPSEPS = EPS * EPS;        // and its square

function SqLineMagnitude(const pt1x, pt1y, pt2x, pt2y: extended): extended;
res := (pt2x - pt1x) * (pt2x - pt1x) + (pt2y - pt1y) * (pt2y - pt1y);
AutoLISP: (defun SqLineMagnitude (+(* (- pt2x pt1x)(- pt2x pt1x))(*(- pt2y pt1y) (- pt2y pt1y)))

begin
 SqLineMag := SqLineMagnitude(pt1x, pt1y, pt2x, pt2y);
 if SqLineMag < EPSEPS then exit;// Calculation not possible, choose one another point
 
u := ( (tempptx - pt1x)*(pt2x - pt1x) + (temppty - pt1y)*(pt2y - pt1y) ) / SqLineMag;
AutoLISP: (defun u (+(* (- tempptx pt1x)(- pt2x pt1x))(*(- temppty pt1y) (- pt2y pt1y)))

if (u < EPS) or (u > 1) then
ix := SqLineMagnitude(tempptx, temppty, pt1x, pt1y);
iy := SqLineMagnitude(tempptx, temppty, pt2x, pt2y);
 
else  // if (u > EPS) or (u < 1) then
ix := pt1x + u * (pt2x - pt1x);
iy := pt1y + u * (pt2y - pt1y);
result := SqlineMagnitude(px, py, ix, iy);
 

// finally convert to actual distance not its square
result := sqrt(result);

Quand tout cela fonctionnera, je dessinerais une flêche qui montre la direction á suivre du point pour rencontrer ma ligne de référence ainsi que la distance en millimetres.
Je demanderais en suite á l'utilisateur, si il veux continuer avec un autre point ou arrêter (á l'aide de CANCEL/Echap)

J'ai également lu qu'il était recommandé d'utiliser COND á la place de IF. Qu'en pensez vous?
Je suis preneur d'idées!

[jean christophe]

Bonjour,

Je fais remonter le sujet, car je n'ai pas encore eu de réponses!

-Suis je dans le mauvais forum?
-Est ce que ma question est mal formulée?
-Autre raison?

[byjav]

Bonjour,

Il semble qu'il n'y a pas de ceux qui se débrouillent dans AutoLisp. C'est un dialect assez particulier qui n'est pas utilisé que par un seul logiciel de dessin technique, en plus pas libre.

À propos, on peut faire des dessins géométriques à l'aide de Asymptote, il y a même un paquet spécial, geometry. Mais le langage qu'on y utilise, ce n'est pas lisp...

[jean christophe]

OK merci byjav!
Bonne journée