Offset spécial initget

[Invité samuelM]

Bonjour,

 

A partir du lisp _Offset je veux créer un lisp en utilisant une addition pour la distance à la place d'un nombre entier. je n'arrive pas à le programmer avec initget(+ 1 1)

Pouvez vous m'aider

 

Je souhaite l'insérer à la place de off_dist (getreal"/")

 

 

(defun c:Extoss ()

(setq userecho (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setq ent_select (entsel "\nSélectionner l'objet à décaler: ")

ent_pickpt (cadr ent_select)

ent_orig (car ent_select)

);setq

(redraw ent_orig 3)

(setq off_pt (getpoint "\nIndiquer la direction : ")

off_angle (angle ent_pickpt off_pt)

);setq

(setq last_entity ent_orig last_pt ent_pickpt)

(while (setq off_dist (getreal "\nSécipier la distance à décaler par addition: "))

(setq newoff_pt (polar last_pt off_angle 10))

(command "._offset" off_dist last_entity newoff_pt "")

(setq last_entity (entlast)

last_pt (cdr (assoc 10 (entget last_entity)))

);setq

(redraw last_entity 3)

);while

(redraw last_entity 4)

(setvar "cmdecho" userecho)

(princ)

);defun

(princ "\nDébuter avec Extoss ")

(princ)

 

Merci à vous