willy95

ah bon, je suis en 2016

Luna je te remercie de cette piste qui me semble très intéressante, mais je ne suis pas assez calé en lisp pour comprendre toutes ces fonctions qui sont encore pour moi difficile d'utilisation :(

Malheureusement, j'ai essayer avec AAA* en BBB* mais la commande n'accepte pas *, et je cherche à renommer plusieurs calques d'un coup sans avoir à les nommés individuellement. Merci à vous pour vos pistes

Bonjour à tous, Je cherche à renommer le début de certains calques commençant par AAA et les renommer en BBB. Je pensai le faire avec la commande -renommer "ca" mais je ne peux mettre plusieurs calques d'un coup (sans la boite de dialogue car je veux rajouter cette opération dans un lisp) Peux être existe-il une technique pour renommer dans un lisp plusieurs calques avec un filtre pour la selection, si quelqu'un peu me mettre sur la voie ce serai fort sympa :)

Merci Bonuscad pour tes précieux conseils et remarques. Après un test positif qui fonctionne à merveille, j'ai analysé tes lignes de code qui sont effectivement encore un peu trop complexe pour moi, du fait de certaines fonctions que je ne maîtrise pas du tout (repeat et ssname). Je vais regarder ça de plus près et essayer de comprendre un peu plus ces fonctions. C'est clair que ce bout de code n'est pas parfait et me sera utile uniquement dans un cas bien précis et ne peu en l'état servir autrement. Merci encore pour ton retour, ta clarté d'explication et ton temps passé.

Bonjour à tous, Bien qu'ayant chercher et comprendre longuement mon problème, je n'y trouve pas de réponse positive. Quand je tape à l'invité de commande les éléments un par un cela fonctionne, mais l'ensemble dans une petite routine le programme bloque. Je cherche à récupérer l'angle d'une ligne et l'appliquer sur toutes les hachures du même claque. Quelqu'un pourrait-il m'éclairer sur mon problème ? (defun c:ORIH () (setq p1 (getpoint "\nSaisir le 1er point d'orientation : ")) (setq p2 (getpoint "\tSaisir le 2eme point d'orientation : ")) (setq angle1 (angle p1 p2)) (setq ang1 (angtos angle1 2 4)) (setq selec1 (ssget "_X" '((8 . "MesHachures")))) (command "_-HATCHEDIT" !selec1 "" "P" "" "" !ang1 "") )

Bonjour à tous et Bonne et Heureuse Année 2020, Et oui me revoici par ici, avec un problème que n'arrive pas à résoudre, et j'ai bien chercher partout sur le forum et sur internet, mais je suis resté sans solution positive, alors j'ose poser ma question qui je l'espère sera clair. J'ai bricoler ce code qui à pour but de récupérer la valeur de l'altitude dans une étiquette d'un bloc point et de la réécrire en simple texte en réinsérant un point sur le point d'insertion du bloc avec ou sans orientation spécifique. Après mes analyses je pense que le problème dois se situer au niveau du "VIEWTWIST" mais je n'y comprends rien. Tous fonctionne mais le texte ne s'écrit pas au même endroit suivant le type de fichier, il ne reste jamais à la même distance du point d'insertion dans chacun des fichiers différents. Alors si pour ce début d'année 2020, une Âme charitable pourrait m'expliquer pourquoi, ce serait bien sympathique. (setvar "CMDECHO" 0) (defun DTR (a) (/ (* 200 (getvar "VIEWTWIST")) pi)) (defun DTR2 (a) (/ (* 0 (getvar "VIEWTWIST")) pi)) (Defun C:altip ( / OldAccr p di p11 p12 di11 p14 p15 Ang Ang1 Ang2 Ang3 Ang4 pins p16 p17 blocent Txt_Alti ht) (SetVar "CMDECHO" 0) (Setq Actucalque (GetVar "CLayer")) (Setq Actuaccr (GetVar "OSMODE")) (Setvar "OSMODE" 8) (Setvar "OSMODE" 512) (setq p11 (getpoint "\n1er point pour l'Orientation du Texte ou [Entrée] pour mettre à l'horizontale : ")) (IF (= p11 nil) (progn (setq blocent (car (entsel"\nChoisir le Point [bloc] :")) ht 1 Txt_Alti (cdr (assoc 1 (entget (entnext (entnext blocent))))) pins (cdr (assoc 10 (entget blocent)))) (setq p16 (polar pins (+ 100 (/ (* 200 (getvar "VIEWTWIST")) pi)) -0.30)) (setq p17 (polar p16 (DTR2 0.0) 0.40)) (setq Ang3 (+ 100 (/ (* 200 (getvar "VIEWTWIST")) pi)))) (progn (setq p12 (getpoint "\t2ème point pour l'Orientation : ")) (setq di11 (/ (Distance p11 p12) 2)) (setq p13 (polar p11 (angle p11 p12) di11)) (setq p14 (polar p13 (+ (angle p13 p12) (/ pi 2.0)) (/ 1.0))) (setq p15 (polar p14 (- (angle p13 p12) (/ pi 2.0)) (/ 2.0))) (setq Ang1 (angle p11 p12)) (setq Ang2 (angtos Ang1 2 2)) (setq Ang3 (atof Ang2)) (setq Ang4 (+ Ang3 300)) (setq blocent (car (entsel"\nChoisir le Point [bloc] :")) ht 1 Txt_Alti (cdr (assoc 1 (entget (entnext (entnext blocent))))) pins (cdr(assoc 10 (entget blocent)))) (setq p16 (polar pins (angle p11 p12) 0.05)) (setq p17 (polar p16 (+ (angle p11 p12) (/ pi 2.0)) 0.2)))) (IF (= (TblSearch "style" "Altimetrie") nil) (Command "-style" "Altimetrie" "simplex8" "0.20" "1" "20" "" "" "")) (IF (= (TblSearch "layer" "M-NIV_TEXTE") nil) (command "_-layer" "_make" "M-NIV_TEXTE" "_color" 4 "" "")) (command "_-layer" "CH" "M-NIV_TEXTE" "") (command "_point" pins) (command "_.text" "_s" "Altimetrie" p17 Ang3 (rtos (atof Txt_Alti) 2 2)) (setvar 'pdmode 32) (setvar "PDSIZE" 0.1) (princ) )

Bonjour, Les points sont choisis par la personne qui à effectué le mesurage du site, et par conséquent il choisit certains points dans le dessin d'Autocad, ils n'ont pas de nom ou de numéro en particulier, c'est pour cela qu'il me fallait la possibilité de les renommer. Il n'ont pas de calque en particulier, en générale c'est le nom du calque des points créer lors de l'intégration du semi de point. La variable de "1.427" est en fait une hauteur de canne (donc de cible) par rapport au point pris au sol. Mais parfois le point est directement relevé sur la cible (comme par exemple pour une cible magnétique) et par conséquent la possibilité d'intégrer cette valeur en fin de ligne doit être possible sur chacun des points si cela est nécessaire. La vrai évolution que je n'ai pas voulu intégrer par le fait d'une trop grande complication de mon code, serait un éventuel choix différent de cette variable tout en conservant par défaut cette valeur de 1.427. De plus, au départ je n'ai posé que certaines questions à mes problématiques que je ne trouvais pas, l'idée générale du code était plus ou moins déjà relativement clair dans ma tête, cependant je n'ai pas "le vocabulaire" pour chercher et demander la voie de ma réponse correctement. Les questions parfois posés par "lecrabe" qui doivent m'inspirer restent très difficiles à comprendre pour moi vu le niveau que vous avez dans tous ces languages, je ne suis qu'un simple utilisateur d'Autocad qui cherche à améliorer, assurer, assister et faciliter son travail. Quand je conduis ma voiture et qu'elle tombe en panne, je ne suis qu'un conducteur et pas un mécanicien ou constructeur, je cherche de l'aide n'ayant pas de solution malgré que j'ai regardé le moteur dans tous les sens, en revanche il me faut parfois quelques base pour changer une roue. :) Je te renouvelle mes remerciements sur le temps passé à t’intéresser sur mes questionnements, en revanche ne perds pas plus de temps sur ce code qui malgré son écriture peu Aca_démique fonctionne correctement et me rends la tache plus sure. Bonnes Fêtes de fin d'année. :D Au plaisir de vous lire.

Bonjour, Je souhaitais faire un fichier txt (ansi) comprenant les informations suivantes : Matricule, (possibilité de le renommer) Coordonnées X (tronquées des 4 premier chiffres), Coordonnées Y (tronquées des 4 premier chiffres), Altitude Z (récuperer dans l'attribut ALT), Constante de 1.427 (avec choix ou non pour chaque point), exemple : C1,425.235,125.752,26,27,1.427 C2,435,237,128,657,26,32 Ce fichier était fait par des sélections de blocs points (TCPOINT) comprenant deux étiquettes (MAT et ALT). Le nombre de selection de points étant variable suivant les cas de figure. Espérant avoir répondu clairement. Merci

Bonjour, Ce code me permet de récupérer des points de calage dans un système précis xyz relevé et de les intégrer dans "Cyclone" pour permettre un calcul des cibles d'un scanner dans ce même système sans rencontrer les problématiques lié au trop grande coordonnées mal gérer par Autocad pour les Nuages de points. De ce fait aucune erreur de saisie ou d'écriture, une simple selection de point et hop. J'avais un besoin très spécifique et donc un code plutôt simpliste pour les pro et atypique pour les novices comme moi. ;) Peu importe les bonnes ou mauvaises critiques sur ce type de code, mais mon utilité est réelle et personne ne pouvait m'aider auparavant, j'ai chercher, j'ai fini par demander de l'aide que l'on m'a apporté, et mon code fonctionne à merveille, la prochaine fois, je chercherai peut-être mieux tous simplement. Merci encore.

Merci encore pour ta réponse et pour essayer te montrer ma bonne foi d'un grand manque d'expérience dans le domaine mais que je suis très à l'écoute et à la recherche d'information pour obtenir un résultat satisfaisant, veuillez trouver ci dessous mon code au complet qui n'est pas du tout propre mais qui à le mérite de fonctionner malgré mon manque de savoir en matière de recherche. Bien amicalement. (defun C:recup (/ HT1val HT2val HT3val HT4val HT5val bloc1 bloc2 position1 position2 mat1 mat2 mat3 mat4 mat5 alt1 alt2 alt3 alt4 alt5 x1 x2 x3 x4 x5 y1 y2 y3 y4 y5 NB HT1 HT2 HT3 HT4 HT5) (setq tmpQ1 (vl-filename-mktemp "tmpQ1.dcl") file (open tmpQ1 "w")) (write-line "tmpQ1 : dialog { label = \"Transformation de Coordonnees Grand Systeme en Local\"; spacer; : spacer { width = 1; height = 1;} : text { key = \"\"; label = \"Choisir le Nombre de Points a Tranformer :\" ;} : row { : radio_button { key = \"1PT\"; label = \"1 Point\"; width = true; alignment = true;} : radio_button { key = \"2PT\"; label = \"2 Points\"; width = true; alignment = true;} : radio_button { key = \"3PT\"; label = \"3 Points\"; width = true; alignment = true;} : radio_button { key = \"4PT\"; label = \"4 Points\"; width = true; alignment = true;} : radio_button { key = \"5PT\"; label = \"5 Points\"; width = true; alignment = true;}} : spacer { width = 1; height = 1;} ok_cancel; : spacer { width = 1; height = 1;} edit_width = 10;} " file) (close file) (setq Dcl_Id1 (load_dialog tmpQ1)) (new_dialog "tmpQ1" Dcl_Id1) (action_tile "1PT" (vl-prin1-to-string '(if (= $value "1") (setq NB 1) ))) (action_tile "2PT" (vl-prin1-to-string '(if (= $value "1") (setq NB 2) ))) (action_tile "3PT" (vl-prin1-to-string '(if (= $value "1") (setq NB 3) ))) (action_tile "4PT" (vl-prin1-to-string '(if (= $value "1") (setq NB 4) ))) (action_tile "5PT" (vl-prin1-to-string '(if (= $value "1") (setq NB 5) ))) (start_dialog) (unload_dialog Dcl_Id1) (vl-file-delete tmpQ1) (if (= NB 1) (progn (setq bloc1 (car (entsel "\nSelectionnez le bloc: "))) (setq position1 (getpropertyvalue bloc1 "Position")) (setq alt1 (getpropertyvalue bloc1 "ALT")) (setq mat1 (getpropertyvalue bloc1 "MAT")) (setq x1R (car position1)) (setq x1S (rem x1R 1000)) (setq x1B (rtos x1S 2 3)) (setq y1R (cadr position1)) (setq y1S (rem y1R 1000)) (setq y1B (rtos y1S 2 3)) (setq x1 (rtos (car position1))) (setq y1 (rtos (cadr position1))) (setq tmpoint (vl-filename-mktemp "tmpoint.dcl") file (open tmpoint "w")) (write-line "tmpoint : dialog { key = \"Titre\"; label = \"\"; spacer; : spacer { width = 1; height = 1;} : row { : text { label = \"Matricule 1 :\";} : text { key = \"mat1\"; width = 10; } : text { key = \"x1\"; width = 10; } : text { key = \"y1\"; width = 10; } : text { key = \"alt1\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C1\"; width = 2;} : spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT1\"; }} : spacer { width = 1; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog tmpoint)) (new_dialog "tmpoint" Dcl_Id) (set_tile "Titre" "Transformation de Coordonnees Grand Systeme en Local") (set_tile "HT1" "0") (action_tile "HT1" (vl-prin1-to-string '(if (= $value "1") (setq HT1val 1) (setq HT1val 0) ))) (set_tile "mat1" mat1) (set_tile "x1" x1) (set_tile "y1" y1) (set_tile "alt1" alt1) (action_tile "C1" "(setq mat1 $value)") (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmpoint) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun writeUTF-8 (text filename / stream) (if (setq stream (vlax-create-object "ADODB.Stream")) (vl-catch-all-apply '(lambda () (vlax-put stream 'Type 2) (vlax-put stream 'Charset "iso-8859-1") (vlax-invoke stream 'Open) (vlax-invoke stream 'WriteText text 0) (vlax-invoke stream 'SaveToFile filename 2)))) (and stream (vlax-release-object stream))) (if (= HT1val 1) (setq HT1 ",1.427") (setq HT1 " ")) (if (= HT1val 1) (progn (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat ""mat1","x1B","y1B","alt1""HT1"" ) file) ) (progn (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat ""mat1","x1B","y1B","alt1" " ) file) )))) (if (= NB 2) (progn (setq bloc1 (car (entsel "\nSelectionnez le bloc: "))) (setq position1 (getpropertyvalue bloc1 "Position")) (setq alt1 (getpropertyvalue bloc1 "ALT")) (setq mat1 (getpropertyvalue bloc1 "MAT")) (setq x1R (car position1)) (setq x1S (rem x1R 1000)) (setq x1B (rtos x1S 2 3)) (setq y1R (cadr position1)) (setq y1S (rem y1R 1000)) (setq y1B (rtos y1S 2 3)) (setq x1 (rtos (car position1))) (setq y1 (rtos (cadr position1))) (setq bloc2 (car (entsel "\nSelectionnez le bloc: "))) (setq position2 (getpropertyvalue bloc2 "Position")) (setq alt2 (getpropertyvalue bloc2 "ALT")) (setq mat2 (getpropertyvalue bloc2 "MAT")) (setq x2R (car position1)) (setq x2S (rem x2R 1000)) (setq x2B (rtos x2S 2 3)) (setq y2R (cadr position1)) (setq y2S (rem y2R 1000)) (setq y2B (rtos y2S 2 3)) (setq x2 (rtos (car position2))) (setq y2 (rtos (cadr position2))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq tmpoint (vl-filename-mktemp "tmpoint.dcl") file (open tmpoint "w")) (write-line "tmpoint : dialog { key = \"Titre\"; label = \"\"; spacer; : spacer { width = 1; height = 1;} : row { : text { label = \"Matricule 1 :\";} : text { key = \"mat1\"; width = 10;} : text { key = \"x1\"; width = 10; } : text { key = \"y1\"; width = 10; } : text { key = \"alt1\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C1\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT1\"; }} : row { : text { label = \"Matricule 2 :\";} : text { key = \"mat2\"; width = 10;} : text { key = \"x2\"; width = 10; } : text { key = \"y2\"; width = 10; } : text { key = \"alt2\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C2\"; width = 2;} : spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT2\"; }} : spacer { width = 1; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog tmpoint)) (new_dialog "tmpoint" Dcl_Id) (set_tile "Titre" "Transformation de Coordonnees Grand Systeme en Local") (set_tile "HT1" "0") (action_tile "HT1" (vl-prin1-to-string '(if (= $value "1") (setq HT1val 1) (setq HT1val 0) ))) (set_tile "HT2" "0") (action_tile "HT2" (vl-prin1-to-string '(if (= $value "1") (setq HT2val 1) (setq HT2val 0) ))) (set_tile "mat1" mat1) (set_tile "x1" x1) (set_tile "y1" y1) (set_tile "alt1" alt1) (set_tile "mat2" mat2) (set_tile "x2" x2) (set_tile "y2" y2) (set_tile "alt2" alt2) (action_tile "C1" "(setq mat1 $value)") (action_tile "C2" "(setq mat2 $value)") (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmpoint) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun writeUTF-8 (text filename / stream) (if (setq stream (vlax-create-object "ADODB.Stream")) (vl-catch-all-apply '(lambda () (vlax-put stream 'Type 2) (vlax-put stream 'Charset "iso-8859-1") (vlax-invoke stream 'Open) (vlax-invoke stream 'WriteText text 0) (vlax-invoke stream 'SaveToFile filename 2)))) (and stream (vlax-release-object stream))) (if (= HT1val 1) (setq HT1 ",1.427") (setq HT1 " ")) (if (= HT2val 1) (setq HT2 ",1.427") (setq HT2 " ")) (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat ""mat1","x1B","y1B","alt1""HT1"\n" ""mat2","x2B","y2B","alt2""HT2"" ) file) )) (if (= NB 3) (progn (setq bloc1 (car (entsel "\nSelectionnez le bloc: "))) (setq position1 (getpropertyvalue bloc1 "Position")) (setq alt1 (getpropertyvalue bloc1 "ALT")) (setq mat1 (getpropertyvalue bloc1 "MAT")) (setq x1R (car position1)) (setq x1S (rem x1R 1000)) (setq x1B (rtos x1S 2 3)) (setq y1R (cadr position1)) (setq y1S (rem y1R 1000)) (setq y1B (rtos y1S 2 3)) (setq x1 (rtos (car position1))) (setq y1 (rtos (cadr position1))) (setq bloc2 (car (entsel "\nSelectionnez le bloc: "))) (setq position2 (getpropertyvalue bloc2 "Position")) (setq alt2 (getpropertyvalue bloc2 "ALT")) (setq mat2 (getpropertyvalue bloc2 "MAT")) (setq x2R (car position1)) (setq x2S (rem x2R 1000)) (setq x2B (rtos x2S 2 3)) (setq y2R (cadr position1)) (setq y2S (rem y2R 1000)) (setq y2B (rtos y2S 2 3)) (setq x2 (rtos (car position2))) (setq y2 (rtos (cadr position2))) (setq bloc3 (car (entsel "\nSelectionnez le bloc: "))) (setq position3 (getpropertyvalue bloc3 "Position")) (setq alt3 (getpropertyvalue bloc3 "ALT")) (setq mat3 (getpropertyvalue bloc3 "MAT")) (setq x3R (car position1)) (setq x3S (rem x3R 1000)) (setq x3B (rtos x3S 2 3)) (setq y3R (cadr position1)) (setq y3S (rem y3R 1000)) (setq y3B (rtos y3S 2 3)) (setq x3 (rtos (car position3))) (setq y3 (rtos (cadr position3))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq tmpoint (vl-filename-mktemp "tmpoint.dcl") file (open tmpoint "w")) (write-line "tmpoint : dialog { key = \"Titre\"; label = \"\"; spacer; : spacer { width = 1; height = 1;} : row { : text { label = \"Matricule 1 :\";} : text { key = \"mat1\"; width = 10;} : text { key = \"x1\"; width = 10; } : text { key = \"y1\"; width = 10; } : text { key = \"alt1\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C1\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT1\"; }} : row { : text { label = \"Matricule 2 :\";} : text { key = \"mat2\"; width = 10;} : text { key = \"x2\"; width = 10; } : text { key = \"y2\"; width = 10; } : text { key = \"alt2\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C2\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT2\"; }} : row { : text { label = \"Matricule 3 :\";} : text { key = \"mat3\"; width = 10;} : text { key = \"x3\"; width = 10; } : text { key = \"y3\"; width = 10; } : text { key = \"alt3\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C3\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT3\"; }} : spacer { width = 1; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog tmpoint)) (new_dialog "tmpoint" Dcl_Id) (set_tile "Titre" "Transformation de Coordonnees Grand Systeme en Local") (set_tile "HT1" "0") (action_tile "HT1" (vl-prin1-to-string '(if (= $value "1") (setq HT1val 1) (setq HT1val 0) ))) (set_tile "HT2" "0") (action_tile "HT2" (vl-prin1-to-string '(if (= $value "1") (setq HT2val 1) (setq HT2val 0) ))) (set_tile "HT3" "0") (action_tile "HT3" (vl-prin1-to-string '(if (= $value "1") (setq HT3val 1) (setq HT3val 0) ))) (set_tile "mat1" mat1) (set_tile "x1" x1) (set_tile "y1" y1) (set_tile "alt1" alt1) (set_tile "mat2" mat2) (set_tile "x2" x2) (set_tile "y2" y2) (set_tile "alt2" alt2) (set_tile "mat3" mat3) (set_tile "x3" x3) (set_tile "y3" y3) (set_tile "alt3" alt3) (action_tile "C1" "(setq mat1 $value)") (action_tile "C2" "(setq mat2 $value)") (action_tile "C3" "(setq mat3 $value)") (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmpoint) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun writeUTF-8 (text filename / stream) (if (setq stream (vlax-create-object "ADODB.Stream")) (vl-catch-all-apply '(lambda () (vlax-put stream 'Type 2) (vlax-put stream 'Charset "iso-8859-1") (vlax-invoke stream 'Open) (vlax-invoke stream 'WriteText text 0) (vlax-invoke stream 'SaveToFile filename 2)))) (and stream (vlax-release-object stream))) (if (= HT1val 1) (setq HT1 ",1.427") (setq HT1 " ")) (if (= HT2val 1) (setq HT2 ",1.427") (setq HT2 " ")) (if (= HT3val 1) (setq HT3 ",1.427") (setq HT3 " ")) (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat ""mat1","x1B","y1B","alt1""HT1"\n" ""mat2","x2B","y2B","alt2""HT2"\n" ""mat3","x3B","y3B","alt3""HT3"" ) file) )) (if (= NB 4) (progn (setq bloc1 (car (entsel "\nSelectionnez le bloc: "))) (setq position1 (getpropertyvalue bloc1 "Position")) (setq alt1 (getpropertyvalue bloc1 "ALT")) (setq mat1 (getpropertyvalue bloc1 "MAT")) (setq x1R (car position1)) (setq x1S (rem x1R 1000)) (setq x1B (rtos x1S 2 3)) (setq y1R (cadr position1)) (setq y1S (rem y1R 1000)) (setq y1B (rtos y1S 2 3)) (setq x1 (rtos (car position1))) (setq y1 (rtos (cadr position1))) (setq bloc2 (car (entsel "\nSelectionnez le bloc: "))) (setq position2 (getpropertyvalue bloc2 "Position")) (setq alt2 (getpropertyvalue bloc2 "ALT")) (setq mat2 (getpropertyvalue bloc2 "MAT")) (setq x2R (car position1)) (setq x2S (rem x2R 1000)) (setq x2B (rtos x2S 2 3)) (setq y2R (cadr position1)) (setq y2S (rem y2R 1000)) (setq y2B (rtos y2S 2 3)) (setq x2 (rtos (car position2))) (setq y2 (rtos (cadr position2))) (setq bloc3 (car (entsel "\nSelectionnez le bloc: "))) (setq position3 (getpropertyvalue bloc3 "Position")) (setq alt3 (getpropertyvalue bloc3 "ALT")) (setq mat3 (getpropertyvalue bloc3 "MAT")) (setq x3R (car position1)) (setq x3S (rem x3R 1000)) (setq x3B (rtos x3S 2 3)) (setq y3R (cadr position1)) (setq y3S (rem y3R 1000)) (setq y3B (rtos y3S 2 3)) (setq x3 (rtos (car position3))) (setq y3 (rtos (cadr position3))) (setq bloc4 (car (entsel "\nSelectionnez le bloc: "))) (setq position4 (getpropertyvalue bloc4 "Position")) (setq alt4 (getpropertyvalue bloc4 "ALT")) (setq mat4 (getpropertyvalue bloc4 "MAT")) (setq x4R (car position1)) (setq x4S (rem x4R 1000)) (setq x4B (rtos x4S 2 3)) (setq y4R (cadr position1)) (setq y4S (rem y4R 1000)) (setq y4B (rtos y4S 2 3)) (setq x4 (rtos (car position4))) (setq y4 (rtos (cadr position4))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq tmpoint (vl-filename-mktemp "tmpoint.dcl") file (open tmpoint "w")) (write-line "tmpoint : dialog { key = \"Titre\"; label = \"\"; spacer; : spacer { width = 1; height = 1;} : row { : text { label = \"Matricule 1 :\";} : text { key = \"mat1\"; width = 10;} : text { key = \"x1\"; width = 10; } : text { key = \"y1\"; width = 10; } : text { key = \"alt1\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C1\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT1\"; }} : row { : text { label = \"Matricule 2 :\";} : text { key = \"mat2\"; width = 10;} : text { key = \"x2\"; width = 10; } : text { key = \"y2\"; width = 10; } : text { key = \"alt2\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C2\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT2\"; }} : row { : text { label = \"Matricule 3 :\";} : text { key = \"mat3\"; width = 10;} : text { key = \"x3\"; width = 10; } : text { key = \"y3\"; width = 10; } : text { key = \"alt3\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C3\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT3\"; }} : row { : text { label = \"Matricule 4 :\";} : text { key = \"mat4\"; width = 10;} : text { key = \"x4\"; width = 10; } : text { key = \"y4\"; width = 10; } : text { key = \"alt4\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C4\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT4\"; }} : spacer { width = 1; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog tmpoint)) (new_dialog "tmpoint" Dcl_Id) (set_tile "Titre" "Transformation de Coordonnees Grand Systeme en Local") (set_tile "HT1" "0") (action_tile "HT1" (vl-prin1-to-string '(if (= $value "1") (setq HT1val 1) (setq HT1val 0) ))) (set_tile "HT2" "0") (action_tile "HT2" (vl-prin1-to-string '(if (= $value "1") (setq HT2val 1) (setq HT2val 0) ))) (set_tile "HT3" "0") (action_tile "HT3" (vl-prin1-to-string '(if (= $value "1") (setq HT3val 1) (setq HT3val 0) ))) (set_tile "HT4" "0") (action_tile "HT4" (vl-prin1-to-string '(if (= $value "1") (setq HT4val 1) (setq HT4val 0) ))) (set_tile "mat1" mat1) (set_tile "x1" x1) (set_tile "y1" y1) (set_tile "alt1" alt1) (set_tile "mat2" mat2) (set_tile "x2" x2) (set_tile "y2" y2) (set_tile "alt2" alt2) (set_tile "mat3" mat3) (set_tile "x3" x3) (set_tile "y3" y3) (set_tile "alt3" alt3) (set_tile "mat4" mat4) (set_tile "x4" x4) (set_tile "y4" y4) (set_tile "alt4" alt4) (action_tile "C1" "(setq mat1 $value)") (action_tile "C2" "(setq mat2 $value)") (action_tile "C3" "(setq mat3 $value)") (action_tile "C4" "(setq mat4 $value)") (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmpoint) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun writeUTF-8 (text filename / stream) (if (setq stream (vlax-create-object "ADODB.Stream")) (vl-catch-all-apply '(lambda () (vlax-put stream 'Type 2) (vlax-put stream 'Charset "iso-8859-1") (vlax-invoke stream 'Open) (vlax-invoke stream 'WriteText text 0) (vlax-invoke stream 'SaveToFile filename 2)))) (and stream (vlax-release-object stream))) (if (= HT1val 1) (setq HT1 ",1.427") (setq HT1 " ")) (if (= HT2val 1) (setq HT2 ",1.427") (setq HT2 " ")) (if (= HT3val 1) (setq HT3 ",1.427") (setq HT3 " ")) (if (= HT4val 1) (setq HT4 ",1.427") (setq HT4 " ")) (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat ""mat1","x1B","y1B","alt1""HT1"\n" ""mat2","x2B","y2B","alt2""HT2"\n" ""mat3","x3B","y3B","alt3""HT3"\n" ""mat4","x4B","y4B","alt4""HT4"" ) file) )) (if (= NB 5) (progn (setq bloc1 (car (entsel "\nSelectionnez le bloc: "))) (setq position1 (getpropertyvalue bloc1 "Position")) (setq alt1 (getpropertyvalue bloc1 "ALT")) (setq mat1 (getpropertyvalue bloc1 "MAT")) (setq x1R (car position1)) (setq x1S (rem x1R 1000)) (setq x1B (rtos x1S 2 3)) (setq y1R (cadr position1)) (setq y1S (rem y1R 1000)) (setq y1B (rtos y1S 2 3)) (setq x1 (rtos (car position1))) (setq y1 (rtos (cadr position1))) (setq bloc2 (car (entsel "\nSelectionnez le bloc: "))) (setq position2 (getpropertyvalue bloc2 "Position")) (setq alt2 (getpropertyvalue bloc2 "ALT")) (setq mat2 (getpropertyvalue bloc2 "MAT")) (setq x2R (car position1)) (setq x2S (rem x2R 1000)) (setq x2B (rtos x2S 2 3)) (setq y2R (cadr position1)) (setq y2S (rem y2R 1000)) (setq y2B (rtos y2S 2 3)) (setq x2 (rtos (car position2))) (setq y2 (rtos (cadr position2))) (setq bloc3 (car (entsel "\nSelectionnez le bloc: "))) (setq position3 (getpropertyvalue bloc3 "Position")) (setq alt3 (getpropertyvalue bloc3 "ALT")) (setq mat3 (getpropertyvalue bloc3 "MAT")) (setq x3R (car position1)) (setq x3S (rem x3R 1000)) (setq x3B (rtos x3S 2 3)) (setq y3R (cadr position1)) (setq y3S (rem y3R 1000)) (setq y3B (rtos y3S 2 3)) (setq x3 (rtos (car position3))) (setq y3 (rtos (cadr position3))) (setq bloc4 (car (entsel "\nSelectionnez le bloc: "))) (setq position4 (getpropertyvalue bloc4 "Position")) (setq alt4 (getpropertyvalue bloc4 "ALT")) (setq mat4 (getpropertyvalue bloc4 "MAT")) (setq x4R (car position1)) (setq x4S (rem x4R 1000)) (setq x4B (rtos x4S 2 3)) (setq y4R (cadr position1)) (setq y4S (rem y4R 1000)) (setq y4B (rtos y4S 2 3)) (setq x4 (rtos (car position4))) (setq y4 (rtos (cadr position4))) (setq bloc5 (car (entsel "\nSelectionnez le bloc: "))) (setq position5 (getpropertyvalue bloc5 "Position")) (setq alt5 (getpropertyvalue bloc5 "ALT")) (setq mat5 (getpropertyvalue bloc5 "MAT")) (setq x5R (car position1)) (setq x5S (rem x5R 1000)) (setq x5B (rtos x5S 2 3)) (setq y5R (cadr position1)) (setq y5S (rem y5R 1000)) (setq y5B (rtos y5S 2 3)) (setq x5 (rtos (car position5))) (setq y5 (rtos (cadr position5))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq tmpoint (vl-filename-mktemp "tmpoint.dcl") file (open tmpoint "w")) (write-line "tmpoint : dialog { key = \"Titre\"; label = \"\"; spacer; : spacer { width = 1; height = 1;} : row { : text { label = \"Matricule 1 :\";} : text { key = \"mat1\"; width = 10;} : text { key = \"x1\"; width = 10; } : text { key = \"y1\"; width = 10; } : text { key = \"alt1\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C1\"; width = 2;} : spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT1\"; }} : row { : text { label = \"Matricule 2 :\";} : text { key = \"mat2\"; width = 10;} : text { key = \"x2\"; width = 10; } : text { key = \"y2\"; width = 10; } : text { key = \"alt2\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C2\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT2\"; }} : row { : text { label = \"Matricule 3 :\";} : text { key = \"mat3\"; width = 10;} : text { key = \"x3\"; width = 10; } : text { key = \"y3\"; width = 10; } : text { key = \"alt3\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C3\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT3\"; }} : row { : text { label = \"Matricule 4 :\";} : text { key = \"mat4\"; width = 10;} : text { key = \"x4\"; width = 10; } : text { key = \"y4\"; width = 10; } : text { key = \"alt4\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C4\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT4\"; }} : row { : text { label = \"Matricule 5 :\";} : text { key = \"mat5\"; width = 10;} : text { key = \"x5\"; width = 10; } : text { key = \"y5\"; width = 10; } : text { key = \"alt5\"; width = 10; } : edit_box { label = \"Nom de la Cible :\"; key = \"C5\"; width = 2;}: spacer { width = 1; height = 1;} : toggle { label = \"HC:1,427\"; key = \"HT5\"; }} : spacer { width = 1; height = 1;} ok_cancel; edit_width = 10;} " file) (close file) (setq Dcl_Id (load_dialog tmpoint)) (new_dialog "tmpoint" Dcl_Id) (set_tile "Titre" "Transformation de Coordonnees Grand Systeme en Local") (set_tile "HT1" "0") (action_tile "HT1" (vl-prin1-to-string '(if (= $value "1") (setq HT1val 1) (setq HT1val 0) ))) (set_tile "HT2" "0") (action_tile "HT2" (vl-prin1-to-string '(if (= $value "1") (setq HT2val 1) (setq HT2val 0) ))) (set_tile "HT3" "0") (action_tile "HT3" (vl-prin1-to-string '(if (= $value "1") (setq HT3val 1) (setq HT3val 0) ))) (set_tile "HT4" "0") (action_tile "HT4" (vl-prin1-to-string '(if (= $value "1") (setq HT4val 1) (setq HT4val 0) ))) (set_tile "HT5" "0") (action_tile "HT5" (vl-prin1-to-string '(if (= $value "1") (setq HT5val 1) (setq HT5val 0) ))) (set_tile "mat1" mat1) (set_tile "x1" x1) (set_tile "y1" y1) (set_tile "alt1" alt1) (set_tile "mat2" mat2) (set_tile "x2" x2) (set_tile "y2" y2) (set_tile "alt2" alt2) (set_tile "mat3" mat3) (set_tile "x3" x3) (set_tile "y3" y3) (set_tile "alt3" alt3) (set_tile "mat4" mat4) (set_tile "x4" x4) (set_tile "y4" y4) (set_tile "alt4" alt4) (set_tile "mat5" mat5) (set_tile "x5" x5) (set_tile "y5" y5) (set_tile "alt5" alt5) (action_tile "C1" "(setq mat1 $value)") (action_tile "C2" "(setq mat2 $value)") (action_tile "C3" "(setq mat3 $value)") (action_tile "C4" "(setq mat4 $value)") (action_tile "C5" "(setq mat5 $value)") (start_dialog) (unload_dialog Dcl_Id) (vl-file-delete tmpoint) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun writeUTF-8 (text filename / stream) (if (setq stream (vlax-create-object "ADODB.Stream")) (vl-catch-all-apply '(lambda () (vlax-put stream 'Type 2) (vlax-put stream 'Charset "iso-8859-1") (vlax-invoke stream 'Open) (vlax-invoke stream 'WriteText text 0) (vlax-invoke stream 'SaveToFile filename 2)))) (and stream (vlax-release-object stream))) (if (= HT1val 1) (setq HT1 ",1.427") (setq HT1 " ")) (if (= HT2val 1) (setq HT2 ",1.427") (setq HT2 " ")) (if (= HT3val 1) (setq HT3 ",1.427") (setq HT3 " ")) (if (= HT4val 1) (setq HT4 ",1.427") (setq HT4 " ")) (if (= HT5val 1) (setq HT5 ",1.427") (setq HT5 " ")) (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat ""mat1","x1B","y1B","alt1""HT1"\n" ""mat2","x2B","y2B","alt2""HT2"\n" ""mat3","x3B","y3B","alt3""HT3"\n" ""mat4","x4B","y4B","alt4""HT4"\n" ""mat5","x5B","y5B","alt5""HT5"" ) file) )) )

Cher Didier, Pour information j'ai chercher préalablement à trouver les réponses à mes questions qui me bloque. J'ai également cherché à comprendre mes problèmes et je suis resté sans résultat concluant. Je te rassure et je consulte, lis, relis, réfléchis et essai de comprendre plein de chose sur votre super site qui est très complet, mais n'étant pas un développeur j'ai quand même beaucoup de mal à faire fonctionner certaines lignes de code qui reste quand même très difficiles pour un novice comme moi. Je passe énormément de temps à chercher et comprendre pourquoi cela ne marche pas. Je pensais effectivement qu'avec le temps le super forum de cadxp qui avec certains "membres ++" peuvent m'aider sur des problématiques qui reste complexes pour moi et qui seraient compréhensifs. Dans mon domaine j'essaye toujours de répondre aux questions à mes semblables mêmes qui pour moi me semble simpliste car je sais bien que la tâche n'est jamais simple pour un novice. Je vous remercie tous beaucoup pour le temps passé à me répondre ou me mettre sur la bonne voie quand je lutte. Et je vous en suis de plus très reconnaissant et je cherche même à participé financièrement mais je ne sais pas comment faire, bien que l'ayant déjà fait dans le passé. Je suis peu être intrusif dans un domaine que je maîtrise pas, mais l'utilité des codes me sont vraiment utile. De plus mes codes ne sont sûrement pas écrit de façon très AutoCADémique et me font parfois défaut, mais j'en tire une satisfaction énorme après avoir passé parfois des semaines à obtenir un résultat positif. J'essaie d'évoluer, de progressé dans ce domaine parfois même de complexifié mon problème en incluant d'autre langage comme l'intégration des boîtes de dialogues avec des dcl et la tâche n'est pas si simple. Merci, merci beaucoup et encore merci pour le dérangement. Au plaisir

Merci beaucoup pour cette explication qui me sera bien utile pour la suite et qui fonctionne à merveille. Merci vraiment beaucoup, tous fonctionne comme je le souhaitais.

Merci beaucoup effectivement en entrant dans le bon ordre les choses tous va beaucoup mieux. En revanche il me reste plus que le problème du retour à la ligne dans l’écriture de mon fichier. Merci encore

Mais pour une valeur dans une variable cela doit s’écrire différemment ? car cela me dit type d'argument incorrect (setq x1b (rem x1 1000))

et comment faire un retour à la ligne à la fin de chacune des lignes inscrite dans mon fichier créer ? (a la fin de HT1"") (defun writeUTF-8 (text filename / stream) (if (setq stream (vlax-create-object "ADODB.Stream")) (vl-catch-all-apply '(lambda () (vlax-put stream 'Type 2) (vlax-put stream 'Charset "utf-8") (vlax-invoke stream 'Open) (vlax-invoke stream 'WriteText text 0) (vlax-invoke stream 'SaveToFile filename 2)))) (and stream (vlax-release-object stream))) (if (= HT1val 1) (setq HT1 ",1.427") (setq HT1 " ")) (if (= HT2val 1) (setq HT2 ",1.427") (setq HT2 " ")) (setq file (getfiled "Créer un fichier" "" "txt" 1) ) (writeUTF-8 (strcat " "mat1","x1","y1","alt1""HT1"" " "mat2","x2","y2","alt2""HT2"" ) file)))

Tous fonctionne comme je le souhaite, mais il me reste un petit problème : Comment supprimé les 4 premiers chiffres dans ma variable : j'ai 1636551.22 et je souhaite avoir 551.22 Merci

merci beaucoup Giles, je vais essayer tous ça.

J'avoue que j'ai beaucoup de mal pour récupérer juste dans une variable la valeur X et dans une autre la valeur Y, alors avec la possibilité de choisir autant de points que je veux, trop du pour moi. (setq x1 (getpropertyvalue bloc "Position X")) (setq y1 (getpropertyvalue bloc "Position Y"))

Et si je peux oser : pour faire une boucle pour plusieurs points dans différentes variable, comment dois-je m'y prendre ?

Merci beaucoup mais il y a surement une transformation à faire des xy car je récupère cela : (1.63655e+006 8.18931e+006 0.0)

Bonjour à tous, Je cherche à récupérer les coordonnées xyz d'une selection de points et les mettre dans un fichier, la valeur X et la valeur Y sont récupérer par le point du bloc TCPOINT et la valeur Z qui est inscrite dans l'étiquette ALT, ainsi que le matricule du point qui se trouver dans l'etiquette MAT. Je sais que pour certain d'entre vous , c'est du réchauffer mais je cherche à intégré ce genre de code dans un autre pour me faire des transformation de coordonnées spécifique. Pouvez-vous m'aider ? Merci par avance (defun C:RECUP (/) (setq pnt (getpoint "\n Cliquez un point : ")) (setq X (car pnt)) (setq Y (cadr pnt)) (setq Z (caddr pnt)) )

Ok merci beaucoup, je suis vraiment un idiot. :)

Bonjour à tous, J'ai beau chercher et je ne trouve pas, comment je peux récupérer dans une variable la valeur d'une variable système ? Le nom de ma variable systeme est : SECTIONOFFSETINC (Définit la distance à laquelle l'objet de coupe se déplace) Le nom de ma variable personel est val1 que je souhaite utiliser dans un petit bout de code perso. Mon idée de base qui ne fonctionne pas est : (setq val1 (getvar (SECTIONOFFSETINC) )) Si une Âme vraiment charitable peut m'aider car toutes mes tentatives sont vaines. Merci par avance.

Bonjour à tous mes chers Amis, Existe-il une commande spécifique pour Créer un Filtre groupe (de calque) sans passer par la Boite dialogue de gestionnaire des calques. J'aimerai pouvoir intégrer dans un code en lisp plusieurs Filtre de Groupe avec des calques bien définie directement au lancement du code. J'ai beau chercher comme un fou je ne trouve rien hors des histoires avec des dll. Merci par avance pour vos réponses constructives.