bonuscad

Le risque à mon avis, est que si l'entreprise est capable de vous faire utiliser des logiciel illégaux, elle est capable de dire que ces logiciels ont été installé à leur insu. Mais je pense quand même que c'est eux les responsables; ils sont responsable du parc informatique qu'ils gèrent. En espèrant qu'il n'y a pas une "tête de Turc" s'occupant de ce dit parc et que ce n'est pas TOI. Ent tout cas j'aimerais pas être à sa place..... parce que avec une mentalité pareille, on peut s'attendre à tout.

Essayes les "Superhachures" des ExpressTools, je suis sur que cela pourrait faire l'affaire pour ce type de hachures. Il te suffit de faire un bloc d'un extrait de ce que tu as déjà dessiné en t'assurant que la répétition de ton motif ce fasse au bon endroit

Sympa l'astuce :D ^C^Cpoint \annuler;; ce qui equivaudrait à un (setvar "lastpoint" (getpoint)) en lisp, soit une entré utilisateur, ce qui n'est pas possible avec une LT. couplé avec "@", c'est d'enfer! Cela ouvre des possibilité de script et de macro sympa pour les LT. ;) Je retiens çette formule, ça peut rendre service. :cool:

La commande DIVISER est très basique, il n'y a pas d'options possibles. Tu vas être obligé de te tourner vers un language de prog. Script (le plus simple) Lisp assez facile malgré les parenthèses dont je suis assez fervent (vous avez remarqué?!!) ;) VisualLisp&ActiveX super, mais déjà plus complexe VBA (VisualBAsic) là c'est pas mon fort, plus structuré et rigide, mais interfacage avec d'autres applic. pouvant être interressantes mais a mon avis plus ch..t à faire évoluer a travers les versions et ce language est surveillé par les AntiVirus car très répandu dans le monde Windows ce qui rend sont usage quelque peu agacant (bien que son usage dans le monde de la DAO ne soit pas sournoi, enfin pas encore) Et enfin le plus gros morceau CC+ là j'y connais que dalle mais je crois qu'il donne au bout du compte de l'ARX après compilation. Donc tout est possible, mais il faut faire son choix!

N'ais pas rencontré de problème (sous 2005), cela veut pas dire qu'il n'y en a pas! ;) Cependant j'ai l'impression que le code que tu incrimine a été modifié. As tu réessayé avec le code d'origine proposé plus haut? En effet la routine proposée contient 2 fonctions: la principale (defun c:METREPL ( / sav_dim sav_lup typent typ_l js cmpt nbr ent)...) et la secondaire (defun mkfilt (typ / bdd lstflt)...) Celle ci demande un argument "typ" défini dans l'appel fait dans la fonction principale J'ai l'impression qu'un mixage a été fait Soumet le code modifié si c'est le cas, car je vois pas ce qui pourrait clocher. Vu que j'ais mis le code sans "Copyright", c'est pas mon genre ;) , tu peux soumettre tes modifs c'est du "open"

Puisqu'on est dans le thème des manipulations de listes, Autre que les fonctions de base CONS et LIST, il y a aussi APPEND qui permet de concatener 2 listes en 1.

Salut Oli553 Je vais essayer de regarder cela sous une 2005 (par contre pour une 2006, je pourrais pas car aucune licence dans mon BE) Je l'ai écrite sous une 2002, j'ai peut être utilisé involontairement un nom de variable qui serait réservée sous une 2005? Enfin je regarde ça au plus vite et te tiens au courant

Bonjour, Un exemple où j'utilise la command _align Tu verras façilement comment je m'assure dans le code pour que la fonction soit disponible (defun c:Mult_Align ( / pt_o1 pt_o2 pt_d1 pt_d2) (setvar "cmdecho" 0) (if (not (member "geom3d.arx" (arx))) (arxload "geom3d.arx")) (princ "\nChoisir les objets à aligner de façon multiple.") (cond ((ssget) (initget 9) (setq pt_o1 (getpoint "\n1er point origine: ")) (initget 9) (setq pt_o2 (getpoint "\n2ème point origine: ")) (initget 8) (while (setq pt_d1 (getpoint "\n1er point destination: ")) (command "_.copy" "_previous" "" "*0.0,0.0,0.0" "*0.0,0.0,0.0") (initget 9) (setq pt_d2 (getpoint "\n2ème point destination: ")) (command "_.align" "_previous" "" pt_o1 pt_d1 pt_o2 pt_d2 "" "_no") (setq pt_o2 (polar pt_d1 (angle pt_d1 pt_d2) (distance pt_o1 pt_o2)) pt_o1 pt_d1 ) (initget 8) ) ) (T (princ "\nSélection vide!")) ) (setvar "cmdecho" 1) (princ) )

Une autre variante, n'utilisant pas de bloc avec un seul clic sur un cercle, arc ou polyarc (devant contenir au moins un quadrant) et la croix depassant du cercle. ^C^C_.-layer;_make;axe;_ltype;axes;axe;_color;_cyan;axe;;_.line;_quad;\_cen;@;;_.-array;_last;;_polar;_none;@;4;360;_yes;_.select;_crossing;_none;@;_none;@;;_.scale;_previous;;_none;@;1.25;_.layerp;^Z PS: attention aucun espace lors du copier-coller de ^C à ^Z

Une démarche pour compléter Jifi Dans dessin origine: Avec le gestionnaire d'Xref Ajouter au dessin les xrefs que tu as besoin Isoler tout les calques qui t'interresse par "inactif/geler" Prendre la commande "wbloc" Cocher Ojets dans la partie source Choisir les objets en mode capture en donnant les points de ton cadre que tu as défini Donner un nom au fichier créé ex:Extrait-topo.dwg Valider Quitter le dessin origine pour ignorer les modifications Ouvrir le nouveau fichier Si necessaire décomposer les blocs existants dans ce dessin Avec la commande "ajuster" choisir le bord de ton cadre comme bord de coupe avec l'option "trajet" choisir les objets à ajuster en détourant à l'extérieur, mais proche de ton cadre. C'est sur que si le fichier a un volume important, ces opérations seront un peu longues.

Puisqu'on est dans les avis ;) Je ne le trouve pas "senssas" non plus :o Il me fait penser à un mamouth vue de face, Je pense que l'autre donne une impression de dynamique que celui ci n'a pas. La couleur par contre rappelle celle des icones associés au DWG, mais avant ces icones étaient rouge (14-2000) , qu'elle sera la prochaine couleur que choisira AutoDesk? Mais comme on dit souvent: Les goûts et les couleurs.....

Commande:TEXTFILL Entrez une nouvelle valeur pour TEXTFILL <0>: 1

J'essayerais une " Réparation d'autocad", (pas une réinstallation) La répération est plus lègère qu'une réinstallation, et je pense qu'elle remèdirais à ce genre de problème. Je penses (sous réserves) que se sont des ARX qui ne sont plus chargé au démarrage d'AutoCad. Cela m'arrivait aussi avec "Wipeout.arx" des express qui foutait le camp!, (vraiment instable ce truc là)

Elément essentiel lorsqu'on se connecte sur la toile, avoir un pare-feu (firewall). Pour différentes raisons, on peut être amené a liberer des ports sur notre ordi. (reseau local, mise à disposition de fichiers, utilisation de logiciel devant communiquer, ect...) Mais ces actions ne sont pas anodines et peuvent transformer votre PC en passoire :o Comment savoir si la configuration de votre pare-feu que vous avez faites ne met pas en péril votre PC? Faites un test gratuit surCHECK.SDV.FR Voilà de quoi nous rassurrer quelque peu! ;)

Bien vu ;) Bien que j'ai employé la fonction (null) qui est effectivement pour une liste vide et que '("" "" "") n'en est pas une. Cela n'avait pas beaucoup d'incidence sur l'execution et je ne l'avais jamais remarqué. En plus la même erreur a été faite sur statvar mais ne se révèle pas car la condition n'est jamais vérifié, a moins de virer les variables CDATE DATE LASTPROMPT TDINDWG TDUSRTIMER *CPUTICKS *MILLISECS de la liste. On peut le faire car ces variables sont systématiquement modifiées quoiqu'on fasse et ne sont pas révélatrices. Pour les variables d'environnement, c'est Bruno Toniutti qui m'avait fourni sa liste, je tient à le remercier au passage ;) Donc je ne peux te dire comment avoir celles de 2005. Merci à toi, ho Oeil d'Aigle :D

Depuis qu'on utilise des licences reseaux, je n'ai plus l'habitude de ces transfert de licence monoposte. Mais de souvenir, je faisais ça sur disquette en prenant soin d'inactiver l'anti virus. Il me semble aussi qu'un formatage ne détruit pas la licence, seul un FDISK/MBR est capable d'effacer la licence logé sur le secteur d'amorce du DD. Sous XP il y a une commande similaire à Fdisk mais je ne me rappelle plus son nom. Et puis il ya eu des patchs de mise à jour, et je ne sais pas si ces remarques sont encore valables. Mais au pire tu redemandes un code d'activation à AutoDesk après ta réinstallation du poste.

Suite aux dicussions ICI et LA Je vous propose un Lisp (peut etre à alméliorer car établi sous 2002) pour connaitre les variables qui sont modifiées lors d'action par les commandes standard d'AutoCAD. NB:La liste complète des variables peut être consulter en éditant le lisp Pour ceci j'ai repris la même philosophie qu'évoqué à ce FIL Ca peut servir lorqu'on programme ;) (defun c:statenv ( / l_env l_rslt renvoi) (setq l_env '( "ACADALTMENU" "AcadClassic" "ACADLOGFILE" "ACADLspAsDoc" "ActiveAssistance" "AlarmOnError" "ARXDemandLoad" "AssignInsertUnits" "AuditControlFlags" "AutomaticSaveMinutes" "AutoSaveFile" "AutoSnapColor" "AutoSnapPolarAddAng" "AutoSnapPolarAng" "AutoSnapPolarDistance" "AutoSnapPolarMode" "AutoSnapShowAperture" "AutoSnapSize" "AutoSnapTrackPath" "Autotracking vector" "AVEMAP" "Background" "BmpOutCompression" "CheckDrawingSignature" "CmdHistLines" "CmdLine.BackColor" "CmdLine.FontFace" "CmdLine.FontHeight" "CmdLine.FontItalic" "CmdLine.FontPitchAndFamily" "CmdLine.FontWeight" "CmdLine.ForeColor" "CmdVisLines" "CommandDialogs" "ContextMenus" "CreateViewports" "CursorSize" "CustomColors" "CustomDictionary" "DatabaseTablesOpenMode" "DatabaseWorkSpacePath" "DefaultFormatForSave" "DefaultLayerZeroPlotStyle" "DefaultPlotStyle" "DefaultPlotToFile" "DemandLoadingModeler" "DigitizerArbitration" "DisableGraphicsTextArea" "DisableScreenMenuArea" "DisableTrueColor" "EdgeMode" "EmergencyFont" "EntityExtentVariant" "ExplorerInsertUnits" "FileDialog" "FontFace" "FontHeight" "FontItalic" "FontMappingFile" "FontPitchAndFamily" "FontWeight" "GripBlock" "GripColor" "GripHot" "Grips" "GripSize" "HatchAlertDisabled" "HatchType" "HideWarningDialogs" "ImageHighlight" "ImportPathInfo" "InsertUnitsDefSource" "InsertUnitsDefTarget" "IsaveBackupDwg" "IsavePercent" "Layout background" "LayoutRegenControl" "LayoutXhairPickboxEtc" "LineWeightDisplayScale" "LineWeightUnits" "LoadPaletteBySession" "LOGFILE" "LogFileOpen" "LogFilePath" "MainDictionary" "MaxApp" "MaxArray" "MaxDwg" "MaxHatch" "MaxOctTreeNodesToAllocate" "MaxSortEntries" "Measureinit" "MenuFile" "MenuOptionFlags" "MiddleButtonPan" "ModeBits" "MonoVectors" "MRUFilesToList" "MTextEditor" "NetLocation" "NoStartUpDialog" "ObjectARXSupportPath" "ObjectDBXSupportPath" "ObjectSnapCursorSize" "OffsetCurveGapType" "OleHide" "OsnapCoord" "PickAdd" "PickAuto" "PickBox" "PickDrag" "PickFirst" "PlineType" "Plot preview background" "PlotRotationMode" "PlotSpoolerDirectory" "PlotSpoolerNode" "PostscriptQuality" "PrinterConfigDir" "PrinterDescDir" "PrinterStyleSheetDir" "PROXYWEBSEARCHNUMBER" "PSOUT_PrologFileName" "QAFlags" "RasterPreview" "RtDisplay" "SaveFilePath" "ScreenMenu" "Scrollbars" "SDF_AttributeExtractTemplateFile" "SDIMode" "ShowFullPathInTitle" "ShowHyperlinkCursor" "ShowHyperlinkToolTip" "ShowOleScaleDialog" "ShowPaperBackground" "ShowPaperMargins" "ShowPaperSize" "ShowPlotSetup" "ShowPrintBorder" "ShowProxyDialog" "ShowProxyGraphics" "ShowRuler" "ShowTabs" "SnapType" "SQLIndexInDwg" "StatusLine&CoordinateDisplay" "TempDirectory" "TemplatePath" "TextFill" "TextWindow.BackColor" "TextWindow.FontFace" "TextWindow.FontHeight" "TextWindow.FontItalic" "TextWindow.FontPitchAndFamily" "TextWindow.FontWeight" "TextWindow.ForeColor" "ToolTips" "Trim&ExtendProjectMode" "Trimmode" "UCSAxisAng" "UcsIcon3d" "UcsIconActiveColor" "UcsIconCone" "UcsIconLineWidth" "UcsIconNonActiveColor" "UcsIconSize" "UCSOrtho" "UCSView" "Use TODAY as Startup dialog" "UseContextMenus" "UseMenuHeader" "UserName" "WhipArcEnable" "WHIPTHREAD" "WhipThreadEnable" "XFadeCtl" "XhairPickboxEtc" "XrefControlFlags" "XrefLazyLoadMode" "XrefLoadPath" "ZoomFactor" "UseMRUConfig" "PLOTLEGACY" "PSTYLEPOLICY" "OLEQUALITY" "Anyport" "Validation Policy" "Validation Strategy" ) ) (initget 1 "Initial Comparaison") (cond ((eq (getkword "\n[initial/Comparaison] ?: ") "Initial") (setq l_ori (mapcar 'getenv l_env)) ) (T (if (null l_ori) (prompt "\nEtat Initial non mémorisé.\nExecutez l'option Initial") (progn (setq l_rslt (mapcar 'getenv l_env)) (setq renvoi (mapcar '(lambda (x y z) (if (not (equal x y)) (strcat "\n" z " a été modifié.") "" ) ) l_ori l_rslt l_env ) ) (if (null renvoi) (prompt "\nAucune variable modifiée.") (progn (textpage) (foreach n renvoi (if (not (eq n "")) (prompt n))) ) ) ) ) ) ) (prin1) )

Comme le dit Christian, après l'import du DXF, je ferais un "controle" ("_audit") Puis: Un "purger" ("_purge") mais à celui-ci je préférerais encore: Un "wbloc" ("_wblock") qui est encore plus efficace que purger si l'on prend soin de prendre en options "Choix des objets" et non pas "Tout le dessin" Je n'ai pas ton fichier et je ne sais pas si cette procédure est la meilleure pour ton cas. Mais à essayer :exclam:

Jifi J'ai édité mon précédent post. Celui-ci tient compte de tes couleurs, et j'ai rajouté quelques lignes pour que l'execution se fasse en mode bascule sans te poser de question SI l'état initial correspond a tes couleurs (normales ou inverse) Tu peux avoir la correspondance des codes de couleur en procédant comme suit: Tu vas dans les options pour fixer les couleurs normalement, une fois validé, tu les interroges avec (getenv "Background") pour le fond en EO (getenv "XhairPickboxEtc") pour le fond en EO (getenv "Layout background") pour le fond en EP (getenv "LayoutXhairPickboxEtc") pour le curseur en EP

J'ais repondu la même, mais en activeX (fonctionne dans les 2 espaces pour Noir ou Blanc) C'est similaire au code de Tramber et Patrick_35, c'est un joyeux mixage des diffèrentes solutions. ;) (defun c:BlackAndWhite ( / disp fonc1 fonc2 togg_bk togg_cr bg_color cr_color) (vl-load-com) (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object)))) (if (zerop (getvar "tilemode")) (setq fonc1 '(vla-put-GraphicsWinLayoutBackgrndColor disp bg_color) fonc2 ' (vla-put-LayoutCrosshairColor disp cr_color) togg_bk (getenv "Layout background") togg_cr (getenv "LayoutXhairPickboxEtc") ) (setq fonc1 '(vla-put-GraphicsWinModelBackgrndColor disp bg_color) fonc2 '(vla-put-ModelCrosshairColor disp cr_color) togg_bk (getenv "Background") togg_cr (getenv "XhairPickboxEtc") ) ) (cond ((and (eq togg_bk "0") (eq togg_cr "32767")) (setq bg_color 16777215 cr_color 16711680) ) ((and (eq togg_bk "16777215") (eq togg_cr "16711680")) (setq bg_color 0 cr_color 32767) ) (T (initget "Noir Blanc _Black White") (if (eq (getkword "\nCouleur de fond [Noir/Blanc]?: ") "White") (setq bg_color 16777215 cr_color 16711680) (setq bg_color 0 cr_color 32767) ) ) ) (eval fonc1)(eval fonc2) (princ) ) Pour tramber: BackGround n'est pas une commande, mais une variable d'environnenemt (getenv "Background") pour la couleur de fond dans l'EO[Edité le 18/8/2005 par bonuscad] [Edité le 18/8/2005 par bonuscad]

Une autre solution en lisp mais sans utiliser l'ActiveX Un inconvenient je suis obligé d'utiliser TILEMODE pour rafraichir la modif Donc à la tienne, mais il faut pas abuser du whisky ;) (defun c:BlackAndWhite () (initget "Noir Blanc _Black White") (if (eq (getkword "\nCouleur de fond [Noir/Blanc]? : ") "White") (setenv "Background" "16777215") (setenv "Background" "0") ) (if (zerop (getvar "tilemode")) (setvar "tilemode" 1) (setvar "tilemode" 0)) (if (zerop (getvar "tilemode")) (setvar "tilemode" 1) (setvar "tilemode" 0)) (princ) ) Mais je regarderais ce qui cloche dans la solution de Tramber car elle m'interesse

Je vais en profiter pour rappeler l'existence de l'excellent programme de Kamal Boutora. QBrick Cela serait dommage de passer à coté :exclam: Au rique de me répéter, BRAVO à lui Voir ICI

Dans le même esprit que la réponse de Tramber, mais développé dans ton sens: (defun c:lead_block-name ( / ent dxf_ent typ_ent blk_name pt_lst pt) (while (null (setq ent (entsel "\nChoix de l'entité: ")))) (setq dxf_ent (entget (car ent)) typ_ent (cdr (assoc 0 dxf_ent)) ) (if (eq typ_ent "INSERT") (progn (setq blk_name (cdr (assoc 2 dxf_ent)) pt_lst (list (trans (cdr (assoc 10 dxf_ent)) (car ent) 1)) ) (while (setq pt (getpoint (car pt_lst) "\nIndiquez le point suivant: ")) (setq pt_lst (cons pt pt_lst)) ) (command "_.leader") (foreach n (reverse pt_lst) (command n)) (command "" blk_name "") ) (princ "\nEntité n'est pas une insertion de bloc!") ) (prin1) )

Bonjour, Je pense que si tes noms de dossiers ou de fichiers comportent des espaces, tu devrais essayer d'utiliser les noms DOS 8.3 Pour t'aider, sous la console DOS d'XP fais la commande DIR/X pour obtenir ce format. Tu devrais obtenir par exemple un truc de ce style PC16AE~1.dwg pour "PC16A en saillie" Je n'ais pas testé, mais cela devrait fonctionner.

Salut Jérome Est ce que le sujet traité dans ce Post pourrait te rendre service? Tu peux modifier le code ou en récupérer une partie pour l'adapter à ton besoin si ce n'est pas exactement ce que tu souhaites.