dfbiagio

Un tout grand merci . Bonne journée.

Bonsoir à tous, J'ai élaboré un petit lisp qui me permet d'incliner des textes suivant 2 points qlq. Tout fonctionne correctement sauf quand je dois sortir, il marque une erreur que je ne comprends pas. Voici ce lisp: (defun c:test() (setq p1 (getpoint "\nPoint 1: ") p2 (getpoint "\nPoint 2: ") ) (setq diff (mapcar '- p2 p1) ang (atan (/ (cadr diff)(car diff))) ) (setq text (entget (car (entsel "Choix du texte: ")))) (while text (if (/= text nil)(entmod (subst (cons 50 ang)(assoc 50 text) text))) (setq text (entget (car (entsel "Choix du texte: ")))) ) ) Merci d'avance pour votre aide. Bonne soirée.

Merci, effectivement ça fonctionne. Bonne journée

Bonjour, J'ai mon volet références externes qui ne s'affiche plus. Elle est surement hors écran. Comment faire pour la faire revenir? Merci d'avance. Bonne journée.

Bonjour, Avant tout, je vous présente mes meilleurs vœux pour cette nouvelle année. Concernant les cotes superposées, comment se fait-il que lorsqu'on fait déplacer (dans le sens de la hauteur) les cotes ne changent pas et lorsqu'on fait étirer celles-ci sont modifiées. Merci d'avance.

Merci les gars, mais ce n'est pas ça. Lorsque, je disais que je les rends inactifs, je voulais dire que je mettais la variable wipeoutframe à 0 Ce qui est étonnant, quand je crée un nouveau fichier et que j'insère l'xref récalcitrant et un autre fichier, pas de problèmes !!

Un petit souci avec mes wipeout (nettoyer), lorsque, j'insère un xref les bords des wipeout sont actifs, j'ai beau les rendre incatifs, rien n'y fait. Merci d'avance.

Effectivement, à la maison, j'utilise la version 2011 et ça ne fonctionnait pas et ici au bureau, c'est la version 2019 et ça fonctionne. Merci

Bonsoir, Voici les résultats de mes essais: Command: test-hach Select object: ; error: no function definition: GETPROPERTYVALUE Command: Command: (vl-load-com) Command: TEST-HACH Select object: ; error: no function definition: GETPROPERTYVALUE Command: Command: (setq hh (car (entsel))) Select object: <Entity name: 7ffff72d350> Command: (setpropertyvalue hh "PatternScale" 2); error: no function definition: SETPROPERTYVALUE Merci de m'éclairer.Bàv

Bonjour, Ce matin, j'ai essayé ceci: Commande: (setq hh (entget (car (entsel)))) Choix de l'objet: ((-1 . <Nom d'entité: 2d1d7971e90>) (0 . "HATCH") (330 . <Nom d'entité: 2d1d797f9f0>) (5 . "309") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANSI32") (70 . 0) (71 . 1) (91 . 1) (92 . 7) (72 . 0) (73 . 1) (93 . 4) (10 -46.0191 -10.0351 0.0) (10 -51.827 -10.0351 0.0) (10 -51.827 -13.4211 0.0) (10 -46.0191 -13.4211 0.0) (97 . 1) (330 . <Nom d'entité: 2d1d7971e20>) (75 . 1) (76 . 1) (52 . 0.0) (41 . 1.0) (77 . 0) (78 . 2) (53 . 0.785398) (43 . -51.827) (44 . -13.4211) (45 . -6.73519) (46 . 6.73519) (79 . 0) (53 . 0.785398) (43 . -47.3369) (44 . -13.4211) (45 . -6.73519) (46 . 6.73519) (79 . 0) (47 . 0.0806203) (98 . 1) (10 -48.7617 -11.325 0.0)) Commande: (entmod (subst (cons 41 2)(assoc 41 hh) hh)) ((-1 . <Nom d'entité: 2d1d7971e90>) (0 . "HATCH") (330 . <Nom d'entité: 2d1d797f9f0>) (5 . "309") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "ANSI32") (70 . 0) (71 . 1) (91 . 1) (92 . 7) (72 . 0) (73 . 1) (93 . 4) (10 -46.0191 -10.0351 0.0) (10 -51.827 -10.0351 0.0) (10 -51.827 -13.4211 0.0) (10 -46.0191 -13.4211 0.0) (97 . 1) (330 . <Nom d'entité: 2d1d7971e20>) (75 . 1) (76 . 1) (52 . 0.0) (41 . 2) (77 . 0) (78 . 2) (53 . 0.785398) (43 . -51.827) (44 . -13.4211) (45 . -6.73519) (46 . 6.73519) (79 . 0) (53 . 0.785398) (43 . -47.3369) (44 . -13.4211) (45 . -6.73519) (46 . 6.73519) (79 . 0) (47 . 0.0806203) (98 . 1) (10 -48.7617 -11.325 0.0)) pour modifier des hachures. Comme on peut le voir, ça fonctionne bien et lorsque je clique sur l'hachure, dans les propriétés c'est bien changé, mais visuellement à l'écran rien n'a changé. Je me demande pourquoi. Qlq a une réponse. Merci d'avance.

Effectivement, je n'ai pas lu jusqu'au bout. Merci bcq.

Voici comment je procède: Chargement: Command: ap APPLOAD da-code-val-dyn.lsp successfully loaded. command: (vl-load-com) Command: (da-code-val-dyn) ; error: no function definition: DA-CODE-VAL-DYN J'ai même essayé de le faire ligne par ligne. A la première, il met une erreur Command: (setq blk (vlax-ename->vla-object ent)) ; error: bad argument type: lentityp nil Je ne sais pas en dire plus. BàV

non, je n'ai pas oublié :(

Bonsoir, Je dois certainement faire un mauvaise manip, car ça ne fonctionne pas !! Bàt

Bonjour à tous, J'ai des blocs dynamiques et j'aimerai en extraire les paramètres via un lisp. Avec les commandes habituelles, je n'ai pas grand chose Command: (setq bloc (entget (car (entsel)))) Select object: ((-1 . <Entity name: 7ffff1d71e0>) (0 . "INSERT") (5 . "39A8E") (102 . "{ACAD_XDICTIONARY") (360 . <Entity name: 7ffff1d71f0>) (102 . "}") (102 . "{ACAD_REACTORS") (330 . <Entity name: 7ffff1e73c0>) (330 . <Entity name: 7ffff1e73f0>) (102 . "}") (330 . <Entity name: 7ffff1f5a30>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "bia-menuiserie int") (62 . 41) (100 . "AcDbBlockReference") (2 . "*U1103") (10 2817.0 299.5 0.0) (41 . -1.0) (42 . 1.0) (43 . 1.0) (50 . 3.14159) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)) Je voudrai extraire le type d'ouverture que j'ai appelé POUSSANT soit droit ou gauche, la largeur et l'épaisseur de l'ébrasement. Quelqu'un sait-il comment je pourrais faire. En visualisp existe-t'il une commande du type entget qui extrait toutes les propriétés? Merci d'avance pour votre aide. Bon dimanche à tous.

C'est bien ça. Merci bcq

Bonjour, J'ai un souci avec certains objets, lorsque je veux sélectionner un objet pour le geler ou pour le rendre courant, je dois m'y reprendre par deux fois. Lorsque je passe sur ces objets avec le curseur, une petite image apparait avec le curseur (deux petits carrés). Quelqu'un a une idée de quoi il s'agit. Merci d'avance. Bonne journée.

Merci bcq pour l'application.

Bonjour à tous, Je sais que la question a déjà été posée, mais je ne retrouve plus la discussion. Existe-t-il un moyen de régler le facteur de décalage de bordure à 1 pour tous mes dessins. Actuellement, et ça de façon automatique, il est réglé à 1,5, ce qui est beaucoup trop. Merci d'avance. Bonne journée à tous

Ok, ce sera Patrice ;-) Pour le Whisky ça fait un peu loin ± 800 bornes

<div> Euréka, c'est bien cette foutu UCSFOLLOW. En fait, chose que je ne savais pas, l' UCSFOLLOW est différente d'une fenêtre à l'autre. Je pensais qu'elle était liée au fichier uniquement. Et en plus , c'est bien indiqué dans la réponse de ou du Crabe. Un grand merci à tous. </div>

Ce qui est étonnant, dans une présentation ça marche bien pas de souci avec le zoom. Je fais un copié de la présentation (créer une copie et placer à la fin) et bardaf, j'ai un souci

J'ai déjà essayé aussi et ça ne marche pas. :-)

Je l'ai déjà fait et ça ne marche pas. Lorsqu'on fait une incursion dans l'EO et qu'on fait un zoom c'est toute la fenêtre qui réagi au zoom y compris l'EP.