forcer getpoint avec un /des angles

[PHILPHIL]

hello

 

 

je voudrais forcer un second point par rapport a un point mais avec des angles definit

 

le mode ortho nous limite aux angle a 0 90 180 270

 

je voudrais rajouter des angles definie ex : 45 135 225 315

 

  (setq poibase (getpoint (strcat "\nENTRER LE POINT DE BASE ")))
 (setq poidi (getpoint poibase 
                       (strcat "\nENTRER LE POINT DE DIRECTION ")
             )
 )

poidi etant forcement sir les angles 0 45 90 135 180 225 270 315

 

sans non plus activer le mode polaire

 

merci

a+

 

phil

[Tramber]

Tiens, j'ai fait un truc vite fait pour voir si j'étais capable de me prendre la tête en 15 minutes.

Pari gagné mais à adapter car j'ai supposé que tu voulais diviser sur 360°. Sinon, faut être plus précis. Une liste d'angle demanderais un autre développement.

 

(defun c:toto()
 (setq decoupe(getreal"\nNombre de division de 360° ? :"))
 (setq angledec(/(* 2 pi)decoupe))
 (princ(strcat"\nAngle calculé ="(rtos(/(* 180 angledec)pi) 2 2)))
 (setq demiang(/ angledec 2.))
 
 (setq poibase (getpoint (strcat "\nENTRER LE POINT DE BASE ")))
 (while(and(setq key(grread T 4 0))(/=(car key)3))
   (redraw)
   (setq alpha(angle poibase (cadr key)))
   (setq demiquartier(1+(fix (/ alpha demiang))))
   (setq lifi(append
	(list 2 poibase(cadr key))
	(list 1 poibase(polar poibase(* angledec(fix (/ demiquartier 2.0))) (distance poibase (cadr key))))))
   (grvecs	     lifi)
   )
 (redraw)
 (setq poidi (cadr key))
 )

[bonuscad]

Salut,

 

le mode ortho nous limite aux angle a 0 90 180 270

 

Pas forcément... Il te suffit de définir la variable SNAPANG au préalable puis de la restorer ensuite. Tu auras alors avec la variable ORTHO les 4 quadrants possibles depuis l'angle de SnapAng.

[Tramber]

Ben alors PHILPHIL, on dirait que t'as même pas essayé !?

Pour une fois que je mets la main dans le cambouis...

[PHILPHIL]

hello tramber

 

avec bcp de retard et surtout ayant perdu le fil

 

j'ai teste et approuve "toto" le LISP

 

pour faire un tit truc comme ca

 

lancer "paramdecal"

 

pour etirer suivant un angle multiple de 45degres

lancer "etxy"

 

phil

 

 (defun c:paramdecal ()
 (setq decalx (atof (getcfg "APPDATA/decalx")))
 (setq decaly (atof (getcfg "APPDATA/decaly")))
 (setq tmp (getdist
             (strcat "\nENTRER LA DISTANCE DE DECALAGE / ETIREMENT  SUR X <"
                     (rtos decalx 2 8)
                     ">: "
             )
           )
 )
 (if tmp
   (setq decalx tmp)
 )
 (setq tmp (getdist
             (strcat "\nENTRER LA DISTANCE DE DECALAGE / ETIREMENT SUR Y <"
                     (rtos decaly 2 8)
                     ">: "
             )
           )
 )
 (if tmp
   (setq decaly tmp)
 )
 (setcfg "APPDATA/decalx" (rtos decalx 2 8))
 (setcfg "APPDATA/decaly" (rtos decaly 2 8))
)



(defun c:etxy (/)
 (setvar "cmdecho" 0)
 (setq parortho (getvar "orthomode"))
 (setq osm (getvar "osmode"))
 (setq decalx (atof (getcfg "APPDATA/decalx")))
 (setq decaly (atof (getcfg "APPDATA/decaly")))
 (prompt "\nREGLER PAR LES PARAMETRES DE PARAMDECAL ")
 (prompt (strcat "\nLE DECALAGE / ETIREMENT SUR X EST DE : "
                 (rtos decalx 2 8)
         )
 )
 (prompt (strcat "\nLE DECALAGE / ETIREMENT SUR Y EST DE : "
                 (rtos decaly 2 8)
         )
 )
 (setvar "osmode" 0)
 (setvar "orthomode" 0)
 (prompt "\nSELECTIONNER LE(S) OBJET(S) A ETIRER : ")
 (setq obj nil)
 (while (null obj) (setq obj (ssget)))

(setq angledec(/(* 2 pi) 8))
(setq demiang(/ angledec 2.))
(setq poibase (getpoint (strcat "\nENTRER LE POINT DE BASE ")))

(prompt "\nENTRER LE POINT DE DIRECTION : ")

(while(and(setq key(grread T 4 0))(/=(car key)3))
   (redraw)
   (setq alpha(angle poibase (cadr key)))
   (setq demiquartier(1+(fix (/ alpha demiang))))
   (setq lifi(append
	(list 2 poibase(cadr key))
	(list 1 poibase(polar poibase(* angledec(fix (/ demiquartier 2.0))) (distance poibase (cadr key))))))
   (grvecs	     lifi)
   )
(redraw)

 (setq poidi (polar poibase(* angledec(fix (/ demiquartier 2.0))) (distance poibase (cadr key)))
 )


 (setq x1 (car poibase)
       y1 (cadr poibase)
       x2 (car poidi)
       y2 (cadr poidi)
 )
 (if (and (> x2 x1) (= y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat (rtos decalx 2 8) ",0")
   )
 )
 (if (and (> x2 x1) (> y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat (rtos decalx 2 8) "," (rtos decaly 2 8))
   )
 )
 (if (and (= x2 x1) (> y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat "0," (rtos decaly 2 8))
   )
 )
 (if (and (< x2 x1) (> y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat "-" (rtos decalx 2 8) "," (rtos decaly 2 8))
   )
 )
 (if (and (< x2 x1) (= y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat "-" (rtos decalx 2 8) ",0")
   )
 )
 (if (and (< x2 x1) (< y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat "-" (rtos decalx 2 8) ",-" (rtos decaly 2 8))
   )
 )
 (if (and (= x2 x1) (< y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat "0,-" (rtos decaly 2 8))
   )
 )
 (if (and (> x2 x1) (< y2 y1))
   (command "_.stretch"
            obj
            ""
            "0,0"
            (strcat (rtos decalx 2 8) ",-" (rtos decaly 2 8))
   )
 )
 (setvar "orthomode" parortho)
 (setvar "osmode" osm)
 (princ)
)

 

[Edité le 11/6/2010 par PHILPHIL]

[Tramber]

TROP fort !

Ce matin, mon pote du club m'appelle pour des commandes de pièces (je dois changer ma lgine d'échappement sur la deuche) au moment même où j'ouvre son courriel.

 

Figures-toi que je viens sur la page de CADxp et vois que tu as publié il y a peu alors même que je me disais en arrivant "tiens et ce truc avec grread !?"

 

C'est fou le hasard.

 

N'empêche que j'ai pas tout compris mais c'est bien :cool:

Peut-être un peu de manque d'accrobj réactivés aux moment cruciaux....

 

Bon WE

[philsogood]

Hello

j'ai testé le petit lisp de Philphil mais ça colle pas à mes besoins

je trace des tuyauteries 3D avec des poly3D (par exemple) et je souhaite pvr tracer ma conduite avec des anlges de 45 ou 90° (coudes les plus répandus dans la tuyauterie)

avec ortho on peut très facilement tracé en 3D une conduite avec des angles à 90°(dans toutes les directions XYZ), avec SNAPANG on peut tracer des poly à 45° sur le plan XY du SCU, mais comment faire pour avoir des angles de 45° sur XZ sans avoir à changer le SCU au préalable(ce qui reviendrait à faire un SNPANG sur un autre SCU)?

Une idée?

Phil