Déplacement SCU sur objet temporairement

[schematec]

Bonjour;

 

La fonction ci-dessous réalise un rectangle avec une surface 2d en croix à l'intérieur suivant 2 points sur la même abscisse.

 

Je souhaiterai que cette fonction puisse s'exécuter avec des abscisses différentes, soit de placer temporairement le SCU sur l'objet par exemple. Merci par avance de votre aide.

 

(defun c:RES()

;

(setq P1(getpoint "\n point 01: "))

(setq P2(getpoint "\n point 02: "))

(setq A(getdist "\n largeur: "))

;

(setq P1Y(-(cadr P1) A))

(setq P2Y(+(cadr P2) A))

;

(setq P1(list(car P1) P1Y (caddr P1)))

(setq P3(list(car P2) P2Y (caddr P2)))

;

(setq P2(list(car P3) (cadr P1) (caddr P1)))

(setq P4(list(car P1) (cadr P3) (caddr P1)))

;

(command "rectangle" P1 P3"")

(command "solide" P1 P2 P3 P4"")

)

[(gile)]

Salut,

 

Pour changer le SCU tu peux faire :

 

(setq obj (car (entsel "\nSélectionnez un objet: ")))
(command "_UCS" "_object" obj) 

 

et pour revenir au SCU précedent :

 

(command "_UCS" "_previous") 

 

Mais tu peux aussi éviter ce changement de SCU en calculant les sommets du rectangle à partir de des point sélectionnés avec les fonction angle et polar et dessiner ensuite une polyligne close.

[schematec]

Merci. Je vais chercher pour le calcul polaire comme tu a dis car c'est sur que se sera plus pratique.