moklaur

******************************** Moi je l'exploite depuis longtemps ******************************** ;; TABLOBLO (Tramber) ;; Crée un tableau qui liste les blocs insérés (sélectionnés ou toute la collection) (defun c:tabloblo (/ libloc liidbloc ss col liref ptins tableVL cont row) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (prompt "\nSélectionnez les blocs à lister ou ") (or (setq ss (ssget '((0 . "INSERT")))) (setq ss (ssget "_X" '((0 . "INSERT"))) col T ) ) (if ss (progn (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*) ) (or (vlax-property-available-p x 'Path) (setq liref (cons (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) liref ) ) ) ) (vla-delete ss) ) ) (if col (vlax-for i (vla-get-Blocks *acdoc*) (if (and (not (wcmatch (setq name (vla-get-Name i)) "`**,*|*")) (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks *acdoc*) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ 2 (length libloc)) 3 20 ; Hauteur cellule 80 ; Largeur cellule ) ) (vla-put-VertCellMargin tableVL 4.0) ; Marge verticale (vla-put-TitleSuppressed tableVL :vlax-false) (vla-put-HeaderSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "Blocs") ; Titre (vla-setText tableVL 1 0 "Nom") ; Titre colonne 1 (vla-setText tableVL 1 1 "Nombre") ; Titre colonne 2 (vla-setText tableVL 1 2 "Symbole") ; Titre colonne 3 (setq cont -1 row 1 ) (repeat (- (vla-get-Rows tableVL) 2) (vla-settext tableVL (setq row (1+ row)) 0 (nth (setq cont (1+ cont)) libloc) ) (vla-settext tableVL row 1 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL row 2 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL row 0 5) (vla-setcellalignment tableVL row 1 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (if lst (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) ) ******************************************************** merci profondement pour Tramber et tous qui m'ont permis de trouver çà ********************************************************

Bonjour à tous pas à pas on arrive au loin vous etes sur le bon forum bien venu et bon courage

Exactement en purgeant le bloc du dessin A le problème sera rsolu si on colle le bloc à partir du dessin B dans A

Bonjour, Avez vous verifié s'il existe une ancienne version de ce bloc das le dessin si oui, appliquez purge sur ce bloc et essayer d'inserrer le nouv bloc

Bonjour, Avez vous essayé _xline (Bouton droite)

Bonjour, la commande _list ne siffut pas? Voilà une petit cas ************************************************************** LWPOLYLINE Calque: "0" Espace: Espace objet Maintien = 1fc Ouverte Epaisseur constante 0.0000 zone 0.0000 longueur 1088.9340 au niveau du point X=2311.8759 Y= 731.4064 Z= 0.0000 au niveau du point X=3170.1533 Y=1401.5834 Z= 0.0000 LWPOLYLINE Calque: "0" Espace: Espace objet Maintien = 1f4 Ouverte Epaisseur constante 0.0000 zone 0.0000 longueur 1052.5332 au niveau du point X=1665.1739 Y= 902.9398 Z= 0.0000 au niveau du point X=2583.3311 Y=1417.5400 Z= 0.0000 *************************************************************

Bonjour, J'ai un sujet un peut particulier, il concerne le decompte d'un echafaudage de façade comme suit: Sur AutoCAD, l'utilisateur introduit les dimensions du façade à echafauder Long et Hauteur et point de départ. En se basant sur des paramètres et des options (Largeur Echafaudage, Avec ou sans Plancher etc..) AutoCAD dessine en 3D (schematique) cet echafaudage. Maintenant les Donnés de départ (toute amélioration est la bien venue): 1) Les composants de l'echafaudage (Poteau/Echelle/GCorps etc...) son des Blocs 2D pour allèger 2) Le decompte peut etre manuel donc par :_dataextraction et simplifier la vie pour le LSP 3) Les regles de montage seront clairement decrites pour bien programmer 4) Pour un premier essais on peut commencer par 3 Blocs: Rectangle 3mx2m+Carré 2mx2m+Rectangle 1mx2m (Dim1 "Long" x Dim2 "Hauteur") et remplir le façades avec ces Blocs en suite en passe au détail. je peux dialoguer avec les interressés par mail: mokhtar_laur@yahoo.fr

Bonjour, J'ai essayé les 2 version 4, çà bien marché en coins vifs et arrondis donc deux spécialité sont satisfaites les Tubes Acier Soudées (coins arrondis) et les profilets Alu ou autre (Coins Vifs) merci beaucoup, après utilisation, je vous communique les infos pour condrver ou developper

Bonsoir, je pense que vous developpez sans saisse, c'est super bien j'espère que mes exigenses restent toujour dans le cadre de vous laisser créer l'essais de la vesrsion 4/4 bis sera deamin au bureau

Bonjour, Parfait comme amélioration pour arrondir les coins çà marche convenablement Pour le mode ajuster, peut etre la commande rectangle avec option raccord peut servir de moyen: Commande: _rectang Spécifiez le premier coin ou [Chanfrein/Elévation/Raccord/Hauteur/Largeur]: R Spécifiez le rayon du raccord des rectangles <0.0000>: 1 J'ai utilisé cette methode pour faire un tube grugé en tapant successivement les commandes sur Excel et par simple copier coller dans la ligne de commande Autocad mon tube est dessiné d'un seul coup ma methode Excel pour un tube grugé: _erase tout _rectang R 4 -4,0 4,18 _move _last 0,0 0,0,-35 _extrude _last 75 _cylinder 0,-20,-60 30 0,-50,60 _cylinder 0,0,0 23 A 0,75,0 _cylinder 0,0,0 25 A 0,75,0 _subtract _last tout _mirror tout 0,75 1,75 N _union tout ma methode Excel pour un galet de cintrage: _erase tout _arc _c 0,0 123.3,0 -123.3,0 _move _last 0,0,0 0,0,40 _circle 300,0 28 _sweep _last tout _move _last 0,0,0 0,0,3.5 _circle 300,7 28 _sweep _last tout _move _last 0,0,0 0,0,-3.5 _intersect tout _cylinder 0,0,0 15.5 80 _cylinder 0,0,0 25 11 _cylinder 0,0,69 25 11 _box -10,-125 10,125 7 _box -10,-125,73 10,125,73 7 _box -125,-125 125,-40 80 _box -125,-40 -70,0 80 _mirror _last 0,0 0,1 N _cylinder -70,-20,15 4 A -50,-20,15 _cylinder -70,-20,65 4 A -50,-20,65 _cone -50,-20,15 4 A -48.3092,-20,15 _cone -50,-20,65 4 A -48.3092,-20,65 _cylinder 70,-20,15 4 A 50,-20,15 _cylinder 70,-20,65 4 A 50,-20,65 _cone 50,-20,15 4 A 48.3092,-20,15 _cone 50,-20,65 4 A 48.3092,-20,65 _cylinder 0,0,0 120 80 _subtract _last tout NB: Peut etre il faut taper entrée à la fin pour finir et sortir

Salut à tous, sandyf, si vous voulez extraire de attributs de Autocad vers excel c'est simple Utilisez le menu: Outil>Extraction des Données... et suivez les instructions ou tapez: _dataextraction dans la ligne de commande

Bonjour à tous, Un grand merci usegomme, c'est vraiment ce que je cherche mais j'ai oublié de vous dire que le profilet est un tube soudé donc obtenu à partir de tole plane ce qui implique des rayons int et ext dans les 4 coins le rayon int est comme suit: Rint=1mm si Ep tube <=3mm Rint=2mm si Ep tube >3mm le rayon ext est evident: Rint+Ep tube J'espère que je vous drange pas merci d'avance

Bonjour, Si il yaura le lsp qui dessinera des profilets creux (Carré/rectangulaire) je dessinerais seulements les lignes moyennes puis je selectionne chaque ligne et lsp dessine le tube et il ne restera que extruder qques faces, couper quelques solides percer par soustraction des cylindres dessiné à la main etc... merci pour votre aide

Bonjour tout le monde j'ai besoin de savoir si possible de mettre à la place tuyau un profilet creux ou rectangulaire. comme ça le fait de dessiner une structure tubulaire sera un jeu usegomme, un grand merci pour le lsp, il est fort puissant

Bonjour, Je peux vous aider si 3D sans programmation à partir qu'un croquis main levé ou photo on deduit les section à extruder et les chemain d'extrusion A+