## Help with define points with this 3D object

Registered forum members do not see this ad.

HI all

I wrote this little lisp code to draw a 3D angle:

( defun C:test ()
(setq Aile (getdist "\nLargeur de l'aile: "))
(setq Epai (getdist "\nEpaisseur du « L »: "))
(setq H1 (getdist "\nLongeur de la corniere: "))
(setq ArretBas (getpoint "\nSpecifiez l'arret de corniere: "))

(setq os (getvar "osmode"))
(if (< os 16384)
( setvar "osmode" (+ os 16383))
)
(setq wo (list 0 0 0))

(command "vscurrent" "C" "")
(command "-view" "top")
(setq BasXo (car Arretbas))
(setq BasYo (cadr Arretbas))
(setq BasZo (caddr Arretbas))

(setq Hautpt1 (list (+ BasXo Aile) (+ BasYo H1) BasZo))
(command "box" ArretBas Hautpt1 Epai)
(setq BB1 (entlast))

(setq Baspt1 (list (+ BasXo Epai) BasYo BasZo))
(setq ArretHaut (list BasXo (+ H1 BasYo) BasZo))
(command "box" ArretHaut Baspt1 aile)
(setq CC1 (entlast))
(command "union" BB1 CC1 "")
(setq DD1 (entlast))

(command "line" wo ArretHaut "") ;;just to show where is ArretHaut
(command "line" wo Arretbas "") ;;just to show where is Arretbas
(if (< os 16384)
(setvar "osmode" os)
)
)
By the way "Largeur de l'aile:" = the leg's length
"Epaisseur du « L »: " = The angle's thickness
"Longeur de la corniere: = the angle's length
"Specifiez l'arret de corniere: " = this is the bottom corner of the angle.

As you can see I showed the points ArretHaut and Arretbas. Now my problem is that lets say I make a rotation or move of this object .... I loose the new postition of these points. For example lets say I move the object ...and do again (command "line" wo ArretHaut "") I still get a line form the origin (0,0,0) to my old point ArretHaut(before move). So is there a way to know where is my "new" point ArretHaut(as well as the other)??