ANNEXE: Utilisation des fonctions de transformation ponctuelle (3)

La fonction "PTMAT.lsp" permet de transformer un point par une matrice.

Ainsi on peut écrire une translation d'un point:

Choisir le point [PT]:
(setq PT (getpoint "choissez un point"))

Initialiser une matrice de translation [MAT]:
(setq MAT (get-trans))

Normaliser le point [normal PT], le transformer [PTMAT¸, le renormaliser [normal ()] et éliminer la 4ème coordonnée [(reverse (cdr (reverse ...point transformé ...)))] avant de pouvoir le tracer.
(command "POINT" (reverse (cdr (reverse (normal (ptmat (normal pt) mat))))))