sangracosan

salut tt le monde, désolé de vous avoir embarassé avec moi, il s agit d une routine qui fait l interpolation en 3D avec écriture du résultat. dans un premier temps on pointe sur le point de terrain qui a la cote la plus petite (point inf)=A puis on pointe sur le point haut (par rapport au premier)=B, ensuite on choisit le point dont veut faire le calcul de la cote Zc (point cible)=C, en même temps je crée un point avec la command "_point" que je place dans sur point cible. Des calculs viennent après pour determiner la valeur de la cote cible Zc une fois determinée je veux remplacer la valeur de la cote du point C par Zc et qu elle soit affichée dans les propriétés géomtriques de C. j espere je j ai expliqué à quoi ça sert la routine. J attends tjrs vos rep et merci d avance.

merci pour vos reponses matt666 et gile. le problème persiste encore peut etre que je ss nul :cool: ou que le coopier coller avev modification ne marche pas :cool: en fait voici la routine, c est prehistorique, je sais, mais ça m évite des tonnes de calculs, le seul pblm c que je veux changer le w=caddr C par Z et qu il soit affiché dans les proprités du point C càd coordoonnées (x,y,z). (DEFUN C:Z() (command "_osnap" "_appint,_cen,_nod") (setq A (getpoint "\n Saisir point inf:")) (setq B (getpoint "\n Saisir point sup:" A)) (command "_pline" A B "") (setq C (getpoint "\n Saisir point cible:")) (command "_point" C ) (setq X1 (car A )) (setq X2 (car B )) (setq u (car C )) (setq Y1 (cadr A )) (setq Y2 (cadr B )) (setq v (cadr C )) (setq Z1 (caddr A )) (setq Z2 (caddr B )) (setq w (caddr C )) (setq X3 (- X2 X1 )) (setq Y3 (- Y2 Y1 )) (setq X4 (* X3 X3 )) (setq Y4 (* Y3 Y3 )) (setq d1 (+ X4 Y4)) (setq D (expt d1 0.5)) (setq u1 (- u X1 )) (setq v1 (- v Y1 )) (setq u2 (* u1 u1 )) (setq v2 (* v1 v1 )) (setq d2 (+ u2 v2 )) (setq L (expt d2 0.5)) (setq Z3 (- Z2 Z1 )) (setq Ratio (/ L D )) (setq Mu (* Ratio Z3 )) (setq Zc (+ Z1 Mu )) (setq Z (rtos Zc 2 3)) (setq p (polar C 0 0.5 )) (command "_text" p "0.4" "100" Z ) (command "_erase" A B "") (command "_osnap" "_appint,_cen,_nod,_endp,_mid,_int") ) SVP aidez moi à surmenter ce haie. merci d avance ;)

merci infiniment Matt666 pour la reponse. désolé si je n etais pas assez clair. voilà le truc : dans une routine, je crée un point par la command _point P(x,y,z) que pointe qlq part dans le dessin par le curseur, après je fais des calculs qui me donnent une cote Z, ce Z là je veux le mettre à la place de l ancien Z càd ecraser celui de P, mais ca ne marche pas. :( je ne sais pas comment acceder aux propriétés géometrique pour le changer.

Salut tt le monde voila le pblm: j ecris une routine en lisp dans laquelle je crée un point, mais je ne sais pas comment lui affecté des coordonnées x,y,z, ca ne marche pas avec les : car caddr.... SVP si qlq 1 a une idée pour depasser cet obstacle je lui serai reconnaissant. :) merci d avance

salut tt le monde ceux qui m aiment et ceux qui ne m aiment pas :cool: merci pr ta reponse bonuscad toi seul qui a pris la peine d'écrire un contenu vivant!! merci ------>infini

:present: pr me réconcilier avc vs!!! désolé si on m a pas compris!!

merci pr l aide ke j ai recu de votre part!!! :calim:

merci pr le com JALNA essaie au moins de repondre avec qlq che d'utile :casstet: même mon ancetre le + loin sais faire des coms :cool: merci qd mm!!!

ok pigé, voilà le msg: salut tt le monde je viens de débuter en lisp, j 'essaie de d'écrire une routine pour la vue en plan d'un pont quelconque, mais le problème c'est quand je combine la cotation continue avec les coordonnées locales, ça ne marche plus!! svp svp svp, j ai besoin d'un COUP DE POUCE!! voici la routine! (defun c:co () (initget 64) (setq N (getint "\nentrer nbr de travées:")) (setq P1 (getpoint "\n entrer 1er point:")) (setq P2 (getpoint "\n entrer 2eme point:")) (setq P3 (polar P1 (/ PI 2) 10)) (setq d (distance P1 P1)) (command "_PLINE" P1 P2 "") (setq k (ssget)) (command "_ARRAY" k "" "_R" 1 (- N 1) d 1) (command "_dimaligned" P1 P2 P3 "") (setq x d) (command "_PLINE" P2 "@x,0" "") (repeat N (setq x (+ x d)) (command "_PLINE" "@x,0" "@(+ x d),0" "") (command "_dimcontinue" "@X,0" "")) ) :)

salut ski est entre ,, c 1 + c pas la peine de se gratter la tete avc!! essaie d etre efficace en me repondant ;) ;)

salut tt le monde je viens de débuter en lisp, j 'essaie de d'écrire une routine pour la vue en plan d'un pont qlcq ,je ss ing resp de la concep des O.A, mais le pblm c qd je combine la cotation continue avc les coordonnées locales, ça ne marche plus :casstet: svp svp svp, j ai besoin d'un COUP DE POUCE!! voici la routine! (defun c:co () (initget 64) (setq N (getint "\nentrer nbr de travées:")) (setq P1 (getpoint "\n entrer 1er point:")) (setq P2 (getpoint "\n entrer 2eme point:")) (setq P3 (polar P1 (/ PI 2) 10)) (setq d (distance P1 P1)) (command "_PLINE" P1 P2 "") (setq k (ssget)) (command "_ARRAY" k "" "_R" 1 (- N 1) d 1) (command "_dimaligned" P1 P2 P3 "") (setq x d) (command "_PLINE" P2 "@x,0" "") (repeat N (setq x (+ x d)) (command "_PLINE" "@x,0" "@(+ x d),0" "") (command "_dimcontinue" "@X,0" "")) )