marionsname

apparemment les menus images n'utilisent pas des clichés avec hachurage. y a -t-il d'autre alternative et pourquoi cette limitation? Merci

Salut En lisp est-il possible de : 1- supprimer tous les textes dans un fichier dwg. 2- modifier toutes les occurences d'un mot. j'ai lu dans l'aide, qselect n'a pas d'options en ligne de commande, filter également. Merci de votre aide

parcourant le forum d'autodesk à la recherche d'une réponse, je découvre que ce problème de barre d'outils dans la 2007 est un des sacrés. certains même menacent de revenir à la 2005. des barres d'outils qui disparaissent toutes seules, et sans raison. ne serait-il pas là un BUGGG de taille de cette version?? Qui pourra le confirmer? Patrick? peut être bien ;) salutations

Bonjour tout le monde, J'ai un souci avec une barre d'outil flottante dans autocad 2007. J'installe ma routine lisp ainsi que les menus en utilisant AcadInstall 1.6 quand ça me demande de choisir l'espace de travail, je choisis tous les espaces de travail disponnibles, en l'occurence "modélisation 3D" et "Autocad classique". quand je lance autocad 2007 ma barre d'outil ainsi que mon menu partiel apparaissent normalement, mais dés que je bascule d'un espace de travail à un autre ma barre d'outil disparait et même les menus sont un peu touchés, les express par exemple disparaissent. Est-ce que quelqu'un a déjà rencontré ce genre de problèmes avec la 2007. Juste pour information mon menu partiel *.cui je l'ai eu en faisant chargmnu et en pointant sur mon fichier *.mnu, et ainsi mon fichier cui est généré. Je ne sais si c'est à cause de ça? Merci pour votre aide :)

le résultat de (atof (apply 'strcat (mapcar '(lambda (x) (itoa x)) (vl-string->list "AGG4520")))) --> 6.57172e+013 donne un résultat en format scientifique, pour l'avoir en décimal s'agit-il d'une variable système ou d'un paramètre. dans l'aide je n'ai pas trouvé de paramètres pour atof. merci

Merci infiniment

Pourquoi il ya une différence (au niveau de la valeur) entre (apply 'strcat (mapcar '(lambda (x) (itoa x)) (vl-string->list "AGG4520"))) --> "65717152535048" et (atoi (apply 'strcat (mapcar '(lambda (x) (itoa x)) (vl-string->list "AGG4520")))) --> 2147483647 je sais que dans autocad il y a une limitation au niveau des entiers mais quand on fait (atoi "65717152535048") ça donne comme resultat 2147483647 est-ce une convertion c'est pas clair? quelle est le rapport entre les deux chiffres?. le résultat de (apply 'strcat (mapcar '(lambda (x) (itoa x)) (vl-string->list "AGG4520"))) --> "65717152535048" pour le convertir en réel quelle fonction utiliser. Merci je t'en demande trop :P

C'est parfait Merci beaucoup

Merci Patrick_35 c'est exactement ce qu'il faut seulement le resultat est une liste j'ai cherché dans l'aide dans les fonctions de traitement de list pour enlever les espaces qu'il ya entre les chiffres mais j'ai pas trouvé. comme j'ai j'ai besoin d'un entier en résultat. Merci beaucoup

Salut Oui Patrick_35 je suis d'accord avec toi, enfin c'est le numéro du bios qui reste une bonne piste, tandis que le numéro de l'OS change à chaque réinstallation. Pour ce qui est de la gestion des chaines dont j'ai parlé plus haut est-ce simple à faire ou compliqué (je parle de la convertion de chaine en entier ou en décimal) ? Merci à toi aussi CDL, cette adresse MAC semble aussi une bonne piste, mais j'ai lu un peu sur la base de registre pour y retrouver des traces, mais en vaim jusqu'à présent. La bataille reste ouverte. Patrick_35 si tu peux fournir un petit effort pour le code de le gestion des chaines ce serait vraiment sympat, sinon c'est aussi sympat. Bonne continuation à tous et meilleurs voeux pour 2007

Bonjour Patrick_35 après des essais de tous les codes sur 4 postes identiques (100% identiques) il s'est avéré ce qui suit : 1- Pour le code sur le nuémro de série du disque dur : apparemment ça ne ressort pas le numéro de série car j'ai remarqué que le résultat est exactement identique pour les quatres PC à l'exception de cette valeur qui est différente pour un seul PC: Signature : -720329424 Signature : -858927923 Signature : -858927923 Signature : -858927923 si j'ai un commentaire à faire c'est le numéro de série ne figure pas parmi toute l'information, il faut voir du coté du code posté sur le site de vbfrance. d'ailleurs j'ai déjà fait la remarque que le résultat de ce code est différent du tien! 2- Le code de l'opérationg systeme a donné ceci : "76413-365-6725323-22592" "76413-365-6725323-22539" "76413-365-6725323-22537" "76413-365-6725323-22414" 3- Le code du série du bios a donné ceci : "KDVB275" "KDVB293" "KDVB299" "KDVB336" une question au passage si ces numéros sont en hexa pourquoi toujours "KDVB" je pense que ce n'est pas en hexa. 4- Pour ce même code et sur le même PC avant et après formatage, ce numéro ne change pas. Merci

oups j'ai inversé (defun c:serie(/ item meth1 meth2 ser wmi) (setq WMI (vlax-create-object "WbemScripting.SWbemLocator") meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil) meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_BIOS")) (vlax-for item meth2 (setq ser (vlax-get item 'SerialNumber)) ) (vlax-release-object meth1) (vlax-release-object meth2) (vlax-release-object wmi) [surligneur] (if (or (= ser nil) (ser "")) (setq ser "3AS21524") (setq ser ser) )[/surligneur]ser ) ça se voit que je suis fort en lisp! excuses

si je rajoute un if ou cas où le numéro de série du bios serait vide est-ce que ça ferait l'affaire. je ne sais pas si ça marchera comme ça? Enfin je veux dire coté gestion d'erreurs. Par exemple si ce numéro donne " " (3espaces) ou "-" qu'est-ce que ça ferait? (defun c:serie(/ item meth1 meth2 ser wmi) (setq WMI (vlax-create-object "WbemScripting.SWbemLocator") meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil) meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_BIOS")) (vlax-for item meth2 (setq ser (vlax-get item 'SerialNumber)) ) (vlax-release-object meth1) (vlax-release-object meth2) (vlax-release-object wmi) [surligneur] (if (or (= ser nil) (ser "")) (setq ser ser) (setq ser "3AS21524") )[/surligneur]ser ) Merci

Salut Patrick_35, en fait je fais quelques opérations mathématiques la dessus pour en ressortir un autre numéro c'est pourquoi j'ai besoin d'un entier. si j'étais sûr que c'est un hexadécimal là pas de problème, j'ai déja un lisp pour cette conversion (merci pour les deux lisps que tu as posté). Par contre si c'est une chaine là je peux pas faire les dits calculs. c'est pourquoi j'ai besoin d'un lisp pour convertir une chaine en entier. reste à verifier si c'est unique et si ça ne change pas à chaque réinstallation de l'OS. Merci pour ta générosité en temps et en effort. @+

Merci Patrick_35, Comme tu dis pour le série du bios ça vient peut être du constructeur, par contre pour windows xp pro je ne comprends pas puisqu'il s'agit du bios. A priori il n'ya pas de rapports avec windows ou tout autre système d'exploitation ;) J'ai testé sur mon pc du bureau ça marche nickel, je vais encore essayer de tester sur d'autres machines au cas où ;) J'ai deux questions : 1- est-ce que ce numéro de série est toujours un chiffre exadécimal ? 2- est-ce qu'il est une chaine ? si oui y at-il un moyen pour traduire une chaine qui peut contenir des lettres, chiffres, autres caractères en un entier en convertissant toutes les lettres et les caractères autres que les chiffres en des entiers (en utilisant par exemple le code asci ou simplement en mettan des chiffres à la place des lettres et autres acaratères). par exemple si la chaine est AC12365214-D41/15 on peut assigner à A:2 C:9 D:13 -:0 Autres caractères : 4 ainsi ma chine devient [surligneur] 2[/surligneur] [surligneur] 9[/surligneur]12365214 [surligneur] 0[/surligneur] [surligneur] 13[/surligneur]41 [surligneur] 4[/surligneur]15 Autre question pour le code d'info du dique dur, l'information est-ce qu'elle est une liste ? comment extraire uniquement le numéro de série? Merci beaucoup Patrick_35, tu es vraiment fort en lisp, chapeau

Bonjour Patrick_35, Merci pour le code du bios. Je l'ai testé chez moi, ça donne une chaine vide. Est-ce que c'est à cause de mon serial data? Merci

En comparant avec le resultat qui donne http://www.vbfrance.com/codes/INFORMATION-DISQUE-DUR_27883.aspx ce n'est pas la même chose! enfin juste une remarque. avec le code vb ça donne comme résultat : identifiant du modèle : WDC WD400BB-22JHA1 numéro de série : WD-WCAMC1783993 @+

et bien, ça se corse entestant sur une machine qui n'est pas la mienne ça a donné ceci : Availability : Nil BytesPerSector : 512 Capabilities : (3 4) CapabilityDescriptions : Nil Caption : WDC WD400BB-23JHA1 CompressionMethod : Nil ConfigManagerErrorCode : 0 ConfigManagerUserConfig : 0 CreationClassName : Win32_DiskDrive DefaultBlockSize : Nil Description : Lecteur de disque DeviceID : \\.\PHYSICALDRIVE0 ErrorCleared : Nil ErrorDescription : Nil ErrorMethodology : Nil Index : 0 InstallDate : Nil InterfaceType : IDE LastErrorCode : Nil Manufacturer : (Lecteurs de disque standard) MaxBlockSize : Nil MaxMediaSize : Nil MediaLoaded : -1 MediaType : Fixed hard disk media MinBlockSize : Nil Model : WDC WD400BB-23JHA1 Name : \\.\PHYSICALDRIVE0 NeedsCleaning : Nil NumberOfMediaSupported : Nil Partitions : 3 PNPDeviceID : IDE\DISKWDC_WD400BB-23JHA1______________________06.01C06\5&99CB4D6&0&0.0.0 PowerManagementCapabilities : Nil PowerManagementSupported : Nil SCSIBus : 0 SCSILogicalUnit : 0 SCSIPort : 0 SCSITargetId : 0 SectorsPerTrack : 63 Signature : -858927923 Size : 40015987200 Status : OK StatusInfo : Nil SystemCreationClassName : Win32_ComputerSystem SystemName : INSTITUT-1WGUMF TotalCylinders : 4865 TotalHeads : 255 TotalSectors : 78156225 TotalTracks : 1240575 TracksPerCylinder : 255 dynamic : -1 Locale : 1033 provider : CIMWin32 UUID : {8502C4B2-5FBB-11D2-AAC1-006008C78BC7} Availability : Nil BytesPerSector : 512 Capabilities : (3 4 7) CapabilityDescriptions : Nil Caption : TS128MJFLASHA USB Device CompressionMethod : Nil ConfigManagerErrorCode : 0 ConfigManagerUserConfig : 0 CreationClassName : Win32_DiskDrive DefaultBlockSize : Nil Description : Lecteur de disque DeviceID : \\.\PHYSICALDRIVE1 ErrorCleared : Nil ErrorDescription : Nil ErrorMethodology : Nil Index : 1 InstallDate : Nil InterfaceType : USB LastErrorCode : Nil Manufacturer : (Lecteurs de disque standard) MaxBlockSize : Nil MaxMediaSize : Nil MediaLoaded : -1 MediaType : Removable media other than floppy MinBlockSize : Nil Model : TS128MJFLASHA USB Device Name : \\.\PHYSICALDRIVE1 NeedsCleaning : Nil NumberOfMediaSupported : Nil Partitions : 1 PNPDeviceID : USBSTOR\DISK&VEN_&PROD_TS128MJFLASHA&REV_1.00\6&14D8C3D2&0 PowerManagementCapabilities : Nil PowerManagementSupported : Nil SCSIBus : Nil SCSILogicalUnit : Nil SCSIPort : Nil SCSITargetId : Nil SectorsPerTrack : 63 Signature : -399834890 Size : 123379200 Status : OK StatusInfo : Nil SystemCreationClassName : Win32_ComputerSystem SystemName : INSTITUT-1WGUMF TotalCylinders : 15 TotalHeads : 255 TotalSectors : 240975 TotalTracks : 3825 TracksPerCylinder : 255 dynamic : -1 Locale : 1033 provider : CIMWin32 UUID : {8502C4B2-5FBB-11D2-AAC1-006008C78BC7} alors le numéro de série c'est UUID ou c'est le modèle. je vais tester sur mon serial ata at voir. en tout cas Bravo

Patrick_35, est-ce que le code que tu as traduit est celui qu'on retrouve ici http://www.vbfrance.com/codes/INFORMATION-DISQUE-DUR_27883.aspx ? si c'est le cas et à lire les répliques sur le forum de vbfrance, ce code ne marche pas sur tous les types de disques durs. sur le mien d'ailleurs (et j'ai un serial ata), il ne detecte pas de disque dur. Merci pour l'effort de traduction @+

Encore moi, juste une précision Patrick_35 va voir ici http:// http://www.vbfrance.com/codes/INFORMATION-DISQUE-DUR_27883.aspx et d'ailleurs sur le site de vbfrance il y a bien d'autres choses, si toutefois on pouvait connecter ça avec le lisp. Bonne continuation

Merci Patrick_35 En fait tout le besoin réside dont le fait de n'exécuter le lisp sur une machine que si l'on le droit de le faire moyennat un numéro de certification qui dépendrait entre autre d'un numéro de série unique, ou d'un identifiant unique (un chiffre hexadécimal est souhaitable pour des raisons de calcul). Je sais qu'il y a plusieurs façons de protéger un lisp ou une application, comme le verouillage matériel (dongle), mais on va pas faire de dongle pour une application lisp dont le coût est moins cher que le dongle lui même. Pour l'adresse IP c'est pas sûr car à ma connaissance (un peu limitée dans les reseaux), l'adresse IP n'est pas unique et cela depend de plusieurs paramètres, en plus de celà reste le problème que j'ai évoqué l'autre fois celui du cas ou on n'a pas de connexion INTERNET. J'ai testé ton code sur une machine qui n'est pas connectée, ça ne donne rien. Les infos dont tu parlais ne contiennet pas quelque chose comme un numéro de série par exemple celles relatives au bios? Merci encore une fois

Bonjour à tous, Encore la question sur le numéro de série du matériel (disque dur, carte graphique...) en cherchant dans le forum d'autodesk j'ai trouvé ceci (ancien) et rien d'autre http:// http://discussion.autodesk.com/thread.jspa?messageID=1228508 donc c'est une question qui reste posée. les réponses qui ont été fournies et nottement VxGetDriveInfos que vous pouvez retrouver ici http://www.menziengineering.ch/ donne le numéro de série du volume c: ou d: (pour c: différent de d: quand il y a plusieurs partitions) qui peut etre changé à chaque repartition ou chaque formatage, il peut même être changé par l'utilisateur si je crois bien certains dire. j'ai également cherché dans les forums de Windows pour voir si dans la base de registre, il y a certaines informations sur les numéros de série c'est à dire que windows peut inscrire au moment de l'installation, mais j'ai pas trouvé de réponses. La plupart pensent que ces informations ne figurent pas dans le registre. Moi je pense que si certains softs comme Aida32 peut extraire ces informations, pourquoi n'y aurait-il pas un moyen en lisp de le faire. moi je ne maitrise bien le lisp, mais les amis chvronnés, et il y en a pas mal ici sur ce forum, peuvent bien faire un effort. c'est une question qui restera posée en 2007. Meilleurs voeux pour 2007 à tous

merci zebulon_ et désolé pour le retard. merci également à Eric pour SuperAutoscript. Je vais tester cette piste de script je crois qu'elle fera l'affaire. merci amicalement :)

Bonjour, est-ce qu'il y a un moyen pour purger les blocs pour un ensemble de fichiers, si c'est possible sans les ouvrir ? Merci pour votre réponse

oui mais si je les donne à quelqu'un qui empecherait de le dupliquer mille fois. je suppose que ça ne t'as pas échappé, c'est même élementaire. ;) @+