-
Qui est en ligne 1 membre, 0 anonyme, 28 invités (Afficher la liste complète)
AutoCAD 2004
1 247 sujets dans ce forum
-
- 4 réponses
- 1,4 k vues
-
- 4 réponses
- 1,4 k vues
-
- 1 réponse
- 960 vues
-
- 2 réponses
- 1,1 k vues
-
- 16 réponses
- 3 k vues
-
- 1 réponse
- 1,2 k vues
-
- 4 réponses
- 1,4 k vues
-
- 6 réponses
- 1,6 k vues
-
- 2 réponses
- 1,1 k vues
-
- 4 réponses
- 1,6 k vues
-
- 0 réponse
- 732 vues
-
- 5 réponses
- 1,4 k vues
-
- 6 réponses
- 1,4 k vues
-
- 10 réponses
- 3,6 k vues
-
- 2 réponses
- 1,4 k vues
-
- 3 réponses
- 1,4 k vues
-
- 2 réponses
- 1,4 k vues
-
- 4 réponses
- 1,6 k vues
-
- 4 réponses
- 2 k vues
-
- 3 réponses
- 2,7 k vues
-
- 1 réponse
- 1,2 k vues
-
- 3 réponses
- 1,3 k vues
-
- 4 réponses
- 1,5 k vues
-
- 3 réponses
- 1,3 k vues
-
- 0 réponse
- 873 vues
-
Statistiques des forums
-
Total des sujets48,7 k
-
Total des messages295,6 k
-
-
Sujets
-
-
Messages
-
Pour compléter Vincent.P regarde aussi https://www.da-code.fr/quote/ Une autre remarque pour le code 62 concernant la couleur: Par défaut une entité n'a pas pas ce code, si l'on veut forcer la couleur il faut faire un (append) Mais si la couleur est déjà forcée, il faut faire un (subst) du code 62 Donc bien vérifier si ce code existe dans la liste retournée par (entget) pour bien faire l'action désirée: (subst) ou (append) NB: pour retourner au défaut ducalque on peut mettre (62 . 256) et (62 . 0) pour dubloc. -
Salut @didier, Je suppose que tu as dû le faire mais je demande à tout hasard. As-tu recharger la page de ton navigateur ? -
Bonsoir à toutes et tous, Avec le MNT,.. Adresse du fichier => https://ca-a1-2022.kroqi.fr/shared/#/file/d6c6799994327afc9597c1f3ce2e0bc6e17abdce565d866b8b7dec76e4c2f1ad -
Merci Vincent pour la suggestion! En effet c'est une solution. Je vais tester 🙂 Il existe peut être une solution plus "propre" ? Ça risque de produire beaucoup de blocs dans le dessin... -
Bonjour, Un petit challenge. Voici une solution qui en traite 13004. On peut ajouter des positions relatives dans la liste aux milieux du code. (vl-load-com) (defun c:txt2Z ( / acobj acdc model pt ptt pos ltext z cpt) (setq acobj (vlax-get-acad-object) acdc (vla-get-activedocument acobj) model (vla-get-modelspace acdc) ltext '() cpt 0 ) (vlax-for obj model (if (= (vla-get-ObjectName obj) "AcDbText") (setq pos (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint obj))) ltext (append ltext (list (cons (strcat (rtos (car pos)) "," (rtos (cadr pos))) (vla-get-textstring obj))))) ) ) (vlax-for obj model (if (= (vla-get-ObjectName obj) "AcDbBlockReference") (progn (setq pt (vlax-safearray->list (vlax-variant-value (vla-get-InsertionPoint obj)))) (foreach d '((0.5 0.15) (0.501 0.15) (0.5 0.151) (0.501 0.151) (0.499 0.15) (0.5 0.149) (0.499 0.149) (0.497 0.101) (0.496 0.105) ) (setq ptt (strcat (rtos (+ (car pt) (car d))) "," (rtos (+ (cadr pt) (cadr d)))) z (cdr (assoc ptt ltext))) (if z (progn (vla-put-InsertionPoint obj (vlax-3d-point (list (car pt) (cadr pt) (atof z)))) (setq cpt (1+ cpt)) ) ) ) ) ) ) (princ (strcat "\n Nombre de blocs traités -> " (itoa cpt))) ) Taper txt2z attendre un peux ...
-
-
Sujets
-
