Fraid

Bonjour, Merci pour l'info. Par contre, dans le lien fourni, Je n'ai pas réussi à savoir si la 2021 est compatible avec seven 64bit...

Bonjour, Je ne suis pas sur d'avoir compris la question. Normalement, tu rentre dans ta fenêtre, puis dans le gestionnaire de calque, Gel dans la fenêtre.

Bonjour, peut être mettre la variable IMAGEFRAME à 1

Merci pour toutes ces pistes, notamment pour simplifier la gestion des réacteurs. Je vais tester tout cela. J'avais mis le DCL de côté, à tord, car même si il paraît dépassé, il est encore d'actualité.

Désolé du temps de réponse, partage du PC, confinement oblige. Aucun souci de syntaxe, car j’écris le DCL dans le lisp. Exemple complet qui ne fonctionne pas (defun c:dcltestrb (/ listLayers dcl wdcl dcl_id calq flag ebvalue done) (defun listLay (/ lay lst) (setq lay (tblnext "layer" T)) (while lay (setq lst (cons (cdr (assoc 2 lay)) lst) lay (tblnext "layer") ) ) (reverse lst) ) (setq dcl (vl-filename-mktemp "tmp.dcl") wdcl (open dcl "w") listLayers (listLay) ) (write-line (strcat "dcltestrb:dialog {label = \"Test\"; :boxed_radio_column {label = \"Calques\"; :radio_button { key = \"rb0\"; label = \"Calque courant : "(getvar "clayer")"\"; } spacer; :radio_button { key = \"rb1\"; label = \"Choisir un calque\"; value = \"1\"; } :popup_list { key = \"list\"; value = \"0\"; edit_width = 29; } spacer; :radio_button { key = \"rb2\"; label = \"Créer un calque\"; } :edit_box { key = \"eb\"; label = \"Nom :\"; edit_width = 30; } spacer; } spacer; ok_cancel; }") wdcl );write-line (close wdcl) (setq dcl_id (load_dialog dcl) calq "0" ) (if (new_dialog "dcltestrb" dcl_id) (progn (start_list "list") (mapcar 'add_list listLayers) (end_list) (set_tile "eb" "Test") (mode_tile "eb" 1) (mode_tile "list" 2) (action_tile "rb0" "(mode_tile \"eb\" 1) (mode_tile \"list\" 1) (setq calq (getvar \"clayer\") flag 1) ") (action_tile "rb1" "(mode_tile \"eb\" 1) (mode_tile \"list\" 0) ") (action_tile "rb2" "(mode_tile \"list\" 1) (mode_tile \"eb\" 0) ") (action_tile "list" "(setq calq (nth (atoi $value) listLayers) flag 1)") (action_tile "accept" "(setq ebvalue (get_tile \"eb\"))(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq done (start_dialog)) (unload_dialog dcl_id) (vl-file-delete dcl) (if (= done 1) (if flag (setvar "clayer" calq) (progn (if (not (member ebvalue listLayers))(command "_.layer" "n" ebvalue "")) (setvar "clayer" ebvalue) ) ) (exit) ) ) (exit) ) ) celui qui fonctionne sans les radios (defun c:dcltesttog (/ listLayers dcl wdcl dcl_id calq flag ebvalue done) (defun listLay (/ lay lst) (setq lay (tblnext "layer" T)) (while lay (setq lst (cons (cdr (assoc 2 lay)) lst) lay (tblnext "layer") ) ) (reverse lst) ) (setq dcl (vl-filename-mktemp "tmp.dcl") wdcl (open dcl "w") listLayers (listLay) ) (write-line (strcat "dcltesttog:dialog {label = \"Test\"; :boxed_column {label = \"Calques\"; :boxed_row { :toggle { key = \"tog0\"; label = \"Calque courant : "(getvar "clayer")"\"; } } spacer; :boxed_row { :toggle { key = \"tog1\"; label = \"Choisir un calque\"; value = \"1\"; } :popup_list { key = \"list\"; value = \"0\"; edit_width = 29; } } spacer; :boxed_row { :toggle { key = \"tog2\"; label = \"Créer un calque\"; } :edit_box { key = \"eb\"; label = \"Nom :\"; edit_width = 30; } } spacer; } spacer; ok_cancel; }") wdcl );write-line (close wdcl) (setq dcl_id (load_dialog dcl) calq "0" ) (if (new_dialog "dcltesttog" dcl_id) (progn (start_list "list") (mapcar 'add_list listLayers) (end_list) (set_tile "eb" "Test") (mode_tile "eb" 1) (mode_tile "list" 2) (action_tile "tog0" "(mode_tile \"eb\" 1) (mode_tile \"list\" 1) (set_tile \"tog1\" \"0\") (set_tile \"tog2\" \"0\") (setq calq (getvar \"clayer\") flag 1) ") (action_tile "tog1" "(mode_tile \"eb\" 1) (mode_tile \"list\" 0) (set_tile \"tog0\" \"0\") (set_tile \"tog2\" \"0\") ") (action_tile "tog2" "(mode_tile \"list\" 1) (mode_tile \"eb\" 0) (set_tile \"tog0\" \"0\") (set_tile \"tog1\" \"0\") (setq flag nil) ") (action_tile "list" "(setq calq (nth (atoi $value) listLayers) flag 1)") (action_tile "accept" "(setq ebvalue (get_tile \"eb\"))(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq done (start_dialog)) (unload_dialog dcl_id) (vl-file-delete dcl) (if (= done 1) (if flag (setvar "clayer" calq) (progn (if (not (member ebvalue listLayers))(command "_.layer" "n" ebvalue "")) (setvar "clayer" ebvalue) ) ) (exit) ) ) (exit) ) )

Bonjour, J'essai de combler mes lacunes en DCL, n'en programmant pas souvent. Cela devient un peux plus difficile depuis que le site de Terry Miller à disparu, c'étais ma référence. L'aide Autocad bas des record d’obscurantisme à ce sujet, il reste Afralisp, et la page de Didier Da-code, qui à fait un gros effort d'explication. Malgré cela, je ne trouve pas de réponse à ma question qui est dans le titre. Le but est que les tuiles insérées soit grisées si le radio_button est désactivé. Extrait du dcl en exemple :boxed_radio_column {label = \"Calques\"; :radio_button { key = \"rb0\"; label = \"Calque courant : "(getvar "clayer")"\"; } spacer; :radio_button { key = \"rb1\"; label = \"Choisir un calque\"; value = \"1\"; } :popup_list { key = \"list\"; value = \"0\"; edit_width = 29; } spacer; :radio_button { key = \"rb2\"; label = \"Créer un calque\"; } :edit_box { key = \"eb\"; label = \"Nom :\"; edit_width = 30; } spacer; } Les radio_button ne fonctionne pas, ils restent cochés. J'ai bien trouvé la parade en utilisant de simple toggle que je désactive dans l'action_tile de chaque toggle. Mais cela reste une pirouette fatigante quant on à une dizaine de toggle à désactivé à chaque action_tile. Sachant qu'il y a déjà les tuiles insérer à désactiver. J'ai vu des exemples en plaçant les radio_button horizontalement dans une boxed_radio_row. Cela convient si on en a peux et que les tuiles insérées sont petites. Y a t'il une solution sans faire gymnastique? Merci

C'est généralement une armoire posée à l'entrée du lotissement, pas loin d'une chambre. Donc tu peux mesurer jusqu’à la chambre située dans la rue, et prévoir un mou de 5m par exemple. Tu devrais pas beaucoup te tromper.

Bonjour, Les habitants ne vont pas forcément s'abonner à la fibre. Il me semble que seul l'UTP est posé maintenant, je peux me tromper. Étrange que tu doivent t'occuper de cela, car c'est Orange d'habitude, sauf si tu es totalement en domaine privé. Les câbles vont du client au répartiteur, les chambres sont la pour le tirage. du répartiteur au client, il me semble que c'est du 28, 56 pour les entreprises, pareil je peux me tromper.

tu peux le faire de manière empirique, en commençant avec toutes les entrées, et en supprimant les entrées une à une et voir ce que cela donne car cela dépend comment son configurées tes hachures par défaut.

Sans vouloir jeter de l'huile sur le feu, si on a besoin de voir une vidéo pour comprendre, c'est que ce n'est pas si facile que cela. Ensuite les macros diesels, non plus, vive le copier/coller sans comprendre vraiment le contenu.... Il ne faut pas oublier qu'il faut faire attention à ce que l'on fait dans le CUI, on plante vite fait Autocad avec.

Bonjour, Pour connaitre le contenu DXF d'une entité, un grand classic (defun c:get nil (initget "entité sous-entité") (mapcar 'print (entget (car (if (= (getkword "\n[Entité/Sous-entité]< e >: ") "sous-entité") (nentsel) (entsel) ) ) ) ) (textscr) (princ) )

Bonjour, Tu peux passer par le CUI, tape CUIR. Après c'est une usine à gaz... Donc si tu demande à google raccourcis CUI Autocad, tu trouvera le mode opératoire. Bonne chance

Je suis comme Luna, je ne supporte pas l'emprise qu'a VLIDE sur Autocad. C'est l'auto-complétion, très efficace dans VS Code, beaucoup moins dans Notepad++, qui ne prend que les fonctions présentes dans le fichier en cours. Ou il y a un réglage que je n'ai jamais trouvé.

Pour "débugger" avec VS code ou notepad++. J'insère au début de mon lisp (defun *error* (m) (vl-bt)) Ce qui permet de savoir ou ça plante. Puis au lieu d'utiliser appload, je le glisse depuis l'explorateur sur mon dessin en cours. Ce qui permet, dans Autocad de rappeler le chargement avec la flèche vers le haut du clavier ainsi que la commande pour le lancer. Ensuite si je n'encapsule pas les variables pendant le développement, je les interroge simplement avec !ma_variable dans Autocad. il y a surement d'autre techniques. Un rêve

Ok Mais du coup, cela permet de l'utiliser si Autocad 2021 n'est pas installé. Hormis l'outil de "débuggage".

Si vous avez installez le package précédant, vous pouvez éditer ces 2 fichiers C:\Users\<user>\.vscode\extensions\garciadelcastillo.autolisp-language-1.5.2\themes\autolisp light-color-theme.json pour modifier les couleurs et C:\Users\<user>\.vscode\extensions\garciadelcastillo.autolisp-language-1.5.2\syntaxes\autolisp.tmLanguage.json pour ajouter vos fonctions personnelles ou Doslib par exemple. Mais, soyez sur de ce que vous modifiez et sauvegardez les fichiers avant.

Autre réglage à faire clic sur lisp en bas à droite Search Marketplace extension... Choisir Autolisp Language Package Installer Le langage Autolisp est rajouté et associé au .lsp Le format DCL est reconnu ainsi que le Visualisp

Bonjour, Dans VS Code, clic sur UTF8 en bas à droite Puis Reopen with encoding et choisir Western(Windows 1252) qui correspondant au format ANSI. et plus de problème d'encodage.

Bonjour, Il m'est arrivé la même galère, sur une version 2011 et xp, quand je modifiais des cotes à travers le panneau des propriétés. Je n'ai jamais pu résoudre ce problème. Même en réparant Autocad. Disparu en passant sur seven. Désolé, cela ne t'avance pas.

Bonjour, Tu peux essayer ceci Sélectionne un objet clic droit propriétés rapides options (sous la petite croix en haut à droite) paramètres Décocher Afficher la palette...

Bonjour, Difficile de te répondre. Déjà, sur le contenu de ta formation envisagée si on ne l'as pas suivis. Le programme présenté est vague, surtout sur sa longueur. Ensuite, je ne voudrais pas te décourager. Car, si tu ne suis pas un cursus Bac + BTS, tu ne pourras pas espérer un salaire convenable, et même....(j’espère me tromper) Heu...Vise tout d’abord dessinateur. Si tu n'as pas de bonnes connaissances en techniques de construction (tout corps d'état), tu ne pourras jamais concevoir quoi que ce soit. Et je n'ai rien vu de tel dans ce programme. Personnellement, j'ai fait ce métier pendant dix ans à la main, une fois devant Autocad, le salaire à été diviser pratiquement par 2, maintenant je dessine des réseaux, étrangement cela paye mieux que l'architecture par rapport au temps passé. Car, chez un Architecte, il n'est pas question de compter ces heures. (il y a des exceptions) Passionné par le Bâti, cela à été dur... La passion est la clé, si tu l'est rien t’arrêteras. Donc si c'est le cas FONCE. Et n'attend pas le début d'une formation, commence toute seule, en étudiant l'histoire de l'architecture, visite les chantiers, ....

Pour l'instant, seul la SNCF à changé d'avis, et à mis en place une charte spécial Autocad Map. Mais depuis, je ne travail plus pour eux, hormis quelque fonds de plans. Comme je me suis posé la même question, et c'est principalement pour éviter des bugs lors de la construction du SIG qu'il y a derrière. De toute façon, je ne m’occupe plus du géoréférencement, c'est le Géomètre qui m'envois les fonds plans qui le fait. La carte est la seulement en page de garde pour situé le chantier, et n'a pas besoin de précision extrême.

Le but est d'avoir les coordonnées d'un point en degrés décimaux, degrés minute seconde, sur un plan géoréférencé, en Lambert93 par exemple. Car, si l'adresse est trop vague, RD666 à Trifouillis les oies, les gars de chantier peuvent galérer à trouver l'endroit exacte si il à pas de point repère particulier. Les coordonnées Lambert ne peuvent pas les aider, les GPS de véhicule n'acceptent que des degrés. J'ai vu le cas avec la pose d'une chambre télécom au pied d'un poteau en pleine pampa. Deuxièmement, cela aide aussi pour placer un repère géographique précisément, avec en plus l'angle issue de la convergence des méridiens. Les chartes graphiques dans mon activité (pose de fibre optique) impose de n'avoir aucune trace de Map ou Covadis. j'espère avoir répondu à ta question.

Bonjour, Le confinement à au moins un avantage, on à le temps de programmer. Voici donc un petit outil qui à aux moins deux utilités. - Fournir au gars de terrain des coordonnées utilisable dans leur GPS embarqué. (pour évité qu'ils se perdent...) - Une aide à positionner un emplacement géographique. C'est donc utilisable dans un plan géoréférencé, dans l'espace objet (dans une fenêtre ou non) et à l’échelle 200 ou 500ème. Tout d'abord téléchargez ce dossier Puis le placer dans un dossier "c:/Data et l'approuver dans Autocad. Vous pouvez choisir un autre dossier en modifiant la variable geopre. Le Lisp utilise CircéBatch et un dwg inclus dans le dossier à télécharger. Vous pouvez modifier le dwg qui contient un repère multiple (style, calque...). ;;;geo-ddb ;;;Place un repère multiple avec les Coordonnées en Degrés Décimaux, ;;;en degrés minutes secondes, ;;;et l'angle de convergence en Grades ;Variables globales (setq geo-listesys '(;Liste des systèmes géodésiques avec leurs codes Circé ("Lambert93" "140" "24") ("RGF93.CC42" "8142" "24") ("RGF93.CC43" "8143" "24") ("RGF93.CC44" "8144" "24") ("RGF93.CC45" "8145" "24") ("RGF93.CC46" "8146" "24") ("RGF93.CC47" "8147" "24") ("RGF93.CC48" "8148" "24") ("RGF93.CC49" "8149" "24") ("RGF93.CC50" "8150" "24") ("NTF.Lambert-1C-ClrkIGN" "120" "2") ("NTF.Lambert-2C-ClrkIGN" "120" "2") ("NTF.Lambert-3C-ClrkIGN" "120" "2") ("NTF.Lambert-4C-ClrkIGN" "120" "2") ("NTF.Lambert-1-ClrkIGN" "101" "2") ("NTF.Lambert-2-ClrkIGN" "102" "2") ("NTF.Lambert-3-ClrkIGN" "103" "2") ("NTF.Lambert-4-ClrkIGN" "104" "2") ) geopre "C:\\Data";Dossier récéptacle default-syst "";à éditer si toujours le même ) ;Principal (defun c:geo-ddb (/ oldluprec olddimzin oldcmdecho oldosmode oldcmleaderstyle oldclayer *error* acdoc flagscu pt ptt ldd ech ) (defun *error* (msg);Redéfinition de la fonction *error* (if (= 8 (logand 8 (getvar 'UNDOCTL)))(vla-EndUndoMark acdoc)) ;Restauration des variables Autocad (setvar "cmdecho" oldcmdecho) (setvar "osmode" oldosmode) (setvar "cmleaderstyle" oldcmleaderstyle) (setvar "clayer" oldclayer) (setvar "luprec" oldluprec) (setvar "dimzin" olddimzin) (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " msg " **"))) (princ) ) (setq acdoc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark acdoc) (if (< (getvar "cvport") 2);si en espace papier (princ "\nAbandon, Cette commande s’exécute dans l'espace objet.") ;else (progn (setq ;Sauvegarde des variable Autocad oldluprec (getvar "luprec") olddimzin (getvar "dimzin") oldcmdecho (getvar "cmdecho") oldosmode (getvar "osmode") oldcmleaderstyle (getvar "cmleaderstyle") oldclayer (getvar "clayer") );setq ;Init des variable Autocad (setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "luprec" 4) (setvar "dimzin" 8) ;Controle du SCU (if (=(getvar "worlducs") 0)(setq flagscu (vl-cmdf "_ucs" ""))) ;Controle du style de repère multiple (if (dictsearch (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))) "Geo") (setvar "cmleaderstyle" "Geo") ;else (progn (vla-erase (vla-insertblock (vla-get-modelspace acdoc) (vlax-3d-point '(0 0 0)) (strcat geopre "\\geo\\Geomleader.dwg") 1 1 1 0 ) ) (setvar "cmleaderstyle" "Geo") );progn );if ;Init du repère multiple (initget "200 500") (setq ech (getkword "\nEchelle du dessin ? [200/500] <200>:") pt (getpoint "\nChoisir un point") ptt (getpoint "\nPosition du texte") ldd (geo-todd pt (geo-getsys)) tdd (strcat (cadr ldd) "," (car ldd) "\\P" (geo-ddtodms (cadr ldd)) "," (geo-ddtodms (car ldd)) "\\P" (rtos (+ 100.00 (* (- (atof (car ldd)) 2.3355) 0.809938)) 2 8) "g" );strcat );setq ;Changement de calque (setvar "clayer" "Geo") ;Création du repère multiple selon SCU (if flagscu (progn (command "_ucs" "p") (command "_MLEADER" (trans pt 0 1) (trans ptt 0 1) tdd) (if (= ech "500")(command "_scale" (entlast) "" (trans pt 0 1) 2.5)) );progn ;else (progn (command "_MLEADER" pt ptt tdd) (if (= ech "500")(command "_scale" (entlast) "" pt 2.5)) ) );if ;Restauration des variables Autocad (setvar "cmdecho" oldcmdecho) (setvar "osmode" oldosmode) (setvar "cmleaderstyle" oldcmleaderstyle) (setvar "clayer" oldclayer) (setvar "luprec" oldluprec) (setvar "dimzin" olddimzin) );progn );if (if (= 8 (logand 8 (getvar 'UNDOCTL)))(vla-EndUndoMark acdoc)) (princ) );geo-ddb ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;geo-getsys ;;;Récupère le système géodésique en cours ;;;Retour sys, String (defun geo-getsys (/ sys) (if (= (setq sys (getvar 'CGEOCS)) "");Si aucun emplacement géographique (if (= (setq sys default-syst) "");Si aucun système par defaut (setq sys (geolistbox (mapcar 'car geo-listesys)) default-syst sys) ) ) sys;Retour );geo-getsys ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;geo-todd ;;;Converti les coordonnée en Degrés décimaux ;;;Dépendance, CircéBatch.exe ;;;Arguments pt, point (liste) ;;;syst, système géodésique (string) ;;;Retour liste (defun geo-todd (pt syst / strbat file rfile lsyst readbat line ddx ddy) ;Récupération des codes Circé (mapcar '(lambda (x) (if (= (car x) syst) (setq lsyst (cdr x)))) geo-listesys) (setq file (strcat geopre "\\geo\\geo-todd.bat") rfile (strcat geopre "\\geo\\ReturnCirce.txt") strbat (open file "w") ) ;Ecriture du .bat (write-line "@echo off" strbat) (write-line (strcat "\"" geopre "\\geo\\CirceBatch\\CirceBatch.exe\" -init Circe.ini -mode 0 -type 2 -sys1 " (cadr lsyst) " -sys2 24 -typcoor1 3 " (car lsyst) " -typcoor2 2 2 1 -H 0.0 -E " (rtos (car pt) 2 4) " -N " (rtos (nth 1 pt) 2 4) " > " rfile ) strbat ) (write-line "exit" strbat) (close strbat);Fin écriture du .bat (command "_.shell" file);Exécution du .bat (command "_.delay" 1000);imposé par Windows (setq readbat (open rfile "r") line (read-line readbat);Lecture du retour du .bat ddx (substr line 1 (vl-string-position (ascii " ") line)) ddy (substr line (+ 2 (vl-string-position (ascii " ") line))(strlen line)) ) (close readbat);Fin lecture du retour du .bat ;Suppression des fichiers (vl-file-delete file) (vl-file-delete rfile) (list ddx ddy);Retour );geo-todd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;geo-ddtodms ;;;converti des degrés décimaux en degrés minute seconde (defun geo-ddtodms (dd) (angtos (angtof dd 0) 1) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun geolistbox (lst / dcl wdcl dcl_id done choice) (setq dcl (strcat geopre "\\geo\\geo.dcl") wdcl (open dcl "w") ) (write-line "geolistbox:dialog {label = \"Sélection du Système Géodésique\"; :text{label = \"Choisissez un système\";} spacer; :list_box {key = \"lst\";} spacer;ok_cancel; }" wdcl );write-line (close wdcl) (setq dcl_id (load_dialog dcl)) (if (new_dialog "geolistbox" dcl_id) (progn (start_list "lst") (mapcar 'add_list lst) (end_list) (action_tile "lst" "(setq choice (nth (atoi $value) lst))") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq done (start_dialog)) (unload_dialog dcl_id) (vl-file-delete dcl) (if (= done 1)choice);retour );progn );if );geo-listbox ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (princ "\nGEO-DDB correctement chargé.\nTapez GEO-DDB") (princ) Normalement il est compatible tout Autocad sur Windows. Testé sur Autocad 2015 et Windows 7. (à tester sur Win10) Je suis ouvert à toutes propositions d'amélioration. Je n'ai pas réussi à utiliser la version 5 de Circé malgré qu'il affiche le code en bas de la fenêtre...

Cela arrive aussi quand une xref insérer au 0,0 est introuvable.