SF.Designer

J'avais pas tout lu ;) Bon ben go sur excel alors ^^

@Bonuscad: Effectivement j'avais oublier de préciser que ce que tu décris m'arrivais. Je parle du retour "nil" qui me rendais fou. Par contre je ne m’étais pas rendu compte du fait qu'en redémarrant autocad cela retournait la bonne valeur. Je passe par la console autocad, qui permet de continuer a travailler en même temps que ma moulinette tourne, et donc j'avais toujours autocad lancé a coté ! Pourquoi ne récupère t'il pas la valeur sur l'instant du getenv ? Je vais essayer d'initialiser cette variable (avec autocad lancé et sans) : - soit au début de mon .bat, mais la console est déjà lancé du coup - soit dans mon fichier excel avant que cela ne lance la console @Patrick: Merci je vais essayer de retrouver, ça pourrait être intéressant. Merci merci

Ah oui et cela me réduirai mes fichiers script par 3 !!! Actuellement : exemple : - PDFCH3NOIR.scr - PDFCH3TEINTAGE.scr - PDFCH3NOIRTEINTAGE.scr le but etant de me retrouver avec seulement : - PDFCH3.scr - Qui prendrait donc la valeur de la variable systeme ou utilisateur en question !

Pour info, c'est pour la creation d'une moulinette de creation des fichiers en PDF et en PLT Mes fichiers .bat sont lancés a partir d'hyperliens dans un fichier excel. J'ai plusieurs .bat : - pour PDF : PDFNOIR.bat / PDFNOIRTEINTAGE.bat / PDFTEINTAGE.bat - pour PLT : PLTNOIR.bat / PLTNOIRTEINTAGE.bat / PLTTEINTAGE.bat Ces différents fichiers lance des fichiers scripts suivant certaines conditions. Pour exemple "PDFNOIR.bat" @echo off @title PDF NOIR ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: DECLARATION TYPES DE SORTIE :FILESTYPE :: Fichier sortie a creer (PlotType) set "PT=PDF" :: Fichier sortie a creer (PlotStyles) set "PS=NOIR" ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: DECLARATION VARIABLE CONSOLE :CONSOLE1 :: Test chemin de la console AutoCAD V1 if exist "C:\PROGRA~1\Autodesk\AUTOCA~1\accoreconsole.exe" set accoreexe="C:\PROGRA~1\Autodesk\AUTOCA~1\accoreconsole.exe" ELSE GOTO :TESTDIRCONSOLEAUTOCAD2 GOTO :DIR :CONSOLE2 :: Test chemin de la console AutoCAD V2 if exist "C:\PROGRA~1\AUTOCA~1\accoreconsole.exe" set accoreexe="C:\PROGRA~1\AUTOCA~1\accoreconsole.exe" ELSE GOTO :FIN GOTO :DIR ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: DECLARATION CHEMINS :DIR :: Chemin du répertoire contentant les fichiers à traiter set "DirSCH=D:\Tirage" :: Chemin des scripts set "DirScript=W:\Communication\Informatique\BatchScript\app" GOTO :FAC ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: CREATION FICHIERS BORNAGE :FAC :: Script FACADE set ScriptFAC="%DirScript%\%PT%FACADE%PS%.scr" :: Test existance des fichiers *FAC*.dwg for /r %DirSCH% %%X in (*FAC*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *FAC*.dwg /c "cmd /c call %accoreexe% /s %ScriptFAC% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :CH0 :::::::::::::::::::::::::::: :CH0 :: Script CH0 set ScriptCH0="%DirScript%\%PT%CH0%PS%.scr" :: Test existance des fichiers *CH0*.dwg for /r %DirSCH% %%X in (*CH0*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *CH0*.dwg /c "cmd /c call %accoreexe% /s %ScriptCH0% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :CH1 :::::::::::::::::::::::::::: :CH1 :: Script CH1 set ScriptCH1="%DirScript%\%PT%CH1%PS%.scr" :: Test existance des fichiers *CH1*.dwg for /r %DirSCH% %%X in (*CH1*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *CH1*.dwg /c "cmd /c call %accoreexe% /s %ScriptCH1% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :CH2 :::::::::::::::::::::::::::: :CH2 :: Script CH2 set ScriptCH2="%DirScript%\%PT%CH2%PS%.scr" :: Test existance des fichiers *CH2*.dwg for /r %DirSCH% %%X in (*CH2*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *CH2*.dwg /c "cmd /c call %accoreexe% /s %ScriptCH2% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :CH3 :::::::::::::::::::::::::::: :CH3 :: Script CH3 set ScriptCH3="%DirScript%\%PT%CH3%PS%.scr" :: Test existance des fichiers *CH3*.dwg for /r %DirSCH% %%X in (*CH3*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *CH3*.dwg /c "cmd /c call %accoreexe% /s %ScriptCH3% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :CH9 :::::::::::::::::::::::::::: :CH9 :: Script CH9 set ScriptCH9="%DirScript%\%PT%CH9%PS%.scr" :: Test existance des fichiers *CH9*.dwg et creation des fichiers de sortie for /r %DirSCH% %%X in (*CH9*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *CH9*.dwg /c "cmd /c call %accoreexe% /s %ScriptCH9% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :SCH ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: CREATION FICHIERS SCHEMAS :SCH :: Test existance des fichiers *.dwg set ScriptSCH="%DirScript%\%PT%%PS%.scr" for /r %DirSCH% %%X in (*.dwg) do if exist %%X forfiles /p %DirSCH% /s /m *.dwg /c "cmd /c call %accoreexe% /s %ScriptSCH% /i "@PATH" && cmd /c del /Q "@PATH"" GOTO :DEL ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: SUPPRIMER FICHIERS OBSOLETES :DEL :: Declarer types de fichiers a chercher set "SearchFilesTypes=*.plt,*.txt,*.bak,*.bor,*.paf,*.ns1,*.bor,*.dif,*.dmp,*.dat,*.car,*.db,*.scr,*.dwl,*.dwl2,*.jpg,*.bmp,*.png,*.sca,*.err,*.log,*.svg,*.non,*.oui,*.dwg,*.lnk,*.xls,*.xlsx,*.doc,*.docx" :: Declarer types de fichiers a supprimer set "DelFilesTypes= .plt .txt .bak .bor .paf .ns1 .bor .dif .dmp .dat .car .db .scr .dwl .dwl2 .jpg .bmp .png .sca .err .log .svg .non .oui .dwg .lnk .xls .xlsx .doc .docx" :: Test existance des fichiers a supprimer et suppression for /r %DirSCH% %%X in (%SearchFilesTypes%) do for %%G in (%DelFilesTypes%) do forfiles /p %DirSCH% /s /m *%%G /c "cmd /c del /Q /F @FILE" GOTO :FIN :FIN pause Et mes fichiers script : - Exemple 1 : PDFNOIR.scr ; PDF NOIR ; ------------------------------ (setq DirConfig (getenv "PrinterConfigDir")) (setq DirDesc (getenv "PrinterDescDir")) (setq DirStyleSheet (getenv "PrinterStyleSheetDir")) ; ------------------------------ (setenv "PrinterConfigDir" "W:\\Communication\\Informatique\\BatchScript\\Print") (setenv "PrinterDescDir" "W:\\Communication\\Informatique\\BatchScript\\Print") (setenv "PrinterStyleSheetDir" "W:\\Communication\\Informatique\\BatchScript\\Print") ; ------------------------------ ; Configuration style de tracé des calques en mode CTB (if (= (getvar "PSTYLEMODE") 0)(command "convertpstyles")) ; ------------------------------ ; Base Initialisation impression (setq DWG (getvar "DWGNAME")) (setq LONG (strlen DWG)) (setq LON (- LONG 4)) (setq PDFCHAS (substr DWG 1 LON)) (setq PDFNOIR (strcat (strcase (getvar "DWGPREFIX")) "NB-" PDFCHAS ".pdf")) ; ------------------------------ ; NOIR ._-plot _YES MODEL PDF Y4X24 _MILLIMETERS _LANDSCAPE _NO _EXTENTS 1:1 0.00,0.00 _YES NOIR _YES _WIREFRAME !PDFNOIR _NO _YES ; ------------------------------ (setenv "PrinterConfigDir" DirConfig) (setenv "PrinterDescDir" DirDesc) (setenv "PrinterStyleSheetDir" DirStyleSheet) ; ------------------------------ _QUIT - Exemple 2 : PDFCH3NOIR.scr ; CH3 NOIR ; ------------------------------ (setq DirConfig (getenv "PrinterConfigDir")) (setq DirDesc (getenv "PrinterDescDir")) (setq DirStyleSheet (getenv "PrinterStyleSheetDir")) ; ------------------------------ (setenv "PrinterConfigDir" "W:\\Communication\\Informatique\\BatchScript\\Print") (setenv "PrinterDescDir" "W:\\Communication\\Informatique\\BatchScript\\Print") (setenv "PrinterStyleSheetDir" "W:\\Communication\\Informatique\\BatchScript\\Print") ; ------------------------------ ; Configuration style de tracé des calques en mode CTB (if (= (getvar "PSTYLEMODE") 0)(command "convertpstyles")) ; ------------------------------ ; Base Initialisation impression (setq DWG (getvar "DWGNAME")) (setq LONG (strlen DWG)) (setq LON (- LONG 4)) (setq PDFCH3CHAS (substr DWG 1 LON)) (setq PDFCH3F01NOIR (strcat (strcase (getvar "DWGPREFIX")) "NB-" PDFCH3CHAS "_F01_(ES16-SVLTP).pdf")) (setq PDFCH3F02NOIR (strcat (strcase (getvar "DWGPREFIX")) "NB-" PDFCH3CHAS "_F02_(CAB-ABCD).pdf")) (setq PDFCH3F03NOIR (strcat (strcase (getvar "DWGPREFIX")) "NB-" PDFCH3CHAS "_F03_(CAB-EFGH).pdf")) (setq PDFCH3F04NOIR (strcat (strcase (getvar "DWGPREFIX")) "NB-" PDFCH3CHAS "_F04_(CAB-JK).pdf")) ; ------------------------------ ; NOIR ; Folio 1 ._-plot _YES MODEL PDF Y1X5 _MILLIMETERS _PORTRAIT _NO _WINDOW 1260,-1050 1557,0 1:1 0.00,0.00 _YES NOIR _YES _WIREFRAME !PDFCH3F01NOIR _NO _YES ; Folio 2 ._-plot _YES MODEL PDF Y1X10 _MILLIMETERS _PORTRAIT _NO _WINDOW 60,-2100 357,0 1:1 0.00,0.00 _YES NOIR _YES _WIREFRAME !PDFCH3F02NOIR _NO _YES ; Folio 3 ._-plot _YES MODEL PDF Y1X10 _MILLIMETERS _PORTRAIT _NO _WINDOW 460,-2100 757,0 1:1 0.00,0.00 _YES NOIR _YES _WIREFRAME !PDFCH3F03NOIR _NO _YES ; Folio 4 ._-plot _YES MODEL PDF Y1X10 _MILLIMETERS _PORTRAIT _NO _WINDOW 860,-2100 1157,0 1:1 0.00,0.00 _YES NOIR _YES _WIREFRAME !PDFCH3F04NOIR _NO _YES ; ------------------------------ (setenv "PrinterConfigDir" DirConfig) (setenv "PrinterDescDir" DirDesc) (setenv "PrinterStyleSheetDir" DirStyleSheet) ; ------------------------------ _QUIT Voila la raison pour laquel je souhaite passer par la creation d'une variable systeme ou utilisateur dans mon .bat pour ensuite recuperer dans mon .scr Ma variable prendra soit "NOIR", soit "TEINTAGE"

Merci d'avance gente programmeur !!!

Bonjour a tous, Juste pour une petite question. Je defini avec un .bat une variable systeme : setx MaVar "NOIR" /m Ou une variable utilisateur setx MaVar "NOIR" Comment puis je recuperer cette variable dans un script autocad lancé par le même .bat que cité précédemment ? Mon Script : ._-plot _YES MODEL PDF Y4X24 _MILLIMETERS _LANDSCAPE _NO _EXTENTS 1:1 0.00,0.00 _YES NOIR <<<<<<<< c'est a ce niveau la que je souhaite recuperer la variable systeme _YES _WIREFRAME !PDFTEINTAGE _NO _YES _QUIT

Solution trouvé en passant par "forfiles" !!! set accoreexe="C:\PROGRA~1\Autodesk\AUTOCA~1\accoreconsole.exe" set DirSCH="D:\Tirage" set DirScript="W:\Communication\Informatique\BatchScript\app" set ScriptSCH="%DirScript%\PDFNOIR.scr" forfiles /p %DirSCH% /s /m *.dwg /c "cmd /c call %accoreexe% /s %ScriptSCH% /i "@PATH"" Ou en passant par la creation de listes de fichiers set accoreexe="C:\PROGRA~1\Autodesk\AUTOCA~1\accoreconsole.exe" set DirSCH="D:\Tirage" set DirScript="W:\Communication\Informatique\BatchScript\app" set ScriptSCH="%DirScript%\PDFNOIR.scr" for /r %DirSCH% %%X in (*.dwg) do (echo %%X >> %DirSCH%\listSCH.txt) for /F "delims=" %%f in (listSCH.txt) do call %accoreexe% /s %ScriptSCH% /i "%%f" Voila si ca peut servir... ++

Solution trouvé en passant par "forfiles" !!! set DirSCH="D:\Tirage" set DirScript="W:\Communication\Informatique\BatchScript\app" set ScriptSCH="%DirScript%\PDFNOIR.scr" forfiles /p %DirSCH% /s /m *.dwg /c "cmd /c call %accoreexe% /s %ScriptSCH% /i "@PATH"" Voila si ca peut servir... ++

Une solution que l'on m'avais donné ici même, cela ferme la fenetre texte en baculant dessus et en simulant "ALT F4" !!! ; Fermer Fenetre Texte (defun CloseWindowText () (textscr) ; Basculer sur fenêtre de texte (vlax-invoke-method (vlax-get-or-create-object "WScript.Shell") "SendKeys" "%{F4}") ; Fermer fenêtre de texte )

Bonjour,Est il possible que ce bout de code fouille aussi les sous dossiers et execute le script a chaque fois qu'il tombe sur un fichier *FAC*.dwg ? set "SourceBOR=D:\Tirage\BORNAGE" set "SourceScript=W:\Communication\Informatique\BatchScript\app" set ScriptFAC="%SourceScript%\PDFFACADENOIR.scr" for /f "delims=" %%f in ('dir /b "%SourceBOR%\*FAC*.dwg"') do call %accoreexe% /s %ScriptFAC% /i "%SourceBOR%\%%f" Merci ???

Salut voici 4 fichiers qui peuvent etre interressant ! AutocadColor.zip

Piouffff, sérieux 4h de travail sans faire une seule sauvegarde manuelle ??? J'espere que tu trouvera une solution ;)

Merci beaucoup pour vos réponse, là je suis au taf mais ce soir je regarde l'aide développeur ;)

Daccord donc si je comprend bien, cela vas redéfinir la variable n avec 1 fois le resultat de la recherche sur le nom de bloc ! Merci Tramber

OLIVIER et GILLES, un GRANNNNNND MERCI avous deux, voila le code fonctionne parfaitement ainsi. Je met la version finale: (defun reptag (tag newvalue ent / alist ) (if (and (= (type ent) (read "VLA-OBJECT")) newvalue) (progn (setq alist ( vlax-invoke ent 'GetAttributes)) (foreach a alist (if (= (vla-get-tagstring a) tag) (vlax-put-property a 'TextString newvalue) ) ) ) (if (= 'ename (type ent)) (reptag tag newvalue (vlax-ename->vla-object ent))) ) (princ)) (defun c:ChangeCart ( / ent) (if (setq ss (ssget "_X" (list '(0 . "INSERT")(cons 410 (getvar "ctab"))))) (progn (repeat (setq n (sslength ss)) (if (= "CRTP4PP4" (vla-get-EffectiveName (vlax-ename->vla-object (ssname ss (setq n (1- n)))))) (setq ent (ssname ss n))) ) ) (prompt "\n Aucune selection") ) (setq FILENAME (substr (getvar "DWGNAME") 1 10)) (setq DWGLONGNUMBER (- (strlen (getvar "DWGNAME")) 4)) (if (<= DWGLONGNUMBER 13) (progn (setq DWGLONGNAME (substr (getvar "DWGNAME") 1 DWGLONGNUMBER)) (setq INDICE (substr DWGLONGNAME 12)) ) (progn (setq DWGLONGNAME (substr (getvar "DWGNAME") 1 DWGLONGNUMBER)) (setq INDICE (substr DWGLONGNAME 15)) (setq FOLIONUMBER (substr (getvar "DWGNAME") 12 2)) ) ) (reptag "IND1" INDICE ent) (reptag "IND2" FOLIONUMBER ent) (reptag "TME" FILENAME ent) (reptag "EMETTEUR" FILENAME ent) (reptag "DAO" DWGLONGNAME ent) (princ)) Olivier puis je avoir une petite explication sur ceci : (setq n (1- n)) Je ne comprend pas le 1- n Merci

Bon même après avoir mis a jour mon code avec vos explications, il me met aucune sélection. Alors que le bloc se trouve bien dans l'espace objet ! Je vous met en pièces jointe le fichier DWG (zippé) et mon Lisp. AZERTYUIOP-00-AB.zip Cartouche_Mod1.lsp EDIT: j'etais en train d'ecrire en même temps que Olivier, je teste cela merci beaucoup !

Bonjour Olivier, Merci de t’être attardé sur mon problème. Voici mon code, il me retourne : "type d'argument incorrect: lselsetp nil" (defun reptag (tag newvalue ent / alist ) (if (and (= (type ent) (read "VLA-OBJECT")) newvalue) (progn (setq alist ( vlax-invoke ent 'GetAttributes)) (foreach a alist (if (= (vla-get-tagstring a) tag) (vlax-put-property a 'TextString newvalue) ) ) ) (if (= 'ename (type ent)) (reptag tag newvalue (vlax-ename->vla-object ent)));i ) (princ)) (defun c:ChangeCart ( / ent) (setq ss (ssget "_X" (list '(0 . "INSERT") '(2 . "CRTP4PP4") (cons 410 (getvar "ctab"))))); création du jeu de sélection (setq ent (ssname ss 0)) ; récupération de l'ename du premier élément du jeu de sélection (setq FILENAME (substr (getvar "DWGNAME") 1 10)) (setq DWGLONGNUMBER (- (strlen (getvar "DWGNAME")) 4)) (if (<= DWGLONGNUMBER 13) (progn (setq DWGLONGNAME (substr (getvar "DWGNAME") 1 DWGLONGNUMBER)) (setq INDICE (substr DWGLONGNAME 12)) ) (progn (setq DWGLONGNAME (substr (getvar "DWGNAME") 1 DWGLONGNUMBER)) (setq INDICE (substr DWGLONGNAME 15)) (setq FOLIONUMBER (substr (getvar "DWGNAME") 12 2)) ) ) (reptag "IND1" INDICE ent) (reptag "IND2" FOLIONUMBER ent) (reptag "TME" FILENAME ent) (reptag "EMETTEUR" FILENAME ent) (reptag "DAO" DWGLONGNAME ent) (princ))

Bonjour a tous, Je viens vers vous aujourd'hui car je souhaiterai modifier un bout de code, et je n'arrive pas a mettre en place ce que je souhaite grrrrrrrrrrrrrrrrrr Ce code me permet de mettre a jour des informations dans un cartouche. La grosse partie de ce code a été trouvé il y a quelques temps sur le forum "The swamp" (si mes souvenir sont bons), mais je ne me souviens plus de l'auteur, ayant oublié de le noter (Mea Culpa). (defun reptag (tag newvalue ent / alist ) (if (and (= (type ent) (read "VLA-OBJECT")) newvalue) (progn (setq alist ( vlax-invoke ent 'GetAttributes)) (foreach a alist (if (= (vla-get-tagstring a) tag) (vlax-put-property a 'TextString newvalue) ) ) ) (if (= 'ename (type ent)) (reptag tag newvalue (vlax-ename->vla-object ent)));i ) (princ)) (defun c:ChangeCart ( / ent) (setq FILENAME (substr (getvar "DWGNAME") 1 10)) (setq FOLIONUMBER (substr (getvar "DWGNAME") 12 2)) (setq DWGLONGNUMBER (- (strlen (getvar "DWGNAME")) 4)) (setq DWGLONGNAME (substr (getvar "DWGNAME") 1 DWGLONGNUMBER)) (setq INDICE (substr DWGLONGNAME 15)) ; (setq ent (ssget "_X" '((0 . "INSERT")(2 . "CRTP4PP4")))) ; C'est ça que je n'arrive pas a mettre en place !!! (setq ent (car (entsel))) ; ceci demande la selection du bloc (reptag "IND1" INDICE ent) (reptag "IND2" INDICE ent) (reptag "TME" FILENAME ent) (princ)) Pour info: nom du dwg, ex : AZERTYUIOP-00-AB (AZERTYUIOP = FILENAME / 00 = FOLIONUMBER / AB = INDICE), les noms de fichiers ne changent pas de structure. Pour le moment ce code oblige l'utilisateur a sélectionner le bloc concerné par les changements. Je souhaiterai que le bloc dont le nom est connu ( CRTP4PP4 ) soit sélectionné automatiquement et ne plus avoir d'intervention de l'utilisateur. J'ai retourné le probleme dans tous les sens que je connais et même plus, mais pas suffisant. Merci beaucoup d'avance pour votre aide comme d'habitude !!!

Dans le genre : ; Définir le chemin du dossier pour "Sélectionner la mise en page du fichier" (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (getvar "CPROFILE") "\\Dialogs\\Sélectionner la mise en page du fichier") "InitialDirectory" "Chemin_Dossier" ) ; Définir le chemin du dossier "Importer les mises en page en vue de la publication" (vl-registry-write (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (getvar "CPROFILE") "\\Dialogs\\PSETUPNavDlg") "InitialDirectory" "Chemin_Dossier" )

Merci Olivier Exemple pour écrire dans la base de registre a partir de ton fichier .mnl : (vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R19.1\\ACAD-D001:40C\\Profiles\\Epure\\Dialogs\\Sélectionner la mise en page du fichier\\" "InitialDirectory" "TON_DOSSIER") Pour lire ta clé de registre : (vl-registry-read "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R19.1\\ACAD-D001:40C\\Profiles\\Epure\\Dialogs\\Sélectionner la mise en page du fichier\\InitialDirectory")

Pour illustrer cette demande qui m’intéresse aussi : http://zupimages.net/up/16/07/4eyv.png http://zupimages.net/up/16/07/5fap.png

Hello, Signé ...

Je suis tombé sur ce site il y a quelque jours : http://tiboys.free.fr/indexautocad.html

Merci Gile pour ce complément !

Et ben tous ça pour ça, je le voyais pas du tout !!! Merci oh grand maitre programmeur Gile ^^, dont je suis voisin ^^, de m'avoir ouvert les yeux !!! Le lisp modifié : (defun c:InsertSigneTorsade () (progn (cond ((findfile "Block_SigneTorsade.lsp") (SetToDraw) (load "Block_SigneTorsade.lsp") (EntmakeSigneTorsade) ) ) (vl-cmdf "._-INSERT" "SigneTorsade" pause "1" "1" "0" "") (princ "\n--- Signe Torsade inséré ---\n") (princ) ) )