lesourd2

Salut grandss Essaies ceci si ça te convient Permet de faire des perpendiculaires par rapport d'un point ou une ligne selectionnee. (defun c:perp (/ erreur ent dep ang loop per gr pe str) (defun erreur (msg) (if (= msg "Fonction annulée") (princ "\n*Annuler*") (princ (strcat "\nErreur: " msg)) ) (and per (entdel per)) (setq *error* m:err m:err nil ) ) (setq m:err *error* *error* erreur ) (if (and (setq ent (car (entsel "\nSélectionnez la ligne: "))) (= (cdr (assoc 0 (entget ent))) "LINE") (setq dep (getpoint "\nPoint de départ de la perpendiculaire :")) ) (progn (entmake (list '(0 . "LINE") (cons 10 (trans dep 1 0)) (cons 11 (trans dep 1 0)) ) ) (setq per (entlast) ang (angle (cdr (assoc 10 (entget ent))) (cdr (assoc 11 (entget ent))) ) loop T ) (princ "\nSpécifiez la longueur: ") (while (and (setq gr (grread T 12 0)) (/= (car gr) 3) loop) (cond ((= (car gr) 5) (setq pe (polar dep (if (minusp (sin (- (angle dep (cadr gr)) ang))) (- ang (/ pi 2)) (+ ang (/ pi 2)) ) (distance dep (cadr gr)) ) ) (entmod (subst (cons 11 (trans pe 1 0)) (assoc 11 (entget per)) (entget per) ) ) (grtext -1 (rtos (distance dep (cadr gr)))) ) ((member (cadr gr) '(13 32)) (if (and str (numberp (read str))) (progn (entmod (subst (cons 11 (trans (polar dep (angle dep pe) (distof str)) 1 0) ) (assoc 11 (entget per)) (entget per) ) ) (setq loop nil) ) (progn (princ "\nNécessite un nombre valide ou une saisie au pointeur. \nSpécifiez la longueur: " ) (setq str "") ) ) ) (T (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))) ) ) (and str (princ (chr (cadr gr)))) ) ) ) ) ) (setq *error* m:err m:err nil ) (princ) ) Merci à son auteur (trouvé sur le site). @+

Salut Je ne vois pas comment tu arrives à ce resultat :casstet: Refait bien un clic droit dans les parties grises à cotés de tes barres d'outils et tu ouvres l'interface de personnalisation. @+

Salut Patrick As tu d'abord jetté, au moins, un petit coup d'oeil dans l'aide ? Peut-etre une piste !

Salut yusukens Commande : lman @+

SALUT Et avec DESIGN CENTER ? @+

Salut Moi j'aurais la reponse a la premiere question uniquement . Dessiner le rectangle Creer un multitexte; clic droit dans la fenetre multitexte; puis inserer champ Dans le fenetre champ choisir objet ; puis selectionner le rectangle Dans la liste des proprietes choisir les valeurs que tu veux (aire Long Larg) Choisir tes formats et precision Fermer ( OK) la fenetre champ et multitexte. Si tu modfies les cotes de ton rectangle en faisant regenerer elles s'ajustent automatiquement Quant à l'exportation des, champs vers Excel là je sais pas. Esperant t'avoir aidé. @+ J'ai été un peu vite en besogne (pas de champ sous LT mais tu peux les importer dans une version full et les inserer en bloç champ)[Edité le 24/1/2008 par lesourd2] [Edité le 24/1/2008 par lesourd2]

Salut J'aurais ceci a te proposer eventuellement. ;programme r‚alis‚ par B.ROUSSEAU ;change toute ligne en polyligne avec une ‚paisseur par selection globale (defun C:CHligne () (princ "\nChange toutes les lignes en polylignes avec une nouvelle ‚paisseur") (princ "\nPar COLLY Romuald ,V1.0 1992") (setq p (ssget)) ; Selection d'entites (if p (progn ; Si des objets sont selectiones (setq l 0 na 0 n (sslength p)) (setq na (getreal " Nouvelle ‚paisseur : ")) (while (< l n) ; Selection des entites une par une (if (= "LINE" ; Regarde si l'entite est une ligne (cdr (assoc 0 (setq e (entget (ssname p l)))))) (progn (setq lin (ssname p l)) (command "pedit" lin "o" "e" na "s") ) ) (if (= "POLYLINE" ; Regarde si l'entite est une polyligne (cdr (assoc 0 (setq e (entget (ssname p l)))))) (progn (setq lin (ssname p l)) (command "pedit" lin "e" na "s") ) ) (setq l (+ l 1)) ; Suivante ) ) ) (redraw) ) @+

Salut Pardon, j'avais oublié, LT EXTENDER AutoCAD v.LT + LT EXTENDER = Exploitation des LISP @+ [Edité le 24/1/2008 par lesourd2]

Salut technopat Peut-etre une solution là avec RXREF . @+

Salut XYZ Essaies moi ça pour voir ;;; XREF_PURGE version 1.2 ;;; Purge les xrefs non référencées (defun c:xref_purge (/ AcDoc lay n l_lst blocks name n_lst cnt item obj x_lst) ;; Chargement des fonctions ActiveX (vl-load-com) ;; AcDoc : pointeur vers le document actif (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) ;; Dévérouillage de tous les calques (repeat (setq n (vla-get-count (vla-get-Layers AcDoc))) (setq lay (vla-item (vla-get-Layers AcDoc) (setq n (1- n)))) (if (= :vlax-true (vla-get-lock lay) ) (progn (vla-put-lock lay :vlax-false) (setq l_lst (cons lay l_lst)) ) ) ) ;; Pour chaque nom de xref de la collection, on teste si une référence ;; est présente dans le dessin, si non la xref est détachée du dessin (vlax-for x (setq blocks (vla-get-Blocks AcDoc)) (if (and (= :vlax-true (vla-get-isXref x)) (/= 0 (vla-get-count x)) (not (member (setq name (vla-get-name x)) n_lst)) ) (setq n_lst (cons name n_lst)) ) ) (foreach n n_lst (repeat (setq cnt (vla-get-Count (setq item (vla-item blocks (eval n))))) (setq obj (vla-item item (setq cnt (1- cnt)))) (if (and (= (vla-get-objectname obj) "AcDbBlockReference") (member (vla-get-Name obj) n_lst) ) (setq x_lst (cons (vla-get-Name obj) x_lst)) ) ) ) (foreach n n_lst (if (member (eval n) x_lst) (setq n_lst (vl-remove (eval n) n_lst)) ) ) (foreach n n_lst (if (not (ssget "_X" (list (cons 0 "INSERT") (cons 2 (eval n))) ) ) (vla-detach (vla-item (vla-get-Blocks AcDoc) (eval n))) ) ) ;; Restauration de l'état des calques (if l_lst (mapcar '(lambda (x) (vla-put-lock x :vlax-true) ) l_lst ) ) (princ) ) Merci (gile) @+ [Edité le 24/1/2008 par lesourd2]

Salut lili C'est tout bete mais, dans un meme dossier y mettre tes Xref ( fond de plans ) avec ton fichier d'implantation, et lorsque tu ouvres ton fichier d'implantation tes Xref se chargent automatiquement.A la seule condition d'avoir bien enregistré le chemin et surtout de ne pas avoir deplacé ou renommé les Xref. @+

Salut lili C'est à dire , que quelle façon? Cela m'interesse [Edité le 21/1/2008 par lesourd2]

Salut lili Tu as bien mis tes plans avec tes Xref dans le meme dossier de fichiers? @+

Salut yw22 Je tenais moi aussi tout particulierement à te remercier et te feliciter pour ton travail ton partage et ta generosite, notamment pour la 3D. Tres bon tutorial pour s'y mettre en tant que debutant BRAVO

Salut Essaies de voir là . Si cela peut t'aider. @+

Salut et bienvenu Peut-etre une solution avec ce lien : ici. Lisp edit-bloc de gile. @+

Salut Merci bonuscad ! @+

Salut lili2006 Rendons à César ce qui est à César. . Tu penses bien que ce n'est pas MON lisp! Pardon à son auteur que je ne peux plus citer (memoire perdue quand tu nous tiens). Mais bon, cela profite à d'autres et l'on est dans une logique d'entraide et de partage dans CADxp. :) :) @+

Salut Moi c'est marrant, mais j'aurais fait le contraire, en effet, Pour passer de cm en m : xp=0.01 ( 1cm est 100 fois plus petit qu' 1m). Donc ton dessin prendra un facteur d'echelle de 0.01 et se retrouvera coté en metre. Un petit lisp genial pour mettre à l'echelle tes fenetres de presentation suivant tes unites de dessin. Vous connaissez votre unité Vous savez à quelle échelle vous voulez mettre votre fenêtre de présentation. Mais vous êtes perdu dans les paramètres. Essayez ceci (defun c:qz ( / unit_draw fz f_m flag) (cond ((ssget "_X" '((0 . "VIEWPORT"))) (if (or (eq (getvar "USERS5") "") (not (eq (substr (getvar "USERS5") 1 2) "qz"))) (progn (initget "KM ME CM MM") (if (not(setq unit_draw (getkword "\nDessin réalisé en [KM/ME/CM/MM] : "))) (setq unit_draw "ME") ) (cond ((eq unit_draw "KM") (setq unit_draw 1000000) ) ((eq unit_draw "ME") (setq unit_draw 1000) ) ((eq unit_draw "CM") (setq unit_draw 10) ) ((eq unit_draw "MM") (setq unit_draw 1) ) ) (setvar "USERS5" (strcat "qz" (itoa unit_draw))) ) (setq unit_draw (atoi (substr (getvar "USERS5") 3))) ) (initget 6 "5 10 25 50 100 200 250 500 1000 2000 2500 5000 10000 25000 50000 1000000") (setq fz (getint "\nChoix de l'échelle[5/10/25/50/100/200/250/500/1000/2000/2500/5000/10000/25000/50000/ 1000000]? <100>:")) (if (not fz) (setq fz 100)) (if (eq (getvar "TILEMODE") 1) (setvar "TILEMODE" 0)) (if (not (eq (getvar "CVPORT") 1)) (command "_.pspace")) (princ "\nChoisissez la fenêtre à mettre à l'échelle") (while (null (setq f_m (ssget "_:S" '((0 . "VIEWPORT"))))) (princ "\nN'est pas une fenêtre") ) (setq f_m (ssname f_m 0)) (if (eq (boole 1 16384 (cdr (assoc 90 (entget f_m)))) 16384) (progn (command "_.mview" "_lock" "_off" f_m "") (setq flag T) ) (setq flag nil) ) (command "_.mspace") (setvar "CVPORT" (cdr (assoc 69 (entget f_m)))) (command "'_.zoom" "_ce" (getvar "VIEWCTR") (strcat (itoa unit_draw) "/" (itoa fz) "XP")) (command "_.pspace") (if flag (command "_.mview" "_lock" "_on" f_m "")) ) (T (princ "\nAucunes fenêtres dans l'espace papier") ) ) (princ) ) @+

Salut Un fichier DWL est créé automatiquement à l'ouverture d'un fichier, puis supprimé lorsque le fichier est fermé. Lorsque la personne te l'a envoyé ,elle avait son fichier d'ouvert et n'a surememnt pas fait attention entre .DWG et .DWL.Tu ne peux rien en faire. Redemande le fichier en .dwg @+

Salut vinz34 Merci pour tout et surtout pour ta reactivité. et à bientot sur les forums. ;) @+ [Edité le 16/1/2008 par lesourd2]

Salut francois, Super et merci Mais dis moi, tu ne serais pas un peu Marseillais toi, des fois? Le niveau moyen de la mer (0) n'est pas le meme à Marseille qu'à Brest (par ex.) ? :exclam:

Version LT + LT Extender ( entres autres) = UTILISATION DES LISPS. :casstet:

Salut Merci pour ces infos .j'y vois deja plus clair. Juste une autre petite question : NGF Que veux dire NGF A quoi cela correspond et par rapport à quoi. Autre chose : arase inferieure OK arase superieure de la dalle ? Je n'arrive pas à comprendre clairement le rapport de dimensons entre AS/niveau NGF de la dalle/epaisseur de la dalle/sous face du plancher. Pour moi c'etait : 165.13 (AS) +24(Ep) =164.89(SF).Evidemment cela ne colle pas. Un petit plan de coupe qui va bien ( un truc vite fait ; basique) avec toutes ces données m'aiderait surement. @+ [Edité le 15/1/2008 par lesourd2]

Salut à tous J'aimerais profiter des connaissances de certains dans le domaine pour me dechiffrer les differents reperages sur ce plan "structures" (qui n'est pas du tout ma specialité) que j'ai reçu. J'ai besoin de tous les elements pour l'implantation du materiel ( detection incendie). J'ai cru comprendre que certains etaient des cotes sous dalle ( par ex.) mais pour le reste je suis un peu dans le flou. Merci de votre aide http://images3.hiboox.com/images/0308/38td1v9w.jpg