vincentp010

Ca doit être le clic-droit sur l'onglet de présentation et "Exporter la présentation en objet" par contre ça utilise le scu de l'espace papier pour créer le nouveau plan en objet

L'adresse du ftp à-t-elle changé récemment ? J'essais de me connecter à ftp://covadis.serveftp.com/ mais le site ne répond pas.

(getcname "repere") "_PLAN"

C'est la ligne où tu demande d'entrer le niveau qui est fausse: (setq Niv_sup (getint "/n donner le Niv de l'arase sup semelle (m)")) Là tu demande un entier avec getint alors que tu veux un réel, utilise donc getreal: (setq Niv_sup (getreal "/n donner le Niv de l'arase sup semelle (m)"))

C'est normal, tu utilises iota (que tu as surligné en jaune) qui converti un entier en texte. Donc si tu passe un réel à itoa il ne sait pas le traiter, utilise donc rtos.

Comme tu le dit toi même utilise rtos Extrait de l'aide d'autocad: Donc: (setq Nivbis (rtos Niv_inf 2 2)) Le premier 2 pour dire qu'on veut du décimal et le deuxième pour avoir deux chiffres après la virgule

Salut, je ne crois pas que cette fonction existe. Par contre tu as la commande "zoom" "centre". Dans chaque fenêtre tu fait zoom, centre sur le même point.

Salut, il y a la commande REDIR des express tools ou le gestionnaire des références dans le menu démarrer.

(defun c:compteur () (setq compteur 1) (while "" ;attention ne pas mettre de parenthèse fermante ici (elle est déjà en bas) (setq rep "+ compteur 1 ") ;tu ne t'en sert pas de cette variable? (setq ptclic (getpoint " point d'insertion du chiffre")) ;il manquai une parenthèse fermante pour setq (setq ptchiffre (polar ptclic 0 50)) (command "texte" ptchiffre 4 0 (rtos compteur 2 0)) ;il faut convertir ton nombre en texte avec rtos (setq compteur ( + compteur 1)) ) ; ferme la boucle while

Salut, il faut mettre #0,0

Salut, ton câble est un câble COM ou USB ?

Salut, ton câble est un câble COM ou USB ?

Salut, "copier avec point de base" pour éviter de prendre le point 0,0,0. Sinon il y a la commande copier.

Salut, il faut que tu mettes ucsfollow à 0 dans la présentation et non dans l'EP.

J'avais eu l'erreur de division par zéro une seule fois et après plus rien donc j'ai pas cherché d'ou ça pouvais venir. [surligneur]Il faut que je corrige ce post...[/surligneur] Ça serait bien vu que c'est le premier que l'on trouve lors d'une recherche sur les matrices ;)

Merci pour le code, je peux voir que ma méthodologie n'est pas mauvaise :) Pour la fonction ReverseMatrix je l'ai trouvée dans un de tes post sur les matrices qui date de 2006, elle ne doit marcher que pour les 4x4.

Bonjour, j'ai récupéré un fichier avec des blocs dont le point d'insertion se trouvait à des kilomètres des entités de ce bloc, pour bosser c'est pas très pratique, surtout si on veut remplacer le bloc. Je voulais donc redéfinir ce point d'insertion sans que les entités se déplacent. Grossièrement je voulais faire ça: http://pix.toile-libre.org/upload/original/1303221798.jpg Je viens de me mettre aux matrices, donc je les ai donc utilisée pour calculer le vecteur de déplacement des objets. ; Redefinit le point de base d'un bloc sans le deplacer (vl-load-com) ;; getMatrixRot Retourne la matrice d'une rotation (defun getMatrixRot (rot) (list (list (cos rot) (- (sin rot)) 0 0) (list (sin rot) (cos rot) 0 0) (list 0 0 1 0) (list 0 0 0 1) ) ) ;; getMatrixEch Retourne la matrice d'une echelle (defun getMatrixEch (ech) (list (list (nth 0 ech) 0 0 0) (list 0 (nth 1 ech) 0 0) (list 0 0 (nth 2 ech) 0) (list 0 0 0 1) ) ) ;; getMatrixTranst Retourne la matrice d'une translation (defun getMatrixTrans (trans) (list (list 1 0 0 (nth 0 trans)) (list 0 1 0 (nth 1 trans)) (list 0 0 1 (nth 2 trans)) (list 0 0 0 1) ) ) ;; mxv Apply a transformation matrix to a vector by Vladimir Nesterovsky (defun mxv (m v) (mapcar '(lambda (row) (apply '+ (mapcar '* row v))) m) ) ;; mxm Multiply two matrices by Vladimir Nesterovsky (defun mxm (m q / qt) (setq qt (apply 'mapcar (cons 'list q))) (mapcar '(lambda (mrow) (mxv qt mrow)) m) ) ;;; butlast Retourne la liste privée du dernier élément (defun butlast (lst) (reverse (cdr (reverse lst))) ) ;;; VXV Retourne le produit scalaire (réel) de deux vecteurs (defun vxv (v1 v2) (apply '+ (mapcar '* v1 v2)) ) ;; Transpose une matrice Doug Wilson (defun trp (m) (apply 'mapcar (cons 'list m)) ) ;;; ReverseMatrix Retourne la matrice de tranformation inverse [mat] ;;; Utilise Vunit ;;; VUNIT Retourne le vecteur unitaire d'un vecteur (defun vunit (v / l) (if (/= 0 (setq l (sqrt (apply '+ (mapcar '* v v))))) (mapcar '(lambda (x) (/ x l)) v) ) ) (defun ReverseMatrix (mat / sclst rmat) (setq sclst (mapcar '(lambda (v) (expt (car (mapcar '/ (vunit v) v)) 2)) (trp (mapcar 'butlast (butlast mat))) ) ) (append (mapcar '(lambda (v1 v2) (append v1 (list v2))) (setq rmat (trp (mxm (mapcar 'butlast (butlast mat)) (list (list (car sclst) 0.0 0.0) (list 0.0 (cadr sclst) 0.0) (list 0.0 0.0 (caddr sclst)) ) ) ) ) (mapcar '- (mxv rmat (mapcar 'last (butlast mat)))) ) (list '(0.0 0.0 0.0 1.0)) ) ) (defun c:insredef (/ ent bl rot ech invech ptnouv ptins vect vect2 mat matrot matech debut nb nb1 allbl pt n i namebl) (setvar "cmdecho" 0) (command "annuler" "m") (setq ent (car (entsel "Selectionner le bloc a modifier :"))) (if (/= ent nil) (progn (setq bl (cdr (assoc 2 (entget ent)))) ;; Calcul du vecteur de deplacement dans le scu du bloc (setq ptins (cdr (assoc 10 (entget ent)))) (setq rot (cdr (assoc 50 (entget ent)))) (setq ech (list (cdr (assoc 41 (entget ent))) (cdr (assoc 42 (entget ent))) (cdr (assoc 43 (entget ent))) )) (vla-highlight (vlax-ename->vla-object ent) :vlax-true) (setq ptnouv (getpoint "Pointez le nouveau point de base du bloc :")) (vla-highlight (vlax-ename->vla-object ent) :vlax-false) (setq ptnouv (trans ptnouv 1 0)) (setq vect (mapcar '(lambda (x y) (- y x)) ptins ptnouv)) (setq invech (mapcar '(lambda (x) (/ 1 x)) ech)) (setq matech (getMatrixEch invech)) (setq matrot (getMatrixRot (- rot))) (setq mat (mxm matech matrot)) (setq vect (butlast (mxv mat vect))) ;;_fin calc vect dep ;; Modif definition du bloc (setq debut 1) (while (/= namebl bl) (setq i (tblnext "block" debut) debut nil) (setq namebl (cdr (assoc 2 i))) ) (if (/= i nil) (progn (setq n (cdr (assoc -2 i))) (while n (if (and (/= (cdr (assoc 0 (entget n))) "VERTEX") (/= (cdr (assoc 0 (entget n))) "COVAPTSEL")) (vla-move (vlax-ename->vla-object n) (vlax-3d-point (list 0.0 0.0 0.0)) (vlax-3d-point (mapcar '(lambda (x) (- x)) vect))) ) (setq n (entnext n)) (if (/= n nil) (if (= (cdr (assoc 0 (entget n))) "SEQEND") (setq n nil)) ) ) ;_while )) ;_if ;; Fin modif bloc ;; Deplace les blocs (setq allbl (ssget "x" (list (cons 2 bl)))) (setq nb 0 nb1 (sslength allbl)) (while (< nb nb1) (setq ent (ssname allbl nb)) (setq ptins (cdr (assoc 10 (entget ent)))) (setq rot (cdr (assoc 50 (entget ent)))) (setq ech (list (cdr (assoc 41 (entget ent))) (cdr (assoc 42 (entget ent))) (cdr (assoc 43 (entget ent))) )) (setq matech (getMatrixEch ech)) (setq matrot (getMatrixRot rot)) (setq mat (mxm matech matrot)) (setq vect2 (butlast (mxv mat vect))) (setq pt (mapcar '(lambda (x y) (+ x y)) ptins vect2)) (entmod (subst (cons 10 pt) (assoc 10 (entget ent)) (entget ent))) (setq nb (+ nb 1)) ) ;; Fin deplace blocs )) ;;_if (/= ent nil) ) Si vous avez des remarques sur le code n’hésitez pas.

Salut, as tu un message d'erreur lorsque tu essayes d'ouvrir les fichiers ?

Il manque un câble qui longe la corniche et qui descend le long de la façade. Ça fait une petite trace sur le rendu, mais faut le savoir.

Salut, pour inserer les symboles dans le sens de ta vue, il suffit d'être dans un scu parallèle à la vue Ça se fait facilement avec la commande scu: "scu" "vue"

Salut, variable MBUTTONPAN ?

Salut, essayes de baisser la qualite des images raster à l'impression voir ici: http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=28039#pid122935

En fait, dans tous les cas, c'est la distance la plus grande entre la distance des deux extrémités et la distance avec le sommet théorique.

Salut, c'est normal, la distance entre tes deux extrémités est de 24.3887m pedit ne résonne pas avec les intersections mais avec les extremintés

Salut, chez moi, en passant par pedit ça marche. Ton objet d'origine est bien une polyligne ?