Périphériques de sortie, impression
écrans, traceurs, imprimantes, imprimantes 3D, systèmes de découpe, machines à commandes numériques...etc
282 sujets dans ce forum
-
- 0 réponse
- 424 vues
-
- 32 réponses
- 9,8 k vues
-
- 4 réponses
- 2,1 k vues
-
- 8 réponses
- 1,5 k vues
-
- 0 réponse
- 723 vues
-
- 1 réponse
- 811 vues
-
- 0 réponse
- 995 vues
-
- 2 réponses
- 1,4 k vues
-
- 4 réponses
- 3,8 k vues
-
- 5 réponses
- 2,2 k vues
-
- 2 réponses
- 2,7 k vues
-
- 0 réponse
- 2,9 k vues
-
- 0 réponse
- 1,9 k vues
-
- 2 réponses
- 2,9 k vues
-
- 1 réponse
- 2,7 k vues
-
- 4 réponses
- 3,7 k vues
-
- 2 réponses
- 5,4 k vues
-
- 5 réponses
- 6,9 k vues
-
- 7 réponses
- 5,2 k vues
-
- 10 réponses
- 12,9 k vues
-
- 2 réponses
- 4,4 k vues
-
- 7 réponses
- 7,2 k vues
-
- 4 réponses
- 5,5 k vues
-
- 1 réponse
- 4,8 k vues
-
- 1 réponse
- 5 k vues
-
Statistiques des forums
-
Total des sujets49,4 k
-
Total des messages299,5 k
-
-
Sujets
-
-
Messages
-
Bonjour @AlexisF Je me permets de renouveler ma demande de fourniture de fichier de votre part. Dans ce dessin, ce serait sympa d'y trouver ce que vous avez comme renseignements. Mais aussi ce que vous voulez obtenir du programme que vous souhaitez faire ou nous demander d'écrire. Sans ce dessin, on peut échanger des dizaines de messages avant de vous donner une bonne piste de recherche ou de travailler efficacement pour vous. C'est fatigant et stérile pour vous et pour nous. Amicalement -
ok et ensuite comment lier la désignation de pièce a cette surface ? -
Hello DONC DEJA SVP tu testes cette belle routine de Gilles : POLYAREA Qui traite les objets (ayant une surface possible) et genere un champ dynamique de la Surface ... Au fait tu "regles" TEXTSIZE a une bonne hauteur avant le lancement de POLYAREA ! SVP est ce OK pour toi ? Bye, lecrabe ;; ;; PolyArea par GC - 03/03/2018 ;; ;; Micro-Modif par Patrice B. ;; ;; ------------------------------------------------------------------------------------- ;; SVP changer la Variable System TEXTSIZE AVANT d'executer la Routine ! ;; Car la routine utilise la valeur de TEXTSIZE comme Hauteur de MTEXT par defaut ... ;; ------------------------------------------------------------------------------------- ;; ;; J'ai revu les codes, le probleme venait de la methode utilisee pour placer le texte/champ sur le barycentre de la polyligne. ;; Cette methode ne fonctionnait qu'avec des polylignes. ;; ;; J'ai change cela. Le texte est desormais place au centre de la boundingbox de l'entite. ;; J'ai aussi revu les filtres de selection qui ne devraient pas etre tout à fait les memes pour l'aire et la longueur. ;; ;; Pour l'aire, je te laisse choisir entre uniquement les objets fermes, ou pas. ;; ;; Pour les longueurs, les champs sont differents pour les cercles (Circumference), les regions et mpolygons (Perimeter) ;; et n'existent pas pour les ELLIPSEs et SPLINEs, j'ai donc remplace le champ par un MTEXT simple qui affiche la longueur. ;; ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Area \f "%lu2">% ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Length \f "%lu2">% ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Perimeter \f "%lu2">% ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Circumference \f "%lu2">% ;; ;; Liste sur ELLIPSE --> Aire & Circonference ?? ;; Liste sur SPLINE --> Aire & Circonference ?? ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (defun c:PolyArea (/ *error* filter ss acSpace minPt maxPt pt id str txt) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))) (or *util* (setq *util* (vla-get-Utility *acdoc*))) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (/= msg "Function cancelled") (princ (strcat "Erreur: " msg)) ) (vla-EndUndomark *acdoc*) (princ) ) ;; entités fermées ;| (setq filter (list '(-4 . "<OR") '(0 . "CIRCLE,MPOLYGON,REGION") '(-4 . "<AND") '(0 . "ELLIPSE") '(41 . 0.0) (cons 42 (* 2 pi)) '(-4 . "AND>") '(-4 . "<AND") '(0 . "LWPOLYLINE") '(-4 . "&") '(70 . 1) '(-4 . "AND>") '(-4 . "<AND") '(0 . "POLYLINE") '(-4 . "&") '(70 . 1) '(-4 . "<NOT") '(-4 . "&") '(70 . 120) '(-4 . "NOT>") '(-4 . "AND>") '(-4 . "<AND") '(0 . "SPLINE") '(-4 . "&") '(70 . 9) '(-4 . "AND>") '(-4 . "OR>") ) ) |; ;; entités fermées ou ouvertes (setq filter (list '(-4 . "<OR") '(0 . "ARC,CIRCLE,LWPOLYLINE,MPOLYGON,REGION,ELLIPSE") '(-4 . "<AND") '(0 . "POLYLINE") '(-4 . "<NOT") '(-4 . "&") '(70 . 120) '(-4 . "NOT>") '(-4 . "AND>") '(-4 . "<AND") '(0 . "SPLINE") '(-4 . "&") '(70 . 8) '(-4 . "AND>") '(-4 . "OR>")) ) (prompt "Hauteur courante de MTEXT - Voir la Variable System TEXTSIZE ... \n" ) (prompt "\nPOLYAREA traite: ARC,CIRCLE,ELLIPSE,POLYLINE 2D,ELLIPSE,SPLINE,MPOLYGON,REGION \nSelectionnez les objets ou Entree pour tous ") (if (or (ssget filter) (ssget "_X" (cons (cons 410 (getvar 'ctab)) filter)) ) (progn (vla-StartUndomark *acdoc*) (setq acSpace (vla-get-Block (vla-get-ActiveLayout *acdoc*))) (vlax-for obj (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (vla-GetBoundingBox obj 'minPt 'maxPt) (setq pt (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) (vlax-safearray->list minPt) (vlax-safearray->list maxPt) ) id (vla-GetObjectIdString *util* obj :vlax-false) str (strcat "%<\\AcObjProp Object(%<\\_ObjId " id ">%).Area \\f \"%lu2%pr1%ps[,m²]%\">%" ) txt (vla-addMText acSpace (vlax-3d-point pt) 0. str) ) (vla-put-AttachmentPoint txt acAttachmentPointMiddleCenter) (vla-put-insertionPoint txt (vlax-3d-point pt)) ) (vla-Delete ss) ) ) (*error* nil) )
-
C'est bien ça sans avoir à retranscrire chaque nom de pièce qui serait déjà existant Merci d'avance
-
Hello J essaye de resumer : -- Tu as un DWG en METRE -- Tu as des Polylignes 2D (sur un Calque specifique) avec un Texte SIMPLE "Identifiant" (sur un Calque specifique) a l interieur PARTOUT -- TU veux la Surface en M2 (au fait 1 ou 2 decimales ?) -- TU veux un tableau avec le Listing des pieces (Identifiants + Surfaces + Le total general) Ai je bien compris ? Bye, lecrabe
-
-
Sujets
-
