Les fonctions: GET-DEFORM.LSP

;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES                   *
;* [GRCAO] Claude Parisel                                               *
;* Mars 1999                                                            *
;************************************************************************
; GET-DEFORM
; saisie de déformation de la direction des axes OX,OY,OZ
;------------------------------------------------------------------------
; Retour:Matrice de déformation
;------------------------------------------------------------------------
(defun get-deform ( / b c d f h i)
  (print "déformation en X: ")
  (setq b (getreal "\nMultiplicateur en Y "))
  (setq c (getreal "\nMultiplicateur en Z "))
  (print "déformation en Y: ")
  (setq d (getreal "\nMultiplicateur en X "))
  (setq f (getreal "\nMultiplicateur en Z "))
  (print "déformation en Z: ")
  (setq h (getreal "\nMultiplicateur en X "))
  (setq i (getreal "\nMultiplicateur en Y "))
  (make-deform b c d f h i)
)
;------------------------------------------------------------------------
; Exemple:
; Command: (get-deform)
;          "déformation en X: "
;          Multiplicateur en Y
1.2
;          Multiplicateur en Z 1.4
;          "déformation en Y: "
;          Multiplicateur en X
1.5
;          Multiplicateur en Z 0.8
;          "déformation en Z: "
;          Multiplicateur en X
0.5
;          Multiplicateur en Y 0.6
;          ((1.0 1.2 1.4 0.0) (1.5 1.0 0.8 0.0) (0.5 0.6 1.0 0.0) (0.0 0.0 0.0 1.0))
;------------------------------------------------------------------------