Bortch59

Fait troublant, j'ai modifié la définition de bloc en indiquant échelle uniforme = oui, l'échelle prise en compte devient 0.18 et non plus 0.018 (pour mémoire un facteur de conversion 100 est appliqué au champ, d'où la valeur = 18). Tout ceci me laisse vraiment perplexe…

Nouvel exemple: Le bloc ci-dessous fait 100 x 100 cm Je l'insère dans mon dessin (unités en m) à l'échelle 1. Le rectangle fait bien 1 x 1 m -> facteur d'unité = 0.01 OK Je demande à récupérer les champs échelle X x Y et au lieu d'obtenir 1 x 1, j'obtiens 0.01 x 0.01

Je ne sais pas, je récupère des fichiers que je compile par la suite (je fais de la synthèse réseau), mais il n'y a aucune raison de ne pas avoir d'échelle uniforme. Ceci dit, ce n'est pas la cause de mon problème puisque tout fonctionnait parfaitement avant que je change de version. Ce que je cherche à comprendre, c'est pourquoi sous 2011 le champs récupère uniquement l'échelle X, à savoir 0.18 dans mon exemple, alors que sous 2021 un facteur de 0.01 (qui semble correspondre au facteur d'unité) est appliqué à cette échelle.

Je n'ai pas compris tout de suite que je n'étais pas connecté, désolé

Je n'ai jamais modifié ces variables, du moins pas directement via la ligne de commande. INSUNITS = 6 INSUNITSDEFSOURCE = 4 INSUNITSDEFTARGET = 4 A quoi correspondent elles STP (je les ai toutes passées à 6, pas de changement)?

Le bloc réservation est mis à l'échelle selon la dimension souhaitée et le champs récupère cette valeur (échelle X du bloc) pour indiquer la taille en cm dans l'étiquette (d'où le facteur de conversion x100, l'unité de plan étant le m). Tout fonctionnait bien sous 2011, 2021 semble ne plus gérer la récupération de cette échelle de la même manière. Je dois récupérer demain mon ancien poste + ACAD 2011 pour finaliser mes plans, je posterai des captures d'écran des 2 versions pour mieux me faire comprendre.

Bonjour, je rencontre un problème avec la récupération de l'échelle d'un bloc dans un champ Je précise que je viens de passer en version 2021, le problème était inexistant avec la version 2011. Mon dessin est en m, le bloc en cm (facteur d'unité = 0.01), le facteur de conversion du champs = 100 pour obtenir la valeur d'échelle en cm On dirait que le facteur d'échelle est appliqué à la valeur courante récupérée par le champ (échelle du bloc x facteur d'unité), ce qui fait que la valeur prise en compte n'est pas uniquement l'échelle d'insertion du bloc. Dans la capture d'écran jointe, la valeur courante devrait être 0.2 et non pas 0.002 D'après vous, quelle variable est responsable de ce dérèglement SVP? Est il possible d'automatiser la modification du facteur de conversion (de 100 à 10000) pour l'ensemble des blocs insérés? Merci.

Re, J'ai finalement trouvé, c'est la transparence de tracé qui modifie le rendu. Je clos ce sujet. Merci, Sylvain.

Bonjour, existe t'il une variable qui gère le rendu des impressions ou bien la gestion des couleurs dans les fenêtres? J'observe des différences dans le rendu de mes impressions, alors que le ctb utilisé et la couleur des calques (3-vert, 5-bleu) sont les mêmes (précisions toutefois, ce sont des XREF). L'extrait de gauche est, à mon avis, le rendu "normal", celui de droite est plus terne. Merci, Sylvain.

@ eklundh80 Bonjour et merci pour ce code, mais ce n'est pas la partie qui me pose problème. Je vais regarder DIR-BOX de Patrick_35 tel que proposé par Fraid pour me faire une idée. Bonne journée.

Bonjour Fraid, C'est le but, je fais partie d'une cellule de synthèse et je compile les fichiers des différents corps d'état. Ne m'intéresse dons donc que la partie dessin. C'est une tache redondante, je recommence à chaque MAJ, c'est pour cela que je souhaite l'automatiser. J'ai déjà un outil de traitement des fichiers mais le wbloc semble beaucoup plus puissant.

Bonjour, Je souhaite faire un "wbloc" d'un fichier entier et qu'il ai pour nom date du jour + nom du fichier (ex: 190217_NomFichier). Pas de problème pour récupérer les données du fichiers (date + nom) mais comment renseigner "automatiquement" le nom de ce fichier dans la boite de dialoque de "-wbloc"? Dois-je créer une boite de dialogue perso via un dcl? Je précise que je souhaite garder la boite de dialogue (FILEDIA=1) pour conserver le choix du chemin. Merci.

Bonjour, Je me retrouve confronté à un pb pour le moins étrange. J'ai un fichier qui comporte plusieurs Xref dont une qui comporte des Xref imbriquées. Quand je veux faire un eTransmit cela déclenche une erreur fatale: ERREUR FATALE: Unhandled Access Violation Reading 0x0000 Exception at 35191a00h (333b1a00h la première fois avant manip ci-dessous) Je détache toutes les références et je les réinsère, tout semble rentrer dans l'ordre mais après quelques manip de mise en page (gel de calque, déchargement de Xref...) l'erreur revient. Une idée? Je précise que je suis sur Windows10 au cas où. Merci

Merci à vous deux, Je vais essayer de mettre en pratique tout ça. Bonne soirée.

Bonjour, Quelqu'un aurait-il ce TUTO dans ces archives? Le lien n'est malheureusement plus disponible. Merci.

Salut, la réponse colle parfaitement à la demande. Merci.

Bonjour, est-il possible dans une boite de dialogue dcl d'afficher "en temps réel" (sans validation de l'utilisateur) une image selon le bouton radio choisi? Ex: Face => Image Face Dessus => Image Dessus Coupe => Image Coupe Je bricole du côté de "action_tile" mais sans grand succès. Merci.

Bonjour, ci-dessous un LISP que j'utilise pour extraire des attributs. Celui-ci n'a jamais "déraillé" jusqu'à aujourd'hui où il me renvoie le code erreur suivant: "erreur: Le serveur ActiveX a renvoyé une erreur: Paramètre non facultatif" Je précise que cette erreur n'est renvoyée que sur un fichier. Lorsque je copie-colle un bloc de ce même fichier vers un autre, tout redevient fonctionnel. Savez-vous quelle est cette erreur et comment y échapper? Merci. ;-- RapidExtrac 1.0 (BCH) -- ;Utilitaire d'extraction d'attributs. (defun c:RapidExtrac ( / ) ;; Selection du bloc à extraire (setq lstEnt (entget (car (entsel "\nSélectionnez le bloc à extraire: ")))) (setq NomEnt (cdr (car lstEnt))) (setq Handle (cdr (assoc 5 lstEnt))) (setq NomBloc (EffectifName Handle)) (setq js (ssget "X" (list (cons 0 "INSERT")))) (setq cpt 0) (setq cptselect 0) (setq NbEntSelect (sslength js)) (setq fichierGabarit (open (findfile "Gabarit.txt") "w")) (ExtracEtq) ;; Boucle sur le nombre d'objet (repeat NbEntSelect (setq Attrib "'") (setq NomEntjs (ssname js cpt)) ;; recherche l'entité Numéro 'CPT' (setq lstEntjs (entget NomEntjs)) ;; Récupère la liste de l'entité (setq Handlejs (cdr (assoc 5 lstEntjs))) (setq NomBlocjs (EffectifName Handlejs)) (setq TypeEntjs (cdr (assoc 0 lstEntjs))) (if (= NomBlocjs NomBloc) (progn (ExtracValeur) (setq cptselect (1+ cptselect)) ) ) (setq cpt (1+ cpt)) ;; Ajoute 1 au compteur pour avoir l'entité suivante );repeat (close fichierGabarit) (princ cptselect) (prompt " bloc(s) traité(s) dans le fichier d'extraction") ;;;Chemin à modifier selon version EXCEL (startapp (findfile "excel.exe") (findfile "TEMP_EXTRAC.xlsm")) (princ) );defun ;; Création par Didier LOURDELLE ;; le 2011-06-06 ;; ;; Récupère le NomEffectif d'un bloc dynamique ;; Paramètre : ;; Handle = Handle du bloc AutoCAD ;;ap (defun EffectifName (Handle / NomBlocDidier) ;; charge les fonctions VL* (vl-load-com) ;; Initialise la variable ThisDrawing (Setq ThisDrawing (vla-get-ActiveDocument (vlax-get-acad-object))) ;; Depuis le handle recupere 'selectionne une entité' (setq BlockRefObj (vla-HandleToObject ThisDrawing Handle)) ;; Vérification qu'il s'agit d'un bloc (if (equal (setq ObjType (vla-Get-ObjectName BlockRefObj)) "AcDbBlockReference" ) ;;; retourne le nom effectif du bloc (setq NomBlocDidier (vla-get-EffectiveName BlockRefObj)) ) ;if ) ;defun ;;; - Extraction des étiquettes d'attributs du bloc sélectionné - ;;; (defun ExtracEtq ( / TypeEnt LstEnt Etq lgchaine) (setq Etq "'") (while (/= TypeEnt "SEQEND") (setq LstEnt (entget (entnext NomEnt))) (setq NomEnt (cdr (car LstEnt))) (setq TypeEnt (cdr (assoc 0 LstEnt))) (if (= TypeEnt "ATTRIB") (progn (setq Etq (strcat Etq (cdr (assoc 2 LstEnt)) "','")) ) ;progn ) ;if ) ;while (setq lgchaine (strlen Etq)) (setq Etq (substr Etq 1 (- lgchaine 2))) (princ (strcat Etq "\n") fichierGabarit) ) ;defun ;;; - Extraction des valeurs d'attributs de l'ensemble des blocs filtrés - ;;; (defun ExtracValeur (/) (while (/= TypeEntjs "SEQEND") (setq LstEntjs (entget (entnext NomEntjs))) (setq NomEntjs (cdr (car LstEntjs))) (setq TypeEntjs (cdr (assoc 0 LstEntjs))) (if (= TypeEntjs "ATTRIB") (progn (setq Attrib (strcat Attrib (cdr (assoc 1 LstEntjs)) "','")) ) ;progn ) ;if ) ;while (setq lgchaine (strlen attrib)) (setq attrib (substr attrib 1 (- lgchaine 2))) (princ (strcat Attrib "\n") fichierGabarit) )

Bonjour, Est -il possible de régler les paramètres de ligne de repère multiple (lrepererap) via Autolisp? Je n'arrive pas à accéder à ces paramètres par la ligne de commandes, uniquement par la boite de dialogue. Merci.

Bonjour, tout d'abord merci pour vos réponses et désolé pour ma réponse tardive. La routine de compétition ne fonctionne pas chez moi (AutoCAD v2012). Voici le retour suite au lancement de la commande: Commande: AIOBJECTSCALEREMOVEOTHERS Select annotative objects: Spécifiez le coin opposé: 2 trouvé(s) Select annotative objects: 1 trouvé(s), 3 au total Select annotative objects: 1 trouvé(s), 4 au total Select annotative objects: 0 scales removed from 0 objects. Une idée? Merci

Bonjour, tout d'abord merci pour toutes vos réponses et désolé pour le retard de la mienne. Je n'arrive pas à faire fonctionner la routine de compétition, voici le retour d'AutoCAD (version 2012) Commande: AIOBJECTSCALEREMOVEOTHERS Select annotative objects: Spécifiez le coin opposé: 2 trouvé(s) Select annotative objects: 1 trouvé(s), 3 au total Select annotative objects: 1 trouvé(s), 4 au total Select annotative objects: 0 scales removed from 0 objects. Une idée? Merci

Bonjour, Est-il possible de retirer l'annotativité de tous les objets (textes, cotations, blocs...) d'un fichier via une routine LISP. Si oui (et j'imagine que oui), quelle est la paire pointée responsable de cet état annotatif? Merci

Salut, L'évidence m'a sautée aux yeux. Le problème n'était pas de fournir (nil) comme argument à (entsel) mais à (entget) (si je ne me trompe pas). Merci.

Bonjour, quelqu'un saurait-il m'aiguiller afin de sortir "proprement" de cette fonction perso. Elle réalise parfaitement ce pour quoi elle a été créée à savoir calculer une altimétrie et la remplacer dans un texte autant de fois qu'il y a de sélection. Mais la méthode n'est pas très élégante et la sortie pas très propre. J'ai droit à un message d'erreur en sortie de code (Erreur: type d'argument incorrect: lentityp nil) du au fait que je donne une entrée vide comme argument à (entsel) [et non (getreal) comme indiqué hier soir, la nuit porte conseil]. Donc ma question comment rendre ce morceau de code plus "Lispien"? Merci (defun AI_EDIT_ALT (/) (setq ALT (GetDicoPerso "Altimétrie")) (setq AiReseau (getreal "\nNouvelle Altimétrie (m): ")) (setq AncText "AncText") (while (/= AncText "") (setq AncText (entget (car (entsel "\nSélectionnez le texte à éditer: ")) ) ) (setq EditText (strcat (substr (cdr (assoc 1 AncText)) 1 (- (strlen (cdr (assoc 1 AncText))) 16) ) (strcat (rtos AiReseau 2 2) "m / " (rtos (+ AiReseau ALT) 2 2) "NGF" ) ) ) (entmod (subst (cons 1 EditText) (assoc 1 AncText) AncText)) ) )

Bonjour, quelle différence y a t'il à utiliser le fichier "acad.lsp" (avec la variable ACADLSPASDOC à 1) et le fichier "acaddoc.lsp"? Merci.