Aller au contenu

Demixav

Membres
  • Compteur de contenus

    790
  • Inscription

  • Dernière visite

  • Jours gagnés

    3

Tout ce qui a été posté par Demixav

  1. Demixav

    Calques récalcitrants

    Salut... Il y a le lisp "RB" qui passe tous les blocs sous le calque 0 et met la couleur des blocs à "DuBloc"... intéressé?
  2. Demixav

    Décalage cadre texte

    Re, Merci pour vos réponses à tous! Mais DIMGAP ne change rien aux lignes de repères... Et, sous ma version 2010, "l'espace de la ligne de guidage" fait varier l'espace entre le cadre/texte ET le premier segment de la ligne/flèche! Bonne journée! Xav
  3. Bonjour (gile)! Merci pour ta réponse et tes conseils... je vais regarder tout ca pour corriger "mon" LISP! Bonne journée! Xav
  4. Demixav

    Décalage cadre texte

    Re, Donc je confirme que ce que je cherche n'apparait ni dans les paramètres du contenu, ni du contenant! :) En fait, lorsque l'on passe par les express Tools pour encadrer du texte (enclose text with object), la première option qui est demandée, c'est "distance offset factor"... soit le décalage entre texte et le cadre... et c'est bien ce que je recherche comme variable mais pour les lignes de repère... si elle existe bien entendu! Merci et bonne journée! Xav
  5. Demixav

    Décalage cadre texte

    Bonjour djn06, Et bien si, c'est un peu plus compliqué que ca car ce n'est pas cela que je cherche! mais merci de ta réponse malgré tout! ;) Je cherche la variable pour le décalage entre le texte et son cadre, et non pas la ligne de repère...
  6. Bonjour, je souhaiterai connaitre la variable qui permet de choisir le "décalage" entre le texte et son cadre pour une ligne de repère? Le cadre se retrouve collé au texte et ca ne rend pas la chose très lisible... Merci et bonne journée! Xav
  7. Bonjour à tous... J'essaie de modifier un LISP et je pense que ca bloque au sujet du "nom de l'objet" que je souhaite sélectionner... Désolé si je me trompe sur l'exactitude des termes déjà! Voilà, par exemple, dans les lisp, quand on nomme un cercle, il est écrit "CIRCLE" ou pour une polyligne c'est "LWPOLYLINE"... si je ne m'abuse! Qu'en est il pour les fenetres de présentation? pour les fmult? Comment faire pour connaitre le "nom en LISP" d'un objet? j'ai bien tenté de passer par le "nom de l'objet" avec un champ mais ca me retourne "AcDbViewport"... mais c'est pas ca... :( Dans le désespoir, j'ai noté "FENETRE" et "FMULT" mais pas ca non plus je suppose... :( Le LISP en question ci dessous... je souhaite sélectionner une fenetre pour avoir une insertion de texte avec son echelle perso! je sais que l'échelle perso ne correspond pas à l'échelle vraie de la fenetre mais c'est pour me lancer des pistes et pourquoi pas apres remanier ca avec une formule avec un rapport à 1000 pour avoir la vraie échelle... Quand je lance ce LISP j'ai ce message "Spécifiez le point d'insertion: ; erreur: type d'argument incorrect: stringp nil" Merci pour votre aide! Bon week! Xav (defun c:chp_ech (/ AcDoc Space obj ins) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (and (setq obj (car (entsel))) (member (cdr (assoc 0 (entget obj))) '("FENETRE" "FMULT" "VIEWPORT") ) (setq ins (getpoint "\nSpécifiez le point d'insertion: ")) ) (vla-addMtext Space (vlax-3d-point ins) 0.0 (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID (vlax-ename->vla-object obj))) ">%).ViewportOn \f "%bl0\">%" ) ) ) (princ) )
  8. Bonjour à tous... J'ai vu un reportage à la TV (que je n'arrive pas à retrouver sur le net!) sur les levés topos par drone qui m'a bluffé... Levé d'extérieur, levé de façade intérieur et extérieur, très précis (au mm dans le reportage!), levé de fond de cours d'eau jusqu'à 10m de profondeur suivant la caméra, levé thermique, zone inaccessible etc etc... le rendu d'un scanner pour une machine aux alentours de 10 000€ dans les années à venir avec le logiciel qui va bien, productivité du levé accrue... bref, à part aller planter des piquets, ca sent bien la fin du métier de géomètre! :( C'est pas le reportage en question mais un lien pour se donner une idée du rendu! https://www.youtube.com/watch?v=s__KXMFzns8 Bonne soirée! Xav
  9. Demixav

    point moyen

    Si tu n'as qu'un ou deux points à immatriculer, autant passer par l'insertion de points plutôt que l'immatriculation d'entités...
  10. Demixav

    point moyen

    Re, Pour un arc de voirie entre 2 points, la méthode de dessiner une poly 3D avec reste la plus simple je trouve! si la flèche de discétisation est bien paramétrée, tu n'as pas à la lisser, les points intermédiaires sont interpolés, tu peux immatriculer les sommets avec altitude automatique après... au final, 2 commandes et c'est fait!
  11. Demixav

    point moyen

    Salut... Pourquoi ne pas dessiner une poly 3D puis passer par l'insertion de points? NB : Ta méthode à l'air bonne sauf l'insertion des points... je ne pense pas que 228.89 se trouve entre 228.82 et 228.86! ;) Bonne journée! Xav
  12. Bonjour... Pas de problème pour une fois, mais juste une remarque qui m'étonne un peu et j'aimerai savoir si il y a une explication. Je bosse actuellement sur un PAVE pour une ville... pour me repérer un peu mieux, j'ai mis une photo aérienne qui apparemment vient d'un assemblage de plusieurs images! Bref, quand j'ai reçu cette image .jpg et que j'ai vu son poids, je me suis dit que c'était même pas la peine d'essayer de l'insérer sur totocad... elle fait 250 MO! Et Ô surprise, mon totocad l'accepte sans broncher, déplacement quasi fluide, zoom etc etc... ce qui m'étonne fortement car parfois un simple pdf de quelques KO et c'est la misère, le déplacement saccadé, zoom au ralenti... enfin, j'exagère p't'etre un peu ms il est clair que l'image est mieux acceptée que le pdf dans mon cas! Autre remarque également qui m'étonne, le détail de l'image au zoom est bcp plus net quand l'image est sur totocad que si l'image est ouverte seule par la visionneuse windows! Y'a une explication donc? Bonne journée! Xav
  13. Demixav

    message d'erreur

    Bonjour Phil, Ca ne donne rien en DXF. J'ai tenté ta manip en enregistrant en DXF puis en DWG, fermé le fichier, puis réouverture... tjrs le message! J'ai également tenté d'ouvrir le fichier au format DXF pour voir si j'avais qd meme ce message et là, il ne veut pas me l'ouvrir du tout... cf message ci dessous! L'erreur suivante a été rencontrée lors de la lecture de GEODATA qui commence à la ligne 11032020: Erreur de lecture DXF Entrée DXF incomplète ou non valable -- dessin ignoré. Ca me gave... je laisse couler... tant que je peux bosser sur le fichier malgré tout, je ferai avec! Merci pour votre aide! Xav
  14. Demixav

    message d'erreur

    Re, Pour répondre à Christian... j'ai essayé de faire le E-transmit! mais je ne vois pas où configurer pour "une version AEC décomposée"... Dans le doute, j'ai tenté de décocher "inclure les fichiers des liaisons de données", de changer la version vers 2007... rien n'y fait, j'ai toujours ce message à l'ouverture du fichier créé par E-transmit! :(
  15. Demixav

    message d'erreur

    Bonjour... Je relance le sujet à propos de ce message d'erreur que j'ai sur un fichier... car je viens d'avoir un autre message lors de la sélection de hachures! (le fichier est un cadastre, ce sont les hachures des bati!)... si ca peut faire avancer le schmilblick! ;) L'opération booléenne sur les régions a échoué. Erreur d'opération de modélisation: Informations incohérentes dans les attributs de sommet et de co-arête. Bonne journée! Xav
  16. Une solution... pas ds le mur mais plutot par la fenetre... tes patrons ne le verront pas comme ca! ;) Suis preneur aussi si tu as une solution à ton problème!
  17. Demixav

    Point topo invalide

    Re Phil... Ce que je disais sur l'autre post... easy! ;)
  18. Demixav

    modifier texte

    Salut... Je lance une piste... Immatriculer tes entités textes avec des points topo (les points prendront la valeur du texte comme altitude!), déplacer tes points topo à l'altitude souhaitée et "Z point→attribut ALT" Xav
  19. Demixav

    texte bloqué en majuscule

    Merci Phil... easy en effet! Nickel! :) Bonne journée! Xav
  20. Bonjour... Encore un truc qui arrive "tout seul" ou que j'ai changé sans le vouloir... tous mes textes, lignes de repères, etc etc... tous s'écrivent en MAJUSCULE alors que la touche MAJ est bien désactivée! J'ai testé sur un doc word pour voir si ca venait d'autre part mais j'ai pas de soucis, ca fonctionne normalement! Il existe une variable à modifier pour éviter ca? Bonne journée! Xav
  21. Demixav

    Modif BSC de (gile)

    Bonjour (gile). Je comprends mieux la nécessité des lignes... je n'avais pas vu les choses comme ca! Merci pour ta réponse, tes explications et pour le partage de tes très bons LISP! :) Bonne journée! Xav
  22. Demixav

    Modif BSC de (gile)

    C'est pas faux Didier... disons que là je suis équipé pour aller à la friture, mais je souhaite m'attaquer au requin! :( Je tente bien de me mettre au LISP, mais pour pouvoir s'y mettre sérieusement, faut du temps! temps que je n'ai pas pdt les heures de taf, et pas de Totocad à la maison... dur dur! un peu de temps en temps après les heures de taf comme là ms bon... J'ai tenté bêtement de remplacer "AcDbLine" par "AcDbPolyline"... ca, ca marche pas déjà... :( Idem avec gc:grDrawLine... Pour la pêche, ce que j'ai de bon, c'est le bateau... enfin, plutôt la galère... ;)
  23. Bonjour à vous... Honte à moi, mais j'aimerai, dans la mesure du possible avoir une "petite modif" d'un LISP de (gile) qui se nomme BSC... Il permet de tracer perpendiculaire, bissectrice, médiatrice et tangente! Il crée des lignes... comment faire pour que ce soit des polylignes de créées? J'ai bien tenté par moi-même de le modifier, mais ne maitrisant pas du tout le LISP, plus rien ne fonctionne avec ma méthode... :( Le LISP en question ci dessous! Merci pour votre aide et mes excuses à (gile)! ;) ;; BSC -Gilles Chanteau- (maj 12/06/10) ;; Dessiner une ligne sur la bissectrice de l'angle des segments spécifiés ;; ou de l'angle défini par 3 points ;; La longueur de la ligne est entrée au clavier ou à l'aide du pointeur. (defun c:bsc (/ *error* Set2Points PointsFromSegment p1 p2 p3 p4 e1 e2 v1 v2 st ) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) ;; Redéfiniton de *error* (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (grtext) (vla-EndUndoMark *acdoc*) (princ) ) ;; Points par segment (defun PointsFromSegment (e1 sym1 sym2 / ob pt pa vc) (setq ob (vlax-ename->vla-object (car e1))) (cond ((= (vla-get-ObjectName ob) "AcDbLine") (set sym1 (trans (osnap (cadr e1) "_nea") 1 0)) (set sym2 (vlax-get ob 'StartPoint)) ) ((member (vla-get-ObjectName ob) '("AcDbRay" "AcDbXline")) (setq pt (trans (osnap (cadr e1) "_nea") 1 0) vc (vlax-get ob 'DirectionVector) ) (set sym1 pt) (set sym2 (mapcar '+ pt vc)) ) ((and (member (vla-get-ObjectName ob) '("AcDbPolyline" "AcDb2dPolyline") ) (setq pt (vlax-curve-getClosestPointToProjection ob (trans (cadr e1) 1 0) (getvar 'viewdir) ) ) (setq pa (fix (vlax-curve-getParamAtPoint ob pt))) (= 0 (vla-GetBulge ob pa)) ) (set sym1 pt) (set sym2 (vlax-curve-getPointAtParam ob pa)) ) ((= (vla-get-ObjectName ob) "AcDb3dPolyline") (setq pt (trans (osnap (cadr e1) "_nea") 1 0) pa (fix (vlax-curve-getParamAtPoint ob pt)) ) (set sym1 pt) (set sym2 (vlax-curve-getPointAtParam ob pa)) ) (T (princ "\nSegment non valide.")) ) ) ;; Fonction principale (vla-StartUndoMark *acdoc*) (while (not p1) (initget "3points") (setq e1 (entsel "\nSélectionnez le premier segment ou [3points] <3>: " ) ) (if (vl-consp e1) (PointsFromSegment e1 'p1 'p2) (progn (initget 1) (setq p1 (getpoint "\nSpécifiez le sommet: ")) (initget 1) (setq p2 (getpoint p1 "\nSpécifiez le second point: ")) (while (equal p1 p2 1e-9) (setq p2 (getpoint p1 "Points confondus.\nSpécifiez le second point: " ) ) ) (setq p3 (getpoint p1 "\nSpécifiez le troisième point: ")) (while (or (equal p1 p3 1e-9) (equal p2 p3 1e-9)) (setq p3 (getpoint p1 "Points confondus.\nSpécifiez le troisième point: " ) ) ) (setq st (trans p1 1 0) p2 (trans p2 1 0) p3 (trans p3 1 0) v1 (mapcar '- p2 st) v2 (mapcar '- p3 st) ) ) ) ) (while (not p3) (initget 1) (setq e2 (entsel "\nSélectionnez le second segment: " ) ) (PointsFromSegment e2 'p3 'p4) ) (if st (gc:grDrawLine st (gc:Normalize (mapcar '+ v1 v2))) (if (setq st (inters p1 p2 p3 p4 nil)) (progn (setq v1 (gc:Normalize (mapcar '- p1 st)) v2 (gc:Normalize (mapcar '- p3 st)) ) (gc:grDrawLine st (gc:Normalize (mapcar '+ v1 v2))) ) (princ "\nSegments non sécants") ) ) (*error* nil) ) ;;====================================================================;; ;; MED -Gilles Chanteau- (maj 12/06/10) ;; Dessiner une ligne sur la médiatrice du segment défini par 2 points ;; La longueur de la ligne est entrée au clavier ou à l'aide du pointeur. (defun c:med (/ *error* pt1 pt2 mid vec) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (grtext) (vla-EndUndoMark *acdoc*) (princ) ) (vla-StartUndoMark *acdoc*) (initget 1) (setq pt1 (getpoint "\nPremier point: ")) (initget 1) (setq pt2 (getpoint pt1 "\nSecond point: ") mid (mapcar (function (lambda (x1 x2) (/ (+ x1 x2) 2.))) pt1 pt2 ) vec (mapcar '- pt2 pt1) ) (if (and (equal (car pt1) (car pt2) 1e-9) (equal (cadr pt1) (cadr pt2) 1e-9)) (princ "Le segment est perpendiculaire au plan du SCU courant." ) (gc:grDrawLine (trans mid 1 0) (gc:Normalize (trans (list (- (cadr vec)) (car vec) 0.) 1 0 T)) ) ) (*error* nil) (princ) ) ;;====================================================================;; ;; PER -Gilles Chanteau- (maj 12/06/10) ;; Dessiner des lignes perpendiculaires au segment spécifié ou défini par 2 points ;; La longueur de chaque ligne est entrée au clavier ou à l'aide du pointeur. (defun c:per (/ *error* PointsFromSegment ent p1 p2 vec pt) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) ;; Redéfiniton de *error* (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (grtext) (vla-EndUndoMark *acdoc*) (princ) ) ;; Points par segment (defun PointsFromSegment (e1 sym1 sym2 / ob pt pa vc) (setq ob (vlax-ename->vla-object (car e1))) (cond ((= (vla-get-ObjectName ob) "AcDbLine") (set sym1 (trans (osnap (cadr e1) "_nea") 1 0)) (set sym2 (vlax-get ob 'StartPoint)) ) ((member (vla-get-ObjectName ob) '("AcDbRay" "AcDbXline")) (setq pt (trans (osnap (cadr e1) "_nea") 1 0) vc (vlax-get ob 'DirectionVector) ) (set sym1 pt) (set sym2 (mapcar '+ pt vc)) ) ((and (member (vla-get-ObjectName ob) '("AcDbPolyline" "AcDb2dPolyline") ) (setq pt (vlax-curve-getClosestPointToProjection ob (trans (cadr e1) 1 0) (getvar 'viewdir) ) ) (setq pa (fix (vlax-curve-getParamAtPoint ob pt))) (= 0 (vla-GetBulge ob pa)) ) (set sym1 pt) (set sym2 (vlax-curve-getPointAtParam ob pa)) ) ((= (vla-get-ObjectName ob) "AcDb3dPolyline") (setq pt (trans (osnap (cadr e1) "_nea") 1 0) pa (fix (vlax-curve-getParamAtPoint ob pt)) ) (set sym1 pt) (set sym2 (vlax-curve-getPointAtParam ob pa)) ) (T (princ "\nSegment non valide.")) ) ) ;; Fonction principale (vla-StartUndoMark *acdoc*) (while (not p1) (initget "2points") (setq ent (entsel "\nSélectionnez le segment de référence ou [2points] <2>: " ) ) (if (vl-consp ent) (progn (PointsFromSegment ent 'p1 'p2) (if p1 (setq p1 (trans p1 0 1) p2 (trans p2 0 1) ) ) ) (progn (initget 1) (setq p1 (getpoint "\nSpécifiez le premier point: ")) (initget 1) (setq p2 (getpoint p1 "\nSpécifiez le second point: ")) (while (equal p1 p2 1e-9) (setq p2 (getpoint p1 "Points confondus.\nSpécifiez le second point: " ) ) ) ) ) ) (if p1 (if (and (equal (car p1) (car p2) 1e-9) (equal (cadr p1) (cadr p2) 1e-9)) (princ "La droite de référence est perpendiculaire au plan du SCU courant." ) (progn (setq vec (mapcar '- p2 p1) vec (gc:Normalize (trans (list (- (cadr vec)) (car vec) 0.0) 1 0 T) ) ) (while (setq pt (getpoint "\nSpécifiez un point: ")) (gc:grDrawLine (trans pt 1 0) vec) ) ) ) ) (*error* nil) ) ;;====================================================================;; ;; TAN -Gilles Chanteau- (maj 12/06/10) ;; Dessiner des lignes tangentes à la courbe spécifiée ;; La longueur de chaque ligne est entrée au clavier ou à l'aide du pointeur. (defun c:tan (/ obj) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) ;; Redéfiniton de *error* (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (grtext) (vla-EndUndoMark *acdoc*) (princ) ) ;; Fonction principale (vla-StartUndoMark *acdoc*) (if (and (setq obj (car (entsel "\nSélectionnez une courbe: "))) (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getEndParam (list obj)) ) ) ) (while (setq pt (getpoint "\nSpécifiez le point de départ: ")) (if (setq pa (vlax-curve-getParamAtPoint obj (setq pt (trans pt 1 0))) ) (gc:grDrawLine pt (gc:Normalize (vlax-curve-getFirstDeriv obj pa)) ) ) ) (princ "\nEntité non valide") ) (*error* nil) ) ;;====================================================================;; ;; gc:grDrawLine (gile) ;; Utilisation de grread pour dessiner une ligne à partir d'un point et ;; d'un vecteur directeur ;; ;; Arguments ;; startPt : point de départ de la ligne (coordonnées SCG) ;; direction : vecteur directeur de la ligne (coordonnées SCG) (defun gc:grDrawLine (startPt direction / dist pt ratio line elst loop) (if (/= 0 (setq dist (distance (gc:UCSProjectAboutView '(0 0 0)) (gc:UCSProjectAboutView direction) ) ) ) (progn (setq ;; projection du point sur le plan du SCU pt (trans (gc:UCSProjectAboutView startPt) 0 1) ;; rapport entre la longueur du vecteur et celle de sa projection sur le SCU ratio (/ 1 dist) ;; ligne de longueur 0 line (entmakex (list '(0 . "LINE") (cons 10 startPt) (cons 11 startPt) ) ) elst (entget line) loop T ) (princ "\nSpécifiez la longueur ou [annUler]: ") (if (vl-catch-all-error-p (vl-catch-all-apply '(lambda (/ gr len end str) (while (and (setq gr (grread T 12 0)) (/= (car gr) 3) loop) (cond ;; modification de la ligne en fonction de la position du pointeur ((= 5 (car gr)) (if (minusp (gc:DotProduct (gc:3dTo2dPoint (trans direction 0 2 T)) (gc:3dTo2dPoint (trans (mapcar '- (cadr gr) pt) 1 2 T)) ) ) (setq direction (mapcar '- direction)) ) (setq len (* ratio (distance pt (cadr gr))) end (mapcar (function (lambda (x1 x2) (+ x1 (* len x2)) ) ) startPt direction ) ) (entmod (subst (cons 11 end) (assoc 11 elst) elst ) ) ;; affichage dynamique de la longueur dans la barre d'état (grtext -1 (rtos len)) ) ;; clic droit ((member (car gr) '(11 25)) (entdel line) (setq loop nil line nil ) ) ;; Entrée ou Espace ((member (cadr gr) '(13 32)) (cond ;; longueur valide ((and str (numberp (distof str))) (setq end (mapcar (function (lambda (x1 x2) (+ x1 (* (distof str) x2)) ) ) startPt direction ) loop nil ) (entmod (subst (cons 11 end) (assoc 11 elst) elst ) ) ) ;; annUler ((= (strcase str) "U") (entdel line) (setq loop nil line nil ) ) ;; entrée non valide (T (princ "\nNécessite un nombre valide ou une saisie au pointeur. \nSpécifiez la longueur ou [annUler]: " ) (setq str "") ) ) ) ;; Récupération des entrée au clavier (T ;; retour/effacer (if (= (cadr gr) 8) (or (and str (/= str "") (setq str (substr str 1 (1- (strlen str)))) (princ (chr 8)) (princ (chr 32)) ) (setq str nil) ) (or (and str (setq str (strcat str (chr (cadr gr)))) ) (setq str (chr (cadr gr))) ) ) ;; affichage sur la ligne commande (and str (princ (chr (cadr gr)))) ) ) ) ) ) ) (and (entdel line) (setq line nil)) ) ) (princ "\nLa direction est perpendiculaire à la vue") ) (grtext) line ) ;;====================================================================;; ;;gc:3dTo2dPoint ;; Retourne le point 2d (x y) ;; ;; Argument: un point 3d (x y z) (defun gc:3dTo2dPoint (p) (list (car p) (cadr p))) ;;====================================================================;; ;;gc:DotProduct Retourne le produit scalaire (réel) de deux vecteurs (defun gc:DotProduct (v1 v2) (apply '+ (mapcar '* v1 v2)) ) ;;====================================================================;; ;;; gc:Normalize Retourne le vecteur unitaire d'un vecteur (defun gc:Normalize (v) ((lambda (l) (if (/= 0 l) (mapcar (function (lambda (x) (/ x l))) v) ) ) (distance '(0 0 0) v) ) ) ;;====================================================================;; ;;; gc:IntersLinePlane Retourne le point d'intersection de la droite définie par p1 p2 ;;; et du plan défini par un point et sa normale. (defun gc:IntersLinePlane (p1 p2 org nor / scl) (if (and (/= 0 (setq scl (gc:DotProduct nor (mapcar '- p2 p1)))) (setq scl (/ (gc:DotProduct nor (mapcar '- p1 org)) scl)) ) (mapcar (function (lambda (x1 x2) (+ (* scl (- x1 x2)) x1))) p1 p2 ) ) ) ;;====================================================================;; ;; gc:UCSProjectAboutView ;; Projette un point sur le plan du SCU courant suivant la vue courante ;; ;; Argument ;; pt : le point à projeter (coordonneés SCG) ;; ;; Retour : le point sur le plan du SCU courant (coordonneés SCG) (defun gc:UCSProjectAboutView (pt) (gc:IntersLinePlane pt ((lambda (p) (trans (list (car p) (cadr p) (1+ (caddr p))) 2 0 ) ) (trans pt 0 2) ) (trans '(0 0 0) 1 0) (trans '(0 0 1) 1 0 T) ) )
  24. Demixav

    erreur E-Transmit

    Re, Tu n'as pas à t'excuser... je comprends bien que c'est pour identifier mon problème! ;) -Alors, oui, je peux créer des nouveaux dossiers sur le serveur, y compris dans le dossier de mon fichier, -Non, pas possible de redémarrer le serveur, mais apparemment, il n'y a pas eu d'incident ce week! J'ai tenté avec un fichier plus ancien que celui en cause et j'ai pas de soucis! idem pour un plus récent! -J'ai demandé a un de mes collègues d'essayer sur son poste, et il a le même message d'erreur! -Non, pas d'autres fichiers concernés par ce problème! De plus, c'est un fichier que j'ai créé moi même sur mon poste, donc pas possible que ce soit une histoire de transfert ou de conversion ou autres... je sèche! :(
  25. Demixav

    erreur E-Transmit

    Re, Merci Didier pour ta réponse... Donc j'ai tenté de redémarrer mon ordi, ouvert mon fichier avec "récupérer"... mais non, ca ne change rien! toujours le meme message d'erreur pour ce fichier! :(
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité