-Th-

Nous avions un VBA qui lançait plusieurs Lisp, mais plus rien ne fonctionne. De ce que j'ai compris, le langage VBA a évolué et il y aurait donc des erreurs. Je ne sais pas comment entrer dedans. Je me dis qu'il y a peut-être moyen de donner un coup de neuf aux Lisp et les utiliser indépendamment du VBA. En regardant les LISP, j'ai vu que des chemins définis à partir de la base de registre n'étaient plus bons, je les ai donc modifiés, mais je crois que je rate quelque chose. Mais il y a plein d'autres erreurs et je n'ai aucune connaissance pour remettre ces codes à jour. Par exemple, dans les fichiers joints, il y a le fichier d'origine et un modifié, dans lequel j'ai essayé de remettre à jour les chemins et de supprimer la gestion des versions de logiciel. Les onglets de présentation sont bien créés, mais les fichiers DWG ne se chargent pas, je dois avoir un problème dans mes chemins. J'ai des ; erreur: type d'argument incorrect: stringp sur d'autres commandes, bref, c'est un grand bazar pour moi. Peut-être pouvez-vous m'orienter sur des aspect du Lisp spécifique à ce code, afin que je le comprenne ? Je pense qu'il va falloir que j'apprenne entre midi et deux pour comprendre le fonctionnement et de quoi je parle, mais il me faudra également de l'aide. Merci de prendre temps de me répondre. create.LSP create-modif.LSP

La base vient d'un vieux LISP qui ne tourne plus et personne n'a le temps de le retoucher. Tous les vieux développements en Lisp et en VBA tombent en désuétude. Les commandes AutoCAD ont évolué le VBA n'est plus du tout à jour et ne tourne plus. Je n'y connais rien et j'ai essayé de trouver une solution en passant par une IA, afin d'essayer de sauver la création d'une courbe de pompe en Lisp qui nous faisait gagner beaucoup de temps. Je comprends à vos réponses qu'il est illusoire de trouver des solutions par ce biais. Merci pour vos réponses.

Bonjour, Je cherche à insérer un fichier au point d'insertion 0,0, mais j'ai un message d'erreur sytématique : ; erreur: no function definition: POINT-INSERTION Pouvez-vous m'aider ? (defun c:test-construction-courbe () "Test minimal pour construction_courbe." ;; Définition des paramètres (let* ( (chemin-bloc "C:\\Temp\\test-bloc.dwg") ; Chemin du fichier DWG du bloc (point-insertion '(0.0 0.0)) ; Point d'insertion par défaut (echelle 1.0) ; Échelle d'insertion (rotation 0.0)) ; Angle de rotation ;; Vérification de l'existence du fichier (if (findfile chemin-bloc) (progn (princ (strcat "Insertion du fichier : " chemin-bloc "\n")) ;; Insertion du bloc (command "_.CLASSICINSERT" chemin-bloc (car point-insertion) (cadr point-insertion) echelle rotation) (command "_.ZOOM" "ET") ; Zoom étendu pour voir le bloc inséré (princ "Insertion terminée.\n")) (princ (strcat "Erreur : Fichier introuvable -> " chemin-bloc "\n")))))