DenisHen

Bonjour à tous. Voilà, je tente de dessiner un rectangle avec deux point et une hauteur, j'utilise DistanceTo de (gile) mais AutoCAD me sort une erreur, voici mon bout de code : (initget 1) (setq pt1 (getpoint "\nPoint bas gauche : ")) (setq pt2 (getpoint "\nPoint bas droit : ")) (setq pt12 (getpoint "\nHauteur : ")) (Setvar "OSMODE" 0) (setq PtPerp (DistanceTo pt12 pt1 pt2)) (setq pt3 (polar pt2 (angle Pt12 PtPerp) (distance pt12 PtPerp))) (setq pt4 (polar pt1 (angle pt12 PtPerp) (distance pt12 PtPerp))) (Command "_PLINE" pt1 pt2 pt3 pt4 "_C") Et voici le message d'AutoCAD : Et "108.617" ne correspond à rien, je suis en Lambert93... Si quelqu'un a une idée, une solution... Je suis preneur...

Salut. Au boulo, notre admin réseau ne jure que par ESET Endpoint Antivirus... Une cinquantaine de postes, et on n'a jamais eu de problème... Chez moi, j'ai Avast (gratuit) depuis des années et je n'ai jamais eu de problème...

Salut. Si tu veux passer sous Windows 10, il est toujours possible de l'installer gratuitement... Et ce, depuis une clef USB, il n'y a pas plus rapide, surtout si tu ne peux brancher ton ordi sur secteur...

Salut Lolo. Trois petites choses. Tu aurais du poster dans "CADxp\Programmation\LISP et Visual LISP\...". Mettre en forme ton post. Et personnellement, j'aurai fais un .Lsp ET une .Dcl. Bien plus facile à mes yeux à gérer. Tu auras, je l'espère, plus de réponses... Tu peux aussi faire un tour sur da-code.fr.

Salut Tramber, et merci pour ces précisions... Oui, j'ai fini par comprendre l'ajout d'un élément dans une liste, ce qui m'a mit la puce à l'oreille, c'est le systématique (reverse à la fin du traitement... ;) Pourquoi inverser la liste à chaque fois...? Parce qu'elle est construite "à l'envers"...

Un IDE pour les LSP, mais quid des DCL ?

Salut à tous. J'ai trouvé la réponse à mon message #2. Il faut inverser les deux éléments dans le (cons : ;; Liste des styles de police du DWG courant (while (setq Style (tblnext "STYLE" (not Style))) ; (setq StyleTrouve (cdr (assoc 2 Style))) (setq LstStyle (cons StyleTrouve LstStyle)) ) Ne donne pas le même résultat que : ;; Liste des styles de police du DWG courant (while (setq Style (tblnext "STYLE" (not Style))) ; (setq StyleTrouve (cdr (assoc 2 Style))) (setq LstStyle (cons LstStyle StyleTrouve)) )

Merci Olivier, très intéressante cette commande de Covadis... ;)

Salut (gile), et merci pour ton aide. C'est exactement ça, maintenant, ça fonctionne nickel... Encore merci...

Salut Phil, et merci pour ta réponse. Mon mode "pas à pas" déconne aussi, impossible de placer des "points d'arrêt"...

Salut didier, et merci pour cette réponse. Oui (c'est bien un .DCL) et oui (il est bien enregistré).

Bonjour à tous. Je fais actuellement une boite de dialogue en DCL. Dans l'IDE Visual LISP, il y a une commande pour faire un aperçu de la boite de dialogue en cours : Outils\Outils d'interface\Aperçu DCL dans l'éditeur. Petit problème, rien ne s'affiche... Même avec une DCL qui fonctionne parfaitement. Ai-je oublié de faire quelque-chose ?

Bonjour à tous, et merci de vous intéresser à ce point à mon sujet. Je viens de recevoir deux semaines de boulo à faire en une, je vais donc être un peu débordé... Mais la moindre des choses est de vous rendre la politesse en vous répondant le plus "clair possible"... @(gile) : - merci pour ton code, je regarde ça dès que je peux, - au sujet du fichier "ini", il devrait être disponible pour plusieurs dessin et disponible pour un export/import vers d'autres machines éventuellement, je ne vois qu'un fichier texte pour ça. Mais je vais suivre tes conseils (supportés par d'autres) et ne faire ce fichier QUE pour un export/import. En "interne" (sur une même machine) j'utiliserais les (vl-registry-write (pour une machine) et les (vlax-ldata (pour le fichier). Je ferais un fichier spécifique pour l'échange de variables entre machines. Merci pour ton aide. @didier : - désolé de ne pas t'avoir répondu, mais j'ai passé la nuit (en rêves) à essayer de te faire une réponse logique et structurée, je dois donc commencer par m'ordonner le cerveau avant de l'écrire ce qu'il y a dedans ;) . - oui, je tente bien de faire une liste comme le propose (gile), une suite de chaines que je traiterais ensuite pour le changement de variable et la réécriture du .ini (ou .txt comme tu me le propose).Et merci pour ton aide. @Patrick_35 : - Je choisirais, je pense car plus facile à gérer pour moi, les solutions "par plusieurs ordinateurs" et "par dessin". Et merci pour ton aide. Je pense que vous avez tous compris mon problème et vos conseils sont justes, comme toujours. Je vais donc aller dans votre sens et les suivre... Encore un grand merci à vous tous... Denis...

Salut Olivier, et merci pour ton aide... Mais j'aimerais me soustraire des ExpressTools, je ne sais pas si tous mes utilisateur l'ont... Mais je vais fouiller dans ce sens... Mais question, où trouver ce fichier ? ? ? Merci pour ta réponse...

J'ai oublié de poster mon fichier .ini :

Re. Je viens de tenter plusieurs trucs, voici mon code expérimental : (defun TC_EcriVarIni (Fich NomVar Var / File Line LstVar ValVar) (if (findfile Fich) (progn (setq File (open (findfile Fich) "r")) (setq Line (read-line File)) (setq LstIni (list LstIni 'Line)) (while Line (setq LstIni (list LstIni 'Line)) (setq Line (read-line File)) ) ;_ Fin de while (close File) ;;Réécriture des paramètres EN COURS... ;;(setq File (open (findfile Fich) "w")) ;;Placer ici la fouille de la variable a changer... ;;Traitement... ;;Puis, écrire la totalité du .ini ;;Fin de réécriture EN COURS... (princ LstIni) ) ;_ Fin de progn (princ (strcat "\nFichier '" Fich "' introuvable.")) ) ;_ Fin de if ) le résultat est : Je ne sais pas comment gérer ce type de liste dans la liste, je pensait obtenir : Une liste "simple"... J'ai juste deux question - comment éviter le premier "atome" nil en début de liste, - comment faire une liste simple, et non une infinité de liste dans une liste... Bien à vous... Denis...

Bonjour à tous. Pour les besoins d'une suite de lisp, j'aimerais faire des fichiers type .ini avec lecture et écriture de paramètres. Mais voilà, je n'ai pas beaucoup de solutions à ma portée, je sais créer le fichier, je sais le consulter, mais je ne sais pas comment modifier juste une variable, mon .ini est formaté comme ça : Je cherche donc à modifier qu'une seule ligne. Je pense qu'il faille lire tout le fichier (open fichier "r"), placer toutes les ligne dans une liste, changer la variable souhaitée et réécrire le fichier entier (open fichier "w"). Mais ça me semble un peut lourd à utiliser. Peut-être laisser l'utilisateur faire ce changement "à la main" dans le fichier .ini, mais je ne suis pas pour cette solution. S'il fait une c*******, tout est fichu... Si quelqu'un a une astuce, un conseil... je suis preneur...

Bon, vu que didier compte sur nous, je m'y colle. Je suis de 72 (46 ans cette année), je vais passé pour le gamin de la bande. J'ai souvent voulu me soustraire au patronat (car les bons se font rare) pour devenir le mien, mais je n'ai jamais franchi le pas, je n'ai aucun sens du commerce pour me vendre ou vendre mes compétences. Mon avenir ? Je le vois compromis. Ma retraite, et je le vois gros comme un immeuble, va être dans un bon nombre d'années et je subodore qu'elle soit vers mes 65 ans, peut-être plus... Mais avec des problèmes de santé (je n'en dirais pas plus), je vois ma retraite sérieusement compromise... Autre chose, comment va survivre CadXP si les "dinosaures" prennent le large ? ? ? Denis...

Re. Une fois les deux cases renseignées, il faut cliquer sur le bouton "Nouveau nom" à gauche avant de faire OK.

De rien... Tu veux dire que tu veux une liste déroulante avec QUE du texte ou des icônes AVEC du texte ? Pour le premier, faudrait faire une petite recherche, pour le deuxième, je n'ai aucune idée.

Salut (gile), et merci pour cette réponse. Je comprend mieux, mais ça complique vachement le code... Pour rien, si j'ai tout compris... ;)

Salut Fraid, et merci pour cette réponse. Je te répondrais, "J'en n'ai aucune idée"... :mellow:

Re. J'ai retrouvé, dans mon grenier, un vieux .mns. Je t'en ai sortie un extrait. J'avoue avoir perdu ces connaissances. :huh: Le fichier s'appelait PHALENE.mns. **DIVISION ID_Division_0 [_Toolbar("Division", _Left, _Show, 1, 2, 1)] ID_UserFlyout_0 [_Flyout("Icône déroulante définie par l'utilisateur", RCDATA_16_BLANK, RCDATA_16_BLANK, _OtherIcon, PHALENE.DIVISIONA)] ... ... **DIVISIONA **PROJETNUM ID_DivisionA_0 [_Toolbar("ProjetNum", _Floating, _Show, 165, 412, 1)] ID_UserButton_D1 [_Button("Projet de division courant : 1", "PrjDiv 1.bmp", "RCDATA_16_BLANK")]^C^C(c:PhProjet);D1; ID_UserButton_D2 [_Button("Projet de division courant : 2", "PrjDiv 2.bmp", "RCDATA_16_BLANK")]^C^C(c:PhProjet);D2; ID_UserButton_D3 [_Button("Projet de division courant : 3", "PrjDiv 3.bmp", "RCDATA_16_BLANK")]^C^C(c:PhProjet);D3; ... ... DIVISION est le nom de l'icone "principal" (icone déroulant) et DIVISIONA est le nom du sous-menu (liste des menus dans l'icone principal). Si mes souvenirs sont bon, les deux noms d’icônes servent à la définition d'affichage, petits icônes ou grands icônes. Je ne te serais que d'une toute petite aide si tu as quelques soucis. :unsure: Mais on ne sait jamais...

Salut. Peut-tu poster un bout de ton mns ?

Salut. Oui, j'en suis certain, les deux heures sont identiques chez moi... Image WeTransfer EDIT : je n'arrive pas à afficher l'image comme didier...